Membuat Daftar Nilai Siswa dengan Turbo Pascal

Pada kesempatan kali ini, kita akan belar bagaimana cara membuat daftar nilai siswa dengan Turbo Pascal. Langsung saja berikut ini adalah contoh program ketika dijalankan.

untuk membuat program Daftar Nilai Siswa seperti yang dicontohkan pada gambar diatas, cara nya gampang silahkan anda buka program turbo pascal anda. kemudian tulis script dibawah ini kedalam turbo pacal.

uses crt;
var Nama1:string;
Nilai1:integer;
Nama2:string;
Nilai2:integer;
Nama3:string;
Nilai3:integer;
Nama4:string;
Nilai4:integer;
Nama5:string;
Nilai5:integer;
nilairata2:real;

begin
clrscr;
writeln ('Daftar Nilai Siswa Yayasan rizqiSah');
Writeln
Write('Nama1 :');readln (Nama1);
write('Nilai1 :');readln (Nilai1);
Writeln
Write('Nama2 :');readln (Nama2);
write('Nilai2 :');readln (Nilai2);
Writeln
Write('Nama3 :');readln (Nama3);
write('Nilai3 :');readln (Nilai3);
Writeln
Write('Nama4 :');readln (Nama4);
write('Nilai4 :');readln (Nilai4);
writeln
write('Nama5 :');readln (Nama5);
write('Nilai5 :');readln (Nilai5);
writeln;
writeln;
nilairata2:= (Nilai1+Nilai2+Nilai3+Nilai4+Nilai5)/5;

writeln('==============================');
writeln('No Nama Nilai');
writeln('==============================');
writeln('1 ',Nama1,' ',Nilai1);
writeln('2 ',Nama2,' ',Nilai2);
writeln('3 ',Nama3,' ',Nilai3);
writeln('4 ',Nama4,' ',Nilai4);
writeln('5 ',Nama5,' ',Nilai5);
writeln('==============================');
writeln('Nilai Rata - Rata' , nilairata2:2:2);
writeln('==============================');

readln;
end.

Jika sudah anda tulis script ini silahkan anda jalankan, dan jika ada kesalahan silahkan berikan komentar. Dan berikut ini program daftar nilai siswa yang telah jadi silahkan anda download di sini.
Semoga tulisan saya kali ini dapat membantu. Amin :)