Pascal - příkaz cyklu REPEAT (VY_32_INOVACE_08_2_12_PR) Ing. Petr Stránský
Vyberte správný obecný zápis příkazu REPEAT:
REPEAT příkazy UNTIL podmínka;
UNTIL příkazy REPEAT podmínka;
REPEAT podmínka UNTIL příkazy;
REPEAT podmínka příkazy UNTIL;
Jakou hodnotu vytiskne následující část programu?
A:=0; REPEAT A:=A+1; UNTIL A=10; WRITELN(A);
9
10
11
cyklus nikdy neskončí
Jakou hodnotu vytiskne následující část programu?
A:=0; REPEAT A:=A+1; UNTIL A>10; WRITELN(A);
9
10
11
cyklus nikdy neskončí
Jakou hodnotu vytiskne následující část programu?
A:=0; REPEAT A:=A+1; UNTIL A<10; WRITELN(A);
1
9
10
cyklus nikdy neskončí
Jakou hodnotu vytiskne následující část programu?
A:=0; REPEAT A:=1; UNTIL A=10; WRITELN(A);
11
9
10
cyklus nikdy neskončí
Část programu, která bude vyžadovat zadání hodnoty proměnné A do té doby, dokud nebude zadána hodnota z intervalu (1;10), bude zapsána:
REPEAT readln(a); UNTIL (A>1) AND (A<10);
REPEAT readln(a); UNTIL (A<1) AND (A>10);
REPEAT (A>1) AND (A<10) readln(a); UNTIL;
REPEAT UNTIL (A>1) AND (A<10); readln(a);
Část programu, která bude vyžadovat zadání znaku do proměnné POKRACOVAT do té doby, dokud nebude zadán znak A nebo N, bude zapsána:
REPEAT readln(POKRACOVAT); UNTIL (POKRACOVAT='A') OR (POKRACOVAT='N');
REPEAT readln(POKRACOVAT); UNTIL (POKRACOVAT='A') AND (POKRACOVAT='N');
REPEAT readln(POKRACOVAT); UNTIL 'A' OR 'N';
REPEAT readln(POKRACOVAT); UNTIL 'A' AND 'N';
Část programu, která bude vyžadovat zadávání hodnoty do proměnné PENIZE do té doby, dokud nebude součet všech zadaných hodnot větší než 1000, bude zapsána:
SOUCET:=0; REPEAT readln(PENIZE); SOUCET:=SOUCET+PENIZE; UNTIL SOUCET>1000;
SOUCET:=0; REPEAT readln(PENIZE); SOUCET:=SOUCET+PENIZE; UNTIL PENIZE>1000;
SOUCET:=0; REPEAT readln(PENIZE); SOUCET:=PENIZE; UNTIL SOUCET>1000;
SOUCET:=1000; REPEAT readln(PENIZE); SOUCET:=SOUCET+PENIZE; UNTIL SOUCET>1000;
