Materi Kuliah

uses wincrt;
type berkas=object
procedure rekam;
procedure baca;
procedure tambah;
procedure ganti;
end;

tipefileint=file of integer;
var
fileint : tipefileint;
data,n,i,j :integer;

procedure berkas.rekam;
begin
clrscr;
writeln;
writeln('*** Rekam Data ***');
writeln;
assign(fileint,'D:\DATA.DAT');
rewrite(fileint);
data:=40;
write(fileint,data);
data:=60;
write(fileint,data);
data:=70;
write(fileint,data);
data:=33;
write(fileint,data);
data:=19;
close(fileint);
end;

procedure berkas.baca;
begin
clrscr;
writeln;
writeln('*** Baca Data ***');
writeln;
assign(fileint,'D:\DATA.DAT');
reset(fileint);
while not eof (fileint) do
begin
read(fileint,data);
writeln(data)
end;
close (fileint);
writeln;
write('selesai,Tekan ENTER');
readln;
end;

procedure berkas.tambah;
begin
clrscr;
writeln;
writeln('*** Tambah Data ***');
writeln;
assign(fileint,'D:\DATA.DAT');
reset(fileint);
seek (fileint,filesize(fileint));
write('Data Yang Baru adalah Data ke - ',filesize (fileint)+1,'=');
readln(data);
write (fileint,data);
close(fileint);
writeln;
write('Selesai,Tekan ENTER');
readln;
end;


procedure berkas.ganti;
begin
clrscr;
writeln;
writeln('*** ganti Data ***');
writeln;
assign(fileint,'D:\DATA.DAT');
reset(fileint);
write ('Data ke : ');
readln(j);
seek (fileint,j-1);
write('Diganti Menjadi : ');
readln (data);
write(fileint,data);
close (fileint);
writeln;
write('Selesai,tekan ENTER');
readln;
end;

var
oberkas : berkas;
pil : char;
begin
repeat
clrscr;
writeln ('________________________________________');
writeln ('| menu yang tersedia : |');
writeln ('|______________________________________ |');
writeln ('|1. Record data : |');
writeln ('|2. Lihat data : |');
writeln ('|3. Tambah data : |');
writeln ('|4. Ganti data : |');
writeln ('|5. Keluar |');
writeln ('|______________________________________ |');
writeln ('Pilihan Anda : ');
gotoxy(18,11);
readln (pil);
case pil of
'1':begin
clrscr;
oberkas.rekam;
writeln;
readln;
end;
'2':begin
clrscr;
oberkas.baca;
writeln;
readln;
end;
'3':begin
clrscr;
oberkas.tambah;
writeln;
readln;
end;
'4':begin
clrscr;
oberkas.ganti;
writeln;
readln;
end;
end;
until pil='5';

end.