АРХИВ СТАТЕЙ ЖУРНАЛА «МОЙ КОМПЬЮТЕР» ЗА 2003 ГОД

Решить задачу раз плюнуть

• Все журналы \ Номер 29/252 `2003 от 21.07.2003 \ Решить задачу раз плюнуть

Олег ДАНИЛЮК lezha@ua.fm

Продолжение, начало см. МК № 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 принимать с клавиатуры. Результат выводить с соответствующими комментариями.

И не ленитесь делать домашнее задание, иначе вы никогда не станете хорошим программистом. «Тяжело в учении — легко в бою». Удачи вам в этом нелегком деле.

Идёт загрузка...

Данную страницу никто не комментировал. Вы можете стать первым.

Ваше имя:
Ваша почта:
Комментарий:
Введите символы или вычислите пример: * Обновить