Program Array 1 Dimensi
Saya kali ini akan memposting cara membuat program pascal array satu dimensi
Gimana si cara membuatnya ?, langsung saja lihat di bawah ini!
Program arrayduadimensi;
uses crt;
var
matrik1,matrik2:array[1..2,1..2] of byte;
hkurang,htambah:array[1..2,1..2] of integer;
b,k:byte;
procedure inputmatrik;
begin
writeln('Input Isi Matrik 1 ');
for b:= 1 to 2 begin
for k:= 1 to 2 begin
write('Isi Matrik Baris ',b,' Kolom ',k,' = '); readln(matrik1[b,k]);
end;
end;
writeln('Input Isi Matrik 2 ');
for b:= 1 to 2 begin
for k:= 1 to 2 begin
write('Isi Matrik Baris ',b,' Kolom ',k,' = '); readln(matrik2[b,k]);
end;
end;
end;
procedure tambahmatrik;
begin
for b:= 1 to 2 do begin
for k:= 1 to 2 do begin
htambah[b,k]:=matrik1[b,k]+matrik2[b,k];
end;
end;
end;
procedure kurangmatrik;
begin
for b:= 1 to 2 do begin
for k:= 1 to 2 do begin
hkurang[b,k]:=matrik1[b,k]+matrik2[b,k];
end;
end;
end;
procedur cetakmatrik;
begin
clrscr;
writeln('Isi Matrik 1 ');
for b:= 1 to 2 do begin
for k:= 1 to 2 do begin
write(matrik1[b,k]:4);
end;
writeln;
end;
write('tekan enter untuk melihat isi matrik 2');
readln;
writeln;
write('Isi Matrik 2');
for b:= 1 to 2 do begin
for k:= 1 to 2 do begin
write(matrik2[b,k]:4);
end;
writeln;
end;
write('tekan enter untuk melihat hasil penjumlahan');
readln;
writeln;
write('Isi Matrik 2');
for b:= 1 to 2 do begin
for k:= 1 to 2 do begin
write(htambah[b,k]:4);
end;
writeln;
end;
write('tekan enter untuk melihat hasil pengurangan');
readln;
writeln;
write('Isi Matrik 2');
for b:= 1 to 2 do begin
for k:= 1 to 2 do begin
write(hkurang[b,k]:4);
end;
writeln;
end;
writeln('tekan enter untuk keluar');
readln;
end;
{Program Utama}
begin
inputmatrik;
tambahmatrik;
kurangmatrik;
cetakmatrik;
end.
Kurang lebih seperti itu kodingannya, dibawah ini adalah outputnya:
