Iyo inobatsira panguva yakasungirirwa kune anoronga

Mucherechedzi wepakutanga angasati aziva imwechete inobatsira panguva ino. Iyi ndiyo inofanirwa kushanda mumhepo yePasscal. Izvo zviri nyore kushandisa mumabasa akasiyana-siyana, saka tichaongorora kuti iwe unogona sei kusanganisira izvi kuronga muzvirongwa .

Iyo Iyo Purogiramu, Pascal inoda fomu inotevera:

• Kunyange (Chiitiko) ita (tanga kana zvichifanira).
• Algorithm yekuita.
• Kuguma (kana pane mutemo wekutanga).

Mutsara wokutanga i "kapu" yemurairo. Mamiriro acho anogona kunge ari kukwana nhamba yenhamba ye variable variger (d <100), kukosha kwekusiyana kwechimiro boolean (t = Chokwadi) kana tambo (tex = 'hello'). Mutemo we "kutanga" unotarirwa kana huwandu hwehumwe humwe hunozadzikiswa mumutumbi weputi. Izvo zvinotevera tsanangudzo yezviito izvo chirongwa chinofanira kuita, kunze kwekuti Icho Chigadziriro ichi chikaitwa. Panogona kuva nemirairo yakasiyana-siyana, maitiro, mabasa, semakwikwi. Pakupedzisira, unofanirwa kuisa murairo wekuti "kuguma", kana, chokwadi, mutsara wokutanga waiva "kutanga".

Iye zvino chimbofunga mienzaniso yemapurogiramu ane chirevo chakatsanangurwa. Somuenzaniso, tinoda kuwana tsananguro yekutanga n integer. Nokuda kweizvi, isu pakutanga tinotora n (regai nguva dzose ive yakakura kudarika zero). Zvadaro tanga tambo. Zvakakosha kunzwisisa kuti inofanira kushanda kusvikira yasvika kukosha kwenhamba n. Pane pane imwe nzira yekugadzirisa dambudziko racho, asi tichaisa pfungwa pane iyo inobata kushandiswa kwekambani inoda kuiswa. Nokusingaperi, shanduko i inoshandiswa nokuda kweizvi. Usati watanga kushanda nayo, unofanira kugovera iyo kukosha kwe "1". Nyaya inoshanda sezwi kune rimwe nerimwe rutsva ruchiita. Kubva pane basa redu, tinogara tichida kuwedzera chimwe chacho. Nokudaro, rimwe zuva iyo numer numer ichaenzanisa kukosha kwenhamba n. Ichi chichava chiratidzo chekugumisa purogiramu. Kuti tiverenge chiyero chacho, tinoshandisa shanduko k. Nekudzokorora kwese patsva, ichagoverwa kukosha kwekare uye nhamba i. Mushure mokuverengwa kwekupedzisira, iwe unofanira kungobudisa purogiramu yekutanga kuvharo. Iyi inotsanangurwa pfupi purogiramu mumashoko. Iye zvino tiri kutarisa purogiramu yepurogiramu.

Readln (n); '- verenga nhamba n.

I: = 1; K: = 0; '- isu takashanda mubasa racho, tinodzokorora kukosha kwechiyero.

Apo ini <= n inotanga '- gadzirisa mamiriro echiso.

K: = k + i; I: = i + 1; '- kuwedzera kukosha kusvika pachiyero, shandura counter.

Kuguma; '- tinopedza tsanangudzo yeAkanguva.

Writeln (k); - yakabudisa data.

Ngatitaurei mumwe muenzaniso. Iye zvino tinoda mushandisi kuzadza n mazita kubva mubhokisi, iyo ichachengetedza zvinyorwa. Nheyo iri pano inofananidzwa kune yakapfuura. Pinda nhamba n, shandisa iyo Chiri chishandura, sarudza mamiriro acho. Uyezve, tinoreva maitiro kubva mubhobhoyo muchikumbaridzo chesero rejecha. Isu tinogadzira kambani, tinopedza basa rinowanzoitwa. Zvadaro, dzosirai kambani uye mubudise zvayo. Ichokwadi, kugadziriswa kwekamberi muchirevo chechirevo ichi kunoreva kuipa kukosha kweumwe, sezvo iwe usingakwanisi kuratidza zero sejeri yezvakanyorwa (hazvipo). Purogiramu yepurogiramu iyi ndeyotevera: kubva purogiramu iyi uchawana muwandu wezvikamu zvakasiyana-siyana zvenhamba dzakanaka, iyo inoguma neenhamba inopinda n. Inofanira kunzwisiswa kuti kana kusina kambani, iyo Pascal loop isingagumi . Kana iwe uchinge wakanganwa pamusoro peizvi, zvino kana iwe ukaita purogiramu yepurogiramu, kombiyuta inotanga kumira. Izvi zvinobatwa ne "Pause Break" button. Sekuda kumarudzi akasiyana-siyana, shandisa shanduko c.

Readln (n);

C: = 1;

Kunyange c c = = n itanga '- kuisa mamiriro acho.

Readln (a [c]); C: = c + 1; '- verenga deta kubva pakhizha, wedzera kukosha kunhare.

Kuguma; '- tinopedza rwendo.

C: = 1; '- dzokera kukosha kwepakutanga kune iyo.

Kunyange c c = = n kunyora (a [c]); '- kuratidza n mazita.

Mushure mokudaro iwe uchatora n mazita pahwindo, izvo zvakapinda kubva mubhokisi. Panozivikanwa iyi neIyo nguva yekupera. Inoshandiswa zvose neVatangi uye vashandisi vepamusoro. Icho hachina kambani, saka inoda kunyatsotarisirwa kwepurogiramu uye zvimwe zvinowanikwa.