Contoh Soal Pascal

1.Buatlah progam untuk mencari sebuah bilangan yang diinputkan apakah bilangan genap atau bilangan ganjil. Jika bilanganyang diinputkan nilainya 0 atau di bawah 0 maka akan tampil pesan nilai bilangan harus di atas 0

2. Contoh
program soal2;
uses wincrt;
var
pilih,ket:string;

begin
clrscr;
writeln(‘Pilihlah Salah Satu Pilihan Yang Disukai’);
writeln(‘A. Warna Putih’);
writeln(‘B. Warna Hijau’);
writeln(‘C. Warna Kuning’);
writeln(‘D. Warna Merah’);
writeln(‘Pilihan Anda [A-D] : ’); readln(pilih);
case pilih of
‘A’,’a’:ket:=’bersih, suci’;
‘B’,’b’:ket:=’teduh, damai’;
‘C’,’c’:ket:=’jaya, optimis’;
‘D’,’d’:ket:=’berani, gagah’;
end;
writeln;
writeln(‘Ternyata Anda Memiliki Sifat : ’,ket);
readln;
end.

Tulislah program diatas, jalankan program tersebut. Kemudian perhatikan, dan catat hasilnya. Mengapa terjadi kesalahan? Cobalah perbaiki sampai benar. Bagaimana hasilnya sekarang? Jika masih salah cobalah perbaiki sampai benar!

3. Buatlah program dengan ketentuan
Input : Nama,Golongan,Jam Lembur
Proses : Untuk Mendapatkan Gaji
Jika golongan = Ia maka gaji = 500000 dan uang lembur = 5000
Jika golongan = Ib maka gaji = 750000 dan uang lembur = 7500
Jika golongan = Ic maka gaji = 1000000 dan uang lembur = 10000

Untuk mendapatkan upah lembur
Upah Lembur = Jam Lembur * Uang Lembur

Untuk Mendapatkan Total Gaji
Total Gaji = Gaji + Upah Lembur
Output : Upah Lembur dan Total Gaji


Penyelesaian
1. program soal1;
var
bil,hasil:integer;

begin
clrscr;
write(‘Masukkan Bilangan : ’);readln(bil);
if bil<=0 then write(‘Nilai Bilangan Harus Di Atas 0’); else begin hasil:=bil mod 2; if hasil=0 then write(bil,‘ Adalah Bilangan Genap’); else write(bil,‘ Adalah Bilangan Ganjil’); end; end. 2. Terjadi kesalahan pada baris case pilih of karena variabel pilih merupakan tipe data string yang seharusnya jika untuk memasukkan pilihan adalah tipe data char 3. program soal3; uses wincrt; var nama,gol:string; upl,totgj,gaji,lbr,ul:longint; begin write(‘Nama Karyawan : ’);readln(nama); write(‘Golongan Karyawan [Ia, Ib, Ic] : ’);readln(gol); write(‘Jam Lembur : ’);readln(lbr); if gol=’Ia’ then begin gaji:=500000; ul:=5000; end; if gol=’Ib’ then begin gaji:=750000; ul:=7500; end; if gol=’Ic’ then begin gaji:=1000000; ul:=10000; end; writeln(‘Gaji : ’,gaji); writeln(‘Uang Lembur/Jam : ’,ul); upl:=ul*lbr; totgj:=gaji+upl; writeln(‘Upah Lembur Rp. : ’,upl ); writeln(‘Total Gaji : ’,totgj ); end.