MZN
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору kaileon Вот если я написал верно, то окончательный вариант таков: 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.5e0*10**(-3))*T28)/(0.672e0+(1.2e0*10**(-3))*T28) Lk=k2/(k2-1)*R*(T28-T18) write (*,*)"T18=", T18 write (*,*)"Tay8k=", Tay8k write (*,*)"T28=", T28 write (*,*)"P28=", P28 write (*,*)"k2=", k2 write (*,*)"Lk=", Lk end program odnovalniTRDF и это нормально работает: zadaite Th 1.55 zadaite Ph 2.55 zadaite Sigvh -1.0 zadaite Pi8k 15 zadaite nn8k 8 T18= 2.1303035E+08 Tay8k= 1.145979 T28= -1.2304858E+08 P28= -1.6106126E+09 k2= 1.488095 Lk= -2.9406904E+11 Вы каким софтом пользуетесь? OS, IDE, компилятор? |