End

end;

«Размыкание» цикла заключается в том, что действия, выполняемые в цикле один раз (в примере это {операторы 1}), следует выполнить за его пределами перед началом цикла:

i:= 1;// если это необходимо!

{операторы 1}

for i:= 2 to Count do begin

{операторы 2}

end;

· Тщательно анализируйте задание перед конструированием цикла

Рассмотрим вычисление e^x с заданной точностью tolerance по формуле:

При решении «в лоб» в цикле придется выполнять не только вычисление суммы слагаемых, но и возведение x в целую степень, а также вычисление факториала (2!, 3!, …).

Однако при выполнении простого анализа исходной формулы (разделите последующее слагаемое на предыдущее!) можно определить, что каждое слагаемое, начиная с x, может быть получено умножением предыдущего слагаемого на коэффициент x / i, где i = 1, 2,… – номер слагаемого в исходном выражении (слагаемое x имеет номер 1). Тогда вычисление e^x можно сконструировать так:

i:=1; // номер слагаемого

summa:=1; // значение суммы

increment:=1; // значение слагаемого

while increment > tolerance do begin

increment:= increment Ý x/i;

summa:= summa + increment;

i:= i + 1;

end;

2.3.3 Программирование с использованием управляющих структур

Сконструировать простое консольное приложение в соответствии с одним из приведенных ниже заданий.

Напишите программу, которая осуществляет обработку информации по одному из условий, заданных ниже.

1. Присвоить переменной К значение 1, если два числа из трех чисел x, y, z являются положительными и кратными 3, и значение 0 в противном случае.

2. Найти наибольшее из трех чисел x, y, z.

3. Присвоить переменной К значение true, если точка с координатами x, y принадлежит заданнойобласти, и значение false в противном случае:

4. Дано натуральное число N. Определить:

a. Сколько цифр 5 и 8 входит в это число

b. Произведение цифр заданного натурального числа

c. Определить число, получаемое выписыванием в обратном порядке цифр заданного натурального числа

d. Является ли заданное натуральное число палиндромом, т.е. таким, десятичная запись которого читается одинаково слева направо и справа налево

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

5. Определить десятичный эквивалент целого положительного двоичного числа К.

6. Определить двоичный эквивалент целого положительного десятичного числа N.

7. Вычислить сумму:

d. с точностью 0.001

8. Начав тренировки, спортсмен в первый день пробежал 10 км. Каждый следующий день он увеличивал дневную норму на 10% от нормы предыдущего дня. Какой суммарный путь пробежит спортсмен за 7 дней?

9. Вычислить приближенную площадь одной арки косинусоиды, разделив отрезок от – π /2 до π/ 2 на 10 частей и суммируя площади десяти прямоугольников с основанием π /10 и высотой, равной значению функции на правой границе каждого интервала.

10. Найти три таких целых числа a, b и c в диапазоне от 0 до 20, для которых справедливо равенство Пифагора: a² + b² = c².