uses wincrt;
var jml,a,b: integer;
nm,ket : array[1..40] of string;
hrg,jumlah,total,jumlahseluruh : array[1..40] of real;
begin
write(‘Jumlah Data : ‘); readln(jml);
writeln(”);
for a := 1 to jml do
begin
write(‘Nama Barang :’); readln(nm[a]);
write(‘Harga :’); readln(hrg[a]);
write(‘Jumlah :’);readln(jumlah[a]);
writeln(”);
end
;
clrscr;
gotoxy(5,2);write(‘—————————————————‘);
gotoxy(5,3);write(‘Nama’);
gotoxy(20,3);write(‘Harga’);
gotoxy(30,3);write(‘Jumlah’);
gotoxy(40,3);write(‘Total’);
gotoxy(5,4);write(‘—————————————————‘);
for b := 1 to jml do
begin
total[b]:=hrg[b]*jumlah[b];
gotoxy(5,5+b);write(nm[b]);
gotoxy(20,5+b);write(hrg[b]:8:0);
gotoxy(30,5+b);write(jumlah[b]:8:0);
gotoxy(40,5+b);writeln(total[b]:8:0);
end
;
writeln(‘ ====================================================’);
end.
Filed under: Uncategorized | Leave a comment »