TUGAS MANDIRI 2

                                          Tugas pemrograman Dasar_Lisa Febriandani_3105111204
uses wincrt;
type mhs=record
nim:string[8];
nama:string[20];
IP:real;
end;
Var
mahasiswa:array[1..10] of mhs;
i,jum:integer;
ulang:char;
begin
writeln('MENGINPUTKAN INDEX PRESTASI MAHASISWA');
writeln('-------------------------------------');
writeln;
write('masukkan jumlah data : ');readln(jum);
for i:=1 to jum do
with mahasiswa[i] do
begin
ulang:='t';
repeat
begin
write('Nim        : ');readln(nim);
write('Nama       : ');readln(nama);
write('IP         : ');readln(IP);
writeln;write('mau masukkan data lagi(y/t)??');readln(ulang);writeln;
end;
until ulang='t';




readln;
clrscr;
writeln('DAFTAR INDEX PRESTASI MAHASISWA');
writeln('-------------------------------');
writeln;
writeln('no       Nim           Nama        IP');
writeln('------------------------------------------');
for i:=1 to jum do
with mahasiswa[i] do
writeln(i:2,nim[i]:8,nama[i]:15,IP:10:2);
writeln('------------------------------------------');
end;
end.