Uzdevums ar case...of — teorija. Programmēšana, Programmēšanas pamati.

Uzdevums, kurā var izmantot Case...Of

Svarīgi!

Programmas mērķis:

1) Visas īsā gada dienas ir sanumurētas (1. janvāris ir 1. diena, 2. janvāris ir 2. diena, ..., 31. decembris ir 365. diena), un lietotājs ievada kādas dienas numuru.

2) Programma izvada, kurā mēnesī ir šī diena.

Mainīgie lielumi un ievade.

Būs tikai viens mainīgais – DienasNumurs ar tipu integer.

Tāpēc kopā ar ievadi sanāk šāda nepabeigta programma.

\begin{array}{l} programma piemeers4; \\ uses crt; \\ var DienasNumurs : integer; \\ begin \\ clrscr; \\ write (' Ievadiet dienas numuru :'); \\ readln (DienasNumurs); \\ readkey; \\ end . \end{array}

Pareizā mēneša atrašana un izvade

Vispirms ir jānoskaidro, cik katrā mēnesī ir dienu. Tas ir parādīts šai tabulā:

Jan	Feb	Mar	Apr	Mai	Jūn	Jūl	Aug	Sep	Okt	Nov	Dec
31	28	31	30	31	30	31	31	30	31	30	31

Janvārim sanāk numuri no 1 līdz 31.

Februārim sanāk numuri no 31+1=32 līdz 31+28=59.

Martam – no 59+1=60 līdz 59+31=90.

Utt., rezultātā iegūstot šādu sarakstu:

Mēnesis	Pirmās dienas numurs	Pēdējās dienas numurs
Janvāris	1	31
Februāris	32	59
Marts	60	90
Aprīlis	91	120
Maijs	121	151
Jūnijs	152	181
Jūlijs	182	212
Augusts	213	243
Septembris	244	273
Oktobris	274	304
Novembris	305	334
Decembris	335	365

Ar Case...Of palīdzību katram no šiem variantiem piešķir pareizo komandu:

\begin{array}{l} case DienasNumurs of \\ 1 .. 31 : writeln (' Sjii ir janvaara diena'); \\ 32 .. 59 : writeln (' Sjii ir februaara diena'); \\ 60 .. 90 : writeln (' Sjii ir marta diena'); \\ 91 .. 120 : writeln (' Sjii ir apriilja diena'); \\ 121 .. 151 : writeln (' Sjii ir maija diena'); \\ 152 .. 181 : writeln (' Sjii ir juunija diena'); \\ 182 .. 212 : writeln (' Sjii ir juulija diena'); \\ 213 .. 243 : writeln (' Sjii ir augusta diena'); \\ 244 .. 273 : writeln (' Sjii ir septembra diena'); \\ 274 .. 304 : writeln (' Sjii ir oktobra diena'); \\ 305 .. 334 : writeln (' Sjii ir novembra diena'); \\ 335 .. 365 : writeln (' Sjii ir decembra diena'); \\ else writeln (' Nepareizs dienas numurs'); \\ end; \end{array}

Rezultāts

To visu saliekot kopā, sanāk šāda programma:

\begin{array}{l} programma piemeers4; \\ uses crt; \\ var DienasNumurs : integer; \\ begin \\ clrscr; \\ {Ievade} \\ write (' Ievadiet dienas numuru :'); \\ readln (DienasNumurs); \\ {Pareizās atbildes izvēle} \\ case DienasNumurs of \\ 1 .. 31 : writeln (' Sjii ir janvaara diena'); \\ 32 .. 59 : writeln (' Sjii ir februaara diena'); \\ 60 .. 90 : writeln (' Sjii ir marta diena'); \\ 91 .. 120 : writeln (' Sjii ir apriilja diena'); \\ 121 .. 151 : writeln (' Sjii ir maija diena'); \\ 152 .. 181 : writeln (' Sjii ir juunija diena'); \\ 182 .. 212 : writeln (' Sjii ir juulija diena'); \\ 213 .. 243 : writeln (' Sjii ir augusta diena'); \\ 244 .. 273 : writeln (' Sjii ir septembra diena'); \\ 274 .. 304 : writeln (' Sjii ir oktobra diena'); \\ 305 .. 334 : writeln (' Sjii ir novembra diena'); \\ 335 .. 365 : writeln (' Sjii ir decembra diena'); \\ else writeln (' Nepareizs dienas numurs'); \\ end; \\ readkey; \\ end . \end{array}

Iepriekšējā teorija

Atgriezties tēmā

Nākamā teorija

Nosūtīt atsauksmi

Atradi kļūdu?

Sūti mums ziņu!

5. Uzdevums ar case...of

Teorija