Translate

Rabu, 01 Mei 2013

Tugas Pascal (Prosedur Secara Acuan)


program Parameter_Acuan;
uses crt;
Procedure lingkaran(var a, b : real);
begin
        b := 3.14 * a * a :
end;

procedure persegi(var s,luas: integer);
begin
     luas := s*s:
end;

var
   r ,l : real ;
   s, luas : integer:
begin
clrscr;
write('Masukan Nilai Jari-Jari = '); readln(r);
lingkaran(r,l);
writeln('Luas Lingkaran = ',l:0:2);

write('Masukan Nilai Sisi = '); readln(s);
writeln('Luas Bujur Sangkar = ', luas);
persegi(s,luas):
readln;
end.


0 komentar:

Posting Komentar