ลูปในขณะที่มีประโยชน์สำหรับโปรแกรมเมอร์

โปรแกรมเมอร์เริ่มต้นอาจยังไม่ทราบว่าห่วงที่มีประโยชน์ในขณะใดขณะหนึ่ง นี่คือการดำเนินการแบบวงกลมทั่วไปในสภาพแวดล้อมของ Pascal สะดวกในการใช้งานต่างๆดังนั้นเราจะวิเคราะห์ว่าคุณสามารถใส่ วัฏจักรนี้ลง ในโปรแกรม ได้อย่างไร

ในขณะที่ วงจร Pascal ต้องการรูปแบบต่อไปนี้:

• ในขณะที่ (เงื่อนไข) ทำ (เริ่มต้นถ้าจำเป็น)
• อัลกอริธึมการดำเนินการ
• สิ้นสุด (ถ้ามีคำสั่งเริ่มต้น)

บรรทัดแรกคือ "หมวก" ของคำสั่ง เงื่อนไขสามารถเป็นค่าตัวเลขที่ จำกัด ของตัวแปร Integer (d <100) ค่าของตัวแปรของ boolean ชนิด (t = True) หรือสตริง (tex = 'hello') คำสั่ง "เริ่มต้น" ถูกตั้งค่าหากมีเงื่อนไขมากกว่าหนึ่งข้อที่จะต้องปฏิบัติตามเนื้อหาของลูป ต่อไปนี้คือคำอธิบายของการกระทำที่โปรแกรมต้องดำเนินการโดยมีเงื่อนไขว่าจะใช้งานวนรอบขณะดำเนินการ สามารถประกอบด้วยคำสั่งต่างๆขั้นตอนฟังก์ชันเช่นรอบ ในท้ายที่สุดคุณต้องใส่คำสั่ง "end" ถ้าบรรทัดแรกคือ "begin"

ตอนนี้พิจารณาตัวอย่างของโปรแกรมที่มีคำอธิบายคำสั่ง ตัวอย่างเช่นเราต้องหาผลรวมของจำนวนเต็มบวกแรกจำนวน n ในตอนแรกเราถือว่า n (ให้เป็นค่ามากกว่าศูนย์เสมอ) จากนั้นเริ่มต้นลูป สิ่งสำคัญคือต้องเข้าใจว่ามันต้องทำงานจนกว่าจะถึงค่าของจำนวน n มีปัญหามากกว่าหนึ่งทางแก้ปัญหา แต่เราจะเน้นที่ตัวเลือกหนึ่งที่มีผลต่อการใช้ตัวนับที่ต้องการติดตั้ง โดยค่าเริ่มต้นจะใช้ตัวแปร i นี้ ก่อนที่คุณจะเริ่มใช้งานคุณต้องกำหนดค่าเป็น "1" เคาน์เตอร์ทำหน้าที่เป็นคำศัพท์สำหรับการกระทำแบบใหม่แต่ละรอบ จากหน้าที่ของเราเราจำเป็นต้องเพิ่มสิ่งนี้อย่างต่อเนื่อง ดังนั้นวันหนึ่งเคาน์เตอร์ตัวเลขจะเท่ากับค่าของ n จำนวน นี่จะเป็นสัญญาณที่จะยุติการทำงานของโปรแกรม ในการคำนวณผลรวมเราจะแนะนำตัวแปร k เมื่อมีการทำซ้ำใหม่แต่ละครั้งจะมีการกำหนดค่าก่อนหน้านี้บวกกับจำนวน i หลังจากการนับครั้งสุดท้ายคุณควรส่งเฉพาะ k เริ่มต้นไปที่หน้าจอเท่านั้น นี่คือคำอธิบายสั้น ๆ ของโปรแกรมในคำ ตอนนี้เรากำลังดูรหัสโปรแกรม

Readln (n); '- อ่านหมายเลข n

I: = 1; K: = 0; '- เราใส่ในการดำเนินการเคาน์เตอร์ที่เราตั้งค่าของผลรวม

ขณะที่ฉัน <= n จะเริ่ม '- ตั้งเงื่อนไขของลูป

K: = k + i; I: = i + 1; '- เพิ่มมูลค่าให้กับผลรวมปรับปรุงตัวนับ

จบ; '- เราเสร็จสิ้นคำอธิบายของในขณะที่

Writeln (k); - ส่งข้อมูล

ลองทำความคุ้นเคยกับอีกหนึ่งตัวอย่าง ตอนนี้เราต้องการให้ผู้ใช้ใส่ชื่อ n จากแป้นพิมพ์ซึ่งจะบันทึกอาร์เรย์ข้อความ หลักการนี้คล้ายคลึงกับอดีต ใส่หมายเลข n เปิดใช้งานวนรอบขณะตั้งเงื่อนไข นอกจากนี้เราหมายถึงการป้อนข้อมูลจากแป้นพิมพ์ลงในหน่วยความจำของเซลล์ของอาร์เรย์ เราตั้งเคาน์เตอร์เราเสร็จสิ้นการดำเนินการซ้ำ จากนั้นรีเซ็ตตัวนับและส่งออกอาร์เรย์ จริงการตั้งค่าตัวนับใหม่ในบริบทนี้หมายถึงการกำหนดค่าให้เป็นหนึ่งเนื่องจากคุณไม่สามารถแสดงเซลล์เป็นศูนย์ของอาร์เรย์ (ไม่มีอยู่) รหัสของโปรแกรมมีดังนี้: จากโปรแกรมนี้คุณจะได้รับผลรวมของชุดตัวเลขบวกตามธรรมชาติซึ่งลงท้ายด้วย n ที่ป้อนไว้ ควรเข้าใจว่าในกรณีที่ไม่มีตัวนับวนวน Pascal ในขณะที่ไม่ สิ้นสุด ถ้าคุณลืมเรื่องนี้โดยฉับพลันเมื่อคุณรันรหัสโปรแกรมคอมพิวเตอร์จะเริ่มแฮงค์ ปุ่มนี้หยุดชั่วคราวโดยใช้ปุ่ม "หยุดชั่วคราว" ในฐานะตัวนับสำหรับตัวแปรให้ใช้ตัวแปร c

Readln (n);

C: = 1;

ขณะที่ c <= n do begin '- กำหนดเงื่อนไข

Readln (a [c]); C: = c + 1; '- อ่านข้อมูลจากแป้นพิมพ์เพิ่มค่าลงในตัวนับ

จบ; '- เราจบรอบ

C: = 1; '- ส่งคืนค่าเดิมไปยังเคาน์เตอร์

ในขณะที่ c <= n เขียน (a [c]); '- แสดงชื่อ n

หลังจากนั้นคุณจะได้รับชื่อ n บนหน้าจอซึ่งถูกป้อนจากแป้นพิมพ์ เกี่ยวกับความใกล้ชิดกับวงจร While ขณะนี้สิ้นสุดลง ใช้ทั้งผู้เริ่มต้นและผู้ใช้ขั้นสูง ไม่มีเคาน์เตอร์จึงต้องได้รับความสนใจเป็นพิเศษจากโปรแกรมเมอร์และตัวแปรเพิ่มเติม