fork(1) download
copy 
  1. program cisnhydr;
  2.  
  3. {$mode objfpc}{$H+}
  4.  
  5. uses
  6.   {$IFDEF UNIX}{$IFDEF UseCThreads}
  7.   cthreads,
  8.   {$ENDIF}{$ENDIF}
  9.   Classes
  10.   { you can add units after this };
  11. var
  12.   d:real;
  13.   h:real;
  14.  
  15. CONST
  16. G=10;
  17.  
  18. begin
  19.     writeln('Podaj gestosc substancji (kg/m3)');
  20.     readln(d);
  21.     writeln('Podaj wysokosc slupa substancji (m)');
  22.     readln(h);
  23.     writeln('Cisnienie hydrostatyczne wynosi (Pa) ',d*G*h);
  24.     writeln('60=',60.0);
  25.     writeln('60=',60.0:4:2);
  26. end.
Success #stdin #stdout 0s 636KB
comments (?)
stdin
copy 
2
3
stdout
copy 
Podaj gestosc substancji (kg/m3)
Podaj wysokosc slupa substancji (m)
Cisnienie hydrostatyczne wynosi (Pa)  6.00000000000000E+001
60= 6.000000000E+01
60=60.00
https://ideone.com/Dl4ARn
language:
Pascal (fpc 3.0.4)
created:
9 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!