Question

Программа 10: Program PR10; var S, i: integr; begin S: = 0; for i: = 20 to 40 do begin S: = S + i; i: = i+9; write (i, ‘-‘, S); end; end. а) Сколько раз выполняется тело цикла в данной программе? б) Что будет записано в переменную S после выполнения программы? в) Что будет напечатано на экране? г) Как изменится результат печати, если поменять местами две предпоследние строки программы? 2. Сколько раз будут выполнены инструкции между begin – end? a) for i:=j to j+1 do begin . . . end; b) k: = 0; for i: = 2 downto k do begin . . . end; 3. Чему будет равен х после выполнения инструкции? x:=0; for i:= -5 to 0 do n :=i* i; x := x + n;

Answer 1

1
а) 0 раз потому что будет выдана ошибка
"Нельзя изменять значение переменной цикла внутри этого цикла"
б) Соответственно останется 0
в) ничего
г) никак, ошибка будет повторяться

2 а) 2 раза
b)3 раза

3) 0

Answer 2

#1

a) 3
b) 90
c) 29-20-39-50-49-90
d) 20-20-30-50-40-90

#2

a) 2
b) 3

#3

 0

Answer 3

Давайте разберем каждую из программ:

Программа 10:

```pascal Program PR10; var S, i: integer; begin S := 0; for i := 20 to 40 do begin S := S + i; i := i + 9; write(i, '-', S); end; end. ```

а) Сколько раз выполняется тело цикла в данной программе?

Цикл выполняется от 20 до 40 с шагом 1, поэтому тело цикла выполнится 21 раз.

б) Что будет записано в переменную S после выполнения программы?

Переменная S будет содержать сумму всех значений i внутри цикла.

в) Что будет напечатано на экране?

На экран будет выведена последовательность чисел i и соответствующих им значений S.

г) Как изменится результат печати, если поменять местами две предпоследние строки программы?

Если поменять местами две предпоследние строки программы, то значение переменной i изменится перед выводом. Это может привести к изменению порядка вывода значений, но сумма S останется неизменной.

Вторая программа:

2. Сколько раз будут выполнены инструкции между `begin – end`?

а) `for i := j to j + 1 do begin ... end;` - Цикл выполнится один раз, так как j до j+1 – это всего два значения.

б) `k := 0; for i := 2 downto k do begin ... end;` - Цикл выполнится 3 раза, так как он идет от 2 до 0 с шагом -1.

3. Чему будет равен x после выполнения инструкции?

```pascal x := 0; for i := -5 to 0 do n := i * i; x := x + n; ``` Здесь цикл повторяется 6 раз (от -5 до 0 включительно), но значение n перезаписывается на каждой итерации. Поэтому x будет равен 0, так как n будет равно 0 на последней итерации цикла. Если вы хотели бы, чтобы значение n добавлялось к x на каждой итерации, необходимо заключить инструкцию внутри цикла в begin и end:

x := 0;
for i := -5 to 0 do
begin
  n := i * i;
  x := x + n;
end;