kaileon
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
в личку не кидает поэтому вот
это пробная
program pr1
write (*,*) "privet mir"
end
а сама прога вот
program odnovalniTRDF
real Th, Ph, T18, P18, T28, P28, Sigvh, Pi8k, Tay8k, nn8k,k2,Lk,G3,G1,Got,gox,gt
real, parameter : : k=1,4 R=287
write (*,*) "zadaite Th";
read (*,*) Th
write (*,*) "zadaite Ph";
read (*,*) Ph
write (*,*) "zadaite Sigvh";
read (*,*) Sigvh
write (*,*) "zadaite Pi8k";
read (*,*) Pi8k
write (*,*) "zadaite nn8k";
read (*,*) nn8k
T18=Th*(1+((k-1)/2)*Mh**2)
P18=Sigvh*Ph*(1+((k-1)/2)*Mh**2)
Tay8k=1+(pi8k**((k-1)/k)-1)/nn8k
T28=T1*Tay8k
P28=P1*Pi8k
k2=(1+(1,5*10**(-3))*T28)/(0.672+(1,2*10**(-3))*T28)
Lk=k2/k2-1*R(T28-T18)
write (*,*)"T18", write (*,*) T18
write (*,*)"Tay8k", write (*,*) Tay8k
write (*,*)"T28"; write (*,*) T28
write (*,*)"P28"; write (*,*) P28
write (*,*)"k2"; write (*,*) k2
write (*,*)"Lk"; write (*,*) Lk
end
|
