5/12/06

Salve ragazzi volevo ricordare cos'è stato svolto il 5 in classe.
Il professore ci ha consegnato un programmino che crea un UOVO

program uovo;
uses crt,graph;
const r=100; h=1000;
var x0,y0,i:integer; x,y:real; c:word;
begin
x0:=detect; initgraph(x0,y0,'c:\programmi\tp\bgi');
if graphresult<>grok then halt(1);
x0:=getmaxx div 2; y0:=getmaxy div 2-2*r; c:=getmaxcolor;
setfillstyle (slashfill,4);
setcolor(1); circle(x0,y0+r,r);
floodfill(x0,y0+r+1,1);
setcolor(6);
moveto(x0,y0);
for i:=0 to h do
begin
x:=pi*i/h; y:=4*r*sqr(sin(x));
lineto(round(x0+y*cos(x)), round(y0+y*sin(x)));
end;
setfillstyle(ltslashfill,6);
floodfill(x0,y0+r+1,6);
line(x0,y0,x0,y0+4*r);
repeat until keypressed;
closegraph;
end.

Successivamente abbiamo diviso i:
Compilatori: in blocco traducono in linguaggio macchina
Interprete: istruzione per istruzione

Volevo ricordarvi che le sigle sono dette anche acronimi