Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  heheh
Language: PASCAL
Code:
Program Lihat_Data;
uses crt;
var
  fileteks : text;
  jawab : char ;
  namafile : string[64];
  isibaris : string;

begin
   clrscr;
   writeln('Masukkan Nama File Yang Akan Dilihat: ');
   writeln('Lengkap Dengan direktorinya,contoh C:\data3.txt'); read(namafile);
   assign(fileteks,namafile);
   reset(fileteks);
   writeln('Isi File Tersebut Adalah sbb : ');
   while not eof(fileteks) do
     begin
       readln(fileteks,isibaris);
       writeln(isibaris);
     end;
  close(fileteks);
  readln;
  readln;
end.

Comments: