Tutorial Pascal : Program pascal sederhana menghitung nilai akhir murid

Selamat siang semua.Kembali lagi nih dengan saya, kali ini saya akan membagikan sebuah program sederhana pascal yang telah saya buat.Program ini sebenarnya berawal dari ujian praktek, waktu itu saya dan teman-teman di suruh guru untuk membuat program sederhana pascal.Kemudian saya bisa membuat program sederhana ini.Semoga program yang saya buat ini bisa berguna untuk kalian.

Yuk, langsung ketik saja script program pascalnya di bawah ini.

var nama:string;
nh,nm,nt,nk, nakhir:integer;
Begin
write('Masukan nama anda = ');
readln(nama);
write('Masukan nilai harian = ');
readln(nh);
write('Masukan nilai mid = ');
readln(nm);
write('Masukan nilai tugas = ');
readln(nt);
write('Masukan nilai kehadiran = ');
readln(nk);
nakhir := nh+nm+nt+nk;
writeln('Hasilnya adalah = ', nakhir div 4);
if nakhir >=70 then
write('Selamat anda lulus ',nama)
else if nakhir >=10 then
write('Mohon maaf anda belum lulus ',nama)
else
('Anda belum lulus jangan nangis ya ',nama);
readln;
End.

Untuk kode di atas, saya tidak akan menjelaskannya, karena pada artikel ini saya hanya membagikan program sederhana pascal yang telah saya buat (hanya sekedar berbagi).

Untuk belajar pascal lebih dalam, saya akan membuat tutorial pascal pada lain kesempatan.Belum saat ini, karena masih fokus pada tutorial pemogramman web.

Dan mari kita lihat hasilnya setelah di Run.

Oke, sampai disini dulu ya nanti kita lanjut lagi.
Mohon maaf apabila ada kata-kata yang tidak berkenan di hadapan anda.