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.
RUNING PROGRAMNYA
Demikianlah screenshot program Array dan Record sederhana beserta syntac programnya.
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);
readln(org[ke].no);
write('masukan nama : ');
readln(org[ke].nama);
readln(org[ke].nama);
write('masukan umur : ');
readln(org[ke].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.