Program Toko Menghitung Diskon dengan Perulangan Repeat Until dalam Pascal

Salam sobat blogger, Hari ini 100persenworking akan membagi ilmu tentang pemrograman pascal.kita akan membuat Program Toko Menghitung Diskon dengan metode Perulangan Repeat Until dalam turbo pascal.

Pada postingan sebelumnya 100persenworking sudah membagi info tentang cara membuat Program Record / Perulangan Data KTP, dan Program Record Data Mahasiswa Menggunakan Pascal kemudian kali ini kita membuat Program Toko Menghitung Diskon dengan metode Perulangan Repeat Until dalam turbo pascal. perbedaan dengan posting sebelumnya adalah kita akan membuat program menggunakan perhitungan diskon dan penggunaan peulangan repeat until.

Perulangan repeat until sebenarnya hampir sama dengan perulangan while do, Kunci dari perulangan WHILE DO ada di condition dan kode program untuk mengubah condition. Condition bisa dikatakan sebagai syarat agar perulangan bisa dijalankan. Selama syarat ini terpenuhi (bernilai TRUE), perulangan akan terus dijalankan. Jika syarat ini tidak terpenuhi (bernilai FALSE), perulangan tidak akan berjalan. Bedanya pada REPEAT UNTIL, pemeriksaan kondisi ini dilakukan di akhir perulangan, bukan di awal seperti WHILE DO.

berikut adalah contoh soal program pascal yang menggunakan perulangan repeat until.

sekarang kita akan membuat jawaban dari soal diatas

buka program pascal anda kemudian buka file new kemudian tuliskan source code berikut ini yang berwarna biru dan yang saya beritanda { } adalah keterangan coding anda boleh tidak menulisnya.

program TugasLOOPING(SUZANTIINDAHSARI); { nama program }

uses crt;

var {variabel untuk menentukan type data yang diinput}

gapok, tanak , gatot, total, jumlah, harga: real;

n,i,bar,golongan, status, id : integer;

UI : char;

nama,barang, gol, kode : string;

begin

repeat { perulangan repeat dimulai dari sini}

clrscr;

gotoxy(1,1);writeln ('DATA ENTRY DATA PENJUALAN BARANG');

writeln ('TOKO SWALAYAN SAMI LARIZO SOLO');

writeln ('========================================');

write ('ID MEMBER : '); readln(id);

write ('KONSUMEN : '); readln(nama);

write ('BARANG : '); readln(barang);

write ('KODE : '); readln(kode);

write ('HARGA : '); readln(harga);

write ('JUMLAH : '); readln(jumlah);

total:=jumlah * harga;

begin

if jumlah >= 5 then tanak := 0.15 * total; {statement untuk menghitung diskon}

if jumlah <= 4 then tanak := 0.10 * total;

if jumlah <= 2 then tanak := 0.10 * total;

if jumlah <= 1 then tanak := 0 * total;

end;

clrscr;

gotoxy(1,1);writeln ('ENTRY DATA PENJUALAN BARANG');

writeln ('TOKO SWALAYAN SAMI LARIZO SOLO');

writeln ('===========================================');

writeln ('ID MEMBER : ', id);

writeln ('KONSUMEN : ', nama);

writeln ('KODE : ', kode);

writeln ('BARANG : ', barang);

writeln ('HARGA : ', harga:9:2);

writeln ('JUMLAH : ', jumlah:9:2);

writeln ('BELANJA : ', total:9:2);

writeln ('DISKON : ', tanak:9:2);

gatot := total - tanak;

writeln ('TOTAL BAYAR : ', gatot:9:2);

readln;

write('INPUT DATA LAGI ?[Y/T]: ');readln(UI);

Until Upcase (UI)<>'Y'; { perulangan until dengan Y sebagai syarat untuk melakukan repeat}

end.

kemudian save, lalu compile dan run program, bila berhasil hasilnya akan seperti di bawah ini,

harga 9000 dikalikan jumlah 5 total belanja 45000, jumlah barang yang dibeli 5 maka diskon 15% yaitu 6750 kemudian di bawah nya ada keterangan input data lagi ? [y/t] bila y, anda melakukan perulangan input data berikutnya.