Contoh Algoritma nya,
program tambah_data;
uses crt;
type
mhs=record
nim: string[9];
nama: string[25];
nilai: real;
end;
var
fmhs: file of mhs;
rmhs: mhs;
lagi: char;
begin
assign(fmhs,'kita.txt');
{$I-}
reset(fmhs);
{$I+};
if ioresult<>0 then rewrite(fmhs);
seek(fmhs,filesize(fmhs));
lagi:='y';
while upcase(lagi)='Y' do
begin
clrscr;
with rmhs do
begin
gotoxy(10,4) ;write('*** Data Mahasiswa ***');
gotoxy(5,6) ;write('NIM
Mahasiswa : ');
gotoxy(5,8) ;write('Nama
Mahasiswa : ');
gotoxy(5,10) ;write('Nilai Mahasiswa : ');
gotoxy(23,6) ;readln(nim);
gotoxy(23,8) ;readln(nama);
gotoxy(23,10);readln(nilai);
end;
write(fmhs,rmhs);
gotoxy(5,15) ;write('Masukan data lagi [Y/T] ? ');
readln(lagi);
end;
close(fmhs);
end.
Output nya,
1. Menginput data pertama
2. Pertanyaan untuk menginput data kembali
3. Menginput 'Y'
4. Menginputkan data kembali
5. Muncul pertanyaan untuk menginput kan kembali
6. Menginputkan 'T'
7. Tampilan pada notepad
Terimakasih berbagi itu indah :)
