PROGRAM ARRAY

materi array (larik)

uses wincrt;

var
   i,j,ea,eb:integer;
   A,B,C:array[1..2,1..4] of integer;
begin

begin
     writeln('penjumlahan Matriks ordo 2x4');
end;
     ea:=1;
     writeln('matriks A (Bil Ganjil) = ');
     for i:=1 to 2 do
     begin
          for j:=1 to 4 do
          begin
               A[i,j]:=ea;
               ea:=ea+2;
               write(A[i,j]:3);
          end;
          writeln;
     end;
         writeln;
         eb:=3;
         writeln('matriks B (Bil kelipatan 3) = ');
         for i:=1 to 2 do
         begin
              for j:=1 to 4 do
              begin
                   B[i,j]:=eb;
                   eb:=eb+3;
                   write(B[i,j]:3);
              end;
              writeln;
         end;
             writeln;
             writeln('matriks c (hasil A+B) = ');
             for i:=1 to 2 do
             begin
                  for j:=1 to 4 do
                  begin
                       C[i,j]:=A[i,j]+B[i,j];
                       write(C[i,j]:3);
                  end;
             end;
end.

program pascal

 output program

• deklarasi konstanta larik (char) 

uses wincrt;
const
     nilaihuruf:array[0..4] of char=('E','D','C','B','A');
var
   i:word;
begin
     for i:=0 to 4 do
     writeln('nilai ke ',i,'=',nilaihuruf[i]);
end.

program dan output program 

• deklarasi konstanta larik (integer)

 uses wincrt;
const
     x:array[1..5] of integer=(6,25,375,5,2);
var
   i:word;
begin
     for i:=1 to 5 do
     writeln('nilai konstanta larik ke ',i,'=',x[i]);
end.

program

output program

• mencari nama hari di abab 2000

uses wincrt;

type

    x=string[7];

const

     faktorbln:array [1..12] of byte=(0,3,3,6,7,4,6,2,5,0,3,5);

     hari:array [0..8] of x=('minggu','senin','selasa',' ','rabu','kamis',' ','jumat','sabtu');

var

   i:word;

   nama:string [255];

   j1,j2,j3,j4:integer;

   tanggal,bulan,tahun:integer;

begin

     write ('tanggal      =');readln(tanggal);

     write ('bulan (1-12) =');readln(bulan);

     write ('tahun 20..   =');readln(tahun);

     if tahun > 2000 then tahun:=tahun - 2000;

     j1:= trunc(tahun*364.25);

     j2:= j1 + faktorbln[bulan];

     if (tahun/4 =int(tahun/4)) and (bulan<3) then j2:=j2-1;

     j3:= j2 + tanggal;

     j4:= trunc (frac(j3/7)*10);

     writeln;

     writeln('hari itu adalah hari      =',hari[j4]);

end.

Program 

output program

 

• deklarasi konstanta larik (Boolean)

uses wincrt;
const
     nilai:array[1..3] of boolean=(true,false,false);
var
   i:word;
begin
     for i:=1 to 3 do
     writeln('nilai ke ',i,'=',nilai[i]);
end.

program dan output program