Program
data barang dengan satu program dan berisi 5 prosedur
A. Flowchart
program Prosedure_data;
uses wincrt;
procedure tas;
var qyt:integer;
hrg1,hrg2,dis,ttl,ttldis:real;
begin
clrscr;
writeln('Nama barang : TAS
');
writeln('Harga barang :
80000 ');
hrg1:= 80000;
write ('Jumlah barang :
');readln(qyt);
ttl:= hrg1*qyt;
writeln('Total harga :
',ttl:0:0);
if qyt > 15 then
dis:= 0.1
else if qyt <10 then
dis:= 0
else
dis:= 0.05;
ttldis:= ttl*dis;
writeln('diskon :
',ttldis:0:0);
hrg2:=ttl-ttldis;
writeln('Total harga setelah
diskon : ',hrg2:0:0);
end;
procedure jaket;
var qyt:integer;
hrg1,hrg2,dis,ttl,ttldis:real;
begin
clrscr;
writeln('Nama barang :
JAKET ');
writeln('Harga barang :
50000 ');
hrg1:= 50000;
write ('Jumlah barang :
');readln(qyt);
ttl:= hrg1*qyt;
writeln('Total harga :
',ttl:0:0);
if qyt > 15 then
dis:= 0.1
else if qyt <10 then
dis:= 0
else
dis:= 0.05;
ttldis:= ttl*dis;
writeln('diskon :
',ttldis:0:0);
hrg2:=ttl-ttldis;
writeln('Total harga setelah
diskon : ',hrg2:0:0);
end;
procedure sepatu;
var qyt:integer;
hrg1,hrg2,dis,ttl,ttldis:real;
begin
clrscr;
writeln('Nama barang :
SEPATU ');
writeln('Harga barang :
70000 ');
hrg1:= 70000;
write ('Jumlah barang :
');readln(qyt);
ttl:= hrg1*qyt;
writeln('Total harga :
',ttl:0:0);
if qyt > 15 then
dis:= 0.1
else if qyt <10 then
dis:= 0
else
dis:= 0.05;
ttldis:= ttl*dis;
writeln('diskon :
',ttldis:0:0);
hrg2:=ttl-ttldis;
writeln('Total harga setelah
diskon : ',hrg2:0:0);
end;
procedure kemeja;
var qyt:integer;
hrg1,hrg2,dis,ttl,ttldis:real;
begin
clrscr;
writeln('Nama barang :
KEMEJA ');
writeln('Harga barang :
120000 ');
hrg1:= 120000;
write ('Jumlah barang :
');readln(qyt);
ttl:= hrg1*qyt;
writeln('Total harga :
',ttl:0:0);
if qyt > 15 then
dis:= 0.1
else if qyt <10 then
dis:= 0
else
dis:= 0.05;
ttldis:= ttl*dis;
writeln('diskon :
',ttldis:0:0);
hrg2:=ttl-ttldis;
writeln('Total harga setelah
diskon : ',hrg2:0:0);
end;
procedure menu;
var pilih:string;
begin
write('Masukan kode barang =
');readln(pilih);
if pilih= 'kd001' then
tas
else if pilih= 'kd002' then
jaket
else if pilih= 'kd003' then
sepatu
else if pilih= 'kd004' then
kemeja
else
writeln('Maaf data yang anda
inputkan salah !!');
end;
begin
menu;
end.
C. Hasil Run Program
No Response to " Pemograman Pascal 5 Prosedur "
Posting Komentar
Masukan anda sangat berarti untuk postingan blogger kedepannya .