Problem

8 /13


Gelung melalui semua aksara

Theory Click to read/hide

Memandangkan aksara boleh diakses melalui indeks, anda boleh menggunakan gelung pembolehubah untuk melelaran ke atas semua aksara, yang akan mengambil nilai indeks yang mungkin. Sebagai contoh, program yang memaparkan semua kod aksara rentetan s akan kelihatan seperti ini untuk i := 1 hingga panjang (s) do writeln(s[i], ord(s[i])) Penjelasan untuk program:
1) Fungsi length(s) mencari panjang rentetan. Indeks aksara pertama ialah 1 dan indeks yang terakhir ialah panjang. Pembolehubah gelung i hanya akan mengambil nilai dari 1 kepada panjang.
2) Dalam setiap baris, simbol itu sendiri akan dipaparkan dahulu, dan kemudian kodnya, yang dikembalikan oleh fungsi terbina dalam ord()

Penghitungan yang sama boleh ditulis lebih pendek: untuk c dalam s lakukan      writeln(c, ord(c)); Dalam serpihan ini, pengepala gelung melingkari semua aksara s, meletakkannya secara bergilir-gilir dalam pembolehubah c.

Keistimewaan Pascal apabila bekerja dengan rentetan ialah rentetan adalah objek boleh ubah. Dalam erti kata lain, kita boleh menukar aksara individu bagi rentetan.
Sebagai contoh, pernyataan berikut akan berfungsi s[5] := 'a'; Anda juga boleh mengarang rentetan baharu daripada aksara dengan perubahan yang diperlukan.
Contohnya, program yang menggantikan semua aksara 'a' kepada aksara 'b' akan kelihatan seperti ini: baca;     untuk i := 1 hingga panjang mula         jika s[i] = 'a'maka s[i] := 'b';     akhir; writeln(s); Dalam contoh ini, kita mengulangi semua aksara rentetan s. Dalam badan gelung, kami menyemak nilai pembolehubah s[i]: jika aksara itu sepadan dengan aksara 'a', maka kami menggantikannya dengan 'b'.
 

Problem

Tulis program yang menggantikan semua noktah dalam rentetan dengan sifar dan semua huruf "X" unit. 

Contoh
# Input Output
1 ..X..XX 0010011