martedi

ciao a tutti..sono appena arrivato a casa dal pomeriggio uffi sono stanco..
comunque nella mattinata è andato tutto bene tra cioccolatini che ci ha dato il prof Casiraghi in laboratorio e che non mi ha interrogato in ragioneria tutto ok =)=)=)

il pomeriggio ma si anche li abbastanza bene..a parte che con la prof di inglese ho dimenticato una scheda che ci aveva dato la lezione prima e si è arrabbiata..neanche avessi ucciso qualcuno..va be dai..

eccovi il programma di oggi...

program PUNTO;
uses crt, graph;
const a=0; b=676; c=34; dx=4; dt=100000;
var x: real; k: longint; driver, mode: integer;
(*guscio da sviluppare seguendo la corsa del punto luminoso*)
begin
driver:=detect;
initgraph(driver,mode, 'd:\tp\bgi');
x:=a;
setcolor(yellow);
circle(round(x),c,9);
outtextxy(30,190,'per partire premi un tasto');
repeat until keypressed;
repeat
setcolor(0);
circle(round(x),c,9);
x:=x+dx;
setcolor(yellow);
circle(round(x),c,9);
for k:=1 to round(dt) do begin end;
until x>b;
closegraph;
end.