Assign pada Pascal

Assign pada pascal dapat digunakan untuk menulis sebuah file text.

langsung aja nih, tampilan coding window nya:

Lalu, bila dijalankan maka akan tampak seperti dibawah ini:

KODING LENGKAP

USES CRT; VAR BERKAS :TEXT; KALIMAT :STRING; NFILE :STRING; BEGIN CLRSCR; WRITE ('MASUKAN NAMA FILE UNTUK DI BUAT : '); READLN (NFILE); ASSIGN (BERKAS,NFILE); REWRITE (BERKAS); WRITELN; WRITELN ('KETIKAN * UNTUK BERHENTI'); KALIMAT:=''; WHILE KALIMAT [1]<>'*'DO BEGIN READLN (KALIMAT); IF KALIMAT [1]<>'*'THEN WRITE (BERKAS,KALIMAT); END; CLOSE (BERKAS); END.

Cara Kerja Program:

USES CRT;

Di gunakan untuk mendklarasikan jenis monitor yang kita gunakan, dalam hal ini kita menggunakan CRT (monitor tabung), Uses CRT juga digunakan untuk mengaktifkan fungsi CLRSCR (Clear Screen).

VAR BERKAS :TEXT; KAR : CHAR; NFILE :STRING;

Di gunakan untuk mendeklarasikan Variabel yang di gunakan dalam program kali ini, kali ini kita menggunakan variable Berkas dengan Tipe Text, Variabel Kar dengan Tipe Character, Variabel NFILE dengan tipe String,

BEGIN

Digunakan untuk memulai suatu proses kerja pada program pascal.

CLRSCR;

Dapat digunakan setelah kita menggunakan USES CRT; pada awal deklarasi program, yang berfungsi untuk menghapus hasil pekerjaan kita sebelumnya pada layar monitor,

WRITE ('MASUKAN NAMA FILE UNTUK DI BUAT : '); READLN (NFILE);

Writeln akan menulis “Masukkan nama file untuk di buat : “ lalu program akan membaca inputan dari keyboard sebagai NFILE,

ASSIGN (BERKAS,NFILE);

Menggabungkan Berkas dengan tipe Text dengan file yang baru di buat..

REWRITE (BERKAS);

Menulis ulang file berkas dimana berkas adalah file yang telah kita masukkan sebelumnya..

WRITELN; WRITELN ('KETIKAN * UNTUK BERHENTI');

Writeln yg diatas berguna untuk membuat spasi, sedangkan yang dibawahnya berguna untuk menuliskan “Ketikkan * untuk berhenti”

KALIMAT:='';

Mendefinisikan Kalimat dengan character kosong ( ‘’ );

WHILE KALIMAT [1]<>'*'DO BEGIN READLN (KALIMAT); IF KALIMAT [1]<>'*'THEN WRITE (BERKAS,KALIMAT); END; CLOSE (BERKAS); END.

Maksudnya ketika kalimat tidak sama dengan * maka akan membaca kalimat, dan bila kalimat tidak sama dengan * lalu akan menulis Berkas dan Kalimat.

Jika kalimat = * maka program akan menulis kalimat sebagai file yang bernama seperti yang telah kita input sebelumnya..

Lalu program akan berhenti.

Related Posts