Лабораторная работа №7

Задание: написать программу для вывода заданного графика функции 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);

‘y’

нет

да

‘ _ ’

d:=d+1

d>=9

d:=0

‘ _ ’

d:=d+1

d>=4

нет

да

нет

да

‘ _ ’

d:=d+1

d>=8

d:=0

‘1’

‘0, x’

‘-1’

‘ _ ’

d:=d+1

d>=3

нет

да

‘-pi/2 pi/2’

Блок-схема

нет

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<=pi/2

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);

конец