АРИФМЕТИКА
или
Какого роста средний патагонец

"Кевендиш говорит, что патагонцы крепкие,  рослые  люди,  -  продолжал Паганель. - Гаукинс  утверждает,  будто  они  великаны,  Лемер  и  Схоутен сообщают, что они одиннадцати футов ростом.
  - Прекрасно! Свидетельство этих людей заслуживает  доверия,  -  заметил
Гленарван.
  - Да, но такого же доверия заслуживают Вуд, Нарборо и Фалькнер, а по их словам, патагонцы -  люди  среднего  роста.  Правда,  Байрон,  Ла  Жироде, Бугенвиль, Уэллс и Картерс доказывают, что рост патагонцев в среднем равен шести футам шести дюймам, тогда как господин д'Орбиньи, ученый, лучше всех знающий эту страну, утверждает, что их средний рост пять футов четыре дюйма.
  - Но где же тогда истина среди всех этих противоречий? - спросила  леди
Элен"

Жюль Верн "Дети капитана Гранта"

Насколько интереснее воспринималась бы приведенная выше дискуссия, если бы иметь более четкое представление об упоминающихся в ней значениях роста патагонцев в метрах и сантиметрах. Давайте в порядке закрепления ранее пройденного напишем соответствующую программу перевода футов и дюймов в метры, сантиметры и миллиметры на языке Бейсик. Я уверен, что вместе с такой программой читать приключенческую литературу прошлого станет намного интереснее. Начнем со справочных данных. И так, как мне удалось выяснить 1 фут (foot) = 12 дюймам (inches) = 304,8 мм. Теперь попытаемся уяснить себе алгоритм перевода. По мнению Лемера и Схоутена патагонцы - великаны одиннадцати футов ростом, то есть 304,8*11=3352,8 мм или 3 метра, 35 сантиметров и 2,8 миллиметра. Действительно многовато для человека (особенно с учетом последних 2,8 миллиметров) даже с перьями на голове! По мнению Байрона, Ла Жирадо, Бугенвиля, Уэллса и Картеса рост патагонцев составляет 304,8*6+(304,8/12)*6= 304,8*6+25,4*6= 1981,2 мм или 1 метр, 98 сантиметров и 1,2 миллиметра, что также очень внушительно, но уже менее фантастично. И, наконец, ученый господин д'Орбиньи, по всей вероятности наиболее трезвый из всех перечисленных, приводит цифры 304,8*5+25,4*4= 1524+101,6= 1625,6 мм или 1 метр, 62 сантиметра и 5,6 миллиметра, что вполне похоже на средний человеческий рост. Теперь перейдем непосредственно к программированию. Длину одного фута в миллиметрах опишем как константу Const foot=304,8. Размер одного дюйма в миллиметрах вычислим по формуле inch=foot/12. Далее введем две переменные F - количество футов и I - количество дюймов. Затем вычислим общую введенную длину L в миллиметрах по формуле L=foot*F+inch*I. Отдельно количество метров вычислим путем целочисленного деления m=L\1000. Количество "оставшихся" сантиметров определим путем целочисленного деления остатка "от метров" на 10, то есть cm=(L mod 1000)\10. Миллиметры - это то, что останется от общей длины после вычитания миллиметров, вошедших в метры и сантиметры. В заключение программы напечатаем полученный результат с помощью уже знакомого нам оператора Print. Итоговый код будет иметь вид

rem Program "ft and in to m, cm and mm"
const foot=304.8
inch=foot/12
input "feet",F
input "inches",I
L=foot*F+inch*I
m=L\1000
cm=(L mod 1000)\10
mm=L-m*1000-cm*10
print m; "m", cm; "cm", mm; "mm"
stop

Обратите внимание, что в программе мы использовали комментарий, который можно вставлять в любое место программного кода после слова rem (от англ. "remark"). Кроме того, в уже знакомых операторах input и print в кавычках можно вставлять текстовые пояснения, которые будут выводиться на экран во время выполнения программы, что также очень удобно. В приведенном фрагменте программного кода использованы практически все имеющиеся в Бейсике основные арифметические действия. Внимательно изучите, и сами воспроизведите программу на своих компьютерах. Убедитесь, что она дает правильные результаты вычислений. Для закрепления полученных знаний настоятельно рекомендую вам проделать следующее упражнение уже самостоятельно.  Напишите программу перевода веса произвольного человека из фунтов и унций в килограммы и граммы, если 1 фунт = 16 унциям = 453,6 г. А чтобы было интереснее напоследок еще цитата из "Пищи богов" Герберта Уэллса - "Как видно, и материнской гордости есть предел; миссис Редвуд достигла его в тот день, когда ее отпрыск, едва ему исполнилось шесть месяцев, проломил свою дорогую колясочку и с громким ревом прибыл домой на  тележке молочника. Весил он в то время пятьдесят девять с половиной фунтов, ростом был сорока восьми дюймов и мог поднять шестьдесят фунтов"


Колесников А.
andr61@mail.ru

Hosted by uCoz