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.
Langganan:
Postingan (Atom)