Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл: Источник:
Скачиваний:
283
Добавлен:
04.03.2014
Размер:
789 б
Скачать
program laba6;
uses graph;
var
gd,gm:integer;
x,y,y1,x1,x2,y2,t:integer;
begin
gd:=detect;
initgraph (gd,gm,' ');


setcolor(3);
while x2<=640 do begin
line(x2+20,0,x2+20,480);
x2:=x2+60;
end;
while y2<=480 do begin
line(0,y2,640,y2);
y2:=y2+60;
end;

setcolor(2);
line(320,0,320,480);
line(0,240,640,240);
line(320,0,318,15);
line(320,0,322,15);
line(640,240,625,238);
line(640,240,625,242);

outtextxy(312,177,'1');
outtextxy(375,248,'pi/2');
outtextxy(435,248,'pi');
outtextxy(630,250,'X');
outtextxy(308,8,'Y');

setcolor(4);
x1:=-5;
while x<> 1000 do
begin
x1:=x1+5;
x:=x+5;
y1:=trunc(60*sin(5*x1));
y:=trunc(60*sin(5*x));
line(x1-153,y1+240,x-153,y+240);
end;
settextstyle(7,0,5);
outtextxy(60,15,'sin x');

readln;
closegraph;
end.