the littlest angel

Task 1 Turbo Pascal {Friday, November 12, 2010 , 7:21 AM}

Tara! Ini dia tugas turbo pascal yang hampir sama kayak dulu yang pernah dikasih sama Pak Naryo. Berhubung Pak Naryo ngajar di Smp sekarang diganti sama Pak Reka (link). Check this out! Turbo pascal yang berhasil kukerjain..

Step by Step:

Buka turbo pascal. Kalau belum punya ini ada turbo pascal tempat aku downloadnya dari blog Pak Reka (turbo pascal).

Selanjutnya, isi turbo pascal sama tulisan-tulisan di bawah ini :

PROGRAM Hitung;

USES Crt;

TYPE
   Bilangan = Integer;

LABEL
   Selesai;

VAR
   Panjang:Bilangan;
   Lebar:Bilangan;

PROCEDURE HitungLuasKeliling(lLength : Bilangan; Width : Bilangan);
BEGIN
   ClrScr;
   WriteLn(‘Diketahui Panjang = 7, Lebar = 4’);
   WriteLn(‘Rumus luas = Panjang x Lebar’);
   WriteLn(‘Rumus keliling = 2 x (Panjang + Lebar)’);
   WriteLn(”);
   WriteLn(‘Hasil :’);
   WriteLn(‘Luas = ‘, Length*Width);
   WriteLn(‘Keliling = ‘, (Length+Width)*2);
END;
BEGIN {Program Utama}
   Panjang := 7;
     Lebar := 4;
   HitungLuasKeliling(Panjang, Lebar);
   GoTo Selesai;
   Selesai:
   WriteLn(”);
   WriteLn(‘Nama-Kelas’);
   ReadLn;
END.

Sudah ditulis semua kan? bagus! perhatiin tanda (;) ya. Pengalaman sering kejebak enggak selsai-selesai gara-gara tanda itu. Oke kalau sudah silahkan di Run terus Compile.

Kalau jawabanmu benar, hasilnya bakal kayak gini..

Result:

Selamat mencoba ya☺

Labels: Rock School