Contoh program pascal array part 1

Assalamualaikum...
Udah lama gk ngelanjutin materi tentang pascal.. OK. saya sekarang akan berbagi mengenai ARRAY SATU DIMENSI. Agar sobat dD semua mudah mengerti kita akan mulai dari sebuah CONTOH PROGRAM.

uses wincrt;
var
 
nilai : array[1..5] of integer;
i,jumlahdata : integer;

begin
write('Masukan Jumlah data : ');readln(jumlahdata);

for i:=1 to jumlahdata do
begin
write('Nilai ke- ',i,' : '); readln(nilai[i]);
end; 

readln;

writeln('Data ke 3 adalah ',nilai[3]);
end. 



Di atas ini adalah program sederhana array saatu dimensi.

nilai : array[1..5] of integer;
i,jumlahdata : integer; 
nilai : variabel arraynya
array[1..5] : data dari array variabel nilai dari 1 sampai 5
of integer : tipe data nilai yang nantinya di input integer atau bilangan bulat.
i : variabel untuk isi / value array dari 1 sampai 5 agar program bisa lebih dinamis.
jumlahdata : jumlah data array yang akan di input


write('Masukan Jumlah data : ');readln(jumlahdata);
jumlahdata : jumlah data array yang akan di input dari 1 sampai 5


for i:=1 to jumlahdata do
begin
write('Nilai ke- ',i,' : '); readln(nilai[i]);
end; 
i:=1 to jumlahdata : pengulangan dari 1 sampai jumlahdata yng di masukan
ke- ',i,' : menampilkan data ke -

nilai[i] : menyimpan nilai yang di masukan kedalam array


writeln('Data ke 3 adalah ',nilai[3]); 
nilai[3] : Data dari array ke 3.

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.

Artikel Terkait

Posted in: Pascal