Fungsi While | Free Pascal | Tutorial

Free Pacal Tutorial

Kembali lagi bersama saya, maaf sempat vakum gara2 sibuk bantuin install komputer neg.. Kali ini kita akan membahas tentang Fungsi While.

Petunjuk

Sumber http://tokilearning.org/

Ubah baris berikut pada soal Program Pertamaku

readln(kalimat);

menjadi

while not eof(input) do
begin
    readln(kalimat);
    writeln(kalimat);
end;

Dalam deretan perintah di atas terdapat struktur loop (perulangan) while, dengan struktur umumnya:

while (kondisi) do
begin
    (perintah-perintah)
end;

Dengan struktur seperti di atas, program akan menjalankan terus selama bernilai benar. eof(input) adalah kondisi di mana berkas habis dibaca. Jadi, dengan menambahkan operator ingkaran not di depannya, artinya program akan terus membaca baris-baris selama berkas belum habis dibaca.

Untuk menguji program Anda, buatlah berkas teks 'uji2.txt' (seperti 'uji.txt' namun dituliskan dalam beberapa baris) dan uji program Anda dengan cara yang sama seperti pada soal Program Pertamaku.

Ada soal nih.

Program Anda harus membaca banyak baris masukan, dan mencetak kembali sejumlah baris tersebut yang isinya sama dengan masukan tersebut.

Format Masukan

Banyak baris, antara 1 sampai 100 baris, masing-masing berisi sebuah kalimat yang terdiri atas 1 sampai 100 karakter.

Format Keluaran

Sejumlah baris sesuai masukan yang isinya sama persis dengan masukan.

Input

abc
123

Output

abc
123

| Kunci Jawaban | Buka Bila Sangat Dibutuhkan |

var a : string;
 
begin
while not eof(input) do
   begin
        readln(a);
        writeln(a);
   end;
end