Добавил:
Источник:
Uman
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / Прога на использование GRAPH
.pas program lab;
uses graph,crt;
var
xa,ya:word;
gd,gm:integer;
x,y,y1,x1,x2,y2,x3,y3,x4,y4,t:integer;
begin
gd:=detect;
initgraph (gd,gm,' ');
x:=100;
y:=100;
while not keypressed do
begin
t:=t+1;
x1:=trunc(x+30*sin(t));
y1:=trunc(y+30*cos(t));
line(x,y,x1,y1);
delay(2000);
end;
closegraph;
end.
uses graph,crt;
var
xa,ya:word;
gd,gm:integer;
x,y,y1,x1,x2,y2,x3,y3,x4,y4,t:integer;
begin
gd:=detect;
initgraph (gd,gm,' ');
x:=100;
y:=100;
while not keypressed do
begin
t:=t+1;
x1:=trunc(x+30*sin(t));
y1:=trunc(y+30*cos(t));
line(x,y,x1,y1);
delay(2000);
end;
closegraph;
end.
Соседние файлы в папке Все задачи с экзамена в формате PAS