Algoritma Pascal


Teruntuk para dosen.. J
mungkin untuk melihat atau menghitung Kalkulasi Nilai mahasiswa banyak yang menggunakan Ms.Excel. Namun, selain dengan menggunakan office tersebut ada salah satu program yang saya buat dengan menggunakan Pascal (salah satu bahasa pemrograman) agar memudahkan para dosen dalam mengkalkulasikan nilai mahasiswanya. Berawal dari tugas matakuliah saya, sehingga program ini bisa saya share ke pembaca sekalian.

Ini adalah jalannya program yang saya buat:

Gambar1. Input Nama dan Nilai.

Gambar2. Output nya.

Sebelum anda menggunakan program tersebut, pastikan program Free Pascal IDE ini sudah terinstal di komputer anda.

Sehingga nantinya program tersebut bisa berjalan…anda bisa searching saja program tersebut di Om google untuk mendownloadnya.

Dan ini adalah algoritmanya :

program melihatnilai;

uses crt;

var Na:string;

Nb:real;

Nc:real;

lagi: char;

i:real;

Nilai_akhir:real;

procedure tulis(kolom,baris:integer;S:string);

begin

gotoxy(kolom,baris);write(S);

end;

begin

lagi:=’y’;

while (lagi=’y’) or (lagi=’Y’) do

Begin

clrscr;

writeln(‘Program Melihat Nilai’);

writeln;

writeln(‘Dibuat oleh :’);

writeln(‘*************************’);

writeln(‘Nama : IMAM HARDIAN’);

writeln(‘NIM : G1D 010 001’);

writeln(‘Jurusan : Math’);

writeln(‘*************************’);

writeln;

write(‘Nama Mahasiswa : ‘); readln(Na);

write(‘Nilai Absen : ‘); readln(Nb);

write(‘Nilai Tugas : ‘); readln(Nc);

write(‘Nilai Ujian : ‘); readln(i);

clrscr;

writeln;

writeln(‘ Mahasiswa yang bernama : ‘,Na);

write(‘ Nilai akhir = ‘);

write(30/100*Nb+30/100*Nc+40/100*i:2:2);

Nilai_akhir:=30/100*Nb+30/100*Nc+40/100*i;

if Nilai_akhir>=80 then

begin

tulis(2,4,’Grade : A’)

end

else

if Nilai_akhir>=72 then

tulis(2,4,’Grade : B+’)

else

if Nilai_akhir>=65 then

tulis(2,4,’Grade : B’)

else

if Nilai_akhir>=60 then

tulis(2,4,’Grade : C+’)

else

if Nilai_akhir>=55 then

tulis(2,4,’Grade : C’)

else

if Nilai_akhir>=50 then

tulis(2,4,’Grade : D+’)

else

if Nilai_akhir>=45 then

tulis(2,4,’Grade : D’)

else

if Nilai_akhir<45 then

tulis(2,4,’Grade : E’);

readln;

writeln;

writeln(‘Mau coba lagi ? ‘);

write(‘klik [y or t] : ‘);

readln(lagi);

end;

End.

Semoga bisa bermanfaat. J

  1. yaiyalah,,,, org yg males nmax lok gk mw berpikir lg….

  2. hati2 sm tanda2 apostrup (koma diatas)
    harus diedit ulang pas dipaste ke pascal…

  1. No trackbacks yet.

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: