Array Berdimensi Satu (Pascal)

Array (biasa juga disebut larik) merupakan tipe data terstruktur yang berguna untuk menyimpan sejumlah data yang bertipe sama.

Cara mendeklarasikan array berdimensi satu
NamaTipe = ARRAY[TipeOrdinal] OF TipeElemen
Contoh array untuk menampilkan bilangan yang dijumlahkan:
uses wincrt;

type Bilangan = Array [1..5] of integer;

var DafBil : Bilangan;
    i, jml : Integer;

begin
     for i:= 1 to 5 do
         begin
         write ('bilangan ke-',i,' = ');
         read (DafBil[i]);
         end;
     jml :=DafBil[1]+DafBil[2]+DafBil[3]+DafBil[4]+DafBil[5];
     writeln(DafBil[1],'+',DafBil[2],'+',DafBil[3],'+',DafBil[4],'+',DafBil[5],'=',jml);
end.

Post a Comment

0 Comments