Contoh Program Sederhana - Penjualan Agen Susu Di Pascal

Aplikasi Sederhana - Penjualan Agen Susu Di Pascal (By Ronny Liem)
Aplikasi Sederhana - Penjualan Agen Susu Di Pascal


program Agen_Susu;
uses Crt;

var
iM,A,B,C:String;
jB,iU:Integer;
jT,K1,K2,K3:LongInt;

begin
Clrscr;
A:='Dancow';
B:='Bendera';
C:='SGM';
WriteLn('TOKO KELONTONG KERONCONGAN');
WriteLn('__________________________');
WriteLn('A. Susu Dancow');
WriteLn('   1. Ukuran Kecil');
WriteLn('   2. Ukuran Sedang');
WriteLn('   3. Ukuran Besar');
WriteLn;
WriteLn('B. Susu Bendera');
WriteLn('   1. Ukuran Kecil');
WriteLn('   2. Ukuran Sedang');
WriteLn('   3. Ukuran Besar');
WriteLn;
WriteLn('C. Susu SGM');
WriteLn('   1. Ukuran Kecil');
WriteLn('   2. Ukuran Sedang');
WriteLn('   3. Ukuran Besar');
WriteLn;
Write ('Masukan Kode Merk Susu [Dancow | Bendera | SGM] : '); ReadLn(iM);
Write ('Masukan Kode Ukuran Kaleng [Kecil|Sedang|Besar] : '); ReadLn(iU);
if (iM='A') or (iM='a') and (iU=1) then
begin
K1:=15000;
K2:=20000;
K3:=25000;
WriteLn('Harga Satuan Barang Rp.' , K1);
Write  ('Jumlah Yang dibeli : '); ReadLn(jB);
jT:=K1*jB;
WriteLn('Harga Yang Harus dibayar Sebesar Rp. ', jT);
end
else if (iM='A') or (iM='a') and (iU=2) then
begin
K1:=15000;
K2:=20000;
K3:=25000;
WriteLn('Harga Satuan Barang Rp.' , K2);
Write  ('Jumlah Yang dibeli : '); ReadLn(jB);
jT:=K2*jB;
WriteLn('Harga Yang Harus dibayar Sebesar Rp. ', jT);
end
else if (iM='A') or (iM='a') and (iU=3) then
begin
K1:=15000;
K2:=20000;
K3:=25000;
WriteLn('Harga Satuan Barang Rp.' , K3);
Write  ('Jumlah Yang dibeli : '); ReadLn(jB);
jT:=K3*jB;
WriteLn('Harga Yang Harus dibayar Sebesar Rp. ', jT);
end
else if (iM='B') or (iM='b') and (iU=1) then
begin
K1:=13500;
K2:=16500;
K3:=20000;
WriteLn('Harga Satuan Barang Rp.' , K1);
Write  ('Jumlah Yang dibeli : '); ReadLn(jB);
jT:=K1*jB;
WriteLn('Harga Yang Harus dibayar Sebesar Rp. ', jT);
end
else if (iM='B') or (iM='b') and (iU=2) then
begin
K1:=13500;
K2:=16500;
K3:=20000;
WriteLn('Harga Satuan Barang Rp.' , K2);
Write  ('Jumlah Yang dibeli : '); ReadLn(jB);
jT:=K2*jB;
WriteLn('Harga Yang Harus dibayar Sebesar Rp. ', jT);
end
else if (iM='B') or (iM='b') and (iU=3) then
begin
K1:=13500;
K2:=16500;
K3:=20000;
WriteLn('Harga Satuan Barang Rp.' , K3);
Write  ('Jumlah Yang dibeli : '); ReadLn(jB);
jT:=K3*jB;
WriteLn('Harga Yang Harus dibayar Sebesar Rp. ', jT);
end
else if (iM='C') or (iM='c') and (iU=1) then
begin
K1:=14000;
K2:=18500;
K3:=22000;
WriteLn('Harga Satuan Barang Rp.' , K1);
Write  ('Jumlah Yang dibeli : '); ReadLn(jB);
jT:=K1*jB;
WriteLn('Harga Yang Harus dibayar Sebesar Rp. ', jT);
end
else if (iM='C') or (iM='c') and (iU=2) then
begin
K1:=14000;
K2:=18500;
K3:=22000;
WriteLn('Harga Satuan Barang Rp.' , K2);
Write  ('Jumlah Yang dibeli : '); ReadLn(jB);
jT:=K2*jB;
WriteLn('Harga Yang Harus dibayar Sebesar Rp. ', jT);
end
else if (iM='C') or (iM='c') and (iU=3) then
begin
K1:=14000;
K2:=18500;
K3:=22000;
WriteLn('Harga Satuan Barang Rp.' , K3);
Write  ('Jumlah Yang dibeli : '); ReadLn(jB);
jT:=K3*jB;
WriteLn('Harga Yang Harus dibayar Sebesar Rp. ', jT);
end
else
begin
WriteLn('Maaf Kode Merk Dan Ukuran Tidak Terdaftar');
end;



readln;
end.

Subscribe Untuk Mendapatkan Info Terbaru Dari Kami Lewat Email:

Tidak Ada Tanggapan Untuk "Contoh Program Sederhana - Penjualan Agen Susu Di Pascal"

Post a Comment