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:integersmallint;
c:word;
r:char;
const g = 9.8;
 
{questa procedura serve a cambiare sempre i colori}
procedure move_color (pos:integersmallint);
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:longintsmallint;
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,'H:\FPC'); {ovviamente bisogna cambiare la directory}
directvideo:= true;
repeat
clrscr;
Riga 196:
closegraph;
s:=detect;
initgraph(s,m,'H:\FPC');
directvideo:= true;
end;