Sintak programnya :
Program Penjualan;
uses wincrt;
const
jenis_barang = 20;
a = '********************************************************************************';
b = ' INPUT DATA BARANG';
c = '----------------------------------------------------------------------------------------------------';
d = ' OUTPUT DATA BARANG ';
e ='===================================================';
Type
recordbarang = record
Kode : string[6];
Nama : string[15];
Jumlah : byte;
Ukuran : string[12];
harga_unit:real;
end;
Daftarbarang = array [1..jenis_barang] of recordbarang;
var
Barang : daftarbarang;
data_barang : recordbarang;
Jum_barang : byte;
Procedure Input_Data;
Var
indeksbarang : 1..jenis_barang;
data_barang : recordbarang;
begin
clrscr;
writeln (a);
writeln (b);
writeln (a);
write (' Ada Berapa jenis barang : ');readln(jum_barang);
writeln;
writeln;
for indeksbarang := 1 to Jum_barang do
begin
writeln (' Data barang ke ', indeksbarang);
writeln;
write(' Kode barang : '); readln(barang[indeksbarang].Kode);
write(' Nama barang : '); readln(barang[indeksbarang].Nama);
write(' Jumlah barang : '); readln(barang[indeksbarang].Jumlah);
write(' Ukuran/Satuan : '); readln(barang[indeksbarang].Ukuran);
write(' Harga Per Unit : '); readln(barang[indeksbarang].harga_unit);
writeln;
end;
end;
Hasil Gambar
Output 1
Output 2
Output 3
Sekian yang saya dapat sampaikan, selamat mencoba dan semoga bermanfaat.
kak,kenapa punya saya tidak berhasil ya
BalasHapus