Cikls, ko izbeidz lietotājs — teorija. Programmēšana, Programmēšanas pamati.

Programma, kuras darbību aptur lietotājs

(ar Repeat...Until ciklu)

Svarīgi!

Programmas mērķis:

1) Prasīt lietotājam ievadīt kādu veselu skaitli un tad pieskaitīt to iepriekš iegūtajai summai (kura sākumā, protams, ir 0), kuru uzreiz pēc tam izvadīt uz ekrāna.

2) Pēc tam piedāvāt lietotājam izvēli - nospiest taustiņu q (vai Q), ja viņš grib beigt darbu. Ja tiek nospiests jebkurš cits taustiņš, programma atgriežas pie pirmā punkta.

Mainīgie lielumi

Vajadzīgi divi mainīgie lielumi: skaitļiem (summai un ievadītajam skaitlim) un simbolam (nospiestajam taustiņam). Pirmajiem diviem der tips integer, trešajam - tips char.

\begin{array}{l} var Summa, Skaitlis : integer; \\ Simbols : char; \end{array}

Un noteikti programmas sākumā mainīgajam Summa ir jāpiešķir vērtība 0 - jo tobrīd vēl nekas nav saskaitīts.

Summa := 0;

Cikla karkass

Vislabāk ir izmantot ciklu Repeat...Until, jo skaitļa ievade un pieskaitīšana notiks vismaz vienu reizi.

Ar beigu nosacījumu - Taustinjsj ir vienāds ar 'q' vai arī vienāds ar 'Q'.

(Simbols =' q') or (Simbols =' Q')

Saliekot kopā ar pašu ciklu, sanāk šādi:

\begin{array}{l} repeat \\ {darbības cikla iekšienē} \\ until (Simbols =' q') or (Simbols =' Q'); \end{array}

Cikla saturs

Ciklā jāveic šādas darbības:

1) Jānodrošina skaitļa ievadīšana un saglabāšana.

\begin{array}{l} write (' Ievadiet skaitli :'); \\ readln (Skaitlis); \end{array}

2) Jāpieskaita tas iepriekšējai summai.

Summa := Summa + Skaitlis;

3) Jāizvada jaunā summas vērtība.

writeln (' Tagad summas veertiiba ir', Summa);

4) Jāpiedāvā nospiest kāds taustiņu, pēc tam jāsaglabā tam atbilstošais simbols.

\begin{array}{l} writeln (' Lai beigtu darbu, nospiediet taustinju q (vai Q)!'); \\ Simbols := readkey; \end{array}

Cikls kopumā

\begin{array}{l} repeat \\ write (' Ievadiet skaitli :'); \\ readln (Skaitlis); \\ Summa := Summa + Skaitlis; \\ writeln (' Tagad summas veertiiba ir', Summa); \\ writeln (' Lai beigtu darbu, nospiediet taustinju q (vai Q)!'); \\ Simbols := readkey; \\ until (Simbols =' q') or (Simbols =' Q'); \end{array}

Rezultāts

Saliekot visu kopā, sanāk šāda programma:

\begin{array}{l} program piemeers5; \\ uses crt; \\ var Summa, Skaitlis : integer; \\ Simbols : char; \\ begin \\ clrscr; \\ Summa := 0; \\ repeat \\ write (' Ievadiet skaitli :'); \\ readln (Skaitlis); \\ Summa := Summa + Skaitlis; \\ writeln (' Tagad summas veertiiba ir', Summa); \\ writeln (' Lai beigtu darbu, nospiediet taustinju q (vai Q)!'); \\ Simbols := readkey; \\ until (Simbols =' q') or (Simbols =' Q'); \\ {Šoreiz bez komandas readkey - \\ lai pēc taustiņa' q' nospiešanas nebūtu lieka pauze .} \\ end . \end{array}

Iepriekšējā teorija

Atgriezties tēmā

Nākamā tēma

Nosūtīt atsauksmi

Atradi kļūdu?

Sūti mums ziņu!

6. Cikls, ko izbeidz lietotājs

Teorija