Program: przedstawiający obracający się kwadrat.
Który dodatkowo przesuwa się z lewego górnego rogu w stronę dolnego prawego. Program korzysta ze zmiennej pomocniczej określającej oś obrotu.
Kompilator: Turbo Pascal
Kod programu:
program kwadratobrotowy;
uses
crt,graph;
const
sciezka='c:\progra~1\tp\bgi';
przek=50;
var
d,m:integer;
i,x,y,k:integer;
procedure kwadrat(xs,ys,kat:integer);
var dx,dy:integer;
begin
dx:=round(cos(kat*PI/180)*przek);
dy:=round(sin(kat*PI/180)*przek);
moveto(xs+dx,ys+dy);
lineto(xs-dy,ys+dx);
lineto(xs-dx,ys-dy);
lineto(xs+dy,ys-dx);
lineto(xs+dx,ys+dy);
end;
begin
d:=detect;
initgraph(d,m,sciezka);
if graphresult<>grOK then
halt(1);
for i:=0 to 359 do
begin
x:=i+i;
y:=i*3 div 2;
k:=i*2;
setcolor(white);
kwadrat(x,y,k);
delay(25);
setcolor(black);
kwadrat(x,y,k);
end;
closegraph;
end.