Minggu, 14 November 2010

tugas pak reka bab 5


Proses :
Program Dekla;

{ ------------------------------- }
{ Contoh deklarasi yang lengkap }
{ ------------------------------- }

USES Crt;

Label
Selesai;

Const
panjang = 7;
lebar = 4;

Type
BilanganNyata = Real;

Var
panjanglebar : BilanganNyata;

Procedure HitungLuas (Radius : BilanganNyata) ;
Begin
Clrscr;
Writeln('Luas = ', panjang * lebar);
Writeln('Keliling = ', 2*(panjang+lebar));
End;
Begin {Program Utama}
HitungLuas(panjanglebar);
GOTO Selesai;

Selesai:
Writeln('Selesai...');
Writeln('Jurgen Reynald Sangian XB / 17');
Readln
End.