Pascal - podmíněný příkaz CASE (VY_32_INOVACE_08_2_10_PR) Ing. Petr Stránský
Příkaz, který v případě, že proměnná A obsahuje hodnotu 1 uloží do proměnné B hodnotu 'A' a v případě, že že proměnná A obsahuje hodnotu 2 uloží do proměnné B hodnotu 'N', bude zapsán následovně:
CASE A OF 1: B:='A'; 2: B:='N'; END;
CASE A OF 1: B:='A'; 2: B:='N';
CASE B OF 1: A:='A'; 2: A:='N'; END;
CASE A OF B:='A'; B:='N'; END;
Příkaz, který v případě, že proměnná A obsahuje hodnotu 1 nebo 2 uloží do proměnné B hodnotu 'A', jinak uloží do proměnné B hodnotu 'N', bude zapsán následovně:
CASE A OF 1,2: B:='A'; ELSE B:='N'; END;
CASE A OF 1,2: B:='A'; B:='N'; END;
CASE A OF 1: B:='A'; 2: B:='N'; END;
CASE A OF 1 OR 2: B:='A'; ELSE B:='N'; END;
Příkaz, který v případě, že proměnná A typu INTEGER obsahuje hodnoty z intervalu 1 až 10 uloží do proměnné B hodnotu 'A', bude zapsán následovně:
CASE A OF 1..10: B:='A'; END;
CASE A OF 1,10: B:='A'; END;
CASE A OF (A>=1) AND (A<=10) : B:='A'; END;
CASE A OF <10: B:='A'; END;
Příkaz, který vypíše zadanou známku (1 až 5) slovně, bude zapsán následovně:
CASE znamka OF 1: writeln('vyborný'); 2: writeln('chvalitebný'); 3: writeln('dobrý'); 4: writeln('dostatečný'); 5: writeln('nedostatečný'); END;
CASE znamka OF 1: 'vyborný'; 2: 'chvalitebný'; 3: 'dobrý'; 4: 'dostatečný'; 5: 'nedostatečný'; END;
CASE znamka OF 1 writeln('vyborný'); 2 writeln('chvalitebný'); 3 writeln('dobrý'); 4 writeln('dostatečný'); 5 writeln('nedostatečný'); END;
CASE znamka OF vyborný: writeln('1'); chvalitebný: writeln('2'); dobrý: writeln('3'); dostatečný: writeln('4'); nedostatečný: writeln('5'); END;
Příkaz CASE bez části ELSE má obecný zápis:
CASE proměnná OF varianta1: příkaz1; varianta2: příkaz2; .... variantaN: příkazN; END;
CASE OF proměnná varianta1: příkaz1; varianta2: příkaz2; .... variantaN: příkazN; END;
CASE proměnná OF varianta1 příkaz1; varianta2 příkaz2; .... variantaN příkazN; END;
CASE proměnná OF varianta1: příkaz1; varianta2: příkaz2; .... variantaN: příkazN;
Příkaz CASE s částí ELSE má obecný zápis:
CASE proměnná OF varianta1: příkaz1; varianta2: příkaz2; .... variantaN: příkazN; ELSE příkaz; END;
CASE OF proměnná varianta1: příkaz1; varianta2: příkaz2; .... variantaN: příkazN; ELSE příkaz; END;
CASE proměnná OF varianta1 příkaz1; varianta2 příkaz2; .... variantaN příkazN; ELSE příkaz; END;
CASE proměnná OF varianta1: příkaz1; varianta2: příkaz2; .... variantaN: příkazN; ELSE příkaz;