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.
