18 Juni 2011

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.

0 komentar:

Posting Komentar

Silahkan TInggalkan Komentar Anda di Blog Saya..
No SPAM and No PORN...
Terimakasih Telah meninggalkan Jejak Anda

Related Posts Plugin for WordPress, Blogger...
Award Pertama
Photobucket
Langganan Artikel Si Boersan :

Enter your email address:

Delivered by FeedBurner

Monggo Di Copy Linknya :
Text Link

Banner Link

Komunitas Blogger Indonesia Komunitas Blogwalking