Question

1. Определите, какое значение будет выведено на экран в результате выполнения приведенной ниже последовательности операторов: a:=1; b:=1; while a>=b do b:=b+a; a:=a+1; write(b*a) 2. Сколько раз будет исполнен Цикл в фрагменте программы? а) p:=2; repeat p:=p*0.1 until p<0.1; б) p:=1; repeat p:=p*0.1 until p>0.1; 3.Определите, какое значение будет выведено на экран в результате выполнения приведенной ниже последовательности операторов: a:=1; b:=1; while a<=32 do a:=a*2; b:=b*a; write (b)

Answer 1

Ответ:

1. Определите, какое значение будет выведено на экран в результате выполнения приведенной ниже последовательности операторов:

a:=1; b:=1;

while a>=b do b:=b+a;    1>=1 да  b:=1+1=2

a:=a+1;     a:=1+1=2

write(b*a)   2*2=4 Ответ 4

2. Сколько раз будет исполнен Цикл в фрагменте программы?

а) p:=2;

repeat

p:=p*0.1    2*0,1=0,2   0,2*0,1= 0,02

until p<0.1; 0.02<0.1 Да Условие истинно значит цикл заканчивается

Ответ 2

б) p:=1;

repeat

p:=p*0.1

until p>0.1;   Ни разу

3.Определите, какое значение будет выведено на экран в результате выполнения приведенной ниже последовательности операторов:

a:=1; b:=1;

while a<=32 do a:=a*2;      тут программа сработает ровно 32 раза

и это получается 32*2=64

b:=b*a;  64*1=64

write (b)  64

Ответ 64

Объяснение:

Answer 2

1. Последовательность операторов:

cssCopy code
a := 1;
b := 1;
while a >= b do
    b := b + a;
    a := a + 1;
write(b * a);

Цикл будет выполняться до тех пор, пока a больше или равно b. Начальные значения a и b равны 1.

Итерация 1: a = 1, b = 1, условие a >= b не выполняется, цикл завершается.

Значение на экране: Ничего не будет выведено, так как цикл не выполнится.

2.а) Фрагмент программы:

cssCopy code
p := 2;
repeat
    p := p * 0.1;
until p < 0.1;

Цикл будет выполняться до тех пор, пока значение p не станет меньше 0.1.

Итерация 1: p = 2 * 0.1 = 0.2, условие p < 0.1 не выполняется.

Итерация 2: p = 0.2 * 0.1 = 0.02, условие p < 0.1 выполняется, цикл завершается.

Цикл будет исполнен 2 раза.

2.б) Фрагмент программы:

cssCopy code
p := 1;
repeat
    p := p * 0.1;
until p > 0.1;

Цикл будет выполняться до тех пор, пока значение p не станет больше 0.1.

Итерация 1: p = 1 * 0.1 = 0.1, условие p > 0.1 выполняется, цикл завершается.

Цикл будет исполнен 1 раз.

3. Последовательность операторов:

cssCopy code
a := 1;
b := 1;
while a <= 32 do
    a := a * 2;
    b := b * a;
write(b);

Цикл будет выполняться до тех пор, пока значение a меньше или равно 32.

Итерация 1: a = 1 * 2 = 2, b = 1 * 2 = 2, условие a <= 32 выполняется.

Итерация 2: a = 2 * 2 = 4, b = 2 * 4 = 8, условие a <= 32 выполняется.

И так далее, цикл будет исполняться до тех пор, пока a не превысит 32.

Значение на экране: 8 (значение b после последней итерации цикла).