Uses crt;
Type DataMhs = record
NIM : array [1..10] of string;
Nama : array [1..10] of string;
IP : array [1..10] of real;
jml:integer;
end;
var
Fmhs: file of datamhs;
nm:string;
Rekmhs : DataMhs;
i:integer;
procedure buat;
Begin
clrscr;
write ('Nama File : ');readln (nm);
writeln;
assign(Fmhs,'C:\'+nm+'.dat');
rewrite(Fmhs);
write('Masukkan Jumlah Data = ');readln(rekmhs.jml);
writeln;
for i:=1 to rekmhs.jml do
with rekmhs do
begin
write('NIM : '); readln(NIM[i]);
write('Nama : '); readln(nama[i]);
write('IP : '); readln(IP[i]);
writeln;
end;
write(Fmhs, RekMhs);
close(Fmhs);
end;
procedure buka;
begin
clrscr;
write ('Nama File : ');readln (nm);
writeln;
assign(fmhs,'C:\'+nm+'.dat');
reset (fmhs);
read (fmhs,rekmhs);
for i:=1 to rekmhs.jml do
begin
with rekmhs do
begin
writeln ('NIM : ',nim[i]);
writeln ('Nama : ',nama[i]);
writeln ('IP : ',ip[i]:1:0);
writeln;
end;
end;
close (fmhs);
readkey;
end;
var
p:byte;
begin
repeat
clrscr;
WRITELN ('_________________________________');
writeln ('|___***---- MENU UTAMA ---***___|');
WRITELN ('---------------------------------');
writeln ('| 1. Input Data |');
writeln ('| 2. Tampilkan Data |');
writeln ('| 3. Exit |');
WRITELN ('---------------------------------');
write ('Masukkan Pilihan : ');readln (p);
case p of
1: buat;
2: buka;
3: ;
end;
until p=3;
end.
2. Output
a. Input pilihan
gambar 1. tampilan awal
b. Input data
gambar 2. input data yang ingin di simpan
c. Input pilihan
gambar 3. Pillihan lihat data
c. File data
gambar 3. data yang sudah tersimpan
