soal dan jawaban modul hal 19 ( Susu )

Jawaban :


Program Susu;
uses crt;
var
Merk:string;
ukuran:char;
banyak,harga,jmlkembali,uang:real;
begin
clrscr;
write('Masukan Merk Susu = ');readln(merk);
write('Masukan Ukuran Susu B/S/K = ');readln(ukuran);
write('Jumlah Uang Yang Disetorkan = ');readln(uang);
if merk ='dancow' then
case ukuran of
'B','b':
begin
Harga:=10000;
end;

'S','s':
begin
Harga:=4250;
end;

'K','k':
begin
Harga:=2100;
end
end;
if merk ='dancow' then
case ukuran of
'B','b':
begin
Harga:=10000;
end;

'S','s':
begin
Harga:=4250;
end;

'K','k':
begin
Harga:=2100;
end
end;
if merk ='indomilk' then
case ukuran of
'B','b':
begin
Harga:=8500;
end;

'S','s':
begin
Harga:=4000;
end;

'K','k':
begin
Harga:=2025;
end
end;
if merk ='milo' then
case ukuran of
'B','b':
begin
Harga:=7750;
end;

'S','s':
begin
Harga:=3750;
end;

'K','k':
begin
Harga:=2200;
end
end;
clrscr;
writeln('=============== * Struk Belanja * ====================');
writeln;
writeln('Merk Susu = ',merk);
writeln('Ukuran Susu = ',ukuran);
writeln('Harga Susu = ',Harga:4:0);
jmlkembali:=uang-harga;
writeln('Jumlah Uang = ',uang:4:0);
writeln('=====================================================(+) ');
writeln('Uang Kembalian = ',jmlkembali:4:0);
readln;
end.