Walaupun gelung berguna untuk pengaturcara

pengaturcara baru mungkin belum biasa satu berguna semasa gelung. Ini adalah operasi kitaran biasa dalam Pascal sederhana. Ini berguna dalam pelbagai masalah, jadi melihat bagaimana anda boleh membuat satu program kitaran ini.

Kitaran Walaupun Pascal memerlukan dibuat seperti berikut:

• Manakala (keadaan) jangan (bermula jika perlu).
• tindakan algoritma.
• Akhir (apabila pasukan mula ketersediaan).

Baris pertama - "cap" arahan. Keadaan ini boleh menjadi nilai berangka mengehadkan pembolehubah penerangan pada Integer (d <100), jenis boolean berubah-ubah (t = True) atau string (MUAR = 'hello'). "Mula" put perintah, jika gelung adalah perlu untuk melaksanakan lebih daripada satu syarat. Berikut menerangkan tindakan yang program mesti melaksanakan di bawah syarat gelung Walaupun dilaksanakan. Ia boleh mengandungi pelbagai arahan, prosedur, fungsi, kitaran tersebut. Pada akhirnya ia adalah perlu untuk meletakkan arahan "akhir", kecuali, sudah tentu, baris pertama adalah "mula".

Sekarang pertimbangkan program contoh yang mengandungi menerangkan arahan. Sebagai contoh, kita perlu mencari jumlah integer pertama n positif. Untuk tujuan ini, pada mulanya kami menganggap n (walaupun ia akan sentiasa lebih besar daripada sifar). Kemudian mula kitaran. Ia adalah penting untuk memahami bahawa dia mempunyai untuk bekerja, sehingga ia mencapai nilai n. Di sini terdapat lebih daripada satu pilihan untuk menyelesaikan masalah ini, tetapi kita akan memberi tumpuan kepada hakikat yang memberi kesan kepada penggunaan kaunter yang anda ingin pasang. Secara lalai, ini dilakukan dengan menggunakan pembolehubah i. Sebelum anda bermula dengan ia adalah perlu untuk menetapkan ia satu nilai "1". Kaunter itu berfungsi sebagai istilah dengan setiap tindakan kitaran baru. Berdasarkan misi kami, sentiasa perlu untuk menambah satu kepadanya. Oleh itu, apabila kaunter indeks berangka sama dengan nilai jumlah n. Ini akan menjadi isyarat untuk menyiapkan program kerja. Untuk mengira jumlah yang kami memperkenalkan k berubah-ubah. Dengan setiap pengulangan ia akan diberikan nilai sebelumnya ditambah dengan bilangan i. Selepas akhir pengiraan, hanya simpulkan k pembolehubah penerangan pada skrin. Ini adalah penjelasan ringkas mengenai fakta program. Sekarang kita lihat kod.

Readln (n); '- kita membaca bilangan n.

i: = 1; k: = 0; '- masuk ke dalam kaunter kerja, kita sifar daripada nilai jumlah.

Walaupun i <= n jangan mula '- menetapkan syarat-syarat kitaran kerja.

k: = k + i; i: = i + 1; '- menambah nilai ke kaunter jumlah update.

berakhir; '- Semasa melengkapkan perihal kerja.

Writeln (k); - Kesimpulan ini.

Kita melihat contoh yang lain. Sekarang kita perlu untuk mengisi pengguna dengan nama keyboard n yang dapat menyelamatkan pelbagai teks. Prinsip di sini adalah sama dengan masa lalu. Masukkan nombor n, kita mengaktifkan Walaupun keadaan gelung yang ditetapkan. Selanjutnya, menandakan input papan kekunci kepada pelbagai sel ingatan. Menetapkan kaunter melengkapkan operasi berulang. Seterusnya, kaunter adalah lokasi semula dan paparan. Walau bagaimanapun, menetapkan semula kaunter dalam konteks ini bermaksud untuk menetapkan nilai satu, kerana anda tidak akan dapat membawa pelbagai sel sifar (ia tidak wujud). Kod program adalah seperti berikut: dalam program ini, anda akan menerima jumlah beberapa nombor positif semula jadi, yang berakhir pengenalan paling n. Perlu difahami bahawa dalam ketiadaan kaunter, Walaupun kitaran Pascal tidak pernah selesai. Jika anda tiba-tiba lupa tentang hal itu, dalam melaksanakan kod program, komputer bermula untuk menggantung. Ia dirawat butang "Pause Break". Sebagai kaunter untuk kegunaan kepelbagaian pembolehubah penerangan pada c.

Readln (n);

c: = 1;

Manakala c <= n jangan mula '- keadaan tumbuhan.

Readln (a [c]); c: = c + 1; '- membaca data dari papan kekunci, kita menambah nilai kepada kaunter.

berakhir; '- melengkapkan kitaran.

c: = 1; '- schetiku mengembalikan nilai asal.

Manakala c <= n melakukan write (a [c]); '- Paparkan nama n.

Kemudian anda mendapat pada skrin n nama-nama yang telah dimasukkan dari papan kekunci. Pada itu, gelung Walaupun berakhir. Ia digunakan oleh kedua-dua baru dan pengguna yang maju. Dia tidak mengira, dan oleh itu memerlukan perhatian khusus kepada programmer dan pembolehubah tambahan.