Program Pascal

Membuat program penghitung nilai akhir dengan menggunakan pascal.

Perhitungan nilai akhir di Universitas X adalah 70% dari nilai UTS dan 30% dari nilai UAS.

Untuk nilai indeksnya adalah sebagai berikut:
Nilai Akhir >= 80 maka indeksnya A
Nilai Akhir >= 70 maka indeksnya B
Nilai Akhir >= 50 maka indeksnya C
Nilai Akhir >= 30 maka indeksnya D
Nilai Akhir < 30 maka indeksnya E

Dari soal di atas, kita dapat membuat programnya di pascal,

Langkah pertama, buka Turbo Pascal 7/Free Pascal.

Kedua ketikkan listing program berikut:

Program NilaiAkhir;
uses crt;
var
N, NPM : string;
NA, NUTS, NUAS : real;
NI : char;

begin
clrscr;
write ('Nama Anda : '); readln (N);
write ('NPM Anda : '); readln (NPM);
write ('Masukkan nilai UTS: '); readln (NUTS);
write ('Masukkan nilai UAS: '); readln (NUAS);

NA := (0.3 * NUAS) + (0.7 * NUTS);

if (NA >= 80) then begin

NI := 'A' end
else if (NA >= 70) then begin
NI := 'B' end
else if (NA >= 50) then begin
NI := 'C' end
else if (NA >= 30) then begin
NI := 'D' end
else begin
NI := 'E'
end;

writeln;
writeln('============================');
writeln('Nama : ', N);
writeln('NPM : ', NPM);
writeln('Nilai Akhir : ', NA:0:2);
writeln('Nilai Indeks : ', NI);
readln;

end.


Penjelasannya:

program NilaiAkhir;
uses crt;
var
N, NPM : string;
NA, NUTS, NUAS : real;
NI : char;
Listing di atas adalah pendefinisan nama program yaitu Nilai Akhir.
Variabel yang digunakan seperti N, NPM yang bertipe string, NA, NUTS, NUAS yang bertipe real, dan NI yang bertipe char.


begin
clrscr;
write ('Nama Anda : '); readln (N);
write ('NPM Anda : '); readln (NPM);
write ('Masukkan nilai UTS: '); readln (NUTS);
write ('Masukkan nilai UAS: '); readln (NUAS);
Listing di atas berfungsi untuk menyimpan nilai yang diinput ke dalam indeks variabel masing-masing.


NA := (0.3 * NUAS) + (0.7 * NUTS);
Listing ini adalah rumus untuk menghitung nilai akhir, yaitu 30% dikalikan nilai UAS kemudian ditambahkan dengan 70% dikalikan nilai UTS


if (NA >= 80) then begin
NI := 'A' end
else if (NA >= 70) then begin
NI := 'B' end
else if (NA >= 50) then begin
NI := 'C' end
else if (NA >= 30) then begin
NI := 'D' end
else begin
NI := 'E'
end;
Listing di atas berfungsi sebagai percabangan pada program ini,
Jika nilai yg di input lebih dari sama dengan 80 maka nilai indeksnya A.
Jika nilai yg di input lebih dari sama dengan 70 maka nilai indeksnya B.
Jika nilai yg di input lebih dari sama dengan 50 maka nilai indeksnya C.
Jika nilai yg di input lebih dari sama dengan 30 maka nilai indeksnya D.
Selain dari itu nilai indeksnya E.


writeln;
writeln('============================');
writeln('Nama : ', N);
writeln('NPM : ', NPM);
writeln('Nilai Akhir : ', NA:0:2);
writeln('Nilai Indeks : ', NI);
readln;
end.
Listing di atas berfungsi untuk menampilkan output dari program nilai akhir ini.
Setelah listing codenya selesai diketik di pascal, kita dapat men-Run program tersebut dengan mengklik Run>Run, atau dengan tombol shortcut ctrl+F9.