Contoh perulangan (ARRAY)

uses crt;

const

N=3;

type

hasil=array[1..N] of integer;

var

hay:hasil;

nim,nama,kls:string;

i,jum:integer;

jawab:char;

label ulang;

begin

ulang:

clrscr;

writeln('                                                Nama     : Gufron Arafat');

writeln('                                                NIM      : 12012688');

writeln('                                                Kelas    : H');

writeln('                                                Tugas    : 6, pascal');

writeln('                                                 Proggram : biodatadata mahasiswa');

write('masukkan jumlah mahasiswa = ');readln(jum);

for i:=1 to jum do

begin

write('input biodata mahasiswa ke = ',i);

writeln();

write('NIM    : ');readln(nim);

write('NAMA   : ');readln(nama);

write('KELAS  : ');readln(kls);

end;

clrscr;

for i:=1 to jum do

begin

gotoxy(6,1);write('=========================================================');

gotoxy(6,2);write('= NO =           NIM              =              NAMA                      =      KELAS         =');

gotoxy(6,3);write('=========================================================');

gotoxy(8,(4+i));write(i);

gotoxy(16,4+i);write(nim);

gotoxy(33,4+i);write(nama);

gotoxy(56,4+i);write(kls);

end;

readln();

writeln();

write('apakah anda ingin keluar ? (y/t) ');readln(jawab);

if (jawab='y') or (jawab='t') then

goto ulang;

end.

                         http://www.4shared.com/rar/XZp1QVSl/contoh_perulangan_array.html