vid. http://www.pretaktovanie.sk/modules.php ... ic&t=22117
Pascal
if - podmienka
Syntax if (vyraz-podmienka) then (prikaz_1) else (prikaz_2);
Prikaz_1 sa vyplni ked plati podmienka, vo vsetkych ostatnych pripadoch sa vyplni Prikaz_2.
Kód: Vybrať všetko
Program Podmienka;
var i,j:integer;
Begin
i := 10;
j := 20; {i a j skuste menit aby ste si overili ako podmienka pracuje}
writeln(' j =',j,' i =',i); {vypis i a j}
if (i<j) then writeln(' j je vacsie ako i') else writeln(' j je mensie alebo rovne ako i');
End.
{} - medzi tento typ zatvoriek sa umiestnuju komentare v programe, sluziace na popis/poznamku ku kodu. Komentar je kompilatorom odignorovany, sluzi len na orientaciu programatora pri citani kodu. Pozor tento typ zatvoriek pouziva Pascal, ine programovacie jazyku pouzivaju ine znaky na oznacenie komentarov.
- kod je jednoduchou ukazkou porovnania dvoch celych cisel pomocou podmienky if
- je mozne pouzit if bez else so syntaxou if (i<j) then writeln(' j je vacsie ako i'); potom program vypise na obrazovku len oznacenie pripadu ked j je vacsie ako i.
Iny priklad : podmienka urci ci je sucin i a j mensi nez cislo 300
Kód: Vybrať všetko
Program Podmienka;
var i,j:integer;
Begin
i := 10;
j := 20; {i a j skuste menit aby ste si overili ako podmienka pracuje}
writeln('j =',j,' i =',i); {vypis i a j}
if ((i*j)<300) then writeln(' i*j je mensie ako 300') else writeln(' i*j je vacsie alebo rovne ako 300');
End.