Powered By Blogger Submit Your Site To The Web's Top 50 Search Engines for Free! Online Marketing

Subscribe Now

Monday, April 20

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


0 Comments:

Post a Comment

Popular Posts This Months

Related Posts Plugin for WordPress, Blogger...