Цикл с параметром

Пример

Изучите пример программы и блок-схему данной задачи.

Program for5;

uses PT4; {подключение модуля}

var c:real; {описание величин}

i:integer;

begin

Task('For5'); {запрос условия задачи}

read(c); {ввод исходного значения}

for i:=1 to 10 do {организация цикля}

write(c/10*i); {вывод результатов}

end.

Дано целое число N (> 0). Найти произведение 1.1 · 1.2 · 1.3 · … (N сомножителей).

ProgramFor12;usesPT4;varn,i:integer;p:real;beginTask('For12');read(n);p:=1;fori:=1tondop:=p*(1+i/10);write(p);end.

Скопируйте текст программы 1 .
Расставьте недостающие разделители между командами. Поставьте коментарии к тексту программы.
Проверьте работоспособность программы.
Сохраните программу по шаблону 8Б_ФИ_For12.pas. (Б - буква класса, ФИ - фамилия и имя).

Внесите изменения в полученную программу задания 1 так, чтобы получилось решение задачи:

Дано целое число N (> 0). Найти значение выражения: 1.1 + 1.2 + 1.3 + … (N слагаемых).

Сохраните программу по шаблону 8Б_ФИ_For12_1.pas.

Подсказка. Отключите модуль PT4 и не забудьте обнулить начальное значение суммы.

Внесите изменения в программу, полученную при выполнении задания 2, так, чтобы получилось решение задачи For13:

Дано целое число N (> 0). Найти значение выражения 1.1 − 1.2 + 1.3 − … (N слагаемых, знаки чередуются). Условный оператор не использовать.

Подсказка. Можно добавить в программу переменную, поочередно принимающую значения -1 и 1.

Сохраните программу по шаблону 8Б_ФИ_For13.pas.