martedì

siamo in laboratorio... con i portatili!il pro sta spiegando la grafica in Pascal! ho appena finito di copiare il programma per visualizzare un punto...eccolo qui

program punto;
uses crt,graph;
const a=0;b=676;c=34;dx=4;dt=100000;
var x:real; k:longint; driver, mode:integer;

begin
driver:detect;
initgraph(diver,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;
end.

...non garantisco che funzioni...magari ho fatto degli errori!quando lo controllerò lo modificherò....