Contoh Program kecil dalam Pascal

Contoh Program kecil dalam Pascal | Pada kali ini ane share tentang contoh program pascal yang bisa agan coba di windows pascal, sebelumnya ini, anae pakai Turbo pascal yang 1.5 ya,..meskipun masih jadul,hehehe
Oke kita langsung menuju TKP, Pada tahap pertama, cara menghitung nilai rata-rata dari beberapa nilai yang telah kita punya. Misalnya 5  nilai yang kita inputkan atau masukkan.



Program memhitung_rata_rata ;
uses wincrt;
const pembagi =5 ;
var
nilai1,nilai2,nilai3,nilai4,nilai5,hasil :real;


begin
write ('nilai-1 ='); readln (nilai1);
write ('nilai-2 ='); readln (nilia2);
write ('nilai-3 ='); readln (nilai3);
write ('nilai-4 ='); readln (nilai4);
write ('nilai-5 ='); readln (nilai5);
writeln ('pembagi=5');

hasil := (nilai1+nilai2+nilai3+nilai4+nilai5) / pembagi;

write (hasil)
end.



Pada tahap kedua ,ini ada contoh program mengenai menghitung jarak tempuh dalam  satuan detik ke jam, menit, dan detik. kita tetapkan bahwa 1jam = 60 menit = 3600 detik


program menghitung_jarak_tempuh;
uses wincrt;


uses wincrt;

var
a,jam,m,detik :longint;

begin
write ('masukkan jarak tempuh anda dalam satuan detik : '); read (a); writeln ('detik');

write ('jarak tempuh yang anda lakukan dalam satuan jam, menit dan detik adalah,',
 a div 3600,'jam','+',
a mod 3600, 'menit','+',
a div 3600 mod 60,'detik')


Pada tahap ketiga, contoh lagi  mengenai cara menghitung Nilai akhir dengan memasukkan nilai Tugas, UTS, dan  UAS, oke, langsung saja caranya :
program Mencari_Nilai_Akhir;
uses wincrt;

var

nim,nama         : string;
tugas,UTS,UAS,NA    : integer;

begin

write ('NIM   :') ; readln (nim);
write ('Nama  :') ; readln (nama);
write ('Tugas :') ; readln (tugas);
write ('UTS   :') ; readln (UTS);
write ('UAS   :') ; readln (UAS);

NA := ((tugas*20 div 100)+(UTS*30 div 100)+(UAS*50 div 100));

 write  ('Nilai akhir mahasiswa dengan NIM'); writeln (NIM) ; write (', atas nama ') ;writeln (nama); write ('adalah');

 write (NA);


end.

oke ane rasa cukup sekian dulu, mungkin tahap-tahap selanjutnya akan ane posting lagi , bila ada pertanyaan, atau comment, silahkan tulis  di bawah posting ini.