1. Buat aplikasi untuk menentukan status warga dari variabel penghasilan : Jika penghasilan 0 s/d 2jt : Sangat Kurang 2jt s/d 4jt : Kurang 4jt s/d 8jt : Cukup 8jt s/d 15jt : Lebih
Kode Program :
program StatusWarga;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
penghasilan:integer;
begin
Write('Penghasilan Warga : Rp. ');
Readln(penghasilan);
case penghasilan of
0 .. 2000000:
Writeln('Status Warga : Sangat kurang');
2000001 .. 4000000:
Writeln('Status Warga : Kurang');
4000001 .. 8000000:
Writeln('Status Warga : Cukup');
8000001 .. 15000000:
Writeln('Status Warga : Lebih');
end;
Readln;
end.
2.Sebuah Perusahaan dalam menentukan gaji pegawai ditentukan dari beberapa aturan :•Tunjangan keluarga(TunjKel) sebesar 10% dari gaji pokok (Gapok)•Tunjangan Profesi (TunjProf) sebesar 25% dari Gapok•Potongan hari tua (PotHar) sebesar (Gapok+TunjKel+TunjProf)*5%•Jika (Gapok+TunjKel+TunjProf-Pothar)<3jt maka akan mendapat bantuan dana kesejahteraan (Dakes) sebesar 500rb•Gaji diterima= Gapok+TunjKel+TunjProf-Pothar+Dakes
Kode Program :
program Penentuan_GajiPegawai;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
TunjKel, Gapok, TunjProf, PotHar, Dakes, Gaji : Real;
begin
Write('Gaji Pokok Pegawai : Rp. '); Readln(Gapok);
TunjKel := Gapok*(10/100);
TunjProf := Gapok*(25/100);
PotHar := (Gapok+TunjKel+TunjProf)*(5/100);
Writeln('Tunjangan Keluarga : Rp. ', TunjKel:0:0);
Writeln('Tunjangan Profesi : Rp. ', TunjProf:0:0);
Writeln('Potongan Hari Tua : Rp. ', PotHar:0:0);
if (Gapok+TunjKel+TunjProf-PotHar) < 3000000 then
Dakes := 500000
else Dakes := 0;
Writeln('Dana Kesejahteraan : Rp. ', Dakes:0:0);
Gaji := (Gapok+TunjKel+TunjProf-PotHar)+Dakes;
Writeln('');
Writeln('Gaji Diterima : Rp. ', Gaji:0:0);
Readln;
end.
3. Perusahaan transportasi mempunyai aturan tarif dengan variabel jarak (Km) :
0 s/d 5 : tarif 15rb 5 s/d 15 : tarif 25rb 15 s/d 50 : tarif 35rb 50 s/d 100 : tarif 100rbJika tarif kurang dari 35rb dikenakan biaya tambahan 5%dari tarif, jika diatas 35 rb dikenakan 3% dari tarif.Total Biaya : tarif+biaya tambahan
Kode Program :
program Tarif_Transportasi;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
km, tarif, tambahan, total: Real;
begin
Write('Jarak Tempuh (Km) : '); Readln(km);
if (km >= 0) and (km <= 5) then
tarif := 15000
else if (km > 5 ) and (km <= 15) then
tarif := 25000
else if (km > 15 ) and (km <= 50) then
tarif := 35000
else if (km > 50 ) and (km <= 100) then
tarif := 100000;
Writeln('Tarif Transportasi : Rp. ', tarif:0:0);
if tarif <= 35000 then
tambahan := tarif*(5/100)
else if tarif > 35000 then
tambahan := tarif*(3/100);
Writeln('Biaya Tambahan : Rp. ', tambahan:0:0);
total := tarif+tambahan;
Writeln('');
Writeln('Total Biaya : Rp. ', total:0:0);
Readln;
end.
4. Buat aplikasi untuk menentukan nilai kelulusan siswa, dengan aturan sebagai berikut :
•Siswa
dikatakan lulus Jika Rata-rata pelajaran Bhs Indonesia, Agama,
Matematika, IPA, IPS, Bhs Inggris diatas 60 dan nilai Matematika, IPA,
Bhs Indonesia diatas 65.
Kode Program :
program Nilai_KelulusanSiswa;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
Bind, Agm, Mtk, IPA, IPS, Bing, ratarata : Real;
begin
Write('Nilai Bahasa Indonesia : '); Readln(Bind);
Write('Nilai Agama : '); Readln(Agm);
Write('Nilai Matematika : '); Readln(Mtk);
Write('Nilai IPA : '); Readln(IPA);
Write('Nilai IPS : '); Readln(IPS);
Write('Nilai Bahasa Inggris : '); Readln(Bing);
ratarata := (Bind+Agm+Mtk+IPA+IPS+Bing)/6;
Writeln('');
Writeln('Nilai Rata-rata : ', ratarata:0:2);
Writeln('');
if (ratarata > 60) and (Mtk > 65) and (IPA > 65) and (Bind > 65)then
Writeln('LULUS')
else Writeln('TIDAK LULUS');
Readln;
end.
