ሉፕ ፈርጋሚዎች ጠቃሚ ቢሆንም

ተነፍቶ ፈርጋሚዎች ገና አንድ ጠቃሚ ሳለ ሉፕ በደንብ ላይሆን ይችላል. ይህ ፓስካል መካከለኛ ውስጥ ዓይነተኛ ዑደት ክወና ነው. ይህ በተለያዩ ችግሮች ውስጥ ጠቃሚ ነው, ስለዚህ አንድ ፕሮግራም ማድረግ የምንችለው እንዴት እንደሆነ እንመለከታለን ይህ ዑደት.

ዑደት ፓስካል ቢሆንም እንደሚከተለው አደረገ ያስፈልገዋል:

• ቢሆንም (ሁኔታ) (አስፈላጊ ከሆነ ይጀምራሉ) ነው.
• እርምጃ ስልተ.
• መጨረሻ (ቡድኑ ተገኝነት ይጀምራሉ ጊዜ).

የመጀመሪያው መስመር - "ቆብ" ትዕዛዝ. ሁኔታ ኢንቲጀር ላይ ገላጭ ተለዋዋጮች በመገደብ የቁጥር እሴት (መ <100), ሊሆን ይችላል ተለዋዋጭ አይነት ቡሊያን (t = እውነት) ወይም ሕብረቁምፊ (የቴክስ = 'ጤና ይስጥልኝ'). መያዣውን ከአንድ ሁኔታ ለማከናወን አስፈላጊ ከሆነ, ትእዛዝ ልበሱ "ጀምር". የሚከተለው ፕሮግራም የ እያለ ቅየራ ምልልስ የሚያስፈጽምበትን ያለውን ሁኔታ ሥር መፈጸም እንዳለበት እርምጃዎች ይገልጻል. ይህም ትዕዛዞች, ሂደቶች, ተግባራት, እንዲህ ዑደቶች የተለያዩ ሊይዝ ይችላል. መጨረሻ ላይ እርግጥ ነው, መጀመሪያ መስመር "ጀምር" ነበር በስተቀር, ትእዛዝ "ፍጻሜ" ማስቀመጥ አስፈላጊ ነው.

አሁን ትዕዛዞችን ይገልጻል የያዙ ምሳሌ ፕሮግራሞች እንመልከት. ለምሳሌ ያህል, እኛ የመጀመሪያው n መቁጠሪያ ቁጥሮች ድምር ማግኘት ይኖርብናል. (ሁልጊዜ ከዜሮ በላይ ይሆናል ቢሆንም) በዚህ መጨረሻ ድረስ, መጀመሪያ እኛ n እንመልከት. ከዚያም ዑደት ይጀምራል. ይህ n ዋጋ እስኪደርስ ድረስ, እሱ መስራት እንዳለው መረዳት አስፈላጊ ነው. እዚህ በዚያ ችግር ፈቺ የሚሆን ከአንድ በላይ አማራጭ ነው, ነገር ግን እኛ መጫን የሚፈልጉትን ግብረ አጠቃቀም ተጽዕኖ እውነታ ላይ እናተኩራለን. በነባሪነት, ይህ ተለዋዋጭ እኔ በመጠቀም እንዳደረገ ነው. ከእናንተ ጋር መጀመር በፊት እሱ "1" አንድ እሴት መመደብ አስፈላጊ ነው. አጸፋዊ እያንዳንዱ አዲስ ተደጋጋሚ ድርጊቶች ጋር ቃል ሆኖ ያገለግላል. ተልእኳችን ላይ በመመስረት, ያለማቋረጥ ወደ አንድ ለማከል አላቸው. በመሆኑም አንድ የቁጥር ኢንዴክስ አፀፋዊ ቁጥር n ዋጋ ጋር እኩል ነው. ይህ ሥራ ፕሮግራም ሲጠናቀቅ ለ ምልክት ይሆናል. መጠኑን ለማስላት እኛ ተለዋዋጭ k ማስተዋወቅ. ይህም እያንዳንዱ ድግግሞሽ ጋር ካለፈው ዋጋ ሲደመር ቁጥር እኔ ይመደባሉ. ቆጠራ መጨረሻ በኋላ ብቻ ማያ ገጹ ላይ K ገላጭ ተለዋዋጮች ላይ እንድንደርስ. ይህ ፕሮግራም ቃላት ላይ አጭር ማብራሪያ ነው. አሁን ኮድ እንመለከታለን.

Readln (n); '- እኛ ቁጥር n ማንበብ.

i: = 1; K: = 0; '- እኛ ድምር ዋጋ ውጭ ከዜሮ, ሥራ ቆጣሪ ይገባሉ.

እኔ =

K: = k + i; i: = i 1 +; '- መጠን ዝማኔ ቆጣሪ ላይ እሴት መጨመር.

ያበቃል; '- ሥራ መግለጫ በማጠናቀቅ ላይ ሳለ.

Writeln (ተ); - እነዚህ መደምደሚያዎች.

እኛ ሌላ ምሳሌ እንመለከታለን. አሁን ጽሑፉ ድርድር ለማዳን እንደሆነ ሰሌዳ n ስሞች ጋር ተጠቃሚው መሙላት አለብዎት. እዚህ ያለው መርህ ቀደም ጋር ተመሳሳይ ነው. ቁጥር n ያስገቡ, እኛ እያለ ቅየራ ምልልስ ስብስብ ሁኔታ ገቢር. በተጨማሪም, ትውስታ ሴል ድርድር ወደ ሰሌዳ ግቤት ያመለክታል. አዘጋጅ ግብረ በተደጋጋሚ ክወናዎችን ተጠናቀቀ. ቀጥሎም ቆጣሪ ዳግም አስጀምር እና ማሳያ ድርድር ነው. እናንተ ዜሮ ሕዋስ ድርድር ለማምጣት አይችሉም ጀምሮ ሆኖም, (ይህ የለም), በዚህ አውድ ውስጥ ቆጣሪ አንድ አንድ እሴት ለመመደብ ማለት ዳግም. እንደሚከተለው ፕሮግራሙ ኮድ ነው: በዚህ ፕሮግራም ውስጥ አብዛኛዎቹ በ n መግቢያ ያበቃል ይህም የተፈጥሮ አዎንታዊ ቁጥሮች በርካታ, ድምር ይቀበላሉ. ፓስካል ዑደት ፈጽሞ ሳለ, የመልሶ በሌለበት መሆኑን መረዳት ይገባል ሲጨርስ. እርስዎ ድንገት ስለ ከረሱት, ፕሮግራም ኮድ መገደል ውስጥ, ወደ ኮምፒውተር መዋል ይጀምራል. ይህ አዝራር "ለአፍታ መግቻ" መታከም ነው. ሐ ላይ መጠቀም ልዩነት ገላጭ ተለዋዋጮች ለ አጸፋዊ እንደመሆኑ.

Readln (n);

ሐ: = 1;

ቢሆንም <= n "ለመጀመር ምን ሐ - ተክል ሁኔታ.

Readln (ሀ [ሐ]); ሐ: = ሐ + 1; '- እኛ ቆጣሪ ላይ እሴት መጨመር, ሰሌዳ ውሂብ ያነባል.

ያበቃል; '- ዑደት በማጠናቀቅ.

ሐ: = 1; '- የመጀመሪያው እሴት ለመመለስ schetiku.

ቢሆንም ሐ <= n ጻፍ ማድረግ (ሀ [ሐ]); '- ስም n ያሳዩ.

ከዚያም ማያ n ሰሌዳ ከ ገብቶ ሊሆን በዚያ ስሞች ላይ ያገኛሉ. በዚህ ጊዜ, አንድ ወቅት ቀለበት ያበቃል. ይህ ለጀማሪዎች እና የተራቀቁ ተጠቃሚዎች ሁለቱም የሚጠቀሙበት ነው. እሱም መቁጠር, እና ስለዚህ በፕሮግራም እና ተጨማሪ ተለዋዋጭ ልዩ ትኩረት የሚጠይቅ አይደለም.