Pascal
Телефонист
В миру: Алексей
Откуда: Украина, Днепродзержинск
С нами с: 14.03.2002
Плодовитость: 75
      Предупреждения:
 Рейтинг
 
Подано 7 (3/4) голосов
|
MIDletPascal - Паскаль для мобилок
|
Кто нибуть может это отконвертировать, то у меня ругаеться 
[code]
Program trikilo1;
Uses crt,dos;
var
KDR,KCR,TMD,PC,PD,a1,b1,c1,mu1,lena,lena1,mu2,SIGKSIn,SIGKSIb,
SIGFIb,SIGFIn,SIGETAb,SIGETAn,EFIb,EFIn,c2,a2,b2,nj,m,Uras,ETA_,
ETA_1,ETA_2,G,E,K,b3,E1,G1,hj:real;
fl:text;
label as,as1;
begin
(*KDR:={6}4.7;
KCR:=3.42;
TMD:=0.9;
PC:=118.07;
PD:=78.46;*)
as:writeln('Конечный диастолический размер, cм');
readln(KDR);
writeln('Конечный систолический размер, cм');
readln(KCR);
writeln('Толщина миокарда в диастолу,см');
readln(TMD);
writeln('Давление по Короткову в систолу,мм.рт.ст');
readln(PC);
writeln('Давление по Короткову в дистолу,мм.рт.ст');
readln(PD);
a1:=KDR/2;
b1:=1.7*a1;
c1:= 1.374*a1;
writeln('c1 =',c1:6:3);
readln;
{ksi1:=1.237; }
mu1:=1.872;
{sh(b1/c1)=1.582;}
lena:=1.582;
lena1{mu1/mu2}:= 0.9886 +0.829*(TMD/KDR);
writeln(' mu1/mu2 =',lena1:8:3);
readln;
mu2:=mu1/lena1;
SIGKSIn:=0;
SIGKSIb:={1}-1;
SIGFIb:=421.1169 - 694.1611*(mu1/mu2)+287.7939*(mu1/mu2)*(mu1/mu2);
writeln('SIGFIb = ',SIGFIb :6:3);
readln;
SIGFIn:=406.6772 - 668.3557*(mu1/mu2)+276.7464*(mu1/mu2)*(mu1/mu2);
SIGETAb:=293.4419 - 481.2204*(mu1/mu2)+199.0483*(mu1/mu2)*(mu1/mu2);
SIGETAn:=289.2938 - 475.2294*(mu1/mu2)+196.6298*(mu1/mu2)*(mu1/mu2);
EFIb:= 88.7314 - 143.9472*(mu1/mu2)+59.3225*(mu1/mu2)*(mu1/mu2);
EFIn:=-0.7662+0.9853*EFIb;
c2:=c1;
a2:= a1+TMD;
b3:= (c1*c1+a2*a2);
writeln(' b3 =',b3:6:3);
b2:= sqrt(b3);
writeln(' b2 =',b2:6:3);
readln;
{ksi2:=b2/c2;}
nj:=0.4;
m:=2.5;
{sh(ksi1)=1.582;}
Uras:=(KDR-KCR)/2/(PC-PD);
writeln(' SIGFIb =',SIGFIB:8:2);
writeln(' SIGETAb =',SIGETAb:8:2);
G:=((SIGFIb + SIGETAb+SIGKSIb)/1.4-SIGFIb)*1.582*C1/(2*Uras);
writeln(' G = ',G:6:3,' рт.ст.' );
E:=2.8*G;
writeln(' E = ',E:6:3,' рт.ст.');
E1:=E*133/98066;
writeln(' E1 = ',E1:6:3,' кгс/см*см');
K:=E/(PC-PD);
Writeln('K= ', K:6:3);
readln;
Assign(fl,'to_rei.dat');
rewrite(fl);
{reset(fl);}
{readln(fl,k);}
write{ln}(fl,k:6:3);
close(fl);
(*writeln('Продолжить работу, нажми 1,выйти в DOS -2');
readln(hj);
if hj=2 then goto as;
{goto as1;
as:
close (fl);}*)
end.
{=========================================================================}
[/code] |
____________________________
С35i UA-UMC->C55 UA-KYIVSTAR->M55 JEANS-> S65[SW11->SW25->SW41->SW43,FFS11->FFS25->FFS43,MAP11->MAP25->MAP43+патчи (не все  )(SXG75 в мечтах) ] Nokia N90(exrement) Jeans.
М55[SW91+патчи]->S75 => Папа
А50 (Потеряла) => Мама
Дороги!!?? Кому нужны дороги!!? |
|
Win2000 SP4 +IE6.0
