NAMA FILE : Dbase2.Pas

NAMA PROGRAM : File_Text

INPUT / DEKLARASI :

1. Variabel :

Files : text

Nama, NPM : String

i : byte

2. Fungsi :

Uses crt = Clrscr

readkey

LOGIKA PROGRAM :

¨ Program File_Text;

Penjelasan :

Memberikan nama program dengan nama File_Text

¨ Uses Crt;

Penjelasan :

Menghidupkan fungsi yaitu pada clrscr yang fungsinya membersihkan layar tampilan

¨ Var

Files:Text;

Nama, Npm; string;

I :Byte;

Penjelasan :

Mendeklarasikan suatu variabel atau data data agar mempunyai typa data yaitu dalam program diatas Files bertype data Text, untuk nama dan Npm bertype data string dan untuk I bertype data byte

¨ Begin

Clrscr;

Assign (Files, '1IA06');

Reset (Files);

Textcolor (Cyan);

Writeln('');

Writeln(' Data Mahasiswa ');write(' ');

Writeln(' ************** ');

Writeln(' Nama | Npm ');

Writeln(' ************** ');

Penjelasan :

Dalam program diatas merupakan pemanggila nama file yang telah ada pada Files maka data data yang telah ada pada file tersebut akan ditampilkan atau akan di reset.diatas juga terdapat textcolor yang fungsinya membri warna pada tulisan yaitu cyan dan juga telah diatur atau dibuatkan kolom pada program tersebut.

¨ While not EOF (Files) do

Begin

Textcolor(Green);

Readln (Files, Nama, Npm);

Writeln(Nama, Npm);

End;

Penjelasan :

Di progam diatas dijelaskan bahwa apabila program sebelumnya atau pertama not EOF artinya belum selesai atau belum ditutup maka akan dicetak dari data Files yang telah diinput

¨ Readkey;

Penjelasan :

Program bisa dijalankan dan bisa kembali lagi pada tampilan awal apabila kita menekan sembarang tombol atau tekan satu huruf sebagai jeda maka akan keluar dari output program.

¨ Close (Files);

Penjelasan :

Menutup file Files kembali

¨ End.

Penjelasan :

Perintah bahwa program telah selesai karena dalan satu program end titik cuman ada satu

Analisa program :

Program diatas pada intinya hanyalah program yang digunakan untuk memangil suatu file yang terdapat data data yang akan ditampilkan data tersebut, atau bisa saja dapat menyimpan file dan dapat dibuka kembali bila diperlukan yang disebut juga database

LISTING PROGRAM

Program File_Text;

Uses crt;

Var

Files: Text;

Nama, Npm: String;

i: Byte;

Begin

Clrscr;

Assign (Files, 'YULAN S');

Reset (Files);

Textcolor (Cyan);

writeln('');

Writeln (' DATA MAHASISWA ');

write(' ');

Writeln ('***********************************');

Writeln (' Nama | Npm ');

write(' ');

Writeln ('***********************************');

While not EOF(Files) do

Begin

Textcolor (Green);

Readln (Files,Nama,Npm);

Writeln ( Nama, Npm);

End;

Readkey;

Close (Files);

End.