Script Progam Rekaman (Pascal)

Script Progam Rekaman mengunakan bahasa Pascal
Nasabah Bank


uses wincrt;
Const
dmax=100;

type
recNasabah=record
NoAkun : string[10];
Nama : string[20];
Alamat : string[20];
Kota : string[10];
NoTelp : String[11]
end;

var
a:array[1..dmax] of recNasabah;
i,j,bd:integer;


Procedure Tampilan;
begin
clrscr;
gotoxy (5,2); write('Bank Sendiri Indonesia');
gotoxy (5,3); write('Input data Nasbah');
gotoxy (5,5); write('-------------------------------------');
gotoxy (5,7); write('Nomor Rekening :');
gotoxy (5,8); write('Nama :');
gotoxy (5,9); write('Alamat :');
gotoxy (5,10);write('Kota :');
gotoxy (5,11);write('No. Telp/ HP :');
gotoxy (5,13);write('-------------------------------------');
gotoxy (5,14);write('Data ke- dari ',bd,' ');
gotoxy (5,15);write('-------------------------------------');
end;

begin
Tampilan;
bd:=dmax;
gotoxy (5,14); Write('Banyak data yang akan masukan ? '); readln(bd);
for i:=1 to bd do
begin
Tampilan;
gotoxy (13,14);write(i);
gotoxy (25,7); readln(a[i].NoAkun);
gotoxy (25,8); readln(a[i].Nama);
gotoxy (25,9); readln(a[i].Alamat);
gotoxy (25,10);readln(a[i].Kota);
gotoxy (25,11);readln(a[i].NoTelp);
end;
clrscr;
gotoxy (1,2); write('Bank Sendiri Indonesia');
gotoxy (1,3); write('Data Nasabah');
gotoxy (1,4); write('--------------------------------------------------------------------------------');
gotoxy (1,6); write('--------------------------------------------------------------------------------');

gotoxy (1,5); write('No');
gotoxy (5,5); write('Rekening');
gotoxy (16,5);write('Nama');
gotoxy (37,5);write('Alamat');
gotoxy (58,5);write('Kota');
gotoxy (69,5);write('Telepon');
writeln;
for i:=1 to bd do
begin
gotoxy (1,7+i) ;writeln(i);
gotoxy (5,7+i) ;write(a[i].NoAkun);
gotoxy (16,7+i);write(a[i].Nama);
gotoxy (37,7+i);write(a[i].Alamat);
gotoxy (58,7+i);write(a[i].Kota);
gotoxy (69,7+i);write(a[i].NoTelp);
end;
gotoxy (1,9+i); write('--------------------------------------------------------------------------------');
gotoxy (1,10+i); write('Total data =',i);
readln;
end.