uke, baru kali ini saya post sebuah pemrograman dengan menggunakan bahasa pascal. eh, ngga juga ya? karena bahasa delphi kan juga pengembangan dari pascal.. hehe. (opo maksudte admin ki…).
saya membuat sebuah program sederhana, sebuah program yang dipake untuk menghitung nilai total atau nilai akhir mahasiswa dengan komposisi nilai akhir = (3*NilaiUAS+2*NilaiUTS+Nilaitgs)/6.
program ini menggunakan beberapa konsep dasar pemrograman, array, pengulangan, prosedur, dan fungsi.
berikut adalah screen shot nya…
n untuk source code, silakan dinikmati :
—————————–begin——————————
program manteb;
{$APPTYPE CONSOLE}
uses
SysUtils;
Type
DataMhs = record
NIM : string[9];
Nama : string[20];
NilaiUAS : real;
NilaiUTS : real;
Nilaitgs : real;
Nakhir : Real;
End;
Var
ArMhs : array[1..1000] of DataMhs;
I, x : Integer;
TotalN : real;
Procedure pembuka;
Begin
Writeln(‘+————————————-+’);
Writeln(‘| Program Penghitung Nilai |’);
Writeln(‘| Original coding by |’);
Writeln(‘| Fahrizal S.P. |’);
Writeln(‘| www.inilahjalanku.com |’);
Writeln(‘+————————————-+’);
End;
Continue reading »