Cara Membuat Program Struktur Percabangan Array dengan Menggunakan Pascal

Postingan selanjutnya adalah,membuat program struktur percabangan array dengan menggunakan Pascal. digunakan untuk mengkonversi nilai yang diinput menjadi huruf dan menentukan apakah orang tersebut lulus atau tidak.
Source : Cody Coding

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.


* * *

Maka Output Tampilannya adalah Sebagai Berikut :

tampilan program saat input data

tampilan program saat menampilkan data