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
