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.
Blogger Templates, Free Samples And CNA Certification.
Blogger Templates brought to you by AllBlogTools.com