Aiuto Pascal

[André LaCroix]

Dividi per 100 o.o Edited March 8, 2007 by Axel Lucius Kantaròs

[Xaldyn]

metto un if then, in qual caso la misura non sia sempre la stessa o lo inserisco ad introduzione dati?

[André LaCroix]

Non capisco...

Dì all'utente di inserire i dati in cm ed è fatta, no?

[Xaldyn]

no perchè come ho spiegato prima la nostra prof ci vuole complicare la vita, infatti non gli basta il programma, ma vuole anche calcoli matematici che abbiamo studiato con lei come portare da cm a m, per questo ad introduzione dati non posso mettere cm e farglielo calcolare così, devo per forza mettere un calcolo per portare da cm a m sennò mi fa il culo xD

[Chronicles]

Program v_limite;

var m,g,df,r,Ttot,vs,k:real

N:integer;

f,t,v,s,a: array [1..10]of real;

Const g=9,8;

Begin

write ('inserisci N'); readln(n);

write ('inserisci massa della sfera'); readln(m);

write ('inserisci raggio della sfera'); readln®;

write ('inserisci densità fluido'); readln(df);

write ('inserisci costante'); readln(k);

write ('inserisci tempo totale dell'osservazione del moto')

vs:=4/3*pi*(r*r*r);

deltat:=Ttot/N;

v[0]:= 0;

t[0]:= 0;

F[0]:= m*g-df-Vs*g-k*v[0]*v[0];

a[0]:=F[0]/m

ris:= m*g-df*vs*g-k*v*v;

For i:= 1 to N do

Begin

t:= t[i-1]+deltat;

v:= v[i-1]+a[i-1]*deltat;

s:= s[i-1]+v[i-1]*deltat+a[i-1]+1/2*deltat*deltat;

F:= m*g-df*vs*g-k*v*v;

a:= F/m;

end;

 

questo è quanto fatto con la mia prof di Fisica ora i problemi sono molti: non mi ricordo il pascal è da tempo che non lo uso, la prof vuole una tabella ma non sò come farla, qualcuno mi può aiutare?

usa goto xy Edited May 6, 2007 by Chronicles