SHARE
TWEET

Untitled

a guest May 19th, 2017 49 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. program calcul_de_pression;
  2.  
  3. //uses WINCRT;
  4.  
  5. VAR a{gamma},b{phi},c,d,e,f,g,h,i,k,l:REAL;
  6.  
  7. begin
  8.     while 1=1 do begin
  9.  
  10.         writeln('Entrer a:');
  11.  
  12.         read(a);
  13.  
  14.         writeln('Entrer b:');
  15.  
  16.         read(b);
  17.  
  18.         c:=a/(a-1);
  19.  
  20.         d:=b*b;
  21.  
  22.         d:=c-d;
  23.  
  24.         e:=2*c;
  25.  
  26.         f:=sqr(1+e-d);
  27.  
  28.         g:=f-(4*d*(e-1));
  29.  
  30.         h:=sqrt(g);
  31.  
  32.         i:=(1+e-d-h)/(2*d*(e-1));
  33.  
  34.         k:=1-i;
  35.  
  36.         l:=EXP(c*LN(k));
  37.  
  38.         writeln('Le r├ęsultat est :',l);
  39.  
  40.     end;
  41. end.
RAW Paste Data
Challenge yourself this year...
Learn something new in 2017
Top