tugas Maya cayang

Program Pascal Windows

Nama  : Maya Suhasni Siregar

uses

Wincrt;

var

c:string;

begin

clrscr;

repeat

writeln('Daftar Penjualan');

writeln(' ');

writeln('1.Nama Barang:');

writeln('2.Harga Barang:');

writeln('3.Jumlah Barang:');

Writeln('4.Total:');

writeln('5.Discount:');

writeln('6.Keluar');

writeln(' ');

writeln('Ketik Angka 1-6 untuk perintah:');readln(c);

if(c)='1'then

begin

clrscr;

writeln('Nama Barang:');

writeln('Apel');

writeln('Jeruk');

writeln('Mangga');

end

else if (c)='2' then

begin

clrscr;

writeln('Harga Barang:');

writeln('Apel   =Rp.25000/Kg');

writeln('Jeruk  =Rp.10000/Kg');

writeln('Mangga =Rp.15000/Kg');

end

else if (c)='3' then

begin

clrscr;

writeln('Jumlah Barang:');

writeln('15Kg');

writeln('10Kg');

writeln(' 5Kg');

end

else if (c)='4' then

begin

clrscr;

writeln('Total=');

writeln('Apel   = Rp. 25000/Kg * 15Kg - 20% = Rp.300.000');

writeln('Apel   = Rp. 25000/Kg * 10Kg - 15% = Rp.212.500');

writeln('Apel   = Rp. 25000/Kg *  5Kg - 10% = Rp.112.500');

writeln('Jeruk  = Rp. 10000/kg * 15Kg - 20% = Rp.120.000');

writeln('Jeruk  = Rp. 10000/Kg * 10Kg - 15% = Rp. 85.000');

writeln('Jeruk  = Rp. 10000/Kg *  5Kg - 10% = Rp. 45.000');

writeln('Mangga = Rp. 15000/Kg * 15Kg - 20% = Rp.180.000');

writeln('Mangga = Rp. 15000/Kg * 10Kg - 15% = Rp.127.500');

writeln('Mangga = Rp. 15000/Kg *  5Kg - 10% = Rp. 67.500');

end

else if (c)='5' then

begin

clrscr;

writeln('Discount:');

writeln('20%');

writeln('15%');

writeln('10%');

end

else if (c)='6' then

begin

clrscr;

writeln('Terimakasih udah Masuk Program ini');

end

else if (c)='' then

writeln('Perintahnya belum diisi');

writeln('Ketik Angka 1-6');

readln;

clrscr;

until c='6';

writeln('');

writeln('Klik tanda silang pada ujung kanan program atau anda menekan tombol Alt+F4');

writeln('Untuk keluar dari program ini.');

end.

Tampilan Hasil

Daftar Penjualan

1.Nama Barang:

2.Harga Barang:

3.Jumlah Barang:

4.Total:

5.Discount:

6.Keluar

Ketik Angka 1-6 untuk perintah:

1_

Nama Barang:

Apel

Jeruk

Mangga

Ketik Angka 1-6

2_

Harga Barang:

Apel                 = Rp.25000/Kg

Jeruk                = Rp.10000/Kg

Mangga            = Rp.15000/Kg

Ketik Angka 1-6

3_

Jumlah Barang:

15Kg

10Kg

  5Kg

Ketik Angka 1-6

4_

Total    =

Apel                 =  Rp.25000/Kg * 15Kg  - 20% = Rp.300.000

Apel                 =  Rp.25000/Kg * 10Kg  - 15% = Rp.212.500

Apel                 =  Rp.25000/Kg *   5Kg  - 10% = Rp.112.500

Jeruk                =  Rp.10000/Kg * 15Kg  - 20% = Rp.120.000

Jeruk                =  Rp.10000/Kg * 10Kg  - 15% = Rp.  85.000

Jeruk                =  Rp.10000/Kg *   5Kg  - 10% = Rp.  45.000

Mangga            =  Rp.25000/Kg * 15Kg  - 20% = Rp.180.000

Mangga            =  Rp.25000/Kg * 10Kg  - 15% = Rp.127.000

Mangga            =  Rp.25000/Kg *   5Kg  - 10% = Rp.  67.500

Ketik Angka 1-6

5_

Discount:

20%

15%

10%

Ketik Angka 1-6

6_

Klik tanda silang pada ujung kanan program ataun menekan tombol Alt + F4

Untuk keluar dari program ini.