Pada kesempatan kali ini saya ingin memposting suatu artikel temtang program pascal yang berjudul "Program Data Nilai Mhasiswa" hanya untuk memenuhi tugas praktikum saya :D
Okke dengan berbagai usaha dan terburu-burunya saya di pagi hari yang super dingin (brrrr) dalam pengerjaan program ini di karenakan kemarin lupa, dan tadi malam ketiduran -_- trus baru sempat pagi ini dah lalu nanti siang di kumpul.... Ahahaa... tapi sebagai seorang mahasiswa tidak ada kata menyerah..wkkwkwkw... Fighting Spirit !!! seperti kata Mas Tukul Arwana :D...
Sungguh rajin ya saya ini.. :D Jangan di tiru ya kawan..!!
dan Alakadarnya seperti dibawah inilah hasil Codingan program yang berhasil saya buat...
Silahkan di Simak kawan
Source Code :
program
Data_Mahasiswa;
uses
crt;
type
mhs = record
nm,nim:string[11];
Nk : integer;
Nh : String;
end;
var
dtmhs :array[1..50] of mhs;
n,i,b,pil: integer;
procedure
input;
begin
clrscr;
writeln('Input Data Mahasiswa');
writeln;
Write('Input Jumlah Data : ');readln(n);
for i:=1 to n do
begin
writeln;
write('Nama : ');readln(dtmhs[i].nm);
write('NIM : ');readln(dtmhs[i].nim);
write('Nilai : ');readln(dtmhs[i].Nk);
if dtmhs[i].Nk>=85 then
dtmhs[i].Nh:='A'
else if dtmhs[i].Nk>=75 then
dtmhs[i].Nh:='B+'
else if dtmhs[i].Nk>=65 then
dtmhs[i].Nh:='B'
else if dtmhs[i].Nk>=55 then
dtmhs[i].Nh:='C+'
else if dtmhs[i].Nk>=45 then
dtmhs[i].Nh:='C'
else if dtmhs[i].Nk>=35 then
dtmhs[i].Nh:='D+'
else if dtmhs[i].Nk>=25 then
dtmhs[i].Nh:='D'
else dtmhs[i].Nh:='E';
end;
end;
procedure
tampil;
begin
clrscr;
writeln;
writeln('--------------------------------------------------------------------');
writeln('| No | Nama Mahasiswa |
NIM | Nilai Angka
| Nilai Huruf |');
writeln('--------------------------------------------------------------------');
for i:=1 to n do
begin
writeln('|
| | | | |');
gotoxy(3,i+4); writeln(i);
gotoxy(9,i+4); writeln(dtmhs[i].nm);
gotoxy(27,i+4);writeln(dtmhs[i].nim);
gotoxy(45,i+4);writeln(dtmhs[i].Nk);
gotoxy(61,i+4);writeln(dtmhs[i].Nh);
end;
writeln('--------------------------------------------------------------------');
readln;
end;
BEGIN
repeat
clrscr;
writeln(' Menu Utama ');
writeln;
writeln('1 Input Data Mahasiswa');
writeln('2 Tampilkan Data');
writeln('3 Exit Program');
writeln;
write('Pilihan : ');readln(pil);
case pil of
1 : input;
2 : tampil;
3 : ;
end;
until pil=3;
END.
Screen Shoot Proogram:
Gambar 1 : Tampilan Program Saat pertama di jalankan
Gambar 2 : Tampilan Setelah memilih menu pilihan 1 Input Data Mahasiswa
Gambar 3 : Tampilan Setelah Penginputan Beberapa Data
Gambar 4 : Tampilan setelah memilih menu 2 Tampilkan Data
Okke sekian arktikel mengenai program pascal pagi pagi hari ini.. mohon maaf bila banyak kata2 yang ngawur dalam penulisan artikel ini, dan bila ada kritik dan saran nya demi kemajuan program ini kedepannya dapat teman2 sampaikan pada komentar dibawah ini ;D
Posting Komentar