Turbo Pascal. Gava ku ... do - loop bi rolek mezin e

Turbo Pascal, çiqas e application favorite di cîhanê de ji bo bernameyên ne, lê creators, çêkirina yekem gavên xwe li ser nivîsandina software, dest bi nasên xwe bi vê navberê. Ev jî, bi fikra ji derxînin, operatorên, fonksîyon û prosedurên, herweha gelek tiştên din dide. Ji bo nimûne, di xebatê de û bernamesaz cycles rû li Turbo Pascal: dema ku, ji bo û Repeat.

Têgeha di dewra û Guhertoyên xwe

A cycle çalakiyeke tê dubarekirin e. Di vê jîngehê, bi kar tînin:

• bi parametre (Ji bo ... to ... do);
• bi þertê (Gava ku ... do);
• a postcondition (Dubare ..., heta ku).

The type yekem tê bikaranîn, dema ku ew di çareserkirina pirsa ku tê zanîn, çawa gelek gavên. Lê belê, gelek ji wezîfeyên, li dera ku tu agahdarî li ser çawa gelek caran, wê bê dubarekirin an ku çalakî hebû. Di vê rewşê de, Pascal Gava cycle zor pęwîst e, wek dibe, ku di prensîbê de, û Dubare.

Bingehê cycle

bingeha kar di dema ku Pascal çi ye, For û cycles Dubare? Di van bendavan re veqetandin a header û laş. Ya yekem, beşek ji fakter diyar kir ku dê "kar" bi destê şert û mercên li ser pêvajoyê de derbasdariya xwe ya ji bo ku bedena dê bibe xebatkara diyarkirin. Di beşa duyemîn ya îfadeyên nevê, ku were di doza bi şertê, ango. E. True The bikaranîn, li şûna Derewîn The.

Gava sazîya li ser cara line of code lîstin, hingê ew ji header, ku rewşa test kirin vedigere. Ger operasyonên rastî bi dubarekirin, û di bûyerê de ji hemû yên ku bernameya "Exit" ji cycle û performs operasyonên din.

Wiha awirên Gava ku çerxeke. Pascal ABC û wiha bernameyên lazim nivîsandina van code:

• Dema ku rewşa bikin;
• Dest;
• Bedenê de çerxeke;
• End.

Di bûyerê de ku çerxeke wê pêk bê 1 operator (1 action), piştre "bixemilînî» dest pê ... dawiya dikare bê tevgerandin.

cycle Name

The Turbo Pascal Dema ku taybetiyên jêrîn:

• di nava avaniya dikare zehmet be ku kar û mercên;
• piştî ku peyva çi divê bibe bêhnok ne (ku wek bug li Turbo Pascal û Pascal ABC);
• variable, berdewam an jî biwêjek, ku di xizmeta gava a reply encam Derewîn wan Rûtînên îlle divê type maqûl, ango. e. Boolean.

Ev wiha ye diagram block yên çerxa shéwezarékí. Ev cihekê çalakiyên pêkanîna dide.

Daneya ên di dewra

.. Di sadetirîn derdorên bernameyên, m û h li Pascal ABC, dema ku çerxeke binasin ser esasê jêr e:

• .. Qahîrê çavan, ango, carîkirin, wê cihê xwe weke gelek caran, heta ku rewşa rast e bigirin (True);
• Gava ku rewşa e razî ne û dide bersiva Çewt (an na "derewîn"), operator ji çerxeke;
• Gava ku ev tişt bûne, di bernameya ku di design teşbîh piştî cycle "çû".

Ev guhertineke girîng ji dema ku Repeat, t. E. A pre-cycle ji postconditions e.

Ev girîng e ku de di çerxeke guherîna dunyayê di dema ku header variable dayîn. Di her rewşê de, her û her, divê rewşa ku dide, ji bo derewkar û were. An na, wê bibin a loop, û piştre ji bo tedbîrên pêvek ji bo derketinê ji dendikên. Bi vî rengî de çewtî bi nagere, û bi xweşbînî hesibandin.

Çawa ji bo derketinê bernameya dema di ajotina?

Gelek ji zehf dema ku operator dide dema ku çerxeke Pascal di code bernameya hatiye nivîsîn. Wateya vê çi ye? Sazîya is dubare hejmareke bêdawî caran, ji ber ku rewşa e herdem rast e. Ji bo nimûne, ev code nûbûnê wê:

• 2> 1 bikin;
• Write (1).

Di vê rewşê de, ji bo rawestandina darvekirinê li Erka, tenê li Ctrl + F2.

2 riyên ji bo kontrolkirina tevgerê yên bernameyeka weha hene. Ji bo mînak, eger binivîse Continue koda ku derbas bin kontrola ji destpêka avabûna Cyclic (amanc bi şertê derketina loop çawdêrî kirinê, ango. Darvekirinê E ya sazîya niha rawestandin). Hingê kontrolê tê di çerxeke Hê di testa berê veguhestin.

operator Break dikarin darvekirinê li tevahiya cycle berdidî û veguhestina kontrolê li Qahîrê next. Li vir, ew encam ji avakirina wê ne bin kontrolê. The picture wergerandî yên bikaranîna van operatorên dide.

Hevdîtina bi dijwarîyên

Gava ku di peryoda operasyona binêrin. Pascal pêşniyar ji bo çareserkirina pirsgirêka diguherî. Werin em li ber çavan a sade ji bo fêm kirina operasyonê. erkên çareserkirin di bernameya Pascal ABC. Lê belê, wê bê pêşkeş kirin û di sûretê jîngehê Turbo Pascal klasîk, ji bo berhevdana.

Task 1: dayîn, ku fonksiyona Y = 5-X ^ 2/2. Create a sifrê ji nirxên qonaxan sh = 0,5 li ser interval [-5, 5].

Daneya e:

• set a X variable bi nirxê destpêkê ji bo 5 (ango di destpêka gap ..) wekhev;
• dihejmêrin nirxê Y, di dema ku x variable nade dawiya interval got bigihîne ne;
• hegera nirxên wê yên ku fonksiyona û abscissa (X);
• X zêdebûna destê gaveke tesbît kirin.

Li vir code di bernameya Pascal ABC e.

Çawa koda di bernameya Turbo Pascal. Ev wêneyê li jêr vê yekê.

Task 2: dayîn, an array A ku pêkhatibûn ji hejmarên erênî û neyînî tevahiya. Ev dihewîne 10 tumar. Ku pêwîstiya bi avakirina matrix li ku hêmanên erênî yên array A bi ku heta index nîşan dan. Display kurtahî li qadan in hejmara yên matrix nû.

Daneya e:

• Divê tu rûtîn ku dê "kar" bi tenê bi hêmanên array A ya ku heta index binivîse. Di çerxeke nirxa variable rêdikirin ji dixûyê ji index wê ji aliyê du incremented.
• Eger hejmara hetta index ji matrix e A bergindî rewşa x> 0, array counter ya ji aliyê 1. incremented The nirxa anha ya variable counter de dê bibe index of hejmara copy li B. array de
• Di destpêkê de, bi summa variable, ji bo dîtina kurtahî li qadan ji hejmarên pozîtîf e, ji bo 0. Hingê set, a operasyonê bê lidarxistin: Bi xweşî hatî ferhenga sum berê added ye nirxa nû ya meydaneke.
• Ma ne be ditirsim, eger ne hemû hejmarên kêmek ji yek array bi din. Tu xwedî to baldar be. Gelek bernamenûs, ji YNKê ji bo dîrokê ji code di panîkê de. Ev pêwîst e ji bo bi baldarî rewşa: hejmarên pozîtîf ku li ser hetta "herêmî" in, ango, bi nîşanên ku mamoste ji 2 in ...

şopandina Manual pêwîst e, ji bo ku hesaba dilsoziya. Carna, vê metodê dikarin şaşiyên ên ku çav di bin Kontrola normal yên qanûna nivîskî negirtin nasandin.

Eger em pêk bibana manual, mimkun e ji bo ku di programê de dixebite. Ev, di dora xwe re got, ku Rêbaza nifşê code rast e, de cihekê çalakiyên hinekî dawiya vacî.