Array 2: Array Yang Berdiri Sendiri

• Posted: 10/08/2009 03:28:00 pm
• |
• Author: Java[at]Saindra
• |
• Filed under: Pemrograman Terstruktur

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:

• Permalink
• RSS 2.0
• 
• 
• 
• 
• 
•