Tugas Praktikum Ke-8 Algoritma Pemrograman II

1. 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.