program
biodatamahasiswa;
uses
crt;
type
rec = record
nama : string;
nim
: string[10];
fak
: string;
prodi : string;
umur : integer;
end;
var
data : array[1..40] of rec;
i,n
: integer;
pilih : char;
procedure
input;
begin
clrscr;
n:=0;
repeat;
clrscr;
inc(n);
writeln('+----------------------------+');
writeln('|------------------------------|');
writeln('| Biodata Mahasiswa |');
writeln('|-----------------------------|');
writeln('|-----------------------------|');
writeln('|
Data | ',n,' |');
with
data[n] do
begin
writeln('|----------|------------------|');
writeln('|
Nama : |');
writeln('|
NIM :
|');
writeln('|
Fakultas : |');
writeln('|
Prodi : |');
writeln('|
Umur : Tahun
|');
writeln('|-----------------------------|');
writeln('|-----------------------------|');
gotoxy(14,8);readln(nama);
gotoxy(14,9);readln(nim);
gotoxy(14,10);readln(fak);
gotoxy(14,11);readln(prodi);
gotoxy(14,12);readln(umur);
end;
writeln;
write('Input
Data Lagi ? [Y/N] :
');readln(pilih);
until
((pilih='n') or (pilih='N'));
end;
Procedure
Kolom;
Begin
writeln('| | | | | |');
writeln('|________________|___________|______|_____________|______________|');
writeln('|-------------------------------------------------------------------------------|');
end;
Procedure
Output;
Begin
clrscr;
writeln('+-------------------------------------------------------------------------------+');
writeln('|----------------------------------------------------------------------------------|');
writeln('| BIODATA MAHASISWA |');
writeln('|----------------------------------------------------------------------------------|');
writeln('|_______________________________________________________|');
writeln('| Nama
| NIM | Umur
| Fakultas | Prodi |');
writeln('|__________|__________|__________|___________|_____________|');
writeln('| |
| |
| |');
for
i:=1 to n do
begin
with
data[i] do
begin
gotoxy(1,8+i);kolom;
gotoxy(3,8+i);writeln(nama);
gotoxy(20,8+i);writeln(nim);
gotoxy(32,8+i);writeln(umur);
gotoxy(39,8+i);writeln(fak);
gotoxy(53,8+i);writeln(prodi);
end;
end;
readkey;
end;
begin
repeat
clrscr;
writeln;
writeln('+---------------------------+');
writeln('|-----------------------------|');
writeln('| MENU UTAMA |');
writeln('|----------------------------|');
writeln('|----------------------------|');
writeln('|
1. | Masukkan Data |');
writeln('|
2. | Lihat Data |');
writeln('|
3. | Exit |');
writeln('|---------------------------|');
writeln('|
Pilihan | |');
writeln('|---------------------------|');
writeln('|---------------------------|');
gotoxy(18,11);readln(pilih);
case
pilih of
'1'
: input;
'2'
: output;
'3'
: exit;
end;
until
(pilih)='3';
end.
|
2. Screenshot Program
0 komentar:
Posting Komentar