Translate

Rabu, 01 Mei 2013

Tugas Pascal (Prosedur Secara Nilai)


program Parameter_Nilai;
uses crt;
Procedure persegi(a ; integer);
var
   luas : integer:
begin
     luas :=  a * a:
     writeln('Luas Persegi = ',luas:3);
end;

procedure lingkaran(a ; real);
var
   b: real:
begin
     b:= 3.14*a*a;
     writeln('Luas Lingkaran = ',b:0:2);
end;

var
   s : integer;
   r : real:
begin
clrscr:
write('Masukan Nilai Sisi Persegi = '); readln(s);
persegi(s);
write('Masukan Nilai Jari = '); readln(r):
lingkaran(r);
readln:
end.


0 komentar:

Posting Komentar