Консультация № 72041
22.01.2007, 09:41
0.00 руб.
0 1 1
Здраствуйте товарищи программисты!Напишите пожалуйста программу! Вот условие:
Построить график функции y=sin(10/x), Xmin=-5 Xmax=5;
Координаты графического окна(где будет размещён график): x1=0 y1=0 x2=400 y2=300!График построить на координатной оси!Заранее спасибо!

Обсуждение

Неизвестный
22.01.2007, 21:51
общий
это ответ
Здравствуйте, SHTEP!

Скопируйте код из приложения, а затем запустите его и посмотрите, какой получился график.
Если что не понятно, пишите в мини-форум.

Приложение:
usesGraph,crt;var mode,Driver,i:integer;y:real;begin driver:=9; mode:=1; InitGraph(driver,mode,‘‘); if GraphResult <> grOk then begin Writeln(‘Graph driver ‘,driver,‘ graph mode ‘,mode,‘ not supported‘); Halt(1); end;setcolor(10);setviewport(0,0,400,300,true);rectangle(0,0,400,300);setcolor(7);line(0,150,400,150);line(200,0,200,300);setcolor(12);outtextxy(25,153,‘-5‘);outtextxy(375,153,‘5‘);setcolor(14);outtextxy(390,153,‘x‘);outtextxy(203,1,‘y‘);for i:=25 to 375 do beginsetcolor(9);if i<>200 then beginy:=sin((10/(i-200))*4)*135+150;if i=25 then begin setcolor(0);lineto(25,trunc(y));end elselineto(i,trunc(y));end;delay(50);end;readln;closegraph;end.
Форма ответа