Задание: написать программу для вывода заданного графика функции y=f(x) на отрезке [a, b] в графическом режиме (n – кол-во точек на заданном отрезке).
y=sin(x), , , n=30
uses graphabc,crt;
var x,y,w,z,g,d,f,n:real;
begin
setwindowsize(520,450);
SetPenColor(clgreen);
setpenwidth(5);
begin
write(' y');
repeat writeln;d:=d+1;until d>=9;
d:=0;
write(' 1');
repeat writeln;d:=d+1;until d>=4;
write(' 0 x');
repeat writeln;d:=d+1;until d>=8;
d:=0;
write(' -1');
repeat writeln;d:=d+1;until d>=3;
Write(' -pi/2 pi/2');
end;
moveto(135,255);
x:=-pi/2;
n:=pi/30;
while x<pi/2 do begin
x:=x+n;
y:=-sin(x);
SetPixel(trunc(x*60+200),trunc(y*60+200),0);
lineto (trunc(x*60+200),trunc(y*60+200));
end;
SetPenColor(clblack);setpenwidth(3);
line(200,10,200,400);line(0,200,490,200);
setpenwidth(2);
line(0,140,500,140);line(0,260,500,260); {ограничения по оси ОУ}
line(290,100,290,320);line(110,100,110,320);{ограничения по оси ОХ}
line(200,1,197,10);line(200,1,203,10); line(197,10,203,10);{обозначение стрелки ОУ}
line(500,200,490,197); line(500,200,490,203); line(490,197,490,203);{обозначение стрелки ОХ}
end.
setwindowsize(520,450);
SetPenColor(clgreen);
setpenwidth(5);
|
Блок-схема
line(500,200,490,197); line(500,200,490,203); line(490,197,490,203);
|
moveto(135,255);
x:=-pi/2;
n:=pi/30;
|
x:=x+n;
y:=-sin(x);
SetPixel(trunc(x*60+200),trunc(y*60+200),0);
lineto (trunc(x*60+200),trunc(y*60+200));
|
SetPenColor(clblack);setpenwidth(3);
line(200,10,200,400);line(0,200,490,200);
setpenwidth(2);
|
line(0,140,500,140); line(0,260,500,260);
|
line(290,100,290,320); line(110,100,110,320);
|
line(200,1,197,10); line(200,1,203,10); line(197,10,203,10);
|