Bahasa Pascal

1. soal : urut nama bulan berdasarkan nomor bulannya, data masukkan adalah nomor bulan dari 1-12, sedangkan data keluarannya adalah nama bulannya.

Jawab :

program bulan;
uses wincrt;

var
    angka : integer;
begin
     write ('masukkan nomor  bulan :'); read (angka);
     case angka of
     1 : write('JANUARI');
     2 : write('PEBRUARI');
     3 : write('MARET');
     4 : write('APRIL');
     5 : write('MEI');
     6 : write('JUNI');
     7 : write('JULI');
     8 : write('AGUSTUS');
     9 : write('SEPTEMBER');
    10 : write('OKTOBER');
    11 : write('NOPEMBER');
    12 : write('DESEMBER');
end;
end.

-----------------------------------------------------------
2. soal : cetak nama-nama provinsi bila diberikan nama data ibu kota di Pulau Jawa

Jawab :

program provinsi;
uses wincrt;

var
   x : char;

begin
write ('masukkan nama ibukota :'); read (x);

if x='bandung' then
          write ('Ibu Kota Provinsi Jawa Barat')else
if x='semarang' then
          write ('Ibu Kota Provinsi Jawa Tengah')else
if x='yogyakarta' then
          write ('Ibu Kota Provinsi D.I Yogyakarta')else
if x='surabaya' then
          write ('Ibu Kota Provinsi Jawa Timur');

end;
end.

-----------------------------------------------------------
3. soal : tuliskan dalam bahasa pascal yang membaca tiga bilangan bulat, lalu mengurutkan tiga  uah bilangan bulat tersebut dari nilai terkecil sampai tersebar. keluarannya adalah 3 buah bilangan bulat yang terurut!

Jawab :

program bilangan_bulat;
uses wincrt;

var
   x :integer;


begin
     x:=1;  
     for x 1 to 6 do
     begin
         if x div 2 =0 then
         begin
             write(x);    
             inc(x);
         end else
             inc(x);
     end;

end;
end.

-----------------------------------------------------------
4. soal : Sebuah toko memberikan diskon harga 5% bagi pembeli yang nilai total belanjanya lebih dari Rp. 100.000;
tulislah ke dalam bahasa pascal untuk menentukan harga belanja setelah dikurangi diskon.
data masukkan adalah nilai total belanja pembeli,
sedangkan keluarannya adalah diskon harga dan nilai belanja setelah dikurangi diskon

Jawab :

program diskon;
uses wincrt;

var
   blj,disc,byr:integer;
 

begin
     write('Masukkan Nilai Belanja'); read(blj);
     if blj>100000 then
     begin
          disc:=blj*5%;
          byr:=blj-disc;
          write('Belanja   :',blj);
          write('Diskon 5% :',disc);
          write('Bayar     :',byr);
     end else
     begin
          write('Belanja   :',blj);
          write('Diskon 5% :  0');
          write('Bayar     :',blj);
     end;

end;
end.