FILE - PASCAL

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.3.       Input data

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.

1 komentar:

Berkomentarlah secara relevan sesuai topic yang di bahas..
Pengunjung yang super selalu meninggalkan jejak di komentar.