ක්රමලේඛකයාට ලුප්ත ප්රයෝජනවත් වේ

ආරම්භක ක්රමලේඛකයාට තවමත් ලූප් එකක්වත් ප්රයෝජනවත් නොවේ. මෙය පැස්කල් පරිසරයේ සාමාන්ය චක්රීය ක්රියාකාරීත්වයක්. විවිධ කර්තව්යයන් සඳහා භාවිතා කිරීම පහසුය. එබැවින් මෙම චක්රය වැඩසටහනට ඇතුලත් කළ හැකි ආකාරය විශ්ලේෂණය කරන්නෙමු .

චක්රය අතරතුරදී පැස්කල් පහත සඳහන් ආකෘතිය අවශ්යය:

• (තත්වය) (අවශ්ය වුවහොත්) ආරම්භ කරන්න.
• ක්රියාකාරී ඇල්ගොරිතමය.
• අවසානය (ආරම්භක විධානය තිබේ නම්).

පළමු පේළිය විධානයෙහි "අග්රය" වේ. තත්වය යනු විචල්ය Integer (d <100) හි සීමිත සංඛ්යාත්මක අගයක් විය හැක, බූලූන් වර්ගයේ විචල්යයක අගය (t = True) හෝ string (tex = 'hello') විය හැකිය. මෙම ලූපයේ ශරීරය තුළ එක් කොන්දේසියක් සම්පූර්ණ කිරීමට නම් "ආරම්භක" විධානය සකසා ඇත. පහත දැක්වෙන්නේ ක්රියාවලිය සිදු කළ විට ක්රියාකාරීත්වයේ ක්රියා විස්තර කිරීමයි. විවිධ චලන, ක්රියාපටිපාටි, කාර්යයන්, චක්ර වැනි. අවසානයේ දී, ඔබ විසින් "අවසානය" විධානය කල යුතු නම්, ඇත්ත වශයෙන්ම, පළමු පේළිය "ආරම්භ" වේ.

විස්තර කළ විධානය අඩංගු වැඩසටහන් පිළිබඳ උදාහරණ සලකා බලන්න. උදාහරණයක් ලෙස, පළමු n ධන නිඛිලවල එකතුව සොයාගත යුතුය. මේ සඳහා අපි මුලින් අනුගමනය කරමු (එය සෑම විටම ශුන්යයට වඩා වැඩි විය යුතුය). එවිට ලූපය ආරම්භ කරන්න. අංක n අගය වන තුරු එය වැඩ කළ යුතු බව වටහා ගත යුතු ය. ගැටළුවට එක් විසඳුමක් වඩා තිබේ, නමුත් අප විසින් ස්ථාපනය කල යුතු කවුළුවට භාවිතා වන බලපෑම් කෙරෙහි අවධානය යොමු කරනු ඇත. පෙරනිමියෙන්, විචල්යය i සඳහා මෙය භාවිතා වේ. ඔබ එය සමඟ වැඩ කිරීමට පෙර, එය "1" අගය ලබා දිය යුතුය. කවුන්ටරයේ සෑම නව චක්රයක් සඳහාම පදයක් ලෙස ක්රියා කරයි. අපගේ කර්තව්යය මත පදනම්ව, අප නිරන්තරයෙන්ම එක් කිරීමට අවශ්යය. මෙලෙස, කවදා හෝ සංඛ්යාංක ප්රතිශතයක් අංකයේ අගය සමාන වේ. මෙම වැඩසටහන අවසන් කිරීම සඳහා සංඥාවක් වනු ඇත. සාරාංශය ගණනය කිරීම සඳහා විචල්යය k ලෙස හඳුන්වයි. එක් එක් නව පුනරාවර්තනය සමඟ, එය පෙර අගය එකතු කළ විට i අංකය. අවසන් ගනන් කිරීමෙන් පසු, ඔබ මුලින්ම k තිරයට ගෙනිය යුතුය. මෙම වැඩසටහනේ වචන කෙටියෙන් පැහැදිලි කිරීමකි. දැන් අපි වැඩසටහන් කේතය දෙස බලා සිටිමු.

Readln (n); '- අංකය n කියවිය.

I: = 1; K: = 0; '- අපි ප්රතිරෝධය ක්රියාත්මක කරන්නෙමු, අපි එකතුවේ වටිනාකම නැවත සකසන්නෙමු.

මම ආරම්භ කිරීමට පටන් ගත්තෙමි - ලූපයේ කොන්දේසිය සකසන්න.

K: = k + i; I: = i + 1; '- වටිනාකමට වටිනාකම එකතු කරන්න, කවුළුව යාවත්කාලීන කරන්න.

අවසානය; - අපි කල් පවතින විස්තරය අවසන් කරමු.

Writeln (k); දත්ත ලබා දෙන්න.

තව උදාහරණයක් ගැන අපි දැනගමු. දැන් අපට අවශ්ය වන්නේ යතුරු පුවරුවේ සිට නාම නාමයන් පිරවීම සඳහායි. මෙහි මූලධර්මය අතීතයට සමානයි. අංකය n ඇතුල් කරන්න, ලූපය සක්රිය කරන්න, තත්වය සකස් කරන්න. තවදුරටත්, අපි අරාවට සෛල මතකය වෙතට යතුරු පුවරුවේ යෙදවුම් අඟවනු ලැබේ. අපි කවුළුව සැකසූ අතර, අපි නැවත නැවතත් කටයුතු අවසන් කරමු. ඊළඟට, කවුළුව නැවත සැකසීමට සහ අරාව නිමැවුම කරන්න. මෙම සන්දර්භය තුළ ප්රතිවිරුද්ධ කවුළුව ප්රතිස්ථාපනය කිරීම යනු අරාවෙහි ශුන්ය සෛල නිරූපනය කළ නොහැක (එය නොපවතින බැවින්) එය එකක වටිනාකමක් පැවරීමයි. වැඩසටහනේ කේතය පහත පරිදි වේ: මෙම වැඩසටහනෙන් ඔබට ස්වභාවික ධනාත්මක සංඛ්යා මාලාවක් එකතුවී, ඇතුල් කරන ලද අංක n න් අවසන් වේ. කවුන්ටරයක් නොමැති අවස්ථාවක, පැස්කල් ලූප් කවදාවත් කවදාවත් නොපවතින බව තේරුම් ගත යුතුය . ඔබ හදිසියේම මේ ගැන අමතක නම්, ඔබ වැඩසටහන් කේතය ක්රියාත්මක කරන විට, පරිගණකය සවි කිරීමට පටන් ගනී. මෙය "Pause Break" බොත්තම සමඟ සලකනු ලැබේ. විවිධාකාරයේ ප්රතිරූපයක් ලෙස, විචල්ය c භාවිතා කරන්න.

Readln (n);

C: = 1;

C <= n ආරම්භ කිරීමට පටන් ගනිමු - කොන්දේසිය සැකසීම.

Readln (a [c]); C: = c + 1; '- යතුරු පුවරුවේ දත්ත කියවා, ප්රතිදානය අගයට එකතු කරන්න.

අවසානය; - අපි චක්රය අවසන් කරන්නෙමු.

C: = 1; '- මුල් අගයට කවුන්ටරය වෙත ආපසු ලබා දෙන්න.

C <= n ලියන්න (a [c]); '- නාමයන් පෙන්වයි.

ඉන්පසු ඔබට යතුරු පුවරුවේ සිට ඇතුලත් කර ඇති තිරය මත ඔබට නමක් ලැබෙනු ඇත. චක්රය අවසානයත් සමග මෙම මිත්රයා හමුවෙහි. එය ආරම්භකයින් සහ දියුණු පරිශීලකයන් විසින් භාවිතා කරනු ලැබේ. එය ප්රතිවිපාකයක් නොමැති බැවින්, එය ක්රමලේඛකයාගේ සහ අතිරේක විචල්යයක විශේෂ අවධානයක් අවශ්ය වේ.