Лабораторная работа № 7 Решение задачи с применением операторов цикла итерационного типа.

Цель работы: Научиться использовать оператор цикла с предусловием и постусловием при написании программ.

Теория.

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

Оператор цикла с предусловием.

Цикл с предусловием записывается следующим образом:

WHILE <условие> DО<тело цикла>; Условие - это выражение логического типа.

В цикле с предусловием проверка условия производится до начала очередной итерации. Оператор тела цикла выполняется до тех пор, пока условие истинно. Если условие ложно, то выполняется оператор, следующий за оператором WHILE. Если в теле цикла имеется несколько операторов, то они объединяются в составной оператор BEGIN ... END.

Пример

Вычислить n!.

Текст программы:

Program primer 1;

Var F,K,N: integer;

Begin

Writeln(‘введите число для нахождения факториала');

Readln(N);

F;=l;

К:=0;

WhileK<>Ndo

Begin

K:=K+l;

F:=F*K

End;

Writeln('факториал числа ', N ,* = ', F:8);

Readln

End.

Oператор цикла с постусловием

Цикл с постусловием записывается следующим образом: REPEAT

оператор 1;

. . .

оператор N

UNTIL <условие>;

В цикле с постусловием проверка условия производится после тела цикла, поэтому его называют циклом с постусловием. Оператор цикла выполняется пока условие ложно. Тело цикла независимо от условия выполняется хотя бы один раз. Если условие истинно, то выполняется оператор, следующий за опеатором цикла.

Пример

Вычислить n!.

Текст программы: Program primer2;

Var F,K,N: integer;

Begin

Writeln(‘введите число для нахождения факториала’);

Readln(N);

F:=l;

К:=0;

Repeat

К:=К+1;

F:=F*K;

Until К <>N;

Writern('Факториал числа ', N ,' = ', F:8); Readln

End.

Задание 1.

Вариант 1. Дана непустая последовательность различных натуральных чисел, за которой следует 0. Определить порядковый номер наименьшего из них.

Вариант 2. Вводится последовательность ненулевых чисел, 0-конец последовательности. Определить, является ли последовательность возрастающей.

Вариант 3. Вводится последовательность ненулевых чисел, 0-конец последовательности. Определить, является ли последовательность закономерной.

Вариант 4. Вводится последовательность ненулевых чисел, 0-конец последовательности. Подсчитать, сколько в ней отрицательных чисел, и сумму положительных чисел.

Вариант 5. Дана последовательность из п чисел. Определить, сохраняет ли она знак

Вариант 6. Вычислить:

а) у=cosx+cosx²+cosx³+...+cosx³⁰;

б) у=1!+2!+3!+...n!(n>1);

в) у- первое из чисел sin x, sin sin x, sin sin sin x,., меньшее по модулю 10 .

Вариант 7. Напечатать таблицу значений функций sin х и cos х на отрезке [0,1] с шагом 0.1 в следующем виде (считать, что при печати на каждое вещественное число отводится по 6 позиций строки):

х sin(x) cos(x)

0.0000 0.0000 1.0000

0.1000 0.0998 0.9950

……………………….…….

1.0000 0.8415 0.5403

Вариант 8. Дана непустая последовательность ненулевых целых чисел, за которой следует 0. Определить, сколько раз в этой последовательности меняется знак. (Например, в последовательности 1, -34, 8, 14, -5 знак меняется 3 раза.)

Вариант 9. Дано натуральное число п

- найти количество цифр данного числа, больших а (а вводится с клавиатуры);

Вариант 10. Найти сумму цифр заданного натурального числа п.

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

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

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

а) Сколько цифр в числе п;

б) Чему равна сумма его цифр?

в) Найти первую цифру числа п.

Вариант 14. Даны натуральные числа п, т получить сумму т последних цифр числа п.

Вариант 15. Дано натуральное число п:

а) Выяснить входит ли цифра 3 в запись числа п²;

б) Поменять порядок цифр числа п на обратный;

в) Переставить первую и последнюю цифры числа п;

г) Приписать по единице в начало и в конец записи числа п.

Вариант 16. Получить таблицу температур по Цельсию от 0 до 100 градусов и их эквивалентов по шкале Фаренгейта, используя для

перевода формулу

Вариант 17. Вычислить значения функции у=4х³ -2х ²+5 для значений х, изменяющихся от -3 до 1, с шагом 0.1.

Вариант 18. Дано натуральное число п. Вычислить значения функции

для х=1; 1.1; 1.2;...;1+0.1 n.

Вариант 19. Вычислить значение функций y=4x⁵-2x³+5 для значения х, изменяющегося от -5 до 1 с шагом 0,1.

Вариант 20. Определить все делители натурального числа х и их количество.

Вариант 21. Пользователь внес в сберкассу вклад t. До какой суммы s возрастет через х лет вклад, если процент годовых начислений р%?

Вариант 22. Какой процент годовых начислений р должен обеспечить банк, чтобы первоначальный вклад s увеличился вдвое за х лет?

Вариант 23. Долгожитель, т.е. человек, проживший более 100 лет, обратил внимание, что если к сумме квадратов цифр его возраста прибавить число его дня рождения, то получится как раз его возраст. Определить, сколько этому человек лет.

Вариант 24. Три приятеля были свидетелями нарушения правил дорожного движения. Номер автомобиля (четырёхзначный) ни один из них не запомнил. Однако один заметил, что этот номер делится на 2, на 7 и на 11; другой заметил, что в записи номера участвуют только две цифры, а третий заметил, что сумма цифр числа равна 30. Каков номер автомашины нарушителя?

Вариант 25. Дано натуральное число п. Найти все простые числа от 1 до п. Простым называют такое число, которое делится на 1 и на себя, остальных же делителей оно не имеет.

Вариант 26. Дано целое положительное число п. Найти его простые делители.

Вариант 27. Найти натуральное число от 1 до 10000 с максимальной суммой собственных делителей.

Вариант 28. Дано натуральное число:

а) сколько раз первая цифра встречается в данном числе; б) верно ли, что данное число начинается на а, а заканчивается на b (цифры а и b вводятся с клавиатуры).

Вариант 29. Дано натуральное число:

а) найти количество четных цифр числа;

в) верно ли, что данная цифра а встречается в числе более двух раз (а вводить с клавиатуры).

Вариант 30. Дано натуральное число:

а) сколько раз данная цифра а встречается в данном числе (а вводить с клавиатуры).

б) верно ли, что в данном числе сумма цифр больше b, а само число делится на b (b вводить с клавиатуры).

Контрольные вопросы

1. До каких пор выполняется цикл с предусловием ?

2. Отличия цикла с предусловием от цикла с постусловием ?

3. В каком случае после оператора Do ставятся скобки Begin ….. End; ?