Программирование циклических алгоритмов: цикл с предусловием

Цель: закрепить практические навыки работы с системой Turbo Pascal, научиться правильно использовать операторы цикла с условием; научиться составлять программы решения задач с использованием циклических структур.

Теоретические сведения:

Цикл с предусловием.
Для реализации циклов с предусловием используется составной оператор, включающий оператор while, do, операторные скобки.
В общем виде цикл реализуется записью:
while <условие> do <действие>;
Если тело цикла содержит более одного действия, то необходимо использовать операторные скобки:
while <условие> do
begin
<оператор 1>;
<оператор 2>;
...
<оператор n>;
end;

Порядок выполнения работы:

1) Составьте программу решения задачи: Дано натуральное число n. Вычислить S=1!+2!+3!+4!+…+n! (n>1). Откомпилируйте программу. Проверьте правильность решения задачи на конкретном примере.

2) Составьте программу решения задачи: Программа должна запрашивать пароль (например, четырехзначное число) до тех пор, пока он не будет правильно введён. Откомпилируйте программу. Проверьте правильность решения задачи.

3) Составьте программу решения задачи: Найти сумму и произведение всех трехзначных чисел, кратных 7. Откомпилируйте программу. Проверьте правильность решения задачи.

4) Составьте программу решения задачи: Одноклеточная амёба каждые 3 часа делится на 2 клетки. Определить сколько амёб будет через 3, 6, 9, 12, 15, 18, 21,24 часа. Откомпилируйте программу. Проверьте правильность решения задачи.

5) Запишите полученные результаты в тетрадь. Оформите отчет о проделанной работе, который должен содержать тему, цель работы, формулировки задач с решениями.

6) Выйдите из программы Turbo Pascal.

Лабораторная работа №6