fork download
copy 
  1. program ideone;
  2. begin
  3. 	(* your codeprogram HitungLuasPersegiPanjang;
  4. uses crt;
  5.  
  6. var
  7.   panjang, lebar, luas: real;
  8.  
  9. begin
  10.   clrscr;
  11.   writeln('## Program Pascal Menghitung Luas Persegi Panjang ##');
  12.   writeln('--------------------------------------------------');
  13.   
  14.   write('Input panjang persegi panjang: ');
  15.   readln(panjang);
  16.   write('Input lebar persegi panjang: ');
  17.   readln(lebar);
  18.   
  19.   // Rumus luas persegi panjang
  20.   luas := panjang * lebar;
  21.   
  22.   writeln('Luas persegi panjang = ', luas:4:2);
  23.   readln;
  24. end.
  25.  goes here *);
  26. end.
Success #stdin #stdout 0s 5324KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Standard output is empty
https://ideone.com/nXGTnI
language:
Pascal (gpc 20070904)
created:
5 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!