Program: Przedstawiający drgającą przekątną.
Który po podaniu kąta oraz długości wyświetla przekątną, dodatkowo drgającą czego niestety na zdjęciu nie widać.
Kompilator: Turbo Pascal
Kod programu:
program proba;
uses crt,graph;
var ster,modul,x,y,i,kat,r,x1,x2,y1,y2:integer;
begin
clrscr;
writeln('Podaj kat: ');
readln(kat);
writeln('Podaj dlugosc: ');
readln(r);
detectgraph(ster,modul);
initgraph(ster,modul,'C:\Progra~1\TP\BGI');
x:=getmaxx div 2;
y:=getmaxy div 2;
i:=0;
repeat
x1:=x+round(0.5*r*cos(kat));
x2:=x-round(0.5*r*cos(kat));
y1:=y+round(0.5*r*cos(kat));
y2:=y-round(0.5*r*cos(kat));
line(x1,x2,y1,y2);
kat:=kat+1;
delay(50);
cleardevice;
until(keypressed);
closegraph;
readkey;
end.