tugas Array dan Record

Tugas pemrograman dasar Array dan Record. .
program ini berfungsi untuk mencatat suatu data ke dalam tabel.
program di bawah ini merupakan salah satu contoh penggunaan array dan record yang di tulis dalam bahasa pemrograman Pascal.

uses wincrt;

type tb_peserta=record

no:longint;

nama:string;

umur:integer;

end;

var

org:array[1..10] of tb_peserta;

a,b,ke:integer;

tuker:tb_peserta;

pilih:char;

posisi:array[1..10] of integer;

begin

pilih:='y';

while ((pilih='y')or(pilih='Y')) do

     

      begin

      ke:=ke+1;

      writeln;

      writeln('masukan data peserta ke ',ke, ': ');

      writeln('I===================================I');

      write('masukan nomor peserta   : ');
      readln(org[ke].no);

      write('masukan nama            : ');
       readln(org[ke].nama);

      write('masukan umur            : '); 
       readln(org[ke].umur);

      writeln('I===================================I');

      write('ingin menambah daftar peserta.? y/t ');readln(pilih);

      end;

clrscr;

for a:=1 to ke do

begin

writeln;

writeln('         TABEL PESERTA SEMINAR        ');

writeln('I======================================I');

writeln('   No   I  nomor  I  Nama  I  umur  I');

for a:=1 to ke do

writeln(a:4,org[a].no:8,org[a].nama:12,org[a].umur:9,'I':4);

writeln;

writeln('Jumlah seluruh peserta : ',a);

end;

end.

 RUNING PROGRAMNYA

Demikianlah screenshot program Array dan Record sederhana beserta syntac programnya.

Read More