Продолжение, начало см. МК № 3, 8, 16, 27 (226, 231, 239, 250) Вот и встретились мы в очередной раз на страницах всеми любимого еженедельника. А это значит, что пора загружать Паскаль. Загрузили? Тогда читайте дальше.
Сначала разберемся с домашним заданием:
Задача №17
Получить 100 случайных чисел, не превышающих число 500. Вывести на экран построчно эти числа, а также подсчитать количество и вывести на экран те из них, которые заканчиваются цифрой 7.
Построчно вывести числа значит, в каждой строке должно печататься одно число. Остальное, я думаю, понятно:
Обратите внимание, что в этой задаче числа не надо разбивать на сотни и десятки. Достаточно лишь найти десятки. Например, в числе 473 47 десятков.
Еще одно замечание к условию задачи. В данном случае мы заполняем массив числами от 0 до 500. Но отрицательные числа не превышают 500, поэтому нужно всегда уточнять, входят ли отрицательные числа в диапазон. Если да, то включить их в интервал немудрено. Например, заполнить массив числами от 500 до 500 можно так: mas[i] := Random(1001) 500. То есть, получаем случайные числа от 0 до 1000 и отнимаем от них 500, в результате имеем числа в интервале от 500 до 500.
Вот такие пироги :-). Решаем следующую задачу:
Задача №18
Составить программу получения целых случайных чисел, не превышающих 1000. Вывести на экран в строку по 5 чисел те из них, которые кратны числам 2 и 7. Количество получаемых случайных чисел задавать с помощью оператора READLN.
Опять-таки не следует забывать, что числа могут быть отрицательными. В моем решении случайные числа принадлежат диапазону от 1000 до 1000. Хотя вы можете установить другой диапазон главное, чтобы числа не были больше тысячи.
Сначала подробнее объясню, что такое clrscr. Данная процедура очищает экран и устанавливает курсор в левый верхний угол окна. Это очень удобно, если вы, к примеру, запустили программку два раза. На экране вы видите их обе, и первая мешает сконцентрироваться на второй. К тому же это не очень красиво. Используя же процедуру clrscr, вы видите на мониторе только работающую в данный момент программу.
Функция keypressed играет в нашем случае ту же роль, что и привычный readln в конце программы. То бишь она (программа) не завершится, пока пользователь не нажмет любую клавишу. Учтите, если используется readln, то нужно нажать Enter, а для keypressed сойдет любая клавиша. Точное определение функции keypressed звучит так: она определяет, была ли нажата клавиша на клавиатуре.
Чтобы проверить число на кратность двум и семи, достаточно лишь поделить его на эти числа. И если в обоих случаях остаток равняется нулю, то число кратно двум и семи. Приступим к следующей задаче.
Задача №19
Составить программу вывода на экран четырехзначных чисел из заданного интервала, в десятичной записи которых нет двух и более одинаковых цифр.
Для тех, кто не знает, что такое десятичная запись, объясняю. Десятичная запись состоит из десяти цифр: 0, 1, 2, …, 8, 9. Это стандартная форма записи чисел, которой все привыкли пользоваться. Вы, наверное, слышали, что для вычислений компьютер использует двоичную форму представления (записи) чисел. Она состоит всего лишь из двух цифр 0 и 1. Кроме предыдущих двух форм записи чисел довольно часто упоминается еще одна шестнадцатеричная. Думаю, вы уже поняли, что она состоит из шестнадцати знаков: десять из них стандартные цифры от 0 до 9, остальные шесть буквы латиницы: A, B, C, D, E, F. Про разные системы исчислений можно рассказывать еще очень долго, но это не тема нашей статьи, поэтому перейдем к решению поставленной задачи.
Вот на этой лирической ноте и закончим :-). Осталось лишь записать домашнее задание. На этот раз оно будет состоять из двух задач. Но не пугайтесь, они совсем простые:
Задача №20
Составить программу, определяющую количество оставшихся до конца месяца дней. Текущую дату (день, месяц) вводить с помощью оператора READLN. Количество дней в феврале принять равным 28.
Задача №21
Водителю необходимо преодолеть расстояние в N км, из них М по городу. Какое при этом требуется минимальное время для прохождения всей дистанции без нарушения допустимых скоростей (60 км/час по городу, 80 км/час за городом). M и N принимать с клавиатуры. Результат выводить с соответствующими комментариями.
И не ленитесь делать домашнее задание, иначе вы никогда не станете хорошим программистом. «Тяжело в учении легко в бою». Удачи вам в этом нелегком деле.