program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
var kode_barang : array[1..100]of string;
nama_barang : array[1..100]of string;
jumlah : array[1..100]of integer;
harga : array[1..100]of integer;
total_harga : array[1..100]of integer;
i,n : integer;
begin
write('isikan banyak data : ');readln(n);
For i:=1 To n Do
begin
write('isikan kode_barang data ke_',i,' :');readln(kode_barang[i]);
write('isikan nama_barang :');readln(nama_barang[i]);
write('isikan jumlah :');readln(jumlah[i]);
write('isikan harga :');readln(harga[i]);
total_harga[i]:=jumlah[i]*harga[i]
end;
writeln;
for i:=1 To n Do
begin
writeln(kode_barang[i],' ',nama_barang[i],' ',jumlah[i],' ',harga[i],' ',total_harga[i]);
end;
readln;
end.
Tidak ada komentar:
Posting Komentar