Program Cek kelulusan dalam bahasa Pascal

Program Cek kelulusan dalam bahasa Pascal

program cek_kelulusan_siswa;

uses crt;

var

nama : string[25];

kelas : string[5];

no_absen : string[3];

n_tugas : byte;

n_u_hari : byte;

n_u_umum : byte;

rerata : real;

lulus : boolean;

predikat : string[20];

begin

clrscr;

writeln

(‘======================================

==============’);

writeln(‘| Program Mengecek Kelulusan Siswa

|’);

writeln

(‘======================================

==============’);

writeln;

writeln(‘Input Data Siswa’);

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

write(‘Nama : ‘); readln(nama);

write(‘Kelas : ‘); readln(kelas);

write(‘No Absen : ‘); readln(no_absen);

write(‘Nilai Tugas : ‘); readln(n_tugas);

write(‘Nilai Ulangan Harian : ‘); readln

(n_u_hari);

write(‘Nilai Ulangan Umum : ‘); readln

(n_u_umum);

rerata:=(n_tugas + 2 * n_u_hari + 3 *

n_u_umum)/6;

if rerata >=70 then lulus:=true

else lulus:= false;

clrscr;

writeln

(‘======================================

==============’);

writeln(‘| Program Mengecek Kelulusan Siswa

|’);

writeln

(‘======================================

==============’);

writeln;

writeln(‘ Siswa dengan’);

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

writeln(‘Nama : ‘,nama);

writeln(‘Kelas : ‘,kelas);

writeln(‘No Absen : ‘,no_absen);

writeln(‘Nilai Tugas : ‘,n_tugas);

writeln(‘Nilai Ulangan Harian : ‘,n_u_hari);

writeln(‘Nilai Ulangan Umum : ‘,n_u_umum);

writeln(‘Rata – rata : ‘,rerata:0:2);

if lulus then

begin

if rerata < 80 then predikat:=’memuaskan’

else if rerata <90 predikat:="</span" then="">’sangat

memuaskan’

else predikat:=’dengan pujian’;

writeln(‘Dinyatakan Lulus dengan ‘,predikat);

end

else

writeln(‘Dinyatakan Tidak Lulus’);

readln;

end.

Penggunaan Record pada Turbo Pascal

uses crt;

type nilai = record

hari,tugas,umum,na : real;

end;

type mapel = record

kimia,basindo : nilai;

end;

type siswa = record

nama : string[25];

nis : string[3];

mp : mapel;

end;

var

i,n,a : byte;

student : array [1..100] of siswa;

stop : boolean;

b : string[4];

begin

stop := false;

Repeat

clrscr;

write(‘Banyak siswa : ‘); readln(n);

clrscr;

writeln

(‘======================================

=================================’);

writeln(‘NIS Nama Siswa Mata Pelajaran

N.Hr N.Tgs N.Umum N.Akhir’);

writeln

(‘———————————————————————–’);

a:=4;

for i := 1 to n do

begin

with student[i] do

begin

readln(nis);

gotoxy(6,a);

readln(nama);

with mp do

begin

gotoxy(26,a);

writeln(‘Bahasa Indonesia’);

with basindo do

begin

gotoxy(44,a);

readln(hari);

gotoxy(50,a);

readln(tugas);

gotoxy(57,a);

readln(umum);

na:=(2*hari+tugas+3*umum)/6;

gotoxy(65,a);

writeln(na:3:2);

end;