PROGRAM PASCAL
Dengan
menggunakan fungsi :
§ Mencari
elemen array yang terbesar
§ Mencari
elemen array yang lebih besar dari 85
§ Mencari
elemen array yang lebih kecil dari 50
§ Mencari
elemen array yang habis dibagi 5
Listing program :
uses crt;
var
array1 :array [1..100] of integer;
satu
:array [1..100] of integer;
dua
:array [1..100] of integer;
tiga
:array [1..100] of integer;
a,b,x,y,z,p,q,r,max : integer;
begin
clrscr;
a:=1;
max:=0;
p:=0;
q:=0;
r:=0;
writeln (' _____________________ ');
writeln (' PROGRAM ARRAY ');
writeln (' _____________________ ');
write
(' masukan banyaknya elemen array (integer): ');
readln (x);
writeln('');
while a<=x do
begin
write ('elemen ke-',':');
readln(array1[a]);
a:=a+1;
end;
clrscr;
writeln(' _______________________ ');
writeln(' PROGRAM ARRAY ');
writeln(' _______________________ ');
writeln ('
1.menampilkan nilai tertinggi pada array ');
writeln ('
2.menampilkan nilai diatas 85
');
writeln ('
3.menampilkan nilai dibawah 50
');
writeln ('
4.menampilkan nilai yang habis dibagi 5
');
writeln('');
write ('
masukkan pilihan: ');
readln(y);
case y of
1:
begin
clrscr;
writeln(' _______________________ ');
writeln(' PROGRAM ARRAY ');
writeln(' _______________________ ');
for b:=1 to x do
begin
if max >=array1[b]then max:=max else
max:=array1[b];
end;
writeln(' nilai tertinggi pada array adalah
',max);
writeln('');
write (' array=[ ');
for b:=1 to x do
begin
write (array1[b]);
if b <> x then write (',');
end;
writeln(' ] ');
writeln(' _________________________ ');
end;
2:
begin
clrscr;
writeln(' _______________________ ');
writeln(' PROGRAM ARRAY ');
writeln(' _______________________ ');
for b:=1 to x do
begin
if array1[b]> 85 then
begin
p:=p+1;
satu[p]:=array1[b];
end;
end;
if p <> 0 then
begin
writeln(' ada',p,'elemen array dengan nilai
diatas 85 ');
write (' yaitu= ');
for b:=1 to p do
begin
write('',satu[b],'');
if b <>p then write(',');
end;
writeln('');
end
else
begin
writeln(' tidak ada elemen array yang lebih
dari 85 ');
end;
writeln('');
write (' array=[ ');
for b:=1 to x do
begin
write (array1[b]);
if b <> x then write (',');
end;
writeln(' ] ');
writeln(' _________________________ ');
end;
3:
begin
clrscr;
writeln(' _______________________ ');
writeln(' PROGRAM ARRAY ');
writeln(' _______________________ ');
for b:=1 to x do
begin
if array1[b]< 50 then
begin
q:=q+1;
dua[q]:=array1[b];
end;
end;
if q <> 0 then
begin
writeln(' ada',q,'elemen array dengan nilai
dibawah 50 ');
write (' yaitu= ');
for b:=1 to p do
begin
write('',dua[b],'');
if b <>q then write(',');
end;
writeln('');
end
else
begin
writeln(' tidak ada elemen array yang lebih
kecil dari 50 ');
end;
writeln('');
write (' array=[ ');
for b:=1 to x do
begin
write (array1[b]);
if b <> x then write (',');
end;
writeln(' ] ');
writeln(' _________________________ ');
end;
4:
begin
clrscr;
writeln(' _______________________ ');
writeln(' PROGRAM ARRAY ');
writeln(' ______________________ _');
for b:=1 to x do
begin
z:=array1[b]mod 5;
if z = 0 then
begin
r:=r+1;
tiga[r]:=array1[b];
end;
end;
begin
writeln(' ada',r,'elemen array dengan nilai
yang habis dibagi 5 ');
write (' yaitu= ');
for b:=1 to r do
begin
write(tiga[b]);
if b <>r then write(',');
end;
writeln('');
end;
writeln('');
write(' array=[ ');
for b:=1 to x do
begin
write (array1[b]);
if b <> x then write (',');
end;
writeln(' ] ');
writeln(' _________________________ ');
end;
else writeln(' input salah.harus 1-4 ');
end;
readln
end.
Penjelasan :
Array atau larik merupakan jenis data
terstruktur yang terdiri dari sejumlah komponen yang mempunyai tiga data yang
sama. Adapun ketiga data tersebut yaitu :
1. Nama
array
2. Indeks
3. Tipe
data (sederhana) yang digunakan oleh array.
Tampilan Input :
Tampilan Output :
Tidak ada komentar:
Posting Komentar