Contoh Program Percabangan If dan Perulangan For pada Pascal - Pada kali ini kita akan membahas tentang percabangan if dan perulangan for pada program Turbo Pascal. Disini saya sudah membuat sebuah Program untuk menghitung nilai mahasiswa dengan menggunakan percabangan If dan perulangan for.
Anda dapat mengubah sedikit syntax nya dan membuat pemahaman anda sendiri agar mudah ketika mempresentasekannya. Untuk syntaxnya bisa anda lihat dibawah ini.
Program ini sangat mudah dimengerti, karena saya menggunakan logika yang tidak sulit dalam pembuatannya. Mungkin bagi anda yang sedang kuliah dan mendapat tugas dari dosen pengajar untuk membuat program menghitung nilai mahasiswa dengan turbo Pascal, program saya ini dapat anda jadikan sebagai acuannya.
Anda dapat mengubah sedikit syntax nya dan membuat pemahaman anda sendiri agar mudah ketika mempresentasekannya. Untuk syntaxnya bisa anda lihat dibawah ini.
uses crt;
type nilai = record
nim : string;
nama : string;
tugas, quis, uts, uas, na : real;
nh : string[2];
end;
{--------function menghitung N.Akhir---------}
function hitungna(tugas1, quis1, uts1, uas1 :real) : real;
begin
hitungna := (0.10*tugas1+0.20*quis1+0.30*uts1+0.40*uas1);
end;
{-------Function menentukan Nilai Huruf--------}
function nilaihuruf(nakhir : real) : char;
begin
if nakhir <50.0 then nilaihuruf :='E'
else
if nakhir <60.0 then nilaihuruf :='D'
else
if nakhir <70.0 then nilaihuruf :='C'
else
if nakhir <80.0 then nilaihuruf :='B'
else
nilaihuruf :='A';
end;{-----Program Utama-----}
var urutan : array[1..50] of nilai;
var i, n : integer;
var nakhir : real;
var nhuruf : char;
var tugas2, quis2, uts2, uas2 : real;
begin
clrscr;
writeln('Program Pengolahan Nilai Ujian');
writeln;
writeln('==========================');
writeln;
write('Jumlah Peserta Ujian :'); readln(n);
for i :=1 to n do
begin
writeln;
write(i,')Nim :'); readln(urutan[i].nim);
write('Nama :'); readln(urutan[i].nama);
write('Tugas :'); readln(urutan[i].tugas);
write('Quis :'); readln(urutan[i].quis);
write('UTS :'); readln(urutan[i].uts);
write('UAS :'); readln(urutan[i].uas);
tugas2 := urutan[i].tugas;
quis2 := urutan[i].quis;
uts2 := urutan[i].uts;
uas2 := urutan[i].uas;
nakhir := hitungna(tugas2, quis2, uts2, uas2);
urutan[i].na :=nakhir;
writeln('Nilai Akhir :', urutan[i].na :0:2);
urutan[i].nh :=nilaihuruf(nakhir);
writeln('Nilai Huruf :', urutan[i].nh);
writeln;
end;
{------Menampilkan Data------}
writeln;
writeln('Daftar Perolehan Nilai Akhir :');
writeln('--------------------------------------------------------');
writeln('No Nim Nama Tugas Quis UTS UAS NA NH');
writeln('---------------------------------------------------------');
writeln;
for i:=1 to n do
begin
write(i:2);
write(urutan[i].nim:15);
write(urutan[i].nama:15);
write(urutan[i].tugas:8:2);
write(urutan[i].quis:8:2);
write(urutan[i].na:8:2);
write(urutan[i].nh:5);
writeln;
end;
readln;
end.
Anda tinggal mengcopy saja syntax program diatas kedalam Turbo Pascal kemudian jalankan. Maka Hasilnya akan tampak seperti dibawah ini.
Mudah bukan? Agar bisa lebih paham, silahkan pelajarin syntaxnya baris-perbaris, saya sudah menggabungkan Percabangan If, Perulangan For dan juga Fungsi Record kedalam Program diatas. Dan saya juga menggunakan konsep dasar dalam pembuatannya.
Semoga Contoh Program Percabangan If dan Perulangan For pada Pascal diatas dapat membantu anda dalam menyelesaikan Kendala anda dalam belajar Turbo Pascal ya?
Mudah bukan? Agar bisa lebih paham, silahkan pelajarin syntaxnya baris-perbaris, saya sudah menggabungkan Percabangan If, Perulangan For dan juga Fungsi Record kedalam Program diatas. Dan saya juga menggunakan konsep dasar dalam pembuatannya.
Semoga Contoh Program Percabangan If dan Perulangan For pada Pascal diatas dapat membantu anda dalam menyelesaikan Kendala anda dalam belajar Turbo Pascal ya?