Нужна помощь в решении задачи

[Maestresa]

Нужна помощь в решении задачи

помоги пожалуйста! нужно решить задачу к до 15.01.2011
построить график функции у= lxl/lsin(x)l (модуль X разделить на модуль синус X)

[MOD]Максимально чётко пишите название темы, темы типа: "Help me", "Помогите", и подобные, создавать крайне нежелательно. Тема переименована. Модератор[/MOD]

 

[Max]

нужно решить задачу к до 15.01.2011

Ну если мы не узнаем на каком языке программирования требуется решить Вашу задачу, тогда вряд'ли Вы можете рассчитывать на помощь со стороны. Экстрасенсов у нас, нет.

 

[Maestresa]

прошу прощения, что сразу не указала. Паскаль(любой)

 

[Vladimir_S]

прошу прощения, что сразу не указала. Паскаль(любой)

Эх, "тянем-потянем" (информацию из заказчика).
1. В каком диапазоне аргумента нужно построить график? Заметим, что при х="пи", х=2*"пи" и т.д. там возникают полюса (функция уходит в бесконечность).
2. Что значит "любой" Паскаль? В TP, Free Pascal, Borland Pascal графика борландовская, а вот в АВС - делфи-подобная. Вам какая нужна?

 

[Maestresa]

я записала условие полностью, там нет никаких ограничений. так же как и в версии паскаля, принимаются любые решения

 

[Vladimir_S]

я записала условие полностью, там нет никаких ограничений. так же как и в версии паскаля, принимаются любые решения

Ладно. Будет время - прикину вечерком.

 

[Vladimir_S]

Ну вот:

Uses Graph, CRT;
VAR
 i,j:INTEGER;
 S:String;
 x,y:Real;

BEGIN
 InitGraph(<[COLOR=Red]параметры задайте сами[/COLOR]>); 
 Line(20,420,620,420);
 Line(20,420,20,20);
 SetTextStyle(DefaultFont,HorizDir,1);
 SetTextJustify(CenterText,TopText);
 OutTextXY(20,430,'0');
 FOR i:=1 TO 6 DO
  begin
   Line(20+i*100,420,20+i*100,410);
   Str(i/2:3:1,S);
   OutTextXY(20+i*100,430,S+'*Pi');
  end;

 SetTextJustify(RightText,CenterText);
 FOR i:=0 TO 10 DO
  begin
   Line(20,420-i*40,30,420-i*40);
   Str(i:2,S);
   OutTextXY(15,420-i*40,S);
  end;

 SetLineStyle(DashedLn,0,NormWidth);
 For i:=1 to 3 do
  Line(20+200*i,410,20+200*i,20);

 SetLineStyle(SolidLn,0,ThickWidth);
 MoveTo(20,380);
 x:=0;
 For i:=1 to 3 do
  begin
   Repeat
    x:=x+0.01;
    y:=x/ABS(Sin(x));
    If y<=10 then
     LineTo(20+Round(x*200/Pi),Round(420-y*40));
   Until y>10;
   x:=x+2*(Pi*i-x);
   If x<3*Pi then
    begin
     Repeat
      x:=x+0.01;
      y:=x/ABS(Sin(x));
     Until y<=10;
     MoveTo(20+Round(x*200/Pi),Round(420-y*40));
    end;
  end;
 ReadKey;
 CloseGraph;
END.

В итоге должно получиться вот так:

 

[Maestresa]

огромное спасибо!!!!