Информатика, построение графиков через паскаль.Составьте программку построения графика

Информатика, построение графиков через паскаль.
Составьте программку построения графика зависимости y=xsinx на отрезке [-20,20]

Задать свой вопрос
Мистакопуло Ангелина
Паскаль ABC
Владимир
Блин
1 ответ
Это ? PascalВыделить код1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 uses graphABC; function F(x:real):real; begin F:=sin(x)/x end; var mx,my,x,dx,y:real;     x0,y0,i:integer;     s:string; begin x0:=windowwidth div 2;Г*Г*ГГ*ГГ ГГГГГГЁГ*Г*Г Г ГГГ*ГГГ ГГГГ*Г*Г* y0:=windowheight div 2; ГГГГГГЁГГЁГГ*ГГ ГГ ГГГГ ГГГ ГГГГГГГГ* ГГГ*ГГГ*ГГ ГГГГГГЁГ*Г*Г Г ГГГГ*Г*Г*ГГ mx:=30; my:=100; line(0,y0,windowwidth,y0); ГГГ Г line(x0,windowheight,x0,0); ГГГ Г ГГГГГЁГГЁ ГГГЁ Y line(x0-3,y0-round(my),x0+3,y0-round(my)); textout(x0-10,y0-round(my)-15,'1'); line(x0-3,y0+round(my),x0+3,y0+round(my)); textout(x0-15,y0+round(my),'-1'); ГГГГГЁГГЁ ГГГЁ Г for i:=1 to 6 do   ГГ*ГГГЁГГ*ГГГ*ГГ ГГГГЁГГГГГГ ГГ*ГГГГГ Г ГГГ*Г ГГГГГГ*Г  begin   line(x0+round(i*pi*mx/2),y0-3,x0+round(i*pi*mx/2),y0+3); ГГ*ГГГГГЁ Г*Г* ГГГЁ Г   line(x0-round(i*pi*mx/2),y0-3,x0-round(i*pi*mx/2),y0+3);   if i mod 2=0 then ГГГГГЁГГЁ ГГГГГ 1    begin     str(i div 2,s);     if s='1' then s:='';1pi 1 Г*Г ГГЁГёГГ     textout(x0+round(i*pi*mx/2),y0+10,s+'pi');     textout(x0-round(i*pi*mx/2),y0+10,'-'+s+'pi');    end;   end; ГГГ*ГГ textout(x0+5,y0+10,'0'); ГГГГГЁГГЁ ГГГ*ГГГ ГГГГ textout(windowwidth-10,y0-10,'X'); textout(x0-10,10, 'Y'); dx:=0.001; ГГГ*ГГЁГ x:=-3*pi; while xlt;=3*pi do  begin   setpixel(x0+round(x*mx),y0-round(F(x)*my),clBlue);ГГГ*ГГЁГ ГГЁГ*ГЁГ   x:=x+dx; Г*Г*ГГ*ГГЁГГ*ГГ Г  end; end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт