Укурук программалык камсыздоо үчүн абдан пайдалуу, ал эми

Novice программисттер Дагы бир пайдалуу тийиши тааныш эмес болушу ыктымал. Бул Pascal орто бир типтүү цикл оператору болуп саналат. Бул ар кандай көйгөйлөр менен пайдалуу болот, ошондуктан, бир программаны кантип карап бул айлампасынын.

Айлампа Паскалга болсо төмөнкүдөй кылып талап кылат:

• Ал эми (шарты) (зарыл болсо башталат) болот.
• иш-аракеттердин алгоритми.
• End (команда бар баштаганда).

Биринчи орун - "капкак" буйругу. шарты бүтүн (г <100) боюнча түшүндүрүү түзүүчүлөрдү чектөө сандык мааниси болушу мүмкүн, өзгөрүлмө түрү логикалык (т = True) же сап (Текс = 'жазып койбойлубу'). укурук бир эмес, бир нече шартын аткаруу үчүн зарыл болсо, команда тизилип, "башта". төмөнкүлөр программасы болсо укурук ишке шартында аткарууга зарыл иш-аракеттерди сүрөттөйт. Бул буйрук, жол-жоболорун, милдеттерин, мисалы, санактан улам ар кандай болушу мүмкүн. Акыр-аягы, ал, албетте, биринчи сызык "башталат" болгон, башкача каралбаса, буйрук "жок" үчүн зарыл.

Азыр буйруктары бар мисал программаларын карап көрөлү. Мисалы, биз биринчи н оң бүтүн сумманы табуу керек. Бул үчүн, адегенде биз н карап (ал дайыма нөлдөн жогору болот да). Анан айлампасын баштайт. ал-жылдын мааниге жеткен чейин, ал иштеши керек экенин так түшүнүү маанилүү. Бул маселени чечүү үчүн бир эмес, бир нече мүмкүнчүлүк бар, бирок сиз орнотууну каалайсызбы эсептегичтин колдонууга таасир Чынында багытталат. Алыдын ала, бул өзгөрмө мен аркылуу жүзөгө ашырылат. Сиз болсо бул: "1" деген маанини зарыл башталат чейин. каршы, ар бир жаңы мезгили иш менен мөөнөткө катары кызмат кылат. өзүбүздүн миссиябызга таянуу менен, ар дайым бири-бирине кошуу керек. Ошентип, бир сандык индекси каршы номери н наркын барабар. Бул иш программасын аяктоо үчүн белги болот. суммасын эсептөө үчүн биз өзгөрүлмө к киргизүү. аны ар бир кайталоо менен мурунку баасын плюс катар мен берилет. эсептөө аяктагандан кийин гана экрандагы к түшүндүрүү өзгөрмө чыгарган. Бул программанын сөздөрү жөнүндө кыскача түшүнүк. Азыр биз кодду карап.

Лпппппл (н); - Биз саны н окуу.

мен: = 1; к: = 0; - иш жашыруун кирип, биз суммасынан наркын баамдаш үчүн.

мен <= н башташат 'While - иш айлампасынын шарттарды койду.

к = к + мен; мен: = мен + 1; "- өлчөмү өзгөртүү Эсептегич наркты кошуу.

жок; - иштин баяндамасы аяктап жатып.

Writeln (к); - Бул тыянак.

Башка бир мисал карап. Азыр биз текст толгон сактап калат клавиатура н аталыштары менен колдонуучуну толтуруу зарыл. бул принцип мурунку окшош. н киргизип, биз да укурук белгиленген абалын жандантууга. Андан сырткары, эс клетка тизилип тергич киргизүүнү билдирет. Set каршы кайталап ишин аяктайт. Кийинки, утурлама абалга жана дисплей тутуму болуп саналат. Бирок, сиз нөл клетка тизилип алып келе алмак эмес, анткени бул жерде утурлама, бир маанини билдирет абалга (ал жок). программа коду төмөнкүчө чагылдырууга болот: бул программада көбүрөөк N киргизүүнү аяктайт табигый оң сандын санын, суммасын аласыз. Pascal цикл эч качан, ал эми коюлган жок болгон деп түшүнүү керек аяктады. Сен күтүлбөгөн жерден ал жөнүндө унутуп, программа кодексинин аткарууда, компьютер асып баштайт. Бул баскычы "Тыным Break" тазаланат. ш боюнча пайдалануу көп түрдүүлүгү түшүндүрүү өзгөрмөлөр үчүн жашыруун болуп саналат.

Лпппппл (н);

с: = 1;

Ал эми с <= н башташат ", - өсүмдүктөрдүн шарт.

Лпппппл (а [с]); с: = C + 1; - тергич маалыматты окуп, биз коюлган наркын арттыруу.

жок; - айлануу толтурууда.

с: = 1; - баштапкы баасын кайра schetiku.

Ал эми с <= н жазуу (а [с]); - аталышы N көрсөтүү.

Анан сиз аны тергичтен тартып киргизилген экрандагы н аталыштар жөнүндө алышат. Ошол эле учурда бир да укурук аяктайт. Бул башталгыч жана улантуучулар колдонуучулар да колдонот. Ал санап бербейт, ошондуктан-программист жана кошумча өзгөрмөнүн өзгөчө талап кылат.