Pascal - příkaz cyklu WHILE (VY_32_INOVACE_08_2_14_PR) Ing. Petr Stránský
Vyberte správný obecný zápis příkazu WHILE:
WHILE podmínka DO příkazy;
WHILE podmínka příkazy;
WHILE DO podmínka příkazy;
WHILE příkazy; DO podmínka;
Jakou hodnotu vytiskne následující část programu?
A:=0; WHILE A<10 DO A:=A+1; WRITELN(A);
9
10
11
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:
WHILE (A<=1) OR (A>=10) DO readln(a);
WHILE (A<=1) AND (A>=10) DO readln(a);
WHILE DO (A<=1) OR (A>=10) readln(a);
WHILE readln(a); DO (A<=1) OR (A>=10);
Čá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:
WHILE (POKRACOVAT<>'A') AND (POKRACOVAT<>'N') DO readln(POKRACOVAT);
WHILE (POKRACOVAT<>'A') OR (POKRACOVAT<>'N') DO readln(POKRACOVAT);
WHILE (POKRACOVAT<>'A') AND (POKRACOVAT<>'N') readln(POKRACOVAT); DO;
WHILE readln(POKRACOVAT); DO (POKRACOVAT<>'A') AND (POKRACOVAT<>'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; WHILE SOUCET<=1000 DO begin readln(PENIZE); SOUCET:=SOUCET+PENIZE; end;
SOUCET:=0; WHILE PENIZE<=1000 DO begin readln(PENIZE); SOUCET:=SOUCET+PENIZE; end;
SOUCET:=0; WHILE SOUCET<=1000 DO readln(PENIZE); SOUCET:=SOUCET+PENIZE;
SOUCET:=0; WHILE SOUCET<=1000 DO begin readln(PENIZE); SOUCET:=PENIZE; end;