Pada Pertemuan ke-2 Tugas Pemrograman Pascal adalah Sebagai Berikut:

Nilai Raport
Siswa SMA "TARUNA"
BLORA

Masukkan Nilai Harian :
Masukkan Nilai UTS :
Masukkan Nilai Semester :
Jadi Rata-rata nilai Raport :
Nilai Huruf di raport adalah :

Temen" tinggal masukkan kode di bawah ini ke dalam PASCAL:

Uses crt;
Var
Nilai:char;
a,t,p,L:real;

begin
clrscr;
writeln(‘Nilai Raport’);
writeln(‘SISWA SMA TARUNA’);
writeln(‘BLORA');
readln;

write(‘masukan nilai harian:’);readln(a);
write(‘masukan nilai UTS:’);readln(t);
write(‘masukan nilai Semester:’);readln(p);
L:=(a+t+p)/3;
if L>=90 then
Begin
Nilai:=(‘A’); end;
If L<=89 then
Begin
Nilai:=(‘B’); end;
If L<=69 then
Begin
Nilai:=(‘C’); end;
If L<=49 then
Begin
Nilai:=(‘D’); end;
If L<=29 then
Begin
Nilai:=(‘E’); end;

Writeln (‘Jadi nilai rata-rata nilai raport:’,L:5:2,’’);
Writeln (‘Nilai huruf di Raport adalah:’,Nilai:5,’’);
Readln;
End.

Trus jalanin dech --> Run pada Turbo Pascal yang kalian punya.
Jika ada kesalahan tolong dikonfirmasi,.. hehehehe :D
Semoga bermanfaat