2/11/06

Salva ragazzi finalmento oggi abbiamo visto le bolle apparire sullo schermo...Che "figata".Il professore ha inoltre introdotto freepascal (www.freepascal.org) un compilatore del tutto simile a turbopascal che noi usiamo già.Vi propongo qui il programma del bolle da far girare con free come abbiamo fatto noi in classe:
program bolle;
uses crt,graph;
var x0,y0,r0,r,a,b,i:integer;
begin
detectgraph(a,b);
initgraph(a,b,''); "inserite fra le '' l'indirizzo della bgi"
repeat
x0:=trunc(random(getmaxx));
y0:=trunc(random(getmaxy));
r0:=trunc(random(getmaxy div 2));
setcolor(random(getmaxcolor)+4;
for r:=0 to r0 do circle(x0,y0,r);
setcolor(0);
for r:=0 to r0 do circle(x0,yo,r);
delay(1);
until keypressed;
closegraph;
end.