Program array pascal

Posted on Updated on


Minggu ke                  : 4

Nama Program          : program array

Fungsi program         :

  • 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-‘ ,a, ‘: ‘ ) ;

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 q 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 ;

if r <> 0 then

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.

Output program:

tampilan awal program
tampilan awal program
input elemen array
input elemen array
pilih menu
pilih menu
jika input = 1 : menampilkan nilai tertinggi array
jika input = 1 : menampilkan nilai tertinggi array
jika input = 2: menampilkan nilai diatas 85
jika input = 2: menampilkan nilai diatas 85
tampilan jika input = 3: menampilkan nilai dibawah 50
tampilan jika input = 3: menampilkan nilai dibawah 50
jika input = 4: menampilkan leemen array yg habis dibagi 5
jika input = 4: menampilkan leemen array yg habis dibagi 5
jika input selain 1,2,3, dan 4
jika input selain 1,2,3, dan 4

 



Web development jakarta

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s