Senin, 22 Maret 2010
Program Penyimpanan Dta Mahasiswa
program DataMhs;
uses wincrt;
type
Mahasiswa =record
NIM:string;
Nama:string;
Umur:integer;
Alamat:string;
Nilai:integer;
end;
var
Arsip:file of mahasiswa;
Mhs:mahasiswa;
a:array[1..30] of integer;
d:integer;
n:integer;
begin
Clrscr;
Assign(Arsip,'Tulisan.txt');
Rewrite(Arsip);{membuat file baru}
write('Masukkan banyak bilangan yang diinput:'); readln(n);
for d:=1 to n do
begin
write('Input NIM ke-',d, ':');readln(mhs.NIM);
write('Input Nama ke-',d, ':');readln(mhs.nama);
Write('Input Umur ke-',d, ':');readln(mhs.umur);
Write('Input Alamat ke-',d, ':');Readln(mhs.alamat);
Write('Input Nilai ke-' ,d, ':');Readln(mhs.nilai);
Writeln('================');
Write(Arsip,mhs);
end;
Reset(Arsip);
d:=1;
writeln;
Writeln('Berikut data yang telah diinputkan:');
While not EOF (Arsip) do
begin
read(arsip,mhs);
Writeln('Input NIM ke-',d, ':',mhs.NIM);
writeln('Input Nama ke-',d, ':',mhs.nama);
writeln('Input Umur ke-' ,d, ':',mhs.umur);
writeln('Input Alamat ke-',d, ':',mhs.alamat);
writeln('Input Nilai ke-' ,d, ':',mhs.nilai);
writeln('===========');
d:=d+1;
end;
Close(Arsip);{Menutup File}
Readln;
end.
Langganan:
Posting Komentar (Atom)
Loading
Tidak ada komentar:
Posting Komentar