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

Program Jenis Bilangan

Setelah program dijalankan, maka hasilnya akan seperti ini;

Jika lebar pencetakan saya ubah, maka hasil program akan menjadi seperti ini;

Latihan Soal BAB 3

"Sekilas Lintas Program Turbo Pascal"

1. Bolehkah suatu program tidak mempunya judul program seperti:

      PROGRAM Lat1; 

JAWAB: Boleh, karena kepala program/judul program bersifat opsional

2. Bolehlah pernyataan:
    WriteLn('Halo');
   ditulis menjadi:
    writeln('Halo');

JAWAB: Boleh, karena suatu perintah pada Pascal tidak membedakan huruf kecil dan huruf kapital

3. Apa kegunaan komentar pada program?

JAWAB: sebagai dokumentasi yang berguna bagi orang lain

4. Perlukah komentar bagi komputer?

JAWAB: tidak tetapi sangat berguna bagi orang lain

5. Dari baris-baris berikut, manakah yang tidak mengandung komentar:
    (a) WriteLn(‘Halo’); { Menulis Halo }
    (b) Writeln(‘Halo { Menulis Halo }’);
    (c) Writeln(‘Halo’); (*Menulis Halo*)
    (d) Writeln(‘Halo’); {*Menulis Halo*}
    (e) {$N+}
    (f) { $N+ }

JAWAB: yang tidak mengandung komentar (b) (d) (e) dan (f)

6. Kapan Anda harus menyebutkan klausa USES di dalam program?

JAWAB: Klausa USES digunakan saat program yang menggunakan rutin ataupun elemen yang ada pada suatu unit

7. Sebutkan unit-unit standar yang tersedia pada Turbo Pascal beserta kegunaannya! 

JAWAB:

• Crt : Berisi sejumlah rutin yang berkaitan dengan layar, keyboard dan suara
• Dos : Berkaitan dengan operasi terhadap sistem operasi dan penanganan file
• Graph : Berisi lebih dari 50 rutin yang berkaitan dengan operasi grafis
• Graph3 : Menyediakan pengendali grafik kura-kura (turtlegraphics) yang tersedia pada Turbo Pascal versi 3.0
• Overlay : Berisi rutin yang berguna untuk melakukan overlay (berbagi memori bagi suatu program yang besar)
• Printer : Berisi fasilitas untuk memudahkan pencetakan ke printer
• System : Berisi sejumlah pustaka yang digunakan saat eksekusi (runtime library). Di antaranya berisi rutin; - penanganan masukan/keluaran file, - penanganan string, - alokasi memori dinamis
• Turbo3 : Untuk menjaga kompatibilitas terhadap program Turbo Pascal versi 3.0
• WinDos : Merupakan implementasi rutin penanganan file dan sistem operasi. Unit ini merupakan alternatif dari unit DOS

Rainbow

rainbow ocean

* deviantART

Nama terpanjang di dunia

mau share nih.

Mungkin bayi asal inggris ini memiliki nama terpanjang di dunia dan paling sulit diingat. Simak saja nama bayi ini:
" Autumn Sullivan Corbett Fitzsimmons Jeffries Hart Burns Johnson Willard Dempsey Tunney Schmelling Sharkey Carnera Baer Braddock Louis Charles Walcott Marciano Patterson Johansson Liston Clay Frazier Foreman Brown"

Bayi ini memiliki satu nama depan, 25 nama tengah, dan satu nama keluarga. Kedua puluh lima nama tengah semuanya diambil dari nama nama petinju nge-top di dunia.