1 / 13

Gymnázium Vincence Makovského se sportovními třídami Nové Město na Moravě

Gymnázium Vincence Makovského se sportovními třídami Nové Město na Moravě. VY_32_INOVACE_INF_RO_19 Digitální učební materiál Sada: Úvod do programování Téma: Selektor case Autor: Mgr. Jan Rosecký Předmět: Informatika Ročník: 3 . ročník VG

olathe
Download Presentation

Gymnázium Vincence Makovského se sportovními třídami Nové Město na Moravě

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript

  1. Gymnázium Vincence Makovského se sportovními třídami Nové Město na Moravě VY_32_INOVACE_INF_RO_19 Digitální učební materiál Sada: Úvod do programování Téma: Selektor case Autor: Mgr. Jan Rosecký Předmět: Informatika • Ročník: 3. ročník VG Využití: Prezentace určena k výkladu látky z úvodu do programování na gymnáziu. Anotace: Prezentace se skládá zúvodního opakování, odvození a ukázky programu tématu selektor case a závěrečného úkolu pro samostatnou práci. • Nové poznatky žáci získávají při společné práci s programovacím jazykem Pascal – po zadání úkolu tvoří žáci program samostatně a následně je komentováno řešení.

  2. Úvod do programováníSelektor case Gymnázium Vincence Makovského se sportovními třídami Nové Město na Moravě

  3. Opakování • Vytvořte program Selektor, který k zadanému celému číslu od 1 do 4 napíše jeho slovní přepis:Cislo: 2Slovem: dve

  4. Opakování • Vytvořte program Selektor, který k zadanému celému číslu od 1 do 4 napíše jeho slovní přepis:program Selektor;var a: integer;beginwrite('Cislo: '); read(a);write('Slovem: ');if a=1 thenwriteln('jedna');ifa=2 thenwriteln('dve');ifa=3 thenwriteln('tri');ifa=4 thenwriteln('ctyri');end.

  5. Selektor case • pro dvě nebo více možností • příkaz podle hodnoty (h) výrazu (výraz) • zápis:case výraz ofh1: příkaz1;h2: příkaz2;    ...hn: příkazn;elsepříkaz;end; výraz h1 – h2 – h3 – + + + příkaz příkaz3 příkaz1 příkaz2

  6. Selektor case • Upravte program Selektor s použitím case:program Selektor;var a: integer;beginwrite('Cislo: '); read(a);write('Slovem: '); case a of 1: writeln('jedna'); 2: writeln('dva');3: writeln('tri');4: writeln('ctyri'); end;end.

  7. Selektor case • Upravte program Selektor, aby k zadanému pořadovému číslu dne zapsal název dne:Cislo dne: 3Streda

  8. Selektor case • Upravte program Selektor, aby k zadanému pořadovému číslu dne zapsal název dne:program Selektor;var a: integer;beginwrite('Cislo dne: '); read(a); case a of 1: writeln('Pondeli'); 2: writeln('Utery');3: writeln('Streda');4: writeln('Ctvrtek');5: writeln('Patek');elsewriteln('Vikend'); end;end.

  9. Selektor case • Upravte program Selektor, aby podle zadané známky z informatiky udělil slovní hodnocení: 1, 2: Velmi pěkné. 3: Zlepši se. 4, 5: Styď se. jiné: Tuto známku neznám.Znamka z informatiky: 3Zlepsi se.

  10. Selektor case • Upravte program Selektor, aby podle zadané známky z informatiky udělil slovní hodnocení:program Selektor;var a: integer;beginwrite('Znamkaz informatiky: ); read(a); case a of 1, 2: writeln('Velmi pekne.'); 3: writeln('Zlepsise.');4, 5: writeln('Stydse.');elsewriteln('Tuto známku neznam.'); end;end.

  11. Selektor case • Upravte program Selektor, aby podle zadaného věku určil, do které skupiny osoba patří: 0–15: děti 16–25: mládež 26–65: produktivní věk 66+: důchodový věkZadejte vek: 17Mladez.

  12. Selektor case • Upravte program Selektor, aby podle zadaného věku určil, do které skupiny osoba patří:program Selektor;var a: integer;beginwrite('Zadejte vek: '); read(a); case a of 0..15: writeln('Deti.'); 16..25: writeln('Mladez.');26..65: writeln('Produktivni vek.');elsewriteln('Duchodovyvek.'); end;end.

  13. Samostatná práce • Ceník taxislužby (ujetou vzdálenost zaokrouhlujeme nahoru na celé kilometry): nastoupení 25 Kč do 10 km 25 Kč / km 11–20 km 23 Kč / km 21–30 km 21 Kč / km 31 a více km 19 Kč / kmVytvořte program, který bude určovat cenu jízdného ze zadaného počtu ujetých kilometrů:Taxisluzba----------Ujeto kilometru: 28Cena: 613 Kc

More Related