Vyučovacia hodina: Príkazy IF a CASE v Turbo Pascal-e

Vydané: Sobota, Marec 29th, 2008 | | 2,998 x čítané

Od môjho posledného kontaktu s výukovým programovacím jazykom Tubro Pascal ubehlo už viac ako 8 rokov. V uplynulých týždňoch som v rámci priebežnej pedagogickej praxe odučil niekoľko hodín informatiky. Témou bolo práve programovanie v Turbo Pascal-e. Priznávam, že som teda musel riadne zaloviť v pamäti. Vysvetľovali sme si a následne tvorili programy s využitím podmienok IF a CASE. Dúfam, že sa nasledujúce dva jednoduché programy niekomu zídu. Pozdravujem druhákov na gymnáziu kde som učil.

V úvode hodiny je vhodné zopakovať ako sa v deklarujú premenné - údajový tip a tiež na čo slúžia príkazy Writeln a Readln. Je vhodné tiež pripomenúť syntax spomenutých príkazov.

Viac o podmienkach IF a CASE nájdete aj tu : Informatika a výpočtová technika

Zadanie: Vytvorte program, ktorý načíta tri premenné a určí, či sú stranami trojuholníka.

Pomôcka: Využijeme trojuholníkovú nerovnosť.

Program:


program trojuholnik;
var a, b, c : integer;
begin
writeln(’Zadaj 3 cele cisla. Po kazdom stlac ENTER :’);
readln(a,b,c);
write(’Usecky ‘, a, ‘,’, b, ‘,’, c);
if (a+b>c) and (b+c>a) and (a+c>b)
then writeln(’ su stranami trojuholnika.’)
else writeln(’ nie su stranami trojuholnika.’);
readln;
end.

V ďalšom programe si ukážeme funkciu CASE

Zadanie: Vytvorte program, ktorý po zadaní poradového čísla mesiaca v roku vypíše názov tohto mesiaca.

Program:

program predpoved;
uses crt;
var cislo: integer;
begin
clrscr;
writeln(’Zadaj cislo mesiaca v roku:’);
readln(cislo);
CASE cislo OF
1..2 : writeln(’Rocne obdobie: Zima. Vonku byva celkom dobra kosa. Skoro sa stmieva.’);
3..5 : writeln(’Rocne obdobie: Jar. Vonku je prijemne, vsetko kvitne. Vystacime si s tenkym svetrom, niekey postaci aj 3cko.’);
6..8 : writeln(’Rocne obdobie: Leto. Vonku je super teplo. Staci 3cko, sortky alebo sukna.’);
9..11 : writeln(’Rocne obdobie: Jesen. Vonku je u§ niekedy riadna kosa. Obliekame koçele, svetre alebo bundy.’);
12 : writeln(’Rocne obdobie: Zima. Vonku byva celkom dobra kosa. Zisla by sa vetrovka. 24-teho su Vianoce. jeeej darceky!’);
ELSE begin
CASE cislo OF
13..99 : writeln(’Kto to kedy videl aby mal rok ‘,cislo,’ mesiacov!’);
end;
end;
end;
readln;
end.

Podobné články nájdete v týchto rubrikách :

Škola

---

5 najnovších článkov:

Fotoreportáž z hranej krížovej cesty v Prešove

Ako sa dajú rušiť GPS/GSM signály v mýtnej OBU jednotke a ako sa to dá odhaliť

Svadobné foto-video Humenné 6.2.2010. Riadna kosa bola :)

Aké darčeky dať žene na Vianoce

25 ROKOCH MLOKOCH, vtipné koláže a aj nejaké fotky

Letná olympiáda v Pekingu 2008

Napísal Matúš Vencúrik. Deň: Sobota, Marec 29th, 2008 o 15:30 .Zaradené do rubriky: Škola. Ak chcete mať prehľad o komentároch k tomu to článku, mám pre Vás RSS 2.0 kanál. Tu sú komentárea tu je trackback - linka pre Vás.