การเปลี่ยนวงจร 1 วินาทีเป็นการวนซ้ำครั้งถัดไป การหยุดชะงักของวงจร เงื่อนไขการรวม ปุ่มลัด: การจัดการแบบฟอร์ม

รอบไหนเร็วกว่ากัน? การทดสอบ 1C

• ประสิทธิภาพสูง ,
• การเขียนโปรแกรมผิดปกติ
• การเขียนโปรแกรม

ฉันเขียนโปรแกรม 1C มาหลายปีแล้ว แล้วความคิดก็เข้ามาหาฉัน - “ฉันควรเข้ารับการฝึกอบรมอะไรสักอย่างไหม ถ้าความรู้ของฉันมีช่องว่างบางอย่างที่ฉันไม่เคยสงสัยมาก่อนล่ะ”พูดไม่ทันทำเลย ฉันกำลังนั่งฟังหลักสูตร ฉันไปถึงตัวดำเนินการแบบวนรอบแล้วความคิดที่สอง (ใช่ พวกเขาไม่ได้มาหาฉันบ่อย ๆ ) - “รอบไหนเร็วกว่า”?เราควรตรวจสอบมัน.
ฉันจึงพบ ห้าวิธีคุณจะจัดระเบียบวงจรโดยใช้ 1C ได้อย่างไร

วงจรประเภทแรกเรียกมันว่าแบบมีเงื่อนไข "ฟอร์โป"ดูเหมือนว่า:

สำหรับ n = 0 ตามจำนวนรอบการวนซ้ำ SomeActions(); สิ้นสุดรอบ;
ประเภทที่สอง "แต่ละ":

สำหรับแต่ละองค์ประกอบคอลเลกชันจากรอบการรวบรวม SomeActions(); สิ้นสุดรอบ;
ที่สาม "ลาก่อน":

ลาก่อน<>จำนวนรอบการวนซ้ำ SomeActions(); n = n + 1; สิ้นสุดรอบ;
จากนั้นฉันก็นึกถึงวัยเยาว์ของนักประกอบของฉัน - วงจร "ถ้า":

~เริ่มรอบ: ถ้า n<>จำนวนการวนซ้ำแล้ว SomeActions(); n = n + 1; ไป ~StartCycle; สิ้นสุดถ้า;
และในที่สุดก็ "การเรียกซ้ำ"

ขั้นตอน RecursiveLoop (n, จำนวนการวนซ้ำ) SomeActions (); ถ้าไม่มี<>NumberIterations จากนั้น RecursiveLoop (n + 1, NumberIterations); สิ้นสุดถ้า; สิ้นสุดขั้นตอน
โดยปกติแล้ว การจัดประเภทการเรียกซ้ำเป็นการวนซ้ำนั้นไม่ถูกต้องทั้งหมด แต่อย่างไรก็ตาม ด้วยความช่วยเหลือนี้ คุณจึงสามารถบรรลุผลลัพธ์ที่คล้ายกันได้ ฉันขอจองทันทีว่าการเรียกซ้ำไม่เกี่ยวข้องกับการทดสอบเพิ่มเติม ประการแรก การทดสอบทั้งหมดดำเนินการด้วยการวนซ้ำ 1,000,000 ครั้ง และการเรียกซ้ำเกิดขึ้นแล้วที่ 2,000 ครั้ง ประการที่สอง ความเร็วของการเรียกซ้ำจะน้อยกว่าความเร็วของลูปอื่นๆ หลายสิบเท่า

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

ไปกันเลย เนื้อความของลูปกำลังอ่านจากอาร์เรย์ที่เติมไว้ล่วงหน้า

หรือเมื่อใช้ลูป “ForEach”

TestValueReceiver = องค์ประกอบ;
การทดสอบดำเนินการบนแพลตฟอร์ม 8.3.5.1231 สำหรับอินเทอร์เฟซสามประเภท ( การสมัครปกติ, Managed Application และ Taxi)
ตัวเลขคือเวลาเป็นมิลลิวินาทีที่ได้รับโดยใช้ฟังก์ชัน CurrentUniversalDateInMilliseconds()ซึ่งผมเรียกว่าก่อนวนซ้ำและหลังเสร็จ ตัวเลขนั้นเป็นเศษส่วนเพราะฉันใช้ค่าเฉลี่ยเลขคณิตของการวัดห้าครั้ง เหตุใดฉันจึงไม่ใช้การวัดประสิทธิภาพ ฉันไม่มีเป้าหมายที่จะวัดความเร็วของโค้ดแต่ละบรรทัด มีเพียงความเร็วของรอบที่มีผลลัพธ์เหมือนกัน

ดูเหมือนว่านั่นคือทั้งหมด แต่ - ทดสอบ, ทดสอบ!
ผลลัพธ์สำหรับแพลตฟอร์ม 8.2.19.106
โดยเฉลี่ยแล้ว แพลตฟอร์ม 8.2 จะเร็วกว่า 8.3 ถึง 25% ฉันไม่ได้คาดหวังถึงความแตกต่างเช่นนี้และตัดสินใจทดสอบกับเครื่องอื่น ฉันจะไม่ให้ผลลัพธ์ แต่คุณสามารถสร้างมันเองได้โดยใช้การกำหนดค่านี้ ฉันจะบอกว่า 8.2 เร็วขึ้น 20 เปอร์เซ็นต์

ทำไม ฉันไม่รู้ การแยกส่วนเคอร์เนลไม่ได้เป็นส่วนหนึ่งของแผนของฉัน แต่ฉันยังคงดูการวัดประสิทธิภาพอยู่ ปรากฎว่าการดำเนินการแบบวนรอบนั้นค่อนข้างเร็วกว่าใน 8.3 มากกว่าใน 8.2 แต่อยู่แถวนั้น.
TestValueReceiver = TestArray.Get (n);
นั่นคือมีประสิทธิภาพที่สำคัญเมื่ออ่านองค์ประกอบคอลเลกชันลงในตัวแปร

ในท้ายที่สุด:
ทั้งหมดนี้เพื่ออะไร? ฉันได้ข้อสรุปหลายประการสำหรับตัวเอง:

1. หากเป็นไปได้ที่จะใช้วงจรพิเศษ - "สำหรับทุกคน" ก็ควรใช้มันจะดีกว่า อย่างไรก็ตาม ตัวมันเองใช้เวลาดำเนินการนานกว่าลูปอื่น ๆ แต่ความเร็วในการเข้าถึงองค์ประกอบคอลเลกชันนั้นสูงกว่ามาก
2. หากคุณทราบจำนวนการวนซ้ำล่วงหน้า ให้ใช้ "ForPo" “สำหรับตอนนี้” จะทำงานช้าลง
3. หากคุณใช้ลูป "If" โปรแกรมเมอร์คนอื่นจะไม่เข้าใจคุณอย่างชัดเจน

  21
 //ฟังก์ชันสร้างการแสดงค่าที่อ่านง่าย // ตัวอย่างการจัดรูปแบบตัวเลข ValueFormat = Format(123456.789, " NRT=10; NRT=2"); //ValueFormat = "123,456.79"ValueFormat = รูปแบบ(123456.789, "HH=0; NHV=2"); //ค่า   16
 ค้นหาข้อความแบบเต็ม - จะช่วยให้คุณค้นหาได้ ข้อมูลข้อความวางเกือบทุกที่ในการกำหนดค่าที่ใช้ ในกรณีนี้ คุณสามารถค้นหาข้อมูลที่จำเป็นได้ตลอดทั้งการกำหนดค่าโดยรวมหรือโดยการจำกัดให้แคบลง...   8
 "จุดเวลา" เป็นสนามเสมือนที่ไม่ได้จัดเก็บไว้ในฐานข้อมูล ประกอบด้วยวัตถุ Point in Time (ซึ่งรวมถึงวันที่และ LINK TO A DOCUMENT) ใน 7.7 มีแนวคิดของ Document Position และใน 8.x Point in Time To get...   6
 สำหรับ 8.x FindByLinks (FindDataByRef) ไวยากรณ์: FindByLinks (รายการลิงก์) พารามิเตอร์: รายการลิงก์ ประเภทที่ต้องการ: อาร์เรย์ อาร์เรย์ที่มีรายการลิงก์ไปยังออบเจ็กต์ที่ต้องการค้นหาลิงก์ ...

ในบทความนี้เราจะพิจารณาการสร้างภาษาโปรแกรม 1C เช่น รอบ.

มีสามวิธีในการจัดระเบียบลูป

1. วนซ้ำโดยใช้นิพจน์เชิงตรรกะ (ดำเนินการจนกระทั่ง การแสดงออกทางตรรกะจริง)
2. วนซ้ำผ่านคอลเลกชัน

ลองดูแต่ละวิธีเหล่านี้

วนซ้ำโดยใช้ตัวแปรตัวนับวนซ้ำ

ไวยากรณ์:

ด้วยวิธีการจัดระเบียบลูปนี้ ตัวแปรตัวนับจะถูกกำหนดให้กับค่าที่แน่นอน ค่าเริ่มต้นและจะดำเนินการตราบเท่าที่ค่าของตัวแปรตัวนับน้อยกว่าหรือเท่ากับค่าสุดท้ายที่ระบุ

ในการวนซ้ำแต่ละครั้ง ค่าตัวนับจะเพิ่มขึ้นทีละหนึ่ง นี่คือตัวอย่างพื้นฐานที่สุดของการวนซ้ำ:

ต่างจากภาษาการเขียนโปรแกรมอื่น ๆ 1C ไม่มีความสามารถในการระบุขั้นตอนในรอบ หากจำเป็น สามารถทำได้โดยเพิ่มค่าที่ต้องการให้กับตัวนับภายในลูป

วนซ้ำโดยใช้นิพจน์บูลีน

ไวยากรณ์:

ปฏิเสธ = เท็จ ; GeneratorRandom = NewRandomNumberGenerator(1) ; จนกระทั่งรอบความล้มเหลว RandomNumber = GeneratorRank สุ่มตัวเลข(0, 10); ถ้า RandomNumber > 5 ความล้มเหลว = True ; สิ้นสุดถ้า ; เอ็นด์ไซเคิล ;

นั่นคือการวนซ้ำจะทำงานจนกว่าจะสร้างตัวเลขสุ่มที่มากกว่าห้า

วนซ้ำผ่านคอลเลกชัน

ในภาษาการเขียนโปรแกรม 1C มีสิ่งดังกล่าวเป็นคอลเลกชัน เป็นชุดขององค์ประกอบที่อยู่ภายในวัตถุ

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

ที่นี่ <ЭлементКоллекции> เป็นตัวแปรที่องค์ประกอบจากคอลเลกชันถูกวางตามลำดับ และภายในลูปก็จะถูกประมวลผลตามนั้น
ตามตัวอย่าง ฉันจะให้คุณวนซ้ำในแถวของตารางค่า ให้มันเรียกว่า ตารางผลิตภัณฑ์และมีลักษณะดังนี้:

มาดูตารางนี้แบบวนซ้ำแล้วสำหรับแต่ละแถวเราจะแสดงข้อความพร้อมชื่อและราคาของผลิตภัณฑ์:

ในความเป็นจริงสิ่งเดียวกันนี้สามารถทำได้โดยใช้ตัวเลือกแรกนั่นคือในการวนซ้ำโดยใช้ตัวนับ:

จำนวนแถว = TableProducts ปริมาณ() ; สำหรับตัวนับ = 0 ตามจำนวนแถว - 1 รอบตาราง แถว = TableProducts[ ตัวนับ] ; ชื่อ = แถวของตาราง ชื่อ; ราคา = แถวตาราง ราคา; ข้อความ = MessageToUser ใหม่; ข้อความ. ข้อความ = "ชื่อผลิตภัณฑ์:"+ ชื่อ + "; ราคา: " + ราคา; ข้อความ. เพื่อรายงาน() ; เอ็นด์ไซเคิล ;

แต่อย่างที่เราเห็น การใช้การข้ามองค์ประกอบคอลเลกชันนั้นง่ายกว่าและสะดวกกว่ามาก

ผู้ประกอบการเสริม

มักจะมีสถานการณ์ที่จำเป็นต้องขัดจังหวะการดำเนินการของลูปหรือดำเนินการต่อไปจากการวนซ้ำครั้งถัดไป ขึ้นอยู่กับบางสิ่งบางอย่าง

การหยุดชะงักจะดำเนินการโดยใช้ตัวดำเนินการ ยกเลิก. ในกรณีนี้ การดำเนินการของลูปถูกขัดจังหวะ และการควบคุมจะถูกถ่ายโอนไปยังโครงสร้างภาษาที่ตามหลังลูป หากคุณต้องการย้ายไปยังการวนซ้ำครั้งถัดไป คุณต้องใช้โอเปอเรเตอร์ ดำเนินการต่อ. จากนั้นการควบคุมจะถูกถ่ายโอนไปยังจุดเริ่มต้นของลูป เรามาอธิบายด้วยตัวอย่างเล็กๆ น้อยๆ:

เราข้ามศูนย์เพราะว่า คุณไม่สามารถหารด้วยศูนย์ได้ และการวนซ้ำจะถูกดำเนินการทั้งหมดห้าครั้งสำหรับค่าของตัวแปร เคาน์เตอร์จาก 0 ถึง 4

โซลูชัน 1C แต่ละตัวบนแพลตฟอร์ม 1C:Enterprise 8 มีความสามารถที่หลากหลาย อย่างไรก็ตาม มีเทคนิคสากลที่สามารถใช้ในการกำหนดค่าใดๆ ได้ ในบทความนี้ เรากำลังเปิดชุดสิ่งพิมพ์ซึ่งนักระเบียบวิธี 1C จะพูดถึงความสามารถสากลของแพลตฟอร์ม 1C:Enterprise 8 เริ่มจากวิธีที่สำคัญที่สุดวิธีหนึ่งในการเพิ่มประสิทธิภาพการทำงาน - ด้วยคำอธิบายของปุ่ม "ลัด" (ตามกฎแล้วการกระทำจากแป้นพิมพ์จะดำเนินการเร็วกว่าการกระทำผ่านเมนูโดยใช้เมาส์) เมื่อเชี่ยวชาญปุ่มลัดแล้ว คุณจะลดความซับซ้อนของการดำเนินการซ้ำ ๆ บ่อยครั้ง

ตารางที่ 1

ปุ่มลัด: การกระทำระดับโลก

การดำเนินการส่วนกลางคือการดำเนินการที่คุณสามารถทำได้ในสถานะของโปรแกรมใดก็ได้ มันไม่สำคัญว่าอะไร ช่วงเวลานี้เปิดใน 1C: องค์กร สิ่งสำคัญคือแอปพลิเคชันไม่ยุ่งกับการทำงานใดๆ

การดำเนินการทั่วโลกคือการดำเนินการที่สามารถเรียกได้ทุกที่ในแพลตฟอร์ม 1C:Enterprise 8 ที่ทำงานอยู่ ไม่ว่าจะเกิดอะไรขึ้นกันแน่ก็ตาม การกำหนดค่าที่ทำงานอยู่ความหมายของการดำเนินการส่วนกลางจะไม่เปลี่ยนแปลง (เช่น การกด Ctrl+N จะแสดงกล่องโต้ตอบสำหรับการสร้างเอกสารใหม่เสมอ)

ตารางที่ 1

ปุ่มลัดสำหรับการดำเนินการทั่วโลก

ปุ่มลัด: การดำเนินการทั่วไป

การดำเนินการทั่วไป- การกระทำที่มีความหมายเหมือนกันในออบเจ็กต์การกำหนดค่าที่แตกต่างกัน แต่พฤติกรรมของแพลตฟอร์ม 1C:Enterprise 8 จะเปลี่ยนไปขึ้นอยู่กับว่าคุณใช้การกระทำนี้หรือการกระทำทั่วไปที่ใด ตัวอย่างเช่น การกดปุ่ม "Del" จะทำเครื่องหมายองค์ประกอบไดเร็กทอรีปัจจุบันสำหรับการลบ หากคุณอยู่ในรายการหน้าต่างองค์ประกอบไดเร็กทอรี หรือลบเนื้อหาของเซลล์ปัจจุบันของเอกสารสเปรดชีตหากคุณกำลังแก้ไข

ตารางที่ 2

ปุ่มลัดสำหรับการดำเนินการทั่วไป

ปุ่มลัด: การจัดการหน้าต่าง

ส่วนนี้จะรวมปุ่มลัดที่ใช้ร่วมกันกับทุกหน้าต่างและรูปแบบของแพลตฟอร์ม 1C:Enterprise

ตารางที่ 3

ปุ่มลัดสำหรับจัดการหน้าต่าง

ปุ่มลัด: การจัดการแบบฟอร์ม

ต่อไปนี้เป็นการรวบรวมคีย์ "ฮอต" ที่ทำให้การทำงานง่ายขึ้นและเร็วขึ้นด้วยรูปแบบต่างๆ ที่สร้างขึ้นในการกำหนดค่าที่เขียนบนแพลตฟอร์ม 1C:Enterprise

ตารางที่ 4

ปุ่มลัดสำหรับจัดการแบบฟอร์ม

ปุ่มลัด: การทำงานกับรายการและแผนผัง

ปุ่มลัดในส่วนนี้จะช่วยให้คุณทำงานได้อย่างมีประสิทธิภาพโดยไม่ต้องใช้เมาส์ในรายการและแผนผังจำนวนมากที่ใช้งานอยู่ในออบเจ็กต์การกำหนดค่าต่างๆ บนแพลตฟอร์ม 1C:Enterprise 8

ตารางที่ 5

ปุ่มลัดสำหรับการทำงานกับรายการและแผนผัง

ปุ่มลัด: ช่องป้อนข้อมูล

ช่องรายการ- องค์ประกอบการควบคุมที่ใช้งานอยู่ในหลาย ๆ ที่ในรูปแบบการกำหนดค่า ปุ่มลัดสำหรับช่องป้อนข้อมูลช่วยให้คุณสามารถดำเนินการที่ใช้บ่อยกับช่องดังกล่าวได้อย่างรวดเร็ว การใช้คีย์เหล่านี้มีประโยชน์อย่างยิ่งในกรณีที่ผู้พัฒนาการกำหนดค่าไม่ได้จัดเตรียมปุ่มควบคุมฟิลด์อินพุตที่คุณต้องการ

ตารางที่ 6

ปุ่มลัดสำหรับช่องป้อนข้อมูล

ปุ่มลัด: ฟิลด์รูปภาพ

ฟิลด์รูปภาพ- นี่คือองค์ประกอบมาตรฐานของแพลตฟอร์ม 1C:Enterprise 8 สำหรับการแสดง ภาพกราฟิก. ปุ่มลัดจะช่วยให้ดูภาพที่อยู่ในช่องรูปภาพได้อย่างสะดวกสบาย

ตารางที่ 7

ปุ่มลัดสำหรับช่องรูปภาพ

ปุ่มลัด: เครื่องมือแก้ไขเอกสารสเปรดชีต

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

ตารางที่ 8

ปุ่มลัดสำหรับเครื่องมือแก้ไขสเปรดชีต

ปุ่มลัด: โปรแกรมแก้ไขเอกสารข้อความ

ปุ่มลัดเมื่อแก้ไขข้อความในพื้นที่ข้อความและเอกสารสามารถเร่งความเร็วและลดความซับซ้อนของกระบวนการได้อย่างมาก

ตารางที่ 9

ปุ่มลัดสำหรับตัวแก้ไข เอกสารข้อความ

คุณสามารถออกจากลูปและถ่ายโอนการควบคุมไปยังคำสั่งปฏิบัติการแรกที่ตามหลังลูปได้โดยใช้ตัวดำเนินการยกเลิก หากต้องการข้ามคำสั่งลูปบางส่วนและไปยังคำสั่งวนซ้ำครั้งถัดไป ให้ใช้คำสั่ง Continue ในกรณีนี้ การควบคุมจะถูกถ่ายโอนไปยังผู้ปฏิบัติงานที่จุดเริ่มต้นของลูป ไปยังผู้ปฏิบัติงาน For หรือ While ตัวดำเนินการยกเลิกและดำเนินการต่อไม่ได้ใช้แยกกัน แต่ถูกสร้างไว้ในโครงสร้าง "if"

ตัวอย่าง.รายงานค่าของค่าคงที่ที่ไม่ใช่คาบแรก ประเภทตัวเลข.

// ขั้นตอนที่พิมพ์ค่าของค่าคงที่ที่ไม่ใช่คาบแรกของประเภทตัวเลข

// รันจากการประมวลผล ตัวอย่างโพรซีเดอร์ Execute()

// ธงเอาท์พุท

TotalConstant = ข้อมูลเมตา.คงที่(); สำหรับ in = 1 สำหรับการวนซ้ำคงที่ทั้งหมด

ถ้า Metadata.Constant(in).Periodic = 1 แล้ว

ดำเนินการต่อ; // ถ่ายโอนการควบคุมไปยังตัวดำเนินการ For endIf;

ถ้า Metadata.Constant(in).Type = "Number" แล้ว

แนวคิด = Metadata.Constant(in).Identifier;

รายงาน (iden +" " + Constant.GetAttribute (iden)); // ยอดคงเหลือของวันที่ 1 แฟล็กเอาท์พุต = 1;

ขัดจังหวะ; // ออกจากวงก่อนเวลาสำหรับ

สิ้นสุดถ้า; สิ้นสุดรอบ; // สำหรับ

ถ้าธงเอาท์พุต = 0 แล้ว

endProcedure // ดำเนินการ

ความคิดเห็น บางครั้งโปรแกรมเมอร์ใน For loop แทนที่จะใช้ตัวดำเนินการ Abort หันไปเปลี่ยนค่าของตัวแปร loop ใน.ดังนั้น ในกรณีของเรา ตัวดำเนินการยกเลิกสามารถถูกแทนที่ด้วยตัวดำเนินการ

ใน = รวม Const;

อย่างไรก็ตาม การกระทำดังกล่าวจัดว่าเป็นรูปแบบการเขียนโปรแกรมที่ไม่ดี

โปรแกรมเมอร์บางคนเชื่อว่าตัวดำเนินการขัดจังหวะแบบวนซ้ำ (ใน 1C คือ Continue และ Abort) ทำให้โครงสร้างของโปรแกรมแย่ลง ดังนั้นเมื่อใดก็ตามที่เป็นไปได้ จงปฏิเสธที่จะใช้พวกมัน มันถูกใช้แทน เงื่อนไขการรวม

ให้เราปฏิบัติตามหลักการด้วย การเขียนโปรแกรมแบบมีโครงสร้างโดยการเขียนโค้ดที่แก้ปัญหาข้างต้นโดยใช้การรวมกันของเงื่อนไข ในโค้ดนี้ เราจะต้องละทิ้ง For loop โดยแทนที่ด้วย While loop

// กระบวนการที่ใช้การรวมกันของเงื่อนไขและพิมพ์ค่าของเงื่อนไขแรก

// ค่าคงที่ที่ไม่ใช่คาบของประเภทตัวเลข รันจากการประมวลผล ขั้นตอนตัวอย่าง Execute()

ตัวแปร allConstants, แฟล็กเอาท์พุต, ใน, แนวคิด; ClearMessageWindow();

// ธงเอาท์พุทจะใช้ค่า 1 หากตรวจพบ

// ค่าคงที่ที่ไม่ใช่คาบของประเภทตัวเลข แฟล็กเอาท์พุต = 0;

TotalConstant = ข้อมูลเมตา.คงที่();

ใน = 1; // จำนวนคงที่สำหรับตอนนี้ (ใน<= всегоКонстант) и (флагВывода = 0) цикл

ถ้า (Metadata.Constant(in).Periodic = 0) และ (Metadata.Constant(in).Type = "Number") แล้ว

แนวคิด = Metadata.Constant(in).Identifier; รายงาน (iden + " " + Constant.GetAttribute (iden)); แฟล็กเอาท์พุต = 1;

สิ้นสุดถ้า;

ใน = ใน + 1; // อย่าลืมเลื่อนไปยังจุดสิ้นสุดคงที่ถัดไปของ Loop // สำหรับ

ถ้าธงเอาท์พุต = 0 แล้ว

รายงาน ("ไม่มีค่าคงที่ประเภทตัวเลขที่ไม่เป็นระยะในตัวกำหนดค่า"); สิ้นสุดถ้า;

endProcedure // ดำเนินการ

ในโค้ดข้างต้น การรวมกันของเงื่อนไขจะใช้เมื่อเขียน LP สองครั้ง: (in<= всегоКонстант) и (флагВывода = 0)

(Metadata.Constant(in).Periodic = 0) และ (Metadata.Constant(in).Type = "Number") ซึ่งช่วยให้เราสามารถแยกตัวดำเนินการดำเนินการต่อและยกเลิกออกจากขั้นตอนได้