Цикл For

Синтаксис:

For <Счётчик>:=<Начальное значение> to <Конечное значение> do

[Begin] <Операторы> [End];

Операторы, находящиеся в цикле выполняются один раз для каждого значения счётчика от начального до конечного значения включительно. Начальное и конечное значения могут представлять собой константы, выражения или переменные. Значение счетчика увеличивается на единицу.

нач.зн<=i<=кон.зн

Операторы

i=i+1

True

False

Пример:

For i:=1 to 5 do

Begin

ReadLn(n);

Sum:=Sum+n;

End;

WriteLn(Sum);

 

Выполнение работы:

1. Квадраты при игре в крестики-нолики пронумерованы, как показано на рисунке. Заданы номера трех квадратов, N₁, N₂, N₃, причем N₁< N₂< N₃. Проверьте, лежат ли квадраты: 1) на одной диагонали; 2) на одной вертикали; 3) на одной горизонтали.

2. Напишите программу-фильтр, которая при нажатии любых клавиш выводит на экран только буквы и цифры, указывая при этом, что именно выводится, буква или цифра.

3. Напишите программу, которая по паролю будет определять степень доступа сотрудника к секретной информации в базе данных. Доступ к базе име­ют только шесть человек, разделенных на три группы по степени доступа. Они имеют следующие пароли:

9583, 1747 — доступны модули базы А, B, С;

3331, 7922 — доступны модули базы B, С;

9455, 8997 — доступен модуль базы С.

4. Создайте программу, реализующую пример применения компьютера в книж­ном магазине. Компьютер запрашивает стоимость книг, сумму денег, вне­сенную покупателем; если сдачи не требуется, печатает на экране: «Спаси­бо»; если денег внесено больше, то печатает: «Возьмите сдачу» и указывает сумму сдачи; если денег недостаточно, то печатает соответствующее сооб­щение и указывает размер недостающей суммы.

5. В компьютер поступают результаты трех спортсменов, показанные на со­ревнованиях по плаванию. Создайте программу, которая выбирает лучший результат и выводит его на экран с сообщением, что это результат победи­теля заплыва.

6. Создайте программу, которая по введенному k - числу грибов - печатает фразу «Мы нашли в лесу k грибов», причем согласовывает окончание сло­ва «гриб» с числом k (количество грибов может быть любым целым чис­лом: 1, 3, 34, 127 и т.п., окончание фразы определяется значением послед­ней цифры).

7. Создайте программу, которая для введенного целого числа k (от 1 до 99) напечатает фразу «Мне k лет», где k - введенное число, заменяя в нужных случаях слово «лет» словом «год» или «года». Например, при k=70 - «Мне 70 лет», при k=15 - «Мне 15 лет», при k=23 - «Мне 23 года» и т. п.

8. Создайте программу для вычисления числа дней в месяце, если даны номер месяца N - целое число от 1 до 12, целое число А, равное 1 для високосного года и 0 - в противном случае.

9. Создайте программу, которая вычисляет сумму чисел от 1 до N. Значение N (меньше 100) вводится с клавиатуры.

10. Напишите программу печати таблицы перевода расстояний из дюймов в сантиметры (1 дюйм = 2,5 см) для значений длин от 1 до 20 дюймов.

11. Используя цикл while, напишите программу вывода всех четных чисел от 2 до 100 включительно.

12. Создайте и произведите отладку программы, вычисляющей сумму квадра­тов чисел от 1 до введенного целого числа n.

13. Используя цикл while, напишите программу определения суммы всех не­четных чисел от 1 до 99 включительно.

14. Используя цикл while, напишите программу определения идеального веса для взрослых людей по формуле: [Идеальный вес]=[рост]-100. Выход из цикла - значение роста 250.

15. Используя цикл repeat, напишите программу-фильтр, которая вводит лю­бые символы, но комментирует только буквы русского алфавита. Заверше­ние работы программы - по нажатию буквы «Я».

16. Используя цикл repeat, напишите программу, которая требует ввод пароля, например, числа 111, и, если пароль правильный, заполняет все строки эк­рана сообщением «Молодец!!!». Если после пятой попытки пароль неверен, выйти из программы.

17. Создайте программу получения в порядке убывания всех делителей дан­ного числа.

18. Создайте программу определения наибольшего общего делителя двух на­туральных чисел.

19. Создайте программу определения наименьшего общего кратного двух на­туральных чисел.

20. Создайте программу, подсчитывающую количество цифр введенного цело­го неотрицательного числа (можно использовать операцию целочислен­ного деления для последовательного уменьшения числа на один разряд).

21. Создайте и произведите отладку программы, определяющей максимальное из всех введенных чисел (пусть признаком конца ввода чисел служит чис­ло 0).

22. Найдите наибольшее и наименьшее значения функции у=Зх²+х-4, если в заданном интервале [a,b] х изменяется с шагом 0,1.

23. Вычислите сумму квадратов N четных натуральных чисел.

24. Вычислите: 1) 1+2+4+8+...+2¹⁰; 2) (1+2)(1+2+3)...(1+2+...+10).

25. В бригаде, работающей на уборке сена, имеется N косилок. Первая из них работала m часов, а каждая следующая на 10 минут больше, чем предыду­щая. Сколько часов проработала вся бригада?

 

Отчёт по лабораторной работе №19

Тема:

Цель работы:

Выполнение работы:

 

 

Вывод: