Fungsi Input dan Output dalam Turbo Pascal

Write dan Writeln

Perintah ini digunakan untuk mencetak kata-kata atau variable ke layar komputer.

Sebagai contoh untuk mencetak kata ‘Sedang Belajar Pascal’, perintah yang diberikan adalah:

Write(‘Sedang Belajar Pascal’);

atau

Writeln(‘Sedang Belajar Pascal’);

Jika menggunakan write, setelah mencetak kata – kata atau variable, kursor akan diletakkan di samping hasil cetakan. Jka menggunakan perintah writeln, setelah mencetak kata – kata atau variable, kursor akan dipindahkan ke bawah satu baris dengan posisi horizontal pada awal baris. Untuk mencetak suatu variable, tidak perlu tanda petik satu. Contoh:

Uses crt;

Var A : integer;

Begin

A:= 9;

Writeln(A);

End.

Dengan menggunakan write atau writeln, kita bisa menampilkan kata – kata dan variable dengan tanda koma (,) sebagai pemisah antara variable dan kata – kata, Contoh:

Uses crt;

Var A : integer;

Begin

A:= 9;

Writeln(‘Nilai A adalah ’, A);

End.

Terkadang kita menemukan prosedur write atau writeln yang ditulis seperti ini, writeln(‘Asyik’: 10) _ Jika ditulis seperti ini, maka akan menghasilkan space yang disediakan untuk menuliskan kata asyik di layar monitor adalah 10 karakter, mulai dari kiri ke kanan. Coba tuliskan program berikut ini:

Uses crt;

Begin

write(‘Sehat’: 10); write(‘Senang’: 10);

readln;

end.

Perhatikan apa yang terjadi pada penggalan program di atas!

Selain itu, dengan menggunakan write atau writeln, kita dapat mengatur berapa banyak angka di belakang koma yang akan ditampilkan di layar monitor jika kita ingin menampikan bilangan real, caranya adalah dengan menuliskan seperti program di bawah ini:

Uses crt;

Begin

Write(1/3: 5 : 2); write(2/3: 5: 2);

Readln;

End.

Read dan Readln

Read atau readln digunakan untuk menerima masukan dari user untuk disimpan ke dalam suatu variable. Contoh:

Uses crt;

Var A: Integer;

Begin

Write(‘Masukkan nilai A: ’);readln(A);

Writeln(‘Nilai yang anda masukkan adalah: ’, A);

Readln;

End.

program baca;

Uses crt;

var nama:string[10];

begin

write(‘ketik nama mu : ’);

readln(nama);

write(‘nama mu ‘,nama);

readln;

end.

Catatan:

Terkadang kita menggunakan fungsi readln pada satu baris sebelum kata end.. Hal ini dimaksudkan agar suatu program tidak akan langsung terminate (berhenti) tanpa menunggu suatu masukan dari user. Adapun masukan tersebut berupa penekanan tombol enter pada keyboard.

Readkey

Readkey adalah fungsi masukan yang hanya akan mengambil satu karakter masukan. Jenis variable yang dapat diinput oleh readkey pun hanya jenis variable karakter.

Contoh:

Uses crt;

Var A : Char;

Begin

Writeln(‘Tekan karakter apa saja di dalam keyboard’);

A := Readkey;

Writeln(‘Karakter yang barusan anda tekan adalah: ’, A);

Readln;

End.

Itulah dia mengenai fungsi input dan output pada turbo pascal, lebih dan kurang saya mohon maaf, Terimakasih :))