uses wincrt;
var
a,b:integer;
nilai:array[1..10]of integer;
no,nama,nim:array[1..10]of string;
begin
writeln;
write('Berapa data yang diinginkan: ');readln(a);
begin
for b:=1 to a do
begin
write('No.');readln(no[b]);
write('Nama: ');readln(nama[b]);
write('NIM: ');readln(nim[b]);
write('Nilai: ');readln(nilai[b]);
end;
end;
writeln;
gotoxy(25,15);writeln('DAFTAR NILAI MAHASISWA');
gotoxy(29,16);writeln('SEMESTER III');
writeln('---------------------------------');
writeln('||No|| ||Nama|| ||NIM|| ||Nilai||');
writeln('---------------------------------');
for b:=1 to a do
begin
write(' ',no[b],' ');
write(' ',nama[b],' ');
write(' ',nim[b],' ');
write(' ',nilai[b]);
writeln;
end;
end.
0 komentar:
Posting Komentar