12_ИНСТРУКЦИЯ К ВЫПОЛНЕНИЮ ПРАКТИЧЕСКОЙ РАБОТЫ «Применение циклов к решению задач», 9 класс, учеб. Босовой Л.Л., Босовой А.Ю.

№

Этап решения задачи

Реализация на языке программирования pascalABC.net

Прочитайте условие задачи. Выявите входные данные и результат.

Найти сумму всех чисел: 1, 4, 7, …, 28.

1

Входные данные: имя для каждой переменной, тип

Var x : integer; {первое целое число}

Результат: имя для переменной, тип

sum: integer;

2

Начало программы:

begin

3

Как вводятся входные данные?

Значения всегда разные, зависят от желания пользователя, вводятся с клавиатуры

Значения известны заранее, всегда одни и те же

write(‘Введите значение переменной х’);

read(x);

x: = 1; {первое число}

4

Опишите действия для получения результата математической формулой. 1, 4=1+3, 7=4+3, ….. Увеличить следующее число на 3: х + 3.

Сумма: 1+4+7+ …. К сумме прибавить следующее число: sum + x;

Переведите формулу на язык программирования х := х + 3; sum := sum + x;

5

Сколько раз повторяется вычисления по данной формуле?

Если количество повторений известно – используем цикл for,

Если количество повторений неизвестно – используем цикл while или repeat.

For i:=1 to 10 do

Begin

sum := sum + x; {к сумме прибавили число}

х := х + 3; {увеличили число на 3}

end;

While x

6

Скорректировать список переменных, если в цикле нужна дополнительная переменная i

Var ….

i : integer;

7

Вывод ответа на экран

write(‘Сумма= ’, sum);

end.

8.

Протестируйте работу программы, вводя исходные данные задачи и сверяя результат с желаемым ответом.

Найти сумму всех чисел

1, 4, 7, …, 28. Ответ: 1+4+7+10+13+16+19+22+25+28 = 145