Question

Вычислите значение переменной у после выполнения алгоритма. Var x,y: integer; Begin x:=15; y:=-10; While x*y<0 do Begin x:=x-3; y:=y+1 end; writeln(y); end.

Answer 1

Попробуй это засунуть в паскаль, и посмотришь ответ. Так я сказать не могу

Answer 2

Давайте разберемся, как изменяются переменные x и y во время выполнения этого алгоритма.

Исходные значения переменных:

• x = 15
• y = -10

Условие цикла While x*y < 0 означает, что цикл будет выполняться, пока произведение x и y меньше нуля.

Итерация 1:

• x = 15
• y = -10 Проверяем условие: 15 * -10 = -150, что меньше нуля. Условие выполняется, поэтому заходим в тело цикла. Изменения в теле цикла: x = 15 - 3 = 12 y = -10 + 1 = -9

Итерация 2:

• x = 12
• y = -9 Проверяем условие: 12 * -9 = -108, что меньше нуля. Условие выполняется, заходим в тело цикла. Изменения в теле цикла: x = 12 - 3 = 9 y = -9 + 1 = -8

Итерация 3:

• x = 9
• y = -8 Проверяем условие: 9 * -8 = -72, что меньше нуля. Условие выполняется, заходим в тело цикла. Изменения в теле цикла: x = 9 - 3 = 6 y = -8 + 1 = -7

Итерация 4:

• x = 6
• y = -7 Проверяем условие: 6 * -7 = -42, что меньше нуля. Условие выполняется, заходим в тело цикла. Изменения в теле цикла: x = 6 - 3 = 3 y = -7 + 1 = -6

Итерация 5:

• x = 3
• y = -6 Проверяем условие: 3 * -6 = -18, что меньше нуля. Условие выполняется, заходим в тело цикла. Изменения в теле цикла: x = 3 - 3 = 0 y = -6 + 1 = -5

Итерация 6:

• x = 0
• y = -5 Проверяем условие: 0 * -5 = 0, что больше или равно нулю. Условие не выполняется, поэтому выходим из цикла.

Таким образом, значение переменной y после выполнения алгоритма будет -5.