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. uses WINCRT;
  3. VAR a{gamma},b{phi},c,d,e,f,g,h,i,k,l:REAL;
  4. begin
  5.     while 1=1 do begin
  6.         writeln('Entrer a:');
  7.         read(a);
  8.         writeln('Entrer b:');
  9.         read(b);
  10.         c:=a/(a-1);
  11.         d:=b*b;
  12.         d:=c-d;
  13.         e:=2*c;
  14.         f:=sqr(1+e-d);
  15.         g:=f-(4*d*(e-1));
  16.         h:=sqrt(g);
  17.         i:=(1+e-d-h)/(2*d*(e-1));
  18.         k:=1-i;
  19.         l:=EXP(c*LN(k));
  20.         writeln('Le r├ęsultat est :',l);
  21.     end;
  22. end.
RAW Paste Data
Top