Template Latihan Proseduce

Contoh Soal :

nama : input
nama barang :input
jumlah barang : input
harga : input
discount : auto
total : auto

masukan kedalam produce

program zulkarnaen;

Procedure input_barang;
var
    n,n_b : string;
    j_b : INTEGER;
    h,d,t : real;
begin
    write('Nama : '); readln(n);
    write('nama barang : '); readln(n_b);
    write('Jumlah barang : '); readln(j_b);
    write('harga : '); readln(h);
    {proses discount } 
    if h >= 4000000 then 
        begin
        d := 400000;
        end
    else if  h >= 5000000 then
        begin
        d := 500000;
        end
    else if h >= 6000000 then
        begin
        d := 600000;
        end;
    writeln('discount : ', d:0:0);
    {proses total}
    t := j_b*h-d;
    write('Total Harga ', t:0:0);
    
end;

begin {jangan disini}
    input_barang;
end.