ໃນຂະນະທີ່ວົງແມ່ນເປັນປະໂຫຍດສໍາລັບໂຄງການ

ໂຄງການຈົວອາດຈະຍັງບໍ່ເປັນທີ່ຄຸ້ນເຄີຍທີ່ເປັນປະໂຫຍດໃນຂະນະທີ່ວົງ. ນີ້ແມ່ນການດໍາເນີນງານວົງຈອນປົກກະຕິໃນຂະຫນາດກາງ Pascal. ນີ້ແມ່ນເປັນປະໂຫຍດໃນບັນຫາຕ່າງໆ, ສະນັ້ນເບິ່ງວິທີທີ່ທ່ານສາມາດເຮັດໃຫ້ໂຄງການຂອງ ວົງຈອນນີ້.

ວົງຈອນ ໃນຂະນະທີ່ Pascal ຕ້ອງເຮັດດັ່ງຕໍ່ໄປນີ້:

• ໃນຂະນະທີ່ (ພາບ) ເຈົ້າ (ເລີ່ມຕົ້ນຖ້າຫາກວ່າມີຄວາມຈໍາເປັນ).
• ຂັ້ນຕອນວິທີການປະຕິບັດ.
• ສຸດທ້າຍ (ໃນເວລາທີ່ທີມງານຈະເລີ່ມຕົ້ນກັບມີ).

ບັນທັດທໍາອິດ - ຄໍາສັ່ງ "ຫລວງ". ໃນສະພາບການອາດຈະເປັນມູນຄ່າຈໍານວນຈໍາກັດການປ່ຽນແປງອະທິບາຍກ່ຽວກັບຈໍານວນເຕັມ (d <100), ປະເພດ boolean ຕົວແປ (t = True) ຫຼືຊ່ອຍແນ່ (tex = 'ສະບາຍດີ'). "ເລີ່ມຕົ້ນ" ເຮັດໃຫ້ຄໍາສັ່ງ, ຖ້າຫາກວ່າວົງແມ່ນຄວາມຈໍາເປັນເພື່ອປະຕິບັດເງື່ອນໄຂຫຼາຍກ່ວາຫນຶ່ງ. ດັ່ງຕໍ່ໄປນີ້ອະທິບາຍເຖິງການປະຕິບັດການວ່າໂຄງການນີ້ຕ້ອງປະຕິບັດພາຍໃຕ້ສະພາບທີ່ວົງໃນຂະນະທີ່ຖືກດໍາເນີນການ. ມັນສາມາດປະກອບດ້ວຍຫຼາກຫຼາຍຂອງຄໍາສັ່ງ, ລະບຽບການ, ປະຕິບັດຫນ້າ, ຮອບວຽນດັ່ງກ່າວ. ໃນທີ່ສຸດມັນແມ່ນຄວາມຈໍາເປັນເພື່ອເຮັດໃຫ້ຄໍາສັ່ງ "ໃນຕອນທ້າຍ", ເວັ້ນເສຍແຕ່, ແນ່ນອນ, ບັນທັດທໍາອິດແມ່ນ "ເລີ່ມຕົ້ນ".

ໃນປັດຈຸບັນພິຈາລະນາບັນດາໂຄງການຕົວຢ່າງທີ່ປະກອບດ້ວຍອະທິບາຍຄໍາສັ່ງ. ສໍາລັບຕົວຢ່າງ, ພວກເຮົາຈໍາເປັນຕ້ອງໄດ້ຊອກຫາຜົນລວມຂອງຈໍານວນເຕັມທໍາອິດ n ໃນທາງບວກ. ດ້ວຍເຫດນີ້, ໃນເບື້ອງຕົ້ນພວກເຮົາພິຈາລະນາ n (ເຖິງແມ່ນວ່າມັນສະເຫມີໄປຈະມີຫຼາຍຂຶ້ນກ່ວາສູນ). ຫຼັງຈາກນັ້ນເລີ່ມຕົ້ນຮອບວຽນຂອງ. ມັນເປັນສິ່ງສໍາຄັນທີ່ຈະເຂົ້າໃຈວ່າເຂົາມີການເຮັດວຽກ, ຈົນກ່ວາມັນໄປຮອດຄຸນຄ່າຂອງ n ໄດ້. ຕໍ່ໄປນີ້ແມ່ນຫຼາຍກ່ວາຫນຶ່ງທາງເລືອກສໍາລັບການແກ້ໄຂບັນຫາ, ແຕ່ພວກເຮົາຈະສຸມໃສ່ຄວາມຈິງທີ່ວ່າຜົນກະທົບຕໍ່ການນໍາໃຊ້ວຽກງານຕ້ານການທີ່ທ່ານຕ້ອງການທີ່ຈະຕິດຕັ້ງ. ຕັ້ງແຕ່ຕອນຕົ້ນ, ນີ້ແມ່ນເຮັດໂດຍໃຊ້ຕົວແປ i. ກ່ອນທີ່ທ່ານຈະເລີ່ມຕົ້ນກັບມັນແມ່ນຄວາມຈໍາເປັນເພື່ອກໍາຫນົດໃຫ້ເປັນມູນຄ່າຂອງ "1". ວຽກງານຕ້ານການເປັນໄລຍະທີ່ມີການປະຕິບັດທຸກ cyclical ໃຫມ່. ໂດຍອີງໃສ່ພາລະກິດຂອງພວກເຮົາ, ຢູ່ສະເຫມີຈໍາເປັນຕ້ອງເພີ່ມຫນຶ່ງກັບມັນ. ດັ່ງນັ້ນ, ໃນເວລາທີ່ວຽກງານຕ້ານການດັດຊະນີຈໍານວນຫລາຍເທົ່າກັບມູນຄ່າຂອງຈໍານວນ n ໄດ້. ນີ້ຈະເປັນສັນຍານສໍາລັບການສໍາເລັດຂອງໂຄງການເຮັດວຽກໄດ້. ການຄິດໄລ່ຈໍານວນເງິນທີ່ພວກເຮົາແນະນໍາ k ຕົວປ່ຽນແປງ. ມີການຄ້າງຫ້ອງຂອງແຕ່ລະຈະໄດ້ຮັບການມອບຫມາຍມູນຄ່າທີ່ຜ່ານມາບວກກັບຈໍານວນ i. ຫຼັງຈາກສິ້ນສຸດຂອງການຄິດໄລ່ໄດ້, ພຽງແຕ່ອະນຸມານ k ປ່ຽນແປງອະທິບາຍໃນຫນ້າຈໍໄດ້. ນີ້ເປັນຄໍາອະທິບາຍໂດຍຫຍໍ້ກ່ຽວກັບຄໍາສັບຕ່າງໆຂອງໂຄງການດັ່ງກ່າວ. ໃນປັດຈຸບັນພວກເຮົາຊອກຫາຢູ່ໃນຂໍ້ກໍານົດ.

ຮູບທີ່ (n); - ພວກເຮົາໄດ້ອ່ານຈໍານວນ n.

ຂ້າພະເຈົ້າ: = 1; k: = 0; - ເຂົ້າໄປໃນວຽກງານຕ້ານການເຮັດວຽກ, ພວກເຮົາສູນອອກມູນຄ່າຂອງຈໍານວນເງິນດັ່ງກ່າວ.

ໃນຂະນະທີ່ຂ້າພະເຈົ້າ <= n ບໍ່ເລີ່ມຕົ້ນ - ກໍານົດເງື່ອນໄຂຂອງວົງຈອນການເຮັດວຽກໄດ້.

k: = k + i; ຂ້າພະເຈົ້າ: = i + 1; - ເພີ່ມມູນຄ່າກັບວຽກງານຕ້ານການປັບປຸງຈໍານວນຫນຶ່ງ.

ສິ້ນສຸດ; -. ໃນຂະນະທີ່ສໍາເລັດການລາຍລະອຽດຂອງການເຮັດວຽກໄດ້

writeln (k); - ບົດສະຫຼຸບເຫຼົ່ານີ້.

ພວກເຮົາຊອກຫາຢູ່ໃນຕົວຢ່າງອື່ນ. ໃນປັດຈຸບັນພວກເຮົາຈໍາເປັນຕ້ອງໄດ້ຕື່ມຂໍ້ມູນໃສ່ຜູ້ໃຊ້ທີ່ມີຊື່ keyboard n ທີ່ຈະຊ່ວຍປະຢັດ array ຂໍ້ຄວາມ. ຫຼັກການນີ້ແມ່ນຄ້າຍຄືກັນກັບທີ່ຜ່ານມາ. ກະລຸນາໃສ່ຈໍານວນ n, ພວກເຮົາກະຕຸ້ນໃນຂະນະທີ່ສະພາບ loop ທີ່ກໍານົດໄວ້. ນອກຈາກນັ້ນ, ສະແດງວ່າວັດສະດຸປ້ອນ keyboard ໃນການ array ສັບມືຖືຫນ່ວຍຄວາມຈໍາໄດ້. ກໍານົດວຽກງານຕ້ານການສໍາເລັດການດໍາເນີນງານຊ້ໍາ. ຕໍ່ໄປ, ວຽກງານຕ້ານການແມ່ນປັບແລະການສະແດງ array. ຢ່າງໃດກໍຕາມ, ປັບເຄົາເຕີໃນບໍລິບົດນີ້ມີຄວາມຫມາຍທີ່ຈະກໍາຫນົດຄ່າຂອງຫນຶ່ງ, ນັບຕັ້ງແຕ່ທ່ານຈະບໍ່ສາມາດເຮັດໃຫ້ array ສັບມືຖືສູນ (ມັນບໍ່ມີ). ລະຫັດໂຄງການດັ່ງກ່າວແມ່ນເປັນດັ່ງຕໍ່ໄປນີ້: ໃນໂຄງການນີ້ທ່ານຈະໄດ້ຮັບຜົນລວມຂອງຈໍານວນຂອງຕົວເລກບວກທໍາມະຊາດ, ທີ່ສິ້ນສຸດລົງແນະນໍາຕະປູໂປໂລຍທີ່ສຸດໄດ້. ມັນຄວນຈະເຂົ້າໃຈວ່າໃນເມື່ອບໍ່ມີວຽກງານຕ້ານການໄດ້, ໃນຂະນະທີ່ Pascal ວົງຈອນບໍ່ເຄີຍ ສິ້ນສຸດ. ຖ້າຫາກວ່າທ່ານທັນທີທັນໃດລືມກ່ຽວກັບມັນ, ໃນການປະຕິບັດລະຫັດໂຄງການ, ຄອມພິວເຕີເລີ່ມຕົ້ນທີ່ຈະວາງສາຍ. ມັນແມ່ນຮັບການປິ່ນປົວທີ່ປຸ່ມ "Pause Break". ໃນຖານະວຽກງານຕ້ານການສໍາລັບການປ່ຽນແປງອະທິບາຍການນໍາໃຊ້ຄວາມຫຼາກຫຼາຍກ່ຽວ c ໄດ້.

ຮູບທີ່ (n);

c: = 1;

ໃນຂະນະທີ່ c <= n ບໍ່ເລີ່ມຕົ້ນ - ສະພາບພືດ.

ຮູບທີ່ (a [c]); c: = c + 1; - ອ່ານຂໍ້ມູນຈາກແປ້ນພິມໄດ້, ພວກເຮົາໄດ້ເພີ່ມຄຸນຄ່າໃຫ້ກັບວຽກງານຕ້ານການ.

ສິ້ນສຸດ; - ຄົບວົງຈອນ.

c: = 1; - schetiku ຄືນມູນຄ່າຕົ້ນສະບັບ.

ໃນຂະນະທີ່ c <= n ເຮັດຂຽນ (a [c]); - ສະແດງຊື່ n.

ຫຼັງຈາກນັ້ນທ່ານໄດ້ຮັບກ່ຽວກັບຫນ້າຈໍ n ຊື່ທີ່ໄດ້ຮັບການເຂົ້າຈາກແປ້ນພິມໄດ້. ໃນທັນໃດນັ້ນເປັນວົງໃນຂະນະທີ່ສິ້ນສຸດລົງ. ມັນຖືກນໍາໃຊ້ໂດຍຜູ້ເລີ່ມແລະຜູ້ຊົມໃຊ້ແບບພິເສດ. ທ່ານຈະບໍ່ນັບລວມ, ແລະດັ່ງນັ້ນຈິ່ງຮຽກຮ້ອງໃຫ້ມີຄວາມສົນໃຈເປັນພິເສດຕໍ່ໂຄງການແລະເປັນຕົວປ່ຽນແປງເພີ່ມເຕີມ.