Turbo Pascal. Pandan y ap ... fè - bouk ak yon kondisyone

Turbo Pascal, menm si se pa aplikasyon pi renmen nan mond lan pou pwogram, men créateur yo yo, ki fè premye etap yo nan sa ki ekri a nan lojisyèl an, kòmanse zanmi yo ak sa a medyòm. Li bay yon lide sou divizyon, operatè, fonksyon, ak pwosedi yo, osi byen ke anpil lòt bagay. Pou egzanp, nan sik yo figi etid pwogramè nan Turbo Pascal: Pandan ke, Pou ak Repete.

Konsèp la nan sik la ak variants li yo

Yon sik se yon aksyon repetisyon. Nan anviwonman sa a, sèvi ak:

• ak paramèt (Pou ... nan ... fè);
• ak kondisyone a (Pandan ke ... fè);
• yon postcondition (Repete ... jiskaske).

se kalite a premye itilize lè li se li te ye ki jan anpil etap nan rezoud pwoblèm nan. Men tou, gen yon nimewo nan travay, kote ki pa gen enfòmasyon sou konbyen fwa pral repete oswa aksyon sa. Nan ka sa a, Pascal Pandan ke sik vin endispansab, tankou, nan prensip, ak Repete.

Estrikti a nan sik la

Ki sa ki se sans nan travay la nan Pandan ke nan Pascal, Pou ak Repete sik? Nan konstriksyon sa yo asiyen yon header ak yon kò. eleman an premye nan varyab yo espesifye ki pral "travay" yo espesifye nan kondisyon sa yo sou peryòd la validite yo ki pral kò a dwe egzekite. Nan dezyèm pati a nan preskri ekspresyon yo dwe itilize nan ka a nan kondisyon an, sa vle di. E. Vrè la, olye pou yo fo nan.

Lè iterasyon se fèt sou liy ki sot pase a nan kòd, lè sa a li retounen nan header a, ki kote kondisyon an pran tès la. Si operasyon verite ap repete, ak nan evènman an nan nenpòt ki vyolasyon nan pwogram "la Sòti" nan sik la epi pèfòme plis operasyon yo.

Swiv sanble Pandan ke bouk. Pascal ABC ak pwogram sa yo mande pou ekri sa yo kòd:

• Pandan ke kondisyon fè;
• kòmanse;
• Kò a riban;
• Fen.

Nan evènman an ki pral riban an dwe fèt 1 operatè (1 aksyon), lè sa a "parantèz yo» kòmanse ... ka fen dwe omisyon.

òganigram sik

Turbo Pascal la Pandan ke karakteristik ki annapre yo:

• andedan estrikti a ka difisil yo sèvi ak kondisyon;
• apre pawòl Bondye a pa fè sa ta dwe gen yon vigil (li se konsidere kòm yon ensèk nan Turbo Pascal ak Pascal ABC);
• varyab, konstan oswa ekspresyon ki sèvi lè yon repons fo pwodiksyon yo subroutines dwe nesesèman gen kalite lojik sa vle di., e. Boolean.

Li se jan sa a blòk dyagram nan sik la varyete. Li montre sekans nan aksyon aplikasyon.

algorithm a nan sik la

.. Nan pi senp anviwònman pwogram m nan, ak h nan Pascal ABC, pandan y ap riban opere sou prensip sa a:

• .. Bay iterasyon, sa vle di, repetisyon, pral pran plas kòm anpil fwa osi lontan ke kondisyon an se laverite (Vrè);
• le pli vit ke kondisyon an se pa satisfè epi li ba fo repons (oswa otreman "fo"), operatè a soti nan bouk la;
• le pli vit ke li te rive, pwogram lan "te ale" nan desen an parèt apre sik.

Sa a se yon diferans enpòtan nan Pandan ke Repete, t. E. Yon pre-sik soti nan postconditions yo.

Li enpòtan genyen ladan yo nan bouk chanjman nan fini nan yon bay Pandan ke header varyab. Nan nenpòt ka, yo ta dwe janm vini yon sitiyasyon ki bay nan fo. Sinon pral gen yon riban, ak Lè sa a dwe pran plis mezi sa yo sòti nan du a. erè sa yo konsidere kòm grosye ak enjustifyabl.

Ki jan yo sòti pwogram nan pandan y ap monte bisiklèt?

Anpil fwa sitiyasyon an rive lè operatè a bay pandan y ap riban Pascal nan kòd pwogram nan ekri. Ki sa sa vle di? se iterasyon repete yon nonb infini nan fwa, paske kondisyon an se toujou vre. Pou egzanp, kòd sa a fragman:

• Pandan ke 2> 1 fè;
• Ekri (1).

Nan ka sa a, entèwonp nan ekzekisyon an nan travay la, jis peze Ctrl + F2.

Gen 2 fason yo kontwole konpòtman an tout moun ki tankou yon pwogram. Pou egzanp, si yon ekri Kontinye kòd ki pase kontwòl nan konmansman an nan estrikti a siklik (dokiman sa a riban sòti kondisyon an se kontwole sa vle di., Se ekzekisyon E nan iterasyon aktyèl la koupe). Lè sa a, Se kontwòl transfere nan yon bouk Pandan ke yo nan tès la anvan yo.

Pak operatè ka entèwonp nan ekzekisyon an nan sik la tout antye epi transfere kontwòl iterasyon kap vini an. Isit la, pwodiksyon an nan konstriksyon an pa pral kontwole. Foto a montre egzanp yo itilize a nan operatè sa yo.

Reyinyon defi yo

Konsidere Pandan ke yo nan operasyon sik. Pascal pwopoze yo rezoud pwoblèm nan varye. Se pou nou konsidere yon senp yo konprann operasyon an. Rezoud travay nan pwogram Pascal ABC. Men, pral prezante ak yon imaj a klasik anviwònman Turbo Pascal pou konparezon.

Objektif Travay la 1: bay fonksyon an Y = 5-X ^ 2/2. Kreye yon tab nan valè nan ogmantasyon è = 0,5 sou entèval an [-5, 5].

Algorithm a se:

• mete yon varyab X nan yon valè inisyal egal a 5 (sa vle di nan konmansman an nan espas sa a ..);
• kalkile yon valè Y, pandan y ap x la varyab pa rive nan fen di entèval;
• montre valè yo nan fonksyon an ak absis la (X);
• X ogmante pa yon etap Predetermined.

Isit la se kòd la nan pwogram Pascal ABC.

Kijan kòd la nan pwogram Turbo Pascal. imaj ki anba a montre sa a.

Objektif Travay la 2: bay yon etalaj Yon ki fòme ak tout nimewo yo pozitif ak negatif. Li genyen ladan li 10 atik yo. Bezwen an yo fòme yon matris nan ki eleman yo ki pozitif nan etalaj Yon yo ap parèt gen yon endèks menm. Display sòm total la nan kare yo nan kantite nouvo matris.

Algorithm a se:

• Ou dwe ekri yon woutin ki pral "travay" sèlman avèk eleman yo nan etalaj Yon ki gen yon endèks menm. Nan bouk la ap plase valè ki koresponn a égalité a nan endèks la ap enkremante pa de.
• Si nimewo a se yon menm endèks soti nan matris la Yon koresponn ak kondisyon nan x> 0, se etalaj la vann san preskripsyon enkremante pa 1. Valè a aktyèl la nan varyab la vann san preskripsyon yo pral endèks la nan nimewo a kopi nan etalaj B. nan
• Okòmansman, sòm nan jaden an varyab, ki responsab pou jwenn sòm total la nan kare yo nan nonm antye relatif pozitif, se mete a 0. Lè sa a, pral operasyon an dwe te pote soti: yo sòm total la anvan se ajoute valè nan nouvo nan yon kare.
• Ou pa bezwen pè, si se pa tout nimewo pozitif te deplase soti nan yon sèl etalaj nan yon lòt. Ou gen dwe fè atansyon. Anpil pwogramasyon inisyasyon reyekri kòd la nan yon panik. Li nesesè ak anpil atansyon egzamine kondisyon an: nimewo pozitif ki sou menm "lokal", sa vle di, ak endis yo ki miltip nan 2 ...

Manyèl trase nesesè yo nan lòd yo asire ke kalkil la nan lwayote. Pafwa, lè l sèvi avèk metòd sa a ka idantifye erè ki pa trape je a anba enspeksyon nòmal nan kòd la ekri.

Si nou pote soti nan kalkil manyèl, li se posib yo asire ke pwogram nan ap travay byen. Sa a, nan vire, te di ke algorithm nan Kòd jenerasyon ki kòrèk, sekans nan aksyon mennen nan yon fen lojik.