Pascal/Strumenti: differenze tra le versioni
Contenuto cancellato Contenuto aggiunto
Riga 113:
{funzionano in modo analogo ma hanno un range di dati diverso}
var t,v0,x0, y0:double; a:real;
s,m:
c:word;
r:char;
const g = 9.8;
{questa procedura serve a cambiare sempre i colori}
procedure move_color (pos:
begin
c:=c+pos;
setcolor(c mod getmaxcolor);
end;
procedure lancio (v0, x0, y0 :double; a:real; delay_time:integer);
{longint è un'estensione degli integer ma con più range}
var y,x, vx, vy, t:double;
xi, yi:
begin
a:=pi() * a / 180;
Riga 136:
{è necessario troncare i valori perché la grafica funziona solo con valori interi}
moveto(trunc(x0), getmaxy-1-trunc(y0));
move_color(1);
repeat
begin
Riga 155:
end;
until (yi > getmaxy); {fino a quando la "pallina" non esce dallo schermo}
writeln('Lancio terminato. Premere un tasto per continuare');
readkey;
end; {lancio}
begin
s:=detect;
initgraph(s,m,'
directvideo:= true;
repeat
clrscr;
Riga 196:
closegraph;
s:=detect;
initgraph(s,m,'
directvideo:= true;
end;
|