Latihan Pembuatan Array menggunakan Pascal Part 2

Latihan kedua ini merupakan Latihan pembuatan array pada pascal. ( Lihat Sebelumnya )

L atihan 2:

program contoh_array;

uses crt;

var

bunga:array[1..5] of string;

i:byte;

begin

clrscr;

writeln('Nama Bunga Menggunakan Array');

writeln('----------------------------');

for i:=1 to 5 do

begin

writeln('Nama Bunga ke-',i);

write('Nama Bunga:');readln(bunga[i]);

writeln;

end;

writeln('No    Nama Bunga ');

for i:=1 to 5 do

writeln(i:1,bunga[i]:10);

readln;

end.

Posted in: Belajar Array,Belajar Pascal