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
Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com
atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :