K'POP...

K'POP...

Sabtu, 13 Oktober 2012

Tugas algoritma


program Project1;

{$APPTYPE CONSOLE}

 uses

  SysUtils;

  var kode_barang:array[1..10]of string;
         nama_barang:array[1..10]of string;
         jumlah             :array[1..10]of integer;
         harga               :array[1..10]of integer;
         total_harga    :array[1..10]of integer;
          i,n                    :integer;

 

begin
   write('isikan banyak data barang :');readln(n);

    for i:=1 to n do

     begin

       write('isikan kode_barang ',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.