2.2 PEMROGRAMAN BORLAND DELPHI 7

2.2 Tugas pemrograman delphi 7

             

   Tugas mata kuliah "PEMROGRAMAN BORLAND DELPHI 7" yang ke 2.2, diberi tugas oleh dosen mata kuliah dengan tugas "membuat tugas bebas dengan menggunakan case of  minimal tiga pencabangan dengan basis teks" dan kali ini saya mencoba membuat progam tentang potongan harga, karena saya belum pernah belajar tentang ini di sekolah saya dulu SMA maka mohon dimaklumi jika progam saya kurang menarik ya..bagi para pembaca..
Kriteria progam saya:
- Pembeli akan mendapat potongan harga jika barang yang dibeli memenuhi harga yang telah ditentukan di    bawah ini :

• 200.000 - 500.000 mendapat potongan 30%
• 600.000 - 1.000.000 mendapat potongan 50%
• >1.000.000 mendapat potongan 60%

Berikut cara membuat program tersebut:

• pertama mulailah membuka program delphi 7
• setelah terbuka pilih menu file > new > other 

• akan muncul kotak new items > console application

• setelah muncul kotak script tulislah script pada kotak tersebut

program jumlahdiskon;

{$APPTYPE CONSOLE}

uses

  SysUtils;

var

  nilai:integer;

  ket, potongan:string;

begin

  write ('masukkan jumlah harga = Rp.'); readln(nilai);

case nilai of

  200000..500000 : begin ket:='selamat anda mendapat potongan';

  potongan:='30%' end;

  600000..1000000 : begin ket:='selamat anda mendapat potongan';

  potongan:='50%' end;

  else

  begin ket:='selamat anda mendapat potongan';potongan:='60%' end;

end;

  writeln('keterangan = ', ket);

  writeln('jumlah potongan yang didapat = Rp. ', potongan);

  readln;

end.

• jalankan program tersebut dengan "run program" atau F9 dan akan muncul kotak basis teks seperti berikut.

gambar runing program

harga 345.000 dengan potongan 30%

harga 673.000 dengan potongan 50%

harga 2.348.000 dengan potongan 60%

• dan yang terakhir adalah save jika diperlukan

Nama saya : Aisyah Ar-Rudhowi ...sekian tugas "PEMROGRAMAN BORLAND DELPHI 7" yang ke 2.2

Sekian tugas yang 2 tunggu tugas-tugas yang lain y.......