TUGAS BAB 5 - Mengenal Lebih Lanjut Struktur Program

PROGRAM Dekla;

{ -----------------------------  }

{ Contoh deklarasi yang lengkap. }

{ -----------------------------  }

USES Crt;

LABEL

    Selesai;

TYPE

   BilanganNyata = Byte;

VAR

   Panjang : BilanganNyata;

   Lebar : BilanganNyata;

PROCEDURE HitungLuasDanKeliling (p : BilanganNyata; l : BilanganNyata);

BEGIN

   ClrScr;

   WriteLn('Luas = ', p * l);

   WriteLn('Keliling = ', 2 * (p+l));

END;

BEGIN { Program Utama }

   Panjang := 7;

   Lebar := 4;

   HitungLuasDanKeliling (Panjang, Lebar);

   WriteLn('Lho kok saya dilewati');

   Selesai:

      WriteLn('Dewi.XC');

END.

Script Program

 

Hasil Akhir