Kamis, 16 Mei 2013

Contoh Program Pascal menggunakan Array


Program kartun1;
Uses wincrt;
Const
max=5;
Type
kartun=array[1..max] of string[10];
Var
Jnskartun :kartun;
i:integer;
begin
For i:=1 to max do
Jnskartun[1]:='Shinchan';
Jnskartun[2]:='Doraemon';
Jnskartun[3]:='Larva';
Jnskartun[4]:='Dragonball';
Jnskartun[5]:='Avatar';
For i:=1 to max do
writeln(i,'. ',Jnskartun[i]);
end.

4 komentar:

Anonim mengatakan...

kaga bisa teh...!

Anonim mengatakan...

kakanya sakinah bkn??

Unknown mengatakan...

Bisa kok ... ini kan program yang saya buat untuk tugas saya...

Unknown mengatakan...

Bukan :)

Posting Komentar

You can replace this text by going to "Layout" and then "Page Elements" section. Edit " About "

Baca Selengkapnya Di : http://indonesianblog-jmk.blogspot.com/2012/06/cara-membuat-komentar-admin-berbeda.html#ixzz2kb6khEJE