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

About these ads

One thought on “program percabangan dan array pascal

    nightclub reviews said:
    November 21, 2012 pukul 1:26 pm

    As usual you have delivered with a few really exciting issues and I’ve already added in this specific webpage to one I will observe . ! . !

Tinggalkan Balasan

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

WordPress.com Logo

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

Twitter picture

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

Facebook photo

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

Google+ photo

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

Connecting to %s