PASCAL SOURCE :

program array2;

uses wincrt;

var
nim: array [1..20] of string[10];
nama: array [1..20] of string[25];
nilai: array [1..20] of real;
umur: array [1..20] of byte;
banyak, i: integer;

begin

write('Jumlah data yang akan dimasukkan: ');readln(banyak);
writeln('');
for i:=1 to banyak do
begin
write('NIM :');readln(nim[i]);
write('Nama :');readln(nama[i]);
write('Nilai :');readln(nilai[i]);
write('Umur :');readln(umur[i]);
writeln('');
end;

writeln('NIM NAMA NILAI UMUR');
for i:=1 to banyak do
writeln(nim[i]:1, nama[i]:8, nilai[i]:7:2,' ',umur[i]:4);

end.


OUTPUT:


No Comment.

Add Your Comment

Your Comment