Лабораторная работа № 6 Решение задачи с применением оператора цикл с параметром и перечисляемый тип.

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

Теория.

Последовательность команд, выполняющихся несколько раз в зависимости от некоторого условия, называется циклом. В Паскале различают три вида циклов:

• циклы с параметром;

• циклы с предусловием;

• циклы с постусловием.

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

FOR <переменная цикла> := <выражение1> ТО <выражение2> DO <тело цикла>;

- <переменная цикла>- управляющая переменная, называется параметром цикла, должна быть любого скалярного типа, кроме вещественного;

- <выражение1> и <выражение2> определяют границу изменения параметра цикла (начальное и конечное'значение параметра цикла). Тип выражений 1,2 должен совпадать с типом переменной цикла. Начальное и конечное значение могут быть представлены также константами и переменными.

Можно использовать другой оператор цикла, в котором значение параметра уменьшается от <выражение 1 > до <выражение2>:

FOR <переменная цикла> := <выражениё1> DOWNTO

<вырая£енне2> DO <тело цикла>;

В этом случае очередное значение параметра цикла будет уменьшаться на единицу и проверяться условие:

<переменная цикла> ≥ <выражение2>.

Если в теле цикла используется больше одного оператора, то операторы заключаются в операторные скобки begin... end.

Пример

Вычислить значение у=aⁿ.

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

Program primer;

Var y,a: real;

I,n: integer;

Begin

Writeln('введите число для возведения в степень');

Readln(a);

Writeln('введите степень числа');

Readln(n);

Y:=l;

For I := 1 to n do

Y:=Y*a;

Writem(n,'-a степень числа ', a,’=',y:8:2);

Readln

End.

Задание 1.

Вариант 1. Программа. Дано 100 вещественных чисел. Определить, образуют ли они возрастающую последовательность .

Вариант 2. Дано 100 целых чисел. Определить, сколько из них принимает наибольшее значение.

Вариант 3. Дана последовательность из 100 целых чисел. Определить количество чисел в наиболее длинной подпоследовательности из подряд идущих нулей.

Вариант 4. Дано 200 вещественных чисел. Определить, сколько из них больше своих "соседей", т.е. предыдущего и последующего чисел.

Вариант 5. Найти сумму десяти произвольных чисел. Результат отправить в переменную S.

Вариант 6. Найти минимальное из n отрицательных чисел.

Вариант 7. Найти максимальное из n отрицательных чисел.

Вариант 8. Ввести n чисел, определить, сколько среди них положительных. Результат отправить в переменную к.

Вариант 9. Ввести n чисел, определить сколько, среди них превосходит первое число. Результат отправить в переменную к.

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

а) ; б) ;

в) ; г) .

Вариант 11. Найти все трехзначные числа, такие, что сумма цифр равна А, а само число делится на В (А и В вводятся с клавиатуры).

Вариант 12. Найти все трехзначные числа, которые при увеличении на 1 делятся на 2, при увеличении на 2 делятся на 3, при увеличении на 3 делятся на 4, а при увеличении на 4 делятся на 5.

Вариант 13.Найти количество трехзначных чисел, сумма цифр которых равна а, а само число заканчивается цифрой b (а и b вводятся с клавиатуры).

Вариант 14. Найти все симметричные натуральные числа из промежутка от а до b (а и b вводятся с клавиатуры).

Вариант 15. Найти все четырехзначные числа, у которых сумма крайних цифр равна сумме средних цифр, а само число делится на 6 и 27.

Вариант 16. Найти все четырехзначные числа, в которых есть две одинаковые цифры.

Вариант 17. Найти все симметричные четырёхзначные числа.

Например: 7667,1331.

Вариант 18. Найти все четырёхзначные числа, в которых ровно две одинаковые цифры.

Вариант 19. Найти все трёхзначные числа, которые состоят из разных цифр, а их сумма равна а (а вводится с клавиатуры).

Вариант 20. Найти все натуральные числа из промежутка от 1 до 200, у которых сумма делителей равна s (s вводить с клавиатуры).

Вариант 21. Найти сумму целых чисел из промежутка от 1 до 200, у которых ровно 5 делителей.

Вариант 22. Найти все целые числа из промежутка от 100 до 300, у которых сумма делителей равна к (к вводить с клавиатуры).

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

1. В каких случаях используется цикл с параметром ?

2. Какого типа может быть переменная счетчик ?

3. Можно ли изменять значение счетчика от большего к меньшему ?

4. Чему равен шаг счетчика ?