Latihan Soal Bahasa Pemrograman Pascal

Dibawah ini Saya sajikan beberapa latihan soal Bahasa Pemrograman pascal. Semoga bermanfaat.


1.       Apabila ada penggalan program seperti dibawah ini :

writeln(‘Kabupaten Semarang’);

write(‘Ungaran ’);

writeln(‘Serasi’);

Bagaimana tampilannya jika program ini di RUN ?

Jawab :

Kabupaten Semarang

Ungaran Serasi

2.       Bagaimana cara mendeklarasikan variabel yang benar apabila akan membuat program hitung luas segitiga ?

Jawab :

var

alas,tinggi:integer;

luas:real;

3.       Bagaimana perintah untuk menuliskan “ Kabupaten Semarang ” menggunakan bahasa Pascal.

Jawab :

writeln(‘Kabupaten Semarang’);

4.       Apabila ada penggalan program seperti dibawah ini :

readln(alas);

readln(tiinggi);

luas:=1/2*alas*tinggi;

Bagaimana perintah untuk menampilkan hasil perhitungan luas tersebut ?

Jawab :

writeln(‘Jadi luasnya adalah =’,luas:2:2);

5.       Apa fungsi uses wincrt ?.

Jawab :

Untuk mendeklarasikan penggunaan layar monitor untuk keluaran program

6.       Apa fungsi dari tipe data string ?

Jawab :

Untuk menampung input data yang berupa huruf dan karakter

7.       Apa perintah untuk mendeskripsikan penggunaan layar monitor dalam pemrograman pascal ?

Jawab :

uses wincrt;

8.       Program pascal selalu diawali dengan ................ dan diakhiri dengan ...................

Jawab :

Diawali dengan Begin dan diakhiri dengan End;

9.       Apabila akan membuat program pascal dengan memberi nama/judul programnya dengan nama HITUNG  SEGITIGA. Bagaimana cara menuliskan perintahnya yang benar ?

Jawab :

Program HITUNG_SEGITIGA;    atau    Program HITUNGSEGITIGA;

10.   Buatlah program pascal lengkap untuk MENGHITUNG LUAS PERSEGI PANJANG.

Ketentuan program :

Judul programnya luas persegipanjang

Variabelnya : panjang, lebar, luas

Jawab :

program luas_persegipanjang;

uses wincrt;

var

       panjang,lebar,luas:integer;

begin

       clrscr;

       write(‘berapa panjangnya           =’);readln(panjang);

write(‘berapa lebarnya                 =’);readln(lebar);

       luas:=panjang*lebar;

       writeln(‘Jadi luasnya adalah        =’,luas);

readln;

end.

Posted in: pelajaran