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