fork download
copy 
  1. program HitungLuasLingkaran;
  2. var
  3.   jariJari, luas: real;
  4. const
  5.   PI = 3.14;
  6. f = 2;
  7. begin
  8.   writeln('--- Program Hitung Luas Lingkaran ---');
  9.   readln(jariJari);
  10.   luas := PI * jariJari * 2;
  11.   writeln('Luas lingkaran adalah: ', luas:0:2);
  12.   readln;
  13. end.
  14.  
Success #stdin #stdout 0s 5316KB
comments (?)
stdin
copy 
5
stdout
copy 
--- Program Hitung Luas Lingkaran ---
Luas lingkaran adalah: 31.40
https://ideone.com/h5KEir
language:
Pascal (fpc 3.0.4)
created:
7 hours 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!