Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program calcul_de_pression;
- //uses WINCRT;
- VAR a{gamma},b{phi},c,d,e,f,g,h,i,k,l:REAL;
- begin
- while 1=1 do begin
- writeln('Entrer a:');
- read(a);
- writeln('Entrer b:');
- read(b);
- c:=a/(a-1);
- d:=b*b;
- d:=c-d;
- e:=2*c;
- f:=sqr(1+e-d);
- g:=f-(4*d*(e-1));
- h:=sqrt(g);
- i:=(1+e-d-h)/(2*d*(e-1));
- k:=1-i;
- l:=EXP(c*LN(k));
- writeln('Le résultat est :',l);
- end;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement