Program Menentukan Larik Terbesar
Program Menentukan_larik_terbesar;
uses wincrt;
Type
Larik = Array[1..20] of integer;
var
N , i : integer;
A, B : Larik;
BesarA, BesarB : byte;
begin
write(’Tentukan panjang Indeks Array 1 dimensi : ‘);readln(n);
writeln;
{inisialisasi}
BesarA := 0;
BesarB := 0;
randomize;
{buat data acak dan disimpan dalam Larik A}
writeln(’Larik A’);
for i:=1 to N do
begin
write(’A[’,i,’] = ‘);readln(A[i]);
end;
{buat data acak dan disimpan dalam Larik B}
writeln;
writeln(’Larik B’);
for i:=1 to N do
begin
write(’B[’,i,’] = ‘);readln(B[i]);
end;
{mulai perbandingkan kedua Array}
for i:=1 to N do
if A[i]>B[i] then
inc(BesarA)
else
inc(besarB);
writeln; writeln;
writeln(’PERBANDINGAN 2 BUAH LARIK’);
writeln(’Hasil : ‘);
if BesarA > BesarB then
begin
writeln(’Larik A lebih besar dari Larik B’);
writeln(’Jumlah indeks yang besar ada ‘,besarA,’ buah’);
end
else if BesarA = BesarB then
begin
writeln(’Larik A sama besar dengan Larik B’);
writeln(’Jumlah indeks nya masing2 ada ‘,besarA,’ buah’);
end
else
begin
writeln(’Larik B lebih besar dari Larik A’);
writeln(’Jumlah indeks yang besar ada ‘,besarB,’ buah’);
end;
readkey;
donewincrt;
end.
