Практическое задание №4

Практическое задание №4

В зоопарке 3 слона и довольно много кроликов, причем количество кроликов часто меняется. Слону положено съедать в сутки 100 морковок, а кроликам - две. Каждое утро служитель зоопарка сообщает компьютеру количество кроликов. Компьютер в ответ на это должен сообщить служителю общее количество морковок, которые сегодня нужно скормить кроликам и слонам.

Придумаем имен переменным величинам:

kol_krol - количество кроликов в зоопарке;

kol_slon - количество слонов в зоопарке;

norma_krol - сколько морковок в день положено кролику;

norma_slon - сколько морковок в день положено слону;

vsego - сколько всего требуется морковок.

Напишем программу:

Написав программу, программист вводит ее в компьютер, отлаживает и записывает на диск и его миссия закончена. Утром служитель, пересчитав кроликов и найдя, что их 60 штук подходит к компьютеру и запускает программу на выполнение.

Компьютер, выполнив 2 первые оператора, останавливается и ждет, когда служитель введет количество кроликов. Служитель вводит 60 и после выполнения программы – получает ответ – 420.

На следующее утро, обнаружив, что 5 кроликов продано другому зоопарку служитель запускает ту же самую программу, вводит число 55 и получает ответ - 410

На этом несколько фантастическом примере мы хотели показать, что применение оператора ReadLn позволяет создавать программы, которые, оставаясь приятно неизменными позволяют легко решать задачу в любое время для любых значений исходных значений. Можно было бы пойти по другому пути — вместо ReadLn использовать оператор присваивания, например, kol_krol:=60. Но в этом случае программист каждое утро должен был бы приезжать в зоопарк, чтобы исправлять в программе этот оператор присваивания.

Оператор ReadLn можно писать и без скобок, просто так: ReadLn. При выполнении такой команды, компьютер остановится и будет ждать, но не ввода какой то информации, а просто нажатия на клавишу ENTER. Таким образом, это просто паузы в процессе выполнения программы.

Наша задача решена, но для пользователя не удобна. В следующем задании мы решим эту задачу.