MEMBUAT NILAI MAHASISWA DENGAN PASCAL

Kali ini saya akan sedikit sharing membuat program dengan menggunakan pascal yaitu:
MEMBUAT NILAI MAHASISWA DENGAN PASCAL

Berikut adalah syntax-nya :

uses wincrt;


type tb_mhs=record
nim:longint;
nama:string;
nilai,i,n:integer;
end;


var
mhs:array[1..10]of tb_mhs;
a,b,jum,ke:integer;
tuker:tb_mhs;
pilih:char;
posisi:array[1..10]of integer ;


begin
writeln(' FAJAR HUDY PRATAMA ');
writeln('     3105111375      ');
writeln('TEKNIK INFORMATIKA E');
writeln;


write('Masukkan Jumlah Mahasiswa : ');readln(jum);


repeat
ke:=ke+1;
writeln;
writeln('Masukkan Data Mahasiswa Ke ',ke,' :');
writeln('***********************************');
write('Masukkan NIM   : ');readln(mhs[ke].nim);
write('Masukkan NAMA  : ');readln(mhs[ke].nama);
write('Masukkan NILAI : ');readln(mhs[ke].nilai);
writeln('***********************************');
write('Ingin Tambah Mahasiswa ? Y/T: ');readln(pilih);
until ((pilih='t') or (pilih='T'));






clrscr;
writeln('DATA INPUT BELUM URUT');
writeln('===========================================================');
writeln('No  ||  Nim  ||  Nama  ||  Nilai ||');
writeln('===========================================================');
for a:=1 to ke do                                                    
writeln(a:4,'|',mhs[a].Nim:7,'|',mhs[a].Nama:8,'|',mhs[a].Nilai:8,'|');
writeln('===========================================================');
writeln;


for a:=1 to ke do
begin
    for b:=a+1 to ke do
    begin
    if mhs[a].nilai<mhs[b].nilai then
    begin
    tuker:=mhs[a];
    mhs[a]:= mhs[b];
    mhs[b]:= tuker;
    end;
    end;
end;




writeln;
writeln('RINCIAN DARI DATA YANG DI MASUKKAN');
writeln('===========================================================');
writeln('No  ||  Nim  ||  Nama  ||  Nilai ||');
for a:= 1 to ke do
writeln(a:4,'|',mhs[a].Nim:7,'|',mhs[a].Nama:8,'|',mhs[a].Nilai:8,'|');
writeln('===========================================================');
writeln;


end.

Nah  berikut Ini Adalah Tampilan Programnya :

Lebih Lengkap Klik disini