Скільки разів виконається цикл, якщо початкове значення Х=7? Repeat X := X+1 Untіl X>10; Позначте одну правильну відповідь. (Кількість балів 1.00) А Жодного Б 4 В 6 Г 2 Скільки разів виконається цикл, якщо початкове значення Х=11? Repeat X := X+1 Untіl X>10; Позначте одну правильну відповідь. (Кількість балів 1.00) А Жодного Б 2 В 3 Г 1 Якого значення набуде змінна F після виконання циклу? і := 1; F := 2; Repeat і:=і +1; F := F*і Untіl і < 3; Позначте одну правильну відповідь. (Кількість балів 1.00) А 4 Б 2 В 3 Г 12 Якими є ознаки циклу з післяумовою Repeat? Позначте всі правильні відповіді. (Кількість балів 1.50) А Оператори тіла циклу виконуються доти, доки умова хибна Б Якщо умова набуває значення True, керування переходить до оператора, що слідує безпосередньо за оператором Until <умова> В Оператори тіла циклу виконуються мінімум один раз. Умова починає перевірятися лише після першого проходження циклу Г Оператори тіла циклу виконуються доти, доки умова істинна Визначте, які оператори реалізують дію: Збільшувати значення змінної А на 2 доти, доки А<20. Позначте всі правильні відповіді. (Кількість балів 1.50) А Repeat A := A+2 Untіl A >= 20; Б If A < 20 Then A := A+2; В Repeat A := A+2 Untіl A<20; Г Whіle A<20 do A := A+2; Встановіть відповідність між еквівалентними операторами 1–4 і А–Г. (Кількість балів 2.00) 1 Repeat X := X+1 Untіl X>10; 2 While N<1000 do begin N := N+1; S := S+1/N end; 3 While N<1000 do begin N := N+1; S := S+N end; 4 Repeat X := X+1; S := S+X Untіl X>10; А Whіle Х <= 10 do X := X+1; Б Whіle Х <= 10 do begin X := X+1; S := S+X end; В Repeat N := N+1; S := S+N Untіl N >= 1000; Г Repeat N := N+1; S := S+1/N Untіl N >= 1000; А Б В Г 1 2 3 4 Встановіть відповідність між операторами (1–4) та їхніми блок-схемами (А–Г). (Кількість балів 2.00) 1 Repeat A := A+1 Untіl A >= 5; 2 Whіle A<5 do A := A+1; 3 If A < 5 Then A := A+1 Else A := A–1; 4 If A < 5 Then A := A+1; А Б В Г А Б В Г 1 2 3 4 Яке значення S буде виведено в текстове поле? var N, d, S: Integer; begin N := 345; S := 0; Repeat d := N mod 10; S := S+d; N := N div 10; Until N=0; Edit2.Text := IntToStr(S); end;
оператор присваивания :=
оператор ввода read(x1,x2,...,xn) или readln(x1,x2,...,xn)
оператор вывода write(x1,x2,...,xn) или writeln(x1,x2,...,xn)
условный оператор if условие then оператор 1 else оператор 2
оператор варианта case управляющая переменная of
набор значений1: оператор1;
набор значений2: оператор2;
...
набор значенийn: операторN
else
альтернативный оператор
end;
оператор цикла с предусловиями while ... do
оператор цикла с постусловием repeat ... until
оператор цикла for ... do
оператор break осуществляет немедленный выход из циклов repeat, while, for.
оператор continue начинает новую итерацию цикла, даже если предыдущая не была завершина.
оператор exit осуществляет выход из подпрограммы.
оператор halt прекращает выполнение программы и возвращает код завершения в операционную систему.
Объяснение:
procedure F(n: integer);
begin
if n>0 then begin
Write (n);
F(n-2);
F(n div 4);
end
end;
begin
F(9);
end.
На выходе будет 97531112
Если нужна трассировка, её можно сделать примерно так:
procedure F(n: integer);
begin
Writeln('Вход');
if n>0 then begin
Writeln ('В выходную строку: ',n);
Writeln('Вызов F(n-2)');
F(n-2);
Writeln('Вызов F(n div 4)');
F(n div 4);
end;
Writeln('Выход')
end;
begin
F(9);
end.
Результат трассировки:
Вход
В выходную строку: 9
Вызов F(n-2)
Вход
В выходную строку: 7
Вызов F(n-2)
Вход
В выходную строку: 5
Вызов F(n-2)
Вход
В выходную строку: 3
Вызов F(n-2)
Вход
В выходную строку: 1
Вызов F(n-2)
Вход
Выход
Вызов F(n div 4)
Вход
Выход
Выход
Вызов F(n div 4)
Вход
Выход
Выход
Вызов F(n div 4)
Вход
В выходную строку: 1
Вызов F(n-2)
Вход
Выход
Вызов F(n div 4)
Вход
Выход
Выход
Выход
Вызов F(n div 4)
Вход
В выходную строку: 1
Вызов F(n-2)
Вход
Выход
Вызов F(n div 4)
Вход
Выход
Выход
Выход
Вызов F(n div 4)
Вход
В выходную строку: 2
Вызов F(n-2)
Вход
Выход
Вызов F(n div 4)
Вход
Выход
Выход
Выход