uses wincrt;
type karyawan = record
nama : string[25];
gaji : longint;
anak : integer;
status : string[10];
umur : string;
end;
var
data:karyawan;i:string;x,y :integer;
procedure input;
begin
clrScr;
writeln ('Masukkan data diri Anda : ' );
write ('Nama : ' );readln(data.nama);
write ('Gaji : ' );readln(data.gaji);
write ('Anak : ' );readln(data.anak);
write ('Status : ');readln(data.status);
write ('Umur : ');readln(data.umur);
write('Tambahkan Anggota y/t : ');readln(i);
writeln;
end;
procedure tampilan;
begin
{Menampilkan data yang telah dimasukan}
writeln ('Beikut ini informasi data diri yang telah anda masukkan : ');
writeln('+-----------------------------------------------------------------+');
writeln(' Nama Gaji Anak Status umur ');
writeln('+-----------------------------------------------------------------+');
gotoxy(1,13);writeln ( data.Nama);
gotoxy(15,13) ;writeln(data.gaji);
gotoxy(27,13);writeln(data.anak);
gotoxy(42,13); writeln(data.status);
gotoxy(60,13); writeln ( data.Umur);
end;
begin
input;
if i='y' then
begin
repeat
clrscr;
input;
until i='t';
end;
repeat
tampilan;
until i='t';
end.
