HTML

  1. Pengenalan HTML
  2. HTML Pertamaku
  3. Memasukkan Gambar
  4. Membuat Text Mengalir di sekeliling Gambar
  5. Macam-macam Heading
  6. Membuat Formulir Isian
  7. Form Input Data
  8. Membuat Optional
  9. Membuat Optional Data dari Banyak Data
  10. Input Data Artikel
  11. Membuat Tombol Submit dan Reset
  12. Membuat Tabel
  13. Membuat Tabel Kompleks
  14. Bekerja dengan Frame
  15. Memasukkan Halaman Lain dengan iFrame

Pemograman Pascal 5 Prosedur

Program data barang dengan satu program dan berisi 5 prosedur

A. Flowchart
B. Listing Program

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