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

 

Тема: Решение задачи с применением операторов цикла итерационного типа.

 

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

 

Теория.

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

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

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

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

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

Пример

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

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

Programprimer 1;

VarF,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!.

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

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. Гражданин 1 марта открыл счет в банке, вложив 1000 руб. Через каждый месяц размер вклада увеличивается на 2% от имеющейся суммы. Определить:

а) за какой месяц величина ежемесячного увеличения вклада превысит 30 руб.;

б) через сколько месяцев размер вклада превысит 1200 руб.

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

Вариант 3. Гражданин 1марта открыл счет вбанке, вложив 1000 руб.Через каждый месяц размер вклада увеличивается на 2% от имеющейся суммы. Определить:

а) прирост суммы вклада за первый, второй, ..., десятый месяц;

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

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

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

Вариант 6.         В некотором году (назовем его условно первым) на участке в100 гектаровсредняя урожайность ячменя составила 20 центнеров сгектара. После этого каждый год площадь участка увеличивалась на 5%, асредняя урожайность —на 2%. Определить:

а) урожайность за второй, третий, ..., восьмой год;

б) площадь участка вчетвертый,пятый,..., седьмой год;

в) какой урожай будет собран за первые шесть лет.

Вариант 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 в запись числа п2;

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

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

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

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

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

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

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

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

Вариант 19. Дана непустая последовательность неотрицательных целых чисел, оканчивающаяся отрицательным числом. Найти среднее арифметическое всех чисел последовательности (без учета отрицательного числа).

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

Вариант 21. Дана непустая последовательность целых чисел, оканчивающаяся нулем. Найти:

а) сумму всех чисел последовательности;

б) количество всех чисел последовательности.

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

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

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

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

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

Вариант 27. Дана непустая последовательность неотрицательных целых чисел, оканчивающаяся отрицательным числом. Найти среднее арифметическое всех чисел последовательности (без учета отрицательного числа).

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

а) сколько раз первая цифра встречается в данном числе;

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

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

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

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

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

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

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

 

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

 

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

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

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