Program Kredit Motor

Ada contoh program lagi nih buat sahabat-sahabatku...

program kredit;
uses crt;
var dp,harga,harga1,harga2,cicilan:real;
    lm,n:integer;
    nm,al:string;
    a:char;
    pilih:1..6;
    label lagi;

begin
repeat
begin
lagi:
writeln('   SELAMAT DATANG DI HONDA CAHAYA SAKTI MOTOR');
writeln('Jln. Bantul km. 21 Melikan Lor, Bantul, Yogyakarta');
writeln('=====================================================');
writeln('Kredit Motor Paling Murah Disini (^_^)!!');
writeln('=====================================================');
write('Nama    : ');readln(nm);
write('Alamat  : ');readln(al);
writeln;
writeln('Daftar Harga Motor:');
writeln('1. Beat STD          Rp 13.500.000');
writeln('2. Scoopy            Rp 13.750.000');
writeln('3. Vario CW          Rp 14.450.000');
writeln('4. Revo Techno AT    Rp 15.875.000');
writeln('5. Tiger CW          Rp 25.200.000');
writeln('6. Tidak Memilih');
write('Type Motor yang Anda pilih: ');readln(pilih);
case pilih of
1:begin
  writeln('=====================================================');
  write('Masukkan DP yang Anda inginkan  min 500000: ');read(dp);
  writeln('=====================================================');
    if dp>=500000 then
      begin
      writeln('Pilihan lama kredit yaitu: 12 bulan (bunga 10%)');
      writeln('                           24 bulan (bunga 20%)');
      writeln('                           36 bulan (bunga 30%)');
      write('Masukkan lama pengkreditan motor Anda : ');read(lm);
      writeln('=====================================================');
          if lm=12 then
          begin
          harga:=13500000*10/100;
          harga:=13500000+harga;
          harga1:=harga-dp;
          writeln('Harga motor menjadi ',harga:4:2);
          writeln('Dengan DP ',dp:4:2,' maka cicilan perbulan= ',harga1/lm:4:2);
          end
          else if lm=24 then
          begin
          harga:=13500000*20/100;
          harga:=13500000+harga;
          harga1:=harga-dp;
          writeln('Harga motor menjadi ',harga:4:2);
          writeln('Dengan DP ',dp:4:2,' maka cicilan perbulan= ',harga1/lm:4:2)
          end
          else
          begin
          harga:=13500000*30/100;
          harga:=13500000+harga;
          harga1:=harga-dp;
          writeln('Harga motor menjadi ',harga:4:2);
          writeln('Dengan DP ',dp:4:2,' maka cicilan perbulan= ',harga1/lm:4:2)
          end;
      end
    else
    writeln('Maaf Anda tidak dapat melakukan transaksi');
    end;

2: begin
  writeln('=====================================================');
  write('Masukkan DP yang Anda inginkan  min 500000: ');read(dp);
  writeln('=====================================================');
    if dp>=500000 then
      begin
      writeln('Pilihan lama kredit yaitu: 12 bulan (bunga 10%)');
      writeln('                           24 bulan (bunga 20%)');
      writeln('                           36 bulan (bunga 30%)');
      write('Masukkan lama pengkreditan motor Anda : ');read(lm);
      writeln('=====================================================');
          if lm=12 then
          begin
          harga:=13750000*10/100;
          harga:=13750000+harga;
          harga1:=harga-dp;
          writeln('Harga motor menjadi ',harga:4:2);
          writeln('Dengan DP ',dp:4:2,' maka cicilan perbulan= ',harga1/lm:4:2)
          end
          else if lm=24 then
          begin
          harga:=13750000*20/100;
          harga:=13750000+harga;
          harga1:=harga-dp;
          writeln('Harga motor menjadi ',harga:4:2);
          writeln('Dengan DP ',dp:4:2,' maka cicilan perbulan= ',harga1/lm:4:2)
          end
          else
          begin
          harga:=13750000*30/100;
          harga:=13750000+harga;
          harga1:=harga-dp;
          writeln('Harga motor menjadi ',harga:4:2);
          writeln('Dengan DP ',dp:4:2,' maka cicilan perbulan= ',harga1/lm:4:2)
          end;
      end
    else
    writeln('Maaf Anda tidak dapat melakukan transaksi');
    end;

3:begin
  writeln('=====================================================');
  write('Masukkan DP yang Anda inginkan  min 500000: ');read(dp);
  writeln('=====================================================');
    if dp>=500000 then
      begin
      writeln('Pilihan lama kredit yaitu: 12 bulan (bunga 10%)');
      writeln('                           24 bulan (bunga 20%)');
      writeln('                           36 bulan (bunga 30%)');
      write('Masukkan lama pengkreditan motor Anda : ');read(lm);
      writeln('=====================================================');
          if lm=12 then
          begin
          harga:=14450000*10/100;
          harga:=14450000+harga;
          harga1:=harga-dp;
          writeln('Harga motor menjadi ',harga:4:2);
          writeln('Dengan DP ',dp:4:2,' maka cicilan perbulan= ',harga1/lm:4:2)
          end
          else if lm=24 then
          begin
          harga:=14450000*20/100;
          harga:=14450000+harga;
          harga1:=harga-dp;
          writeln('Harga motor menjadi ',harga:4:2);
          writeln('Dengan DP ',dp:4:2,' maka cicilan perbulan= ',harga1/lm:4:2)
          end
          else
          begin
          harga:=14450000*30/100;
          harga:=14450000+harga;
          harga1:=harga-dp;
          writeln('Harga motor menjadi ',harga:4:2);
          writeln('Dengan DP ',dp:4:2,' maka cicilan perbulan= ',harga1/lm:4:2)
          end;
      end
    else
    writeln('Maaf Anda tidak dapat melakukan transaksi');
    end;

4:begin
  writeln('=====================================================');
  write('Masukkan DP yang Anda inginkan  min 500000: ');read(dp);
  writeln('=====================================================');
    if dp>=500000 then
      begin
      writeln('Pilihan lama kredit yaitu: 12 bulan (bunga 10%)');
      writeln('                           24 bulan (bunga 20%)');
      writeln('                           36 bulan (bunga 30%)');
      write('Masukkan lama pengkreditan motor Anda : ');read(lm);
      writeln('=====================================================');
          if lm=12 then
          begin
          harga:=15875000*10/100;
          harga:=15875000+harga;
          harga1:=harga-dp;
          writeln('Harga motor menjadi ',harga:4:2);
          writeln('Dengan DP ',dp:4:2,' maka cicilan perbulan= ',harga1/lm:4:2)
          end
          else if lm=24 then
          begin
          harga:=15875000*20/100;
          harga:=15875000+harga;
          harga1:=harga-dp;
          writeln('Harga motor menjadi ',harga:4:2);
          writeln('Dengan DP ',dp:4:2,' maka cicilan perbulan= ',harga1/lm:4:2)
          end
          else
          begin
          harga:=15875000*30/100;
          harga:=15875000+harga;
          harga1:=harga-dp;
          writeln('Harga motor menjadi ',harga:4:2);
          writeln('Dengan DP ',dp:4:2,' maka cicilan perbulan= ',harga1/lm:4:2)
          end;
      end
    else
    writeln('Maaf Anda tidak dapat melakukan transaksi');
    end;

5:begin
  writeln('=====================================================');
  write('Masukkan DP yang Anda inginkan  min 500000: ');read(dp);
  writeln('=====================================================');
    if dp>=500000 then
      begin
      writeln('Pilihan lama kredit yaitu: 12 bulan (bunga 10%)');
      writeln('                           24 bulan (bunga 20%)');
      writeln('                           36 bulan (bunga 30%)');
      write('Masukkan lama pengkreditan motor Anda : ');read(lm);
      writeln('=====================================================');
          if lm=12 then
          begin
          harga:=25200000*10/100;
          harga:=(25200000+harga);
          harga1:=harga-dp;
          writeln('Harga motor menjadi ',harga:4:2);
          writeln('Dengan DP ',dp:4:2,' maka cicilan perbulan= ',harga1/lm:4:2)
          end
          else if lm=24 then
          begin
          harga:=25200000*20/100;
          harga:=(25200000+harga);
          harga1:=harga-dp;
          writeln('Harga motor menjadi ',harga:4:2);
          writeln('Dengan DP ',dp:4:2,' maka cicilan perbulan= ',harga1/lm:4:2)
          end
          else
          begin
          harga:=25200000*30/100;
          harga:=(25200000+harga);
          harga1:=harga-dp;
          writeln('Harga motor menjadi ',harga:4:2);
          writeln('Dengan DP ',dp:4:2,' maka cicilan perbulan= ',harga1/lm:4:2)
          end;
      end
    else
    writeln('Maaf Anda tidak dapat melakukan transaksi');
    end;

6:begin
  writeln('Terima kasih');
  end;
end;

writeln('=====================================================');
writeln('Saudara ',nm,' berikut kami tampilkan rincian cicilan Anda:');
n:=0;
cicilan:=harga1;
harga2:=harga1/lm;
while (cicilan>0.1) do
begin
     if (pilih=1) then
     begin
     cicilan:=cicilan-(harga1/lm);
     end
     else if (pilih=2) then
     begin
     cicilan:=cicilan-(harga1/lm);
     end
     else if (pilih=3) then
     begin
     cicilan:=cicilan-(harga1/lm);
     end
     else if (pilih=4) then
     begin
     cicilan:=cicilan-(harga1/lm);
     end
     else
     begin
     cicilan:=cicilan-(harga1/lm);
     end;
     inc(n);
     writeln('setelah cicilan ke',n,' maka kekurangan Anda ',cicilan:4:2);
end;
readln;
writeln;
writeln;
if dp>=3000000 then
begin
writeln('Karena Anda membayar DP= ',dp:4:2,' maka Anda mendapat hadiah handphone Nokia C1');
writeln('Hadiah dan Motor akan Kami kirim ke alamat Anda ',al)
end
else
begin writeln('Karena Anda membayar DP= ',dp:4:2, ' maka Anda tidak mendapatkan hadiah');
      writeln('Motor akan Kami kirim ke alamt Anda ',al);
end;
readln;
end;
writeln ('Info lebih lanjut hubungi Rani (08982291668)');
writeln ('                          Asti (087888888888)');
writeln ('                          Mimi (081329375670)');

writeln;
readln;
write('Apakah Anda ingin kredit motor lagi? (y/t)= ');readln(a);
clrscr;
until (a<>'y');
if a<>'y' then
writeln ('Terima Kasih Atas Kunjungan Anda');
 end.

Jika di running hasilnya adalah: