Лабораторная работа № 6
Тема: Решение задачи с применением оператора цикла с параметром .
Цель работы: Научиться использовать оператор цикла при написании программ
Теория.
Последовательность команд, выполняющихся несколько раз в зависимости от некоторого условия, называется циклом. В Паскале различают три вида циклов:
-
циклы с параметром;
-
циклы с предусловием;
-
циклы с постусловием.
Если заранее известно число повторений цикла, то в программе используются циклы с параметром. В общем виде цикл с параметром задается следующим образом:
FOR<переменная цикла> := <выражение1>ТО <выражение2>DO<тело цикла>;
- <переменная цикла>- управляющая переменная, называется параметром цикла, должна быть любого скалярного типа, кроме вещественного;
- <выражение1> и <выражение2> определяют границу изменения параметра цикла (начальное и конечное'значение параметра цикла). Тип выражений 1,2 должен совпадать с типом переменной цикла. Начальное и конечное значение могут быть представлены также константами и переменными.
Можно использовать другой оператор цикла, в котором значение параметра уменьшается от <выражение 1 > до <выражение2>:
FOR<переменная цикла> := <выражениё1>DOWNTO
<вырая£енне2>DO<тело цикла>;
В этом случае очередное значение параметра цикла будет уменьшаться на единицу и проверяться условие:
<переменная цикла> ≥ <выражение2>.
Если в теле цикла используется больше одного оператора, то операторы заключаются в операторные скобки begin... end.
Пример
Вычислить значение у=an.
Текстпрограммы;
Program primer;
Vary,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. Напечатать числа следующим образом:
10 10.4 25 25.5 24.8
11 11.4 26 26.5 25.8
… …
25 25.4 35 35.5 34.8
а б
Вариант 4. Найти количество нечетных делителей натурального числа, больших к (к вводить с клавиатуры),
Вариант 5. Найти сумму десяти произвольных чисел. Результат отправить в переменную S.
Вариант 6. Найти минимальное из n отрицательных чисел.
Вариант 7. Найти максимальное из n отрицательных чисел.
Вариант 8. Ввести n чисел, определить, сколько среди них положительных. Результат отправить в переменную к.
Вариант 9. Ввести n чисел, определить сколько, среди них превосходит первое число. Результат отправить в переменную к.
Вариант 10. Дано натуральное число п. Вычислить:
Вариант 11. Найти все трехзначные числа, такие, что сумма цифр равна А, а само число делится на В (А и В вводятся с клавиатуры).
Вариант 12. Дано натуральное число п. Вычислить:
Вариант 13. Найти количество трехзначных чисел, сумма цифр которых равна а, а само число заканчивается цифрой b (а и b вводятся с клавиатуры).
Вариант 14. Найти все симметричные натуральные числа из промежутка от а до b (а и bвводятся с клавиатуры).
Вариант 15. Найти все четырехзначные числа, у которых сумма крайних цифр равна сумме средних цифр, а само число делится на 6 и 27.
Вариант 16. Найти все четырехзначные числа, в которых есть две одинаковые цифры.
Вариант 17. Найти все симметричные четырёхзначные числа.
Например: 7667,1331.
Вариант 18. Найти все четырёхзначные числа, в которых ровно две одинаковые цифры.
Вариант 19. Найти все трёхзначные числа, которые состоят из разных цифр, а их сумма равна а (а вводится с клавиатуры).
Вариант 20. Дано целое число N и набор из N вещественных чисел. Вывести сумму и произведение чисел из данного набора.
Вариант 21. Дано натуральное число п. Найти сумму:
а) всех четных чисел от 1 до п;
б) всех нечетных чисел от 1 до п.
Вариант 22. Дано натуральное число п. Вычислить:
а) n!;
б) n!! (1*3*5*…*n; 2*4*6*…*n);
в) 1!+2!+...+n!.
Вариант 23. Напечатать числа следующим образом:
21 20.4 16 15.5 16.8
22 21.4 17 16.5 17.8
… …
35 34.4 24 23.5 24.8
а б
Вариант 24. Напечатать таблицу соответствия между весом в фунтах ивесом вкилограммах для значений 1, 2, ..., 10 фунтов(1 фунт=453 г).
Вариант 25. Напечатать таблицу перевода расстояний вдюймах всантиметры для значений 10, 11, ..., 22 дюйма(1 дюйм=25,4 мм).
Вариант 26. Напечатать таблицу стоимости 50, 100, 150, ..., 1000 гсыра (стоимость 1кгсыра вводится склавиатуры).
Вариант 27. Напечатать таблицу стоимости 100, 200, 300, ...,2000 гконфет (стоимость 1кгконфет вводится склавиатуры) .
Вариант 28. Найти:
а) сумму всех целых чисел от 100 до 500;
б) сумму всех целых чисел от Адо 500 (значение Авводится склавиатуры; А500);
в) сумму всех целых чисел от -10 до В(значение Ввводится склавиатуры; В—10);
г) сумму всех целых чисел от Адо В(значения АиВ вводятся склавиатуры; BА).
Вариант 29.Одноклеточная амеба каждые 3часа делится на 2 клетки. Определить, сколько клеток будет через 3, 6, 9, ..., 24 часа, если первоначально была одна амеба.
Контрольные вопросы
-
В каких случаях используется цикл с параметром ?
-
Какого типа может быть переменная счетчик ?
-
Можно ли изменять значение счетчика от большего к меньшему ?
-
Чему равен шаг счетчика ?