program percabangan dan array pascal
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: