Ҳангоми ҳалли муфид барои барномарези муфид

Барномаи барномарезии навиштор ҳанӯз метавонад дар як вақт фоиданок бошад. Ин амалиётҳои даврӣ дар минтақаи Pascal аст. Ин дар масъалаҳои гуногун муфид аст, барои ҳамин дар, ки чӣ тавр шумо метавонед барномаи кунад назар дар ин давра.

Силсилаи Дар ҳоле, Паскал ба таври зерин ташкил дод талаб мекунад:

• Ҳангоми (ҳолати) кор кардан (агар лозим бошад).
• Алгоритми амал.
• End (агар фармони асосӣ вуҷуд дошта бошад).

Хати аввал ин «капит» -и фармон аст. Вазъият метавонад маҳдудияти рақамии тағйирёбандаи Тивер (d <100) бошад, арзиши тағйироти навъи лотини (t = True) ё string (tex = 'hello'). Фармони "оғози" муқаррар карда мешавад, агар зиёда аз як ҳолат дар мақоми роҳбарӣ иҷро карда шавад. Тавсифи амалҳое, ки барнома бояд иҷро карда шавад, ба шарте, ки ҳангоми гузаштан иҷро шавад. Дар ин ҳолатҳо фармоиш, тартиби, функсияҳо, монанди давраҳо мавҷуданд. Дар охир, шумо бояд фармони "охири" -ро бигиред, агар, аломати "аввал" бошад.

Акнун мисолҳои барномаҳои, ки дорои амри тасвиршуда мебошанд, ба назар гиред. Масалан, ба мо лозим аст, ки теъдоди аввалин адади мусбии мусаввабро пайдо намоем. Барои ин, мо аввал ба мо ниёз медиҳем (бигзор ҳамеша аз сифр бузургтар бошад). Сипас сарпӯшро сар кунед. Бояд фаҳмид, ки он бояд то он вақте, ки арзиши рақами n ба даст оварда шавад, муҳим аст. Бисёртар аз як ҳалли мушкилот вуҷуд дорад, аммо мо ба оне, ки ба истифодаи миёнаравӣ таъсир мерасонад, бояд ба назар гирем. Бо нобаёнӣ, ин хосият барои ман истифода мешавад. Пеш аз оғози кор бо он, шумо бояд ба он арзиши "1" -ро таъин кунед. Муштарӣ ҳамчун мафҳум барои ҳар як амали ҷории миёнаравӣ хизмат мекунад. Дар асоси вазифаи мо, мо бояд доимо ба он илова кунем. Ҳамин тариқ, рӯзи якум рақами ададӣ ба рақами n баробар мешавад. Ин сигнал барои бекор кардани барнома хоҳад буд. Барои ҳисоб кардани ҳаҷми, мо клавишаи кликро ҷорӣ мекунем. Бо ҳар як такрори нав, он ба арзиши қаблӣ ва рақами i таъин карда мешавад. Пас аз санҷиши ниҳоӣ, шумо бояд фақат k-ро ба экрани коди бароред. Ин шарҳи кӯтоҳи ин барнома дар сухан аст. Акнун мо ба коди барнома назар мекунем.

Readln (n); '- рақами n -ро хонед.

Ман: = 1; K: = 0; '- мо амалиётро ба кор бурдем ва арзиши маблағи онро барқарор мекунем.

Дар ҳоле, ки ман <= n оғоз карда истодаед »- вазъияти довталабиро муқаррар кунед.

K: = k + i; Ман: = 1 + 1; '- илова кардани арзиш ба маблағи, навсозии слайд.

End; "- мо тавсифи дарсро анҷом медиҳем.

Writeln (k); - маълумотро дар бар мегирад.

Биёед бо мисоли дигар шинос шавем. Акнун мо ба истифодабаранда ниёз дорем, ки номҳои клавиатураро пур кунанд, ки он маҷмӯи матнро захира хоҳад кард. Принсип дар ин ҷо монанд аст. Рақами n-ро ворид кунед, дар вақти фаъол гардондани ҳолати фаъолро муқаррар созед. Илова бар ин, мо ворид намудани воридотро аз клавиатура ба хотираи ҳуҷайраи асбобҳо нишон медиҳем. Мо counter-ро истифода мебарем, мо амалиётҳои такрорӣ анҷом медиҳем. Баъд аз он, сатрро аз нав оғоз кунед ва варақаро иҷро кунед. Дар ҳақиқат, ҷойиваз кардани сатр дар ин матн маънои онро дорад, ки он арзиши якро дорад, зеро шумо наметавонед ҳуҷайраҳои сифрии асбобро нишон диҳед (он вуҷуд надорад). Рамзи барномаро чунин мешуморед: аз ин барнома шумо шумораи силсилаҳои рақами мусбӣеро, ки бо рақами воридшуда ба анҷом мерасад, ба даст меоред. Бояд фаҳмид, ки дар набудани мубориза, Дар ҳоле ки даври Паскал ҳеҷ гоҳ ба охир мерасад. Агар шумо ногаҳон дар бораи ин фаромӯш накунед, пас вақте ки шумо коди барномаро иҷро мекунед, компютер оғоз мекунад, ки овезон аст. Ин бо тугмачаи "Прага" вайрон карда мешавад. Дар муқоиса бо нишондиҳандаҳои гуногун, c истифода кунед.

Readln (n);

C: = 1;

Ҳангоме, ки C <= n оғоз меёбад - ҳолати муқаррариро муқаррар мекунад.

Readln (a [c]); C: = c + 1; '- маълумотро аз клавиатура хонед, арзиши муқаррагиро илова кунед.

End; '- мо давраро анҷом медиҳем.

C: = 1; '- арзиши аслиро ба мизоҷ бармегардонад.

Ҳангоми c <= n нависед (a [c]); '- Номро нишон диҳед.

Баъд аз он шумо номҳои худро дар экран мебинед, ки аз клавиатура дохил карда мешаванд. Дар бораи ин шиносоӣ бо давомнокии давра. Он аз ҷониби навҷавонон ва истифодабарандагони пешрафта истифода бурда мешавад. Ин як муқобил нест, бинобар ин, диққати махсуси барномаранда ва тағйироти иловагиро талаб мекунад.