Array

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

Iklan

program percabangan dan array pascal

Posted on Updated on


selanjutnya, program ini menggunakan struktur percabangan pada pascal dan array. digunakan untuk mengkonversi nilai yang diinput menjadi huruf dan menentukan apakah orang tersebut lulus atau tidak.

Minggu ke                  : 3

Nama program          :Program Percabangan dan Array

Fungsi program         :

  • Menggunakan statement percabangan pada pascal.
  • Menggunakan array pada pascal dan menampilkan elemen array.

Listing program        :

uses crt ;

var

a,b,c,d : Integer ;

nama    : array [1..5] of string ;

nilai   : array [1..5] of integer ;

predikat: array [1..5] of string ;

ket     : array [1..5] of string ;

begin

clrscr ;

for a := 1 to 5 do

begin

write ( ‘ nama mahasiswa : ‘ ) ;

readln ( nama[a] ) ;

write ( ‘ nilai          : ‘ ) ;

readln ( nilai[a] ) ;

if nilai[a] >= 90 then predikat[a] := ‘A’ else

if nilai[a] >= 75 then predikat[a] := ‘B’ else

if nilai[a] >= 50 then predikat[a] := ‘C’ else

if nilai[a] >= 40 then predikat[a] := ‘D’ else

predikat[a] := ‘E’ ;

if nilai[a] >= 90 then ket[a] := ‘lulus’ else

if nilai[a] >= 75 then ket[a] := ‘lulus’ else

if nilai[a] >= 50 then ket[a] := ‘lulus’ else

if nilai[a] >= 40 then ket[a] := ‘perbaikan’ else

ket[a] := ‘tidak lulus’ ;

writeln (”) ;

end ;

clrscr ;

writeln (”) ;

writeln ( ‘              DAFTAR NILAI SEMESTER 1            ‘ ) ;

writeln ( ‘————————————————-‘ ) ;

writeln ( ‘      nama        nilai    predikat      ket     ‘ ) ;

writeln ( ‘————————————————-‘ ) ;

for b := 1 to 5 do

writeln ( ‘     ‘+nama[b]+’        ‘,nilai[b],’        ‘+predikat[b]+’         ‘+ket[b]) ;

writeln ( ‘————————————————-‘ ) ;

readln

end.

Output program:

tampilan program saat input data
tampilan program saat input data
tampilan program saat menampilkan data
tampilan program saat menampilkan data

 



Web development jakarta

Program latihan array pascal 1

Posted on Updated on


Fungsi program         :

  • Menggunakan statement percabangan pada pascal.
  • Menggunakan array pada pascal dan menampilkan elemen array.

Listing program        :

uses crt ;

var

a,b,c,d : Integer ;

nama    : array [1..5] of string ;

nilai   : array [1..5] of integer ;

predikat: array [1..5] of string ;

ket     : array [1..5] of string ;

begin

clrscr ;

for a := 1 to 5 do

begin

write ( ‘ nama mahasiswa : ‘ ) ;

readln ( nama[a] ) ;

write ( ‘ nilai          : ‘ ) ;

readln ( nilai[a] ) ;

if nilai[a] >= 90 then predikat[a] := ‘A’ else

if nilai[a] >= 75 then predikat[a] := ‘B’ else

if nilai[a] >= 50 then predikat[a] := ‘C’ else

if nilai[a] >= 40 then predikat[a] := ‘D’ else

predikat[a] := ‘E’ ;

if nilai[a] >= 90 then ket[a] := ‘lulus’ else

if nilai[a] >= 75 then ket[a] := ‘lulus’ else

if nilai[a] >= 50 then ket[a] := ‘lulus’ else

if nilai[a] >= 40 then ket[a] := ‘perbaikan’ else

ket[a] := ‘tidak lulus’ ;

writeln (”) ;

end ;

clrscr ;

writeln (”) ;

writeln ( ‘              DAFTAR NILAI SEMESTER 1            ‘ ) ;

writeln ( ‘————————————————-‘ ) ;

writeln ( ‘      nama        nilai    predikat      ket     ‘ ) ;

writeln ( ‘————————————————-‘ ) ;

for b := 1 to 5 do

writeln ( ‘     ‘+nama[b]+’        ‘,nilai[b],’        ‘+predikat[b]+’         ‘+ket[b]) ;

writeln ( ‘————————————————-‘ ) ;

readln

end.

Output program :




Web development jakarta

Program deret fibbonacci dengan Pascal

Posted on Updated on


pada artikel sebelumnya saya pernah membahas tentang program untuk menampilkan deret fibbonacci dengan menggunakan bahasa Python,, nah pada artikel kali ini saya kembali membuat program untuk menampilkan deret fibbonacci dengan menggunakan pascal. langsung aja kita liat listingnya:

uses crt;

var

x,y,z:integer;

fibo:array[1..100]of integer;

begin

clrscr;

write(‘masukan banyak deret: ‘);

readln(x);

clrscr;

writeln(‘deret fibonacci: ‘);

for y:=1 to x do

begin

if y<3 then

begin

fibo[y]:=1;

end

else

begin

fibo[y]:=fibo[y-1]+fibo[y-2];

end;

write(fibo[y],’  ‘);

end;

readln();

end.

output :

untuk perbandingan, anda dapat membandingkan program yang saya buat dengan pascal ini dengan program yang saya buat dengan menggunakan Python..silakan klik disini



Web development jakarta

semoga bermanfaat,terimakasih^_^