24/11/06

Salve raga oggi a scuola abbiamo visto dei programmi uno che crea l'attesa(DELAY) e l'altro sulla grafica il quale genera un punto che schizza da sinistra a destra.
1GUSCIO PER LA GRAFICA:
program ab;
uses crt, graph;
var a,b:integer;
begin
detectgraph(a,b);
initgraph(a,b,'') Qui fra le virgolette va inserita la bgi(basic grafic interface)
repeat until keypressed;
end.
2MOTO CON ANIMAZIONE:
program punto;
uses crt,graph;
const a=0;b=639;c=80;dx=1;dt=1000;
var x:real; k=longint; driver,mode:integer;
begin
driver:= detect;
initgraph(driver,mode,'');
x:= a;
putpixel(round(x),c,15);
outtext xy(30,190,'per partire premi un tasto');
repeat until keypressed;
repeat
putpixel(round(x),c,0);
x:= x+dx;
putpixel(round(x),c,15);
for k:=1 to round(dt) do begin end;
until x>b
end.

Il professore infine ci ha mostrato un libricino sull'astrazione del 1968.
CIAO CIAO