Цикл ForСинтаксис: For <Счётчик>:=<Начальное значение> to <Конечное значение> do [Begin] <Операторы> [End]; Операторы, находящиеся в цикле выполняются один раз для каждого значения счётчика от начального до конечного значения включительно. Начальное и конечное значения могут представлять собой константы, выражения или переменные. Значение счетчика увеличивается на единицу.
Пример: For i:=1 to 5 do Begin ReadLn(n); Sum:=Sum+n; End; WriteLn(Sum);
Выполнение работы: 1. Квадраты при игре в крестики-нолики пронумерованы, как показано на рисунке. Заданы номера трех квадратов, N1, N2, N3, причем N1< N2< N3. Проверьте, лежат ли квадраты: 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. Найдите наибольшее и наименьшее значения функции у=Зх2+х-4, если в заданном интервале [a,b] х изменяется с шагом 0,1. 23. Вычислите сумму квадратов N четных натуральных чисел. 24. Вычислите: 1) 1+2+4+8+...+210; 2) (1+2)(1+2+3)...(1+2+...+10). 25. В бригаде, работающей на уборке сена, имеется N косилок. Первая из них работала m часов, а каждая следующая на 10 минут больше, чем предыдущая. Сколько часов проработала вся бригада?
Отчёт по лабораторной работе №19 Тема: Цель работы: Выполнение работы:
Вывод:
|