Tugas
Praktikum Ke7
Nama : Muhammad Reza Ramadhana
NIM :
J1F114204
Shift : 1 (Satu)
1.
Screenshot
Program
1.1.
Pilih Menu
1.2.
Membuat File Data Baru
1.4.
Hasil data
2.
Source
Code
|
Program modul;
uses Crt;
var
jf
: text;
nm,al,telp
: string;
tanya
: char;
pil
: shortInt;
begin
repeat
clrscr;
writeln('Menu Pilihan :');
writeln('1. Membuat File Data Baru');
writeln('2. Memasukan Data Baru');
writeln('3. Menampilkan Data');
writeln('4. Keluar');
writeln('');
write('Pilihan Anda : '); readln(pil);
case
pil of
1 : begin
assign(jf,'Alamat.dat');
rewrite(jf);
close(jf);
writeln('File data berhasil dibuat !');
readkey;
end;
2 : begin
assign(jf,'Alamat.dat');
append(jf);
repeat
clrscr;
write(' Nama : ');readln(nm);
Write(' Alamat : ');readln(al);
Write(' Telepon : ');readln(telp);
writeln(jf,nm);
writeln(jf,al);
writeln(jf,telp);
writeln;
write('Apakah mau memasukan data lain (Y/T):
');
tanya := readKey;
until upcase(tanya) = 'T';
close(jf);
writeln('Data telah dimasukan !');
end;
3 : Begin
assign(jf,'Alamat.dat');
reset(jf);
repeat
readln(jf,nm);
readln(jf,al);
readln(jf,telp);
clrscr;
writeln(' Nama : ',nm);
writeln(' Alamat : ',al);
writeln(' Telepon : ',telp);
writeln;
if nm = '' Then
tanya := 'T'
else
begin
write('Apakah melihat data berikut (Y/T) :
');
tanya := readkey;
end;
until upcase(tanya) = 'T';
close(jf);
end;
else
end;
until pil=4;
end.
|