Разработка программы, переводящей значения единиц измерения веса в другие единицы
История появления и развития единиц измерения. Метрические и неметрические единицы измерения, использование в мировой практике. Изучение среды программирования Borland Delphi. Разработка программы-переводчика единиц измерения веса и ее интерфейса.
| Рубрика | Программирование, компьютеры и кибернетика |
| Вид | курсовая работа |
| Язык | русский |
| Дата добавления | 08.09.2021 |
| Размер файла | 635,7 K |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
Размещено на http://www.allbest.ru/
ФЕДЕРАЛЬНОЕ ГОСУДАРСТВЕННОЕ БЮДЖЕТНОЕ ОБРАЗОВАТЕЛЬНОЕ УЧРЕЖДЕНИЕ ВЫСШЕГО ПРОФЕССИОНАЛЬНОГО ОБРАЗОВАНИЯ «ПОВОЛЖСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ СЕРВИСА»
Кафедра: «Прикладная информатика в экономике»
Курсовой проект
Дисциплина: Информатика и программирование
на тему: «Разработка программы, переводящей значения единиц измерения веса в другие единицы»
Тольятти, 2012 г.
Содержание
- Введение
- 1. Аналитическа часть
- 1.1 История появления и развития единиц измерения
- 1.2 Метрические и неметрические единицы измерения, использование в мировой практике
- 1.3 Классификация единиц измерения
- 2. Практическая часть
- 2.1 Блок-схема
- 2.2 Программа
- 2.3 Результаты
- Заключение
- Библиографический список
Введение
В практической жизни человек всюду имеет дело с измерениями. На каждом шагу встречаются и известны с незапамятных времен измерения таких величин, как длина, вес, площадь, объём и другие.
Измерения являются одним из важнейших путей познания природы человеком. Они дают количественную характеристику окружающего мира, раскрывая человеку действующие в природе закономерности. Математика, механика, физика стали именоваться точными науками потому, что благодаря измерениям они получили возможность устанавливать точные количественные соотношения, выражающие объективные законы природы. Д.И. Менделеев выразил значение измерений для науки следующим образом: «Наука начинается с тех пор, как начинают измерять. Точная наука немыслима без меры».
Все отрасли техники - от строительной механики и машиностроения до ядерной энергетики - не могли бы существовать без развернутой системы измерений, определяющих как все технологические процессы, контроль и управление ими, так и свойства и качество выпускаемой продукции.
Особенно возросла роль измерений в наш век широкого внедрения новой техники, развития электроники, автоматизации, атомной энергетики, космонавтики.
Во всех случаях проведения измерений, независимо от измеряемой величины, метода и средства измерений, есть общее, что составляет основу измерения, - это сравнение опытным путем данной величины с другой подобной ей, принятой за единицу. При всяком измерении мы с помощью эксперимента оцениваем физическую величину в виде некоторого числа принятых для нее единиц, т.е. находим ее значение.
В настоящее время установлено следующее определение измерения: измерение есть нахождение значения физической величины опытным путем с помощью специальных технических средств.
В своей работе мы представим программу перевода единиц измерения веса и площади. программа измерение вес интерфейс
Цели нашей работы:
- разработать программу - переводчик единиц измерения веса ;
- оставить возможность усовершенствования программы.
Задачи:
- изучить среду программирования Borland Delphi;
- найти необходимую информацию о единицах измерения;
- разработать удобный интерфейс программы.
Мы выбрали данную тему, потому что она показалась нам очень интересной и не до конца раскрытой. Кроме того, она может найти практическое применение. В следующей главе мы рассмотрим теоретические аспекты данной темы.
1. Аналитическая часть
1.1 История появления и развития единиц измерения
Познавая мир, человеческий разум изначально вынужден был разделить его на части, в которых намечались более мелкие участки. Чтобы не заблудиться, надо было обозначить их словами, с помощью которых в языке разграничивались те или иные качества, закреплялись и накапливались представления о предметах и явлениях природы. Этот начальный процесс познания стал возможным потому, что он опирался на умение человека сравнивать вещи: отождествлять или различать их на основе отношений тождества и различия. На этой основе возникали классификационные (или качественные) понятия обычного разговорного языка, использование которых можно отнести к самому первому типу мышления, отражающему качественное многообразие мира. В современных языках классификационных понятий можно насчитать от ста до двухсот тысяч. Зародившись на заре цивилизации, этот тип языковых средств и соответствующий им тип мышления благополучно развивается и поныне. Им пользуются представители разных наук, люди высокой культуры: поэты, писатели, политические деятели, представители гуманитарных и социальных наук.[1]
Следующий шаг связан с углублением познания за счет того, что в рамках одного и того же свойства, например, температуры, длины или тяжести можно также обнаружить различия. Это позволило выделить новое отношение, зафиксированное в понятиях "больше" и "меньше". Данное отношение еще в древности обозначили понятием "соотнесенное", поскольку сравнению подвергались объекты одного и того же свойства. Это отношение позволило переосмыслить мир в бинарных оппозициях и, кроме того, обусловило появление градации, выражающей изменение степени интенсивности того или иного свойства, что еще более расширило возможности познания.[5]
Принимая меньшую величину в качестве единицы измерения, люди освоили операцию "счет", который обусловил появление нового класса языковых средств - количественных понятий. Причем, в более ранний период счет был ограничен двумя членами, т.е. для сравнения вещей достаточно было только двух понятий: "один" и "много". Тогда как позднее между ними стали появляться и другие числа: "два", "три", "четыре" и т.д. Постепенно складывался бесконечный числовой ряд, благодаря которому появилась возможность измерять отношение данной величины к однородной величине, взятой в качестве единицы измерения. Именно эти понятия формируют язык метрической науки, который отражает количественное многообразие мира, и они же, более чем классификационные понятия учат человека размышлять.[3]
Итак, освоение мышлением всего лишь трех отношений, обусловленных операцией "сравнение" и выраженных в сравнительных понятиях: "тождественное", "различное" и "соотнесенное", обусловили появление речи и счета. Здесь надо заметить, что в отличие от классификационных и количественных понятий, которых в языке огромное множество, сравнительных понятий совсем немного. Но именно они позволяют, шаг за шагом, радикально изменять мышление, осмысливать во всем многообразии мира его единство.
Так, на смену мифу и литературному творчеству приходит новая форма общественного сознания - философия, в понятийный аппарат которой помимо классификационных и количественных понятий входит целый ряд сравнительных понятий: "избыток" и "недостаток", "сгущение" и "разрежение", "сходящееся" и "расходящееся" и других, отражающих собой структурное многообразие реальности. Недаром в древности говорили: "все познается в сравнении". В итоге, мы получили три типа мышления, обусловленных преимущественным использованием трех типов понятий:
- филологическое мышление как любовь к слову - это мышление классификационными понятиями на основе отношений "тождественное" и "различное";
- философское мышление как любовь к мудрому слову - это мышление классификационными и сравнительными понятиями на основе отношений "тождественное", "различное", "соотнесенное" и других;
- научное мышление как любовь к точному слову - это мышление классификационными, сравнительными и количественными понятиями, а также огромным множеством математических абстракций разной сложности.
Каждое время и каждый народ по-разному расчленял и обозначал реальность в классификационных понятиях. Здесь не всегда возможна объективность, а это препятствует точному переводу с одного языка на другой. Однако содержание сравнительных и количественных понятий является однозначным для всех времен и для всех народов, поскольку отражает отношения такими, какими они являются на самом деле, сообщает истинное знание, предлагает действительный и однозначный образ мира. Эти понятия способствуют более глубокому пониманию действительности и взаимопониманию между людьми, так как одинаково делят мир на части, правильно отражают соотношение последних. Если бы люди опирались только на классификационные понятия, с которых собственно и начиналось познание, то они сумели бы выразить только качественное многообразие бытия и простейшие эмпирические законы. [2]
Говорят "человек - мера всех вещей", подразумевая под этим нечто духовное и возвышенное. На наш же взгляд, все значительно проще: относительно температуры нашего тела, мы судим о холодном и горячем, относительно нашего роста - о большом и малом. С аналогичных позиций мы можем говорить о добре и зле, мягком и твердом, сухом и влажном и тому подобном. Приблизительно так же воспринимают мир и животные. Но в отличие от последних, человек стремится вынести систему отсчета за пределы своего организма, благодаря чему переходит от субъективной оценки реальности к объективной оценке.
Осмысление этого важного шага начнем с анализа понятий "больше" и "меньше". В своем учении Аристотель называет эти понятия соотнесенными, поскольку под большим, например, понимается "большее по отношению к меньшему, а под меньшим - меньшее по отношению к большему". Поэтому соотнесенные стороны всегда находятся вместе, так как вне отношения друг к другу они не имеют смысла. В итоге одна сторона этого отношения является объективной точкой зрения для суждения о другой стороне. Но удивительным является то, что эту же самую реальность можно рассматривать не только с позиции одной или другой противостоящей стороны, но и с промежуточной точки зрения, посмотрев на стороны как на отношение противоположностей. Выходит, что с одной позиции отношение "больше - меньше" можно рассматривать как соотнесенное, тогда как с другой - как отношение противоположностей.
Причем, в античное время, "соотнесенное" и "противоположное" не всегда имели одинаковый статус. В мифологии, например, приоритетным было осмысление реальности с промежуточных позиций. Этот объективный взгляд на действительность нашел свое выражение в образе Дикэ, персонифицирующей образ весов, благодаря которому мир рассматривался как отношение противоположностей, сочетающихся на все лады. Мифологическое мировоззрение связывает это важное отношение действительности с действиями богини права и справедливости. Изображенная с повязкой на глазах и с весами в руках, она символизирует абсолютное беспристрастие, когда дело касается нахождения равных прав, промежуточных положений, противоположных свойств, состояний, вещей и т.п. Так, благодаря образу весов стало возможным судить о противоположностях как об "избытке" и "недостатке" относительно строго заданной системы отсчета - "промежуточного". [13]
Если раньше мерой всех вещей был сам человек, то образ весов и понятие промежуточного как определенной точки зрения на мир сделали возможным определять любые противоположности относительно ориентиров, лежащих вне человеческого организма. И хотя за всем этим продолжала наблюдать мифическая богиня, тем не менее, исследование противоположных начал вступило в новую фазу. Первобытное мышление, находясь в неразрывной связи с языком, было уже невозможно без обобщений, без стремления во всем найти такие объективные закономерности, которым подчиняются как те или иные частные явления, так и более широкие и более удаленные от человека области действительности. А это было возможным только с определенных объективных ориентиров: 1) с точки зрения крайних позиций или 2) с точки зрения промежуточного.[9]
Появление весов и других средств и единиц измерения показало, что "противоположности" могут быть только однокачественными объектами как избыток и недостаток относительно промежуточной степени этого же качества. Поистине это была та объективная наблюдательная позиция, которая на сотни лет определила содержание античного мировоззрения. Это был тот образец, с которым сверяли все: будь то устройство космоса или проявление некоторых частных закономерностей природы, вопросы этики или правосудия. Величественнейшая из богинь - богиня справедливости и ничтожнейший из людей - разбойник Прокруст в своих действиях в одинаковой мере руководствовались этой "точкой" зрения, ибо каждый вершил свой суд относительно того или иного строго заданного промежуточного состояния. [10]
1.2 Метрические и неметрические единицы измерения, использование в мировой практике
Неметрические русские единицы измерения массы
Берковец относился к системе вощаного веса и упомянут уже в XII веке.
Доля -- самая мелкая старорусская единица измерения массы, равная 1/96 золотника. Своеобразное деление на 96 частей отражает влияние применявшейся в древности шестиричной системы счисления.
Золотник - старорусская единица измерения массы.
Лот широко применялся при определении почтового сбора в зависимости от веса корреспонденции.
Пуд впервые упоминается в грамоте князя Всеволода Мстиславича (1134). Вместе с другими единицами старой русской системы мер пуд был отменен в СССР в 1924 году.
Фунт старорусский равен 32 лотам.
Перевод из неметрических русских единиц массы в метрические единицы рассмотрим в таблице 1.1.
Таблица 1.1
Перевод из неметрических русских единиц массы в метрические единицы
|
Наименование единицы массы |
Перевод в метрические единицы |
|
|
Берковец |
163800 г |
|
|
Доля |
0,04443 г |
|
|
Золотник |
4,266 г |
|
|
Лот |
12,8 г |
|
|
Пуд |
16380 г |
|
|
Фунт |
409,5 г |
Неметрические единицы массы, применяемые в англоязычных странах
Гран -- устаревшая единица массы, применявшаяся в русской аптекарской практике до введения метрических мер.
Унция -- название единицы измерения массы, 1 унция равна 437,5 гранам.
Фунт -- английская и американская единица измерения массы и веса, равная 16 унциям.
Перевод из неметрических английских единиц массы в метрические единицы рассмотрим в таблице 1.2.
Таблица 1.2
Перевод из неметрических английских единиц массы в метрические единицы
|
Наименование единицы массы |
Перевод в метрические единицы |
|
|
Гран |
0,0647989 г |
|
|
Унция |
28,3495 г |
|
|
Фунт |
453,592 г |
Неметрические единицы, применяемые в США, Великобритании и других странах
Драхма (Великобритания) - американская единица измерения массы, равная 1.77184519905875 грамму.
Драхма тройская, аптекарская - британская аптечная единица измерения массы, равная 3 скрупулам или 3.88793463853114 граммам.
Квартер - единица массы (веса) в Великобритании.
Пеннивейт - британская единица массы благородных металлов и драгоценных камней в тройской системе = 24 грана.
Скрупул - античная весовая единица. В скрупулах обычно определялся вес римских серебряных монет.
Слаг - британская единица измерения массы, равная 14,5939 килограммов.
Стоун -- британская единица измерения массы, равная 14 фунтам.
Тонна длинная (английская тонна) использовалась в Великобритании и странах Содружества наций. Кроме того, английская (или длинная) тонна ограниченно используется в США, в основном для измерения водоизмещения судов.
Тонна короткая (американская тонна) -- неметрическая единица измерения массы, используемая в США.
Тонна пробирная (Великобритания) - английская единица измерения массы, равная 32,6667 граммов;
Тонна пробирная (США) - американская единица измерения массы, равная 29,1667 граммов.
Унция тройская или аптекарская -- единица измерения массы, равная 8 драхмам.
Фунт торговый -- единица измерения массы и веса, равная 16 унциям.
Фунт тройский или аптекарский - британская единица измерения, равная 12 тройским унциям.
Центнер длинный (хандредвейт английский) используется редко. Раньше в Ирландии и Великобритании уголь и строительные материалы фасовали в мешки с таким весом.
Центнер короткий (хандредвейт американский), квинтал используется, в основном, в сельском хозяйстве (вес скота, пшеницы).
Перевод из неметрических единиц массы, применяемых в США и Великобритании, в метрические единицы рассмотрим в таблице 1.3.
Таблица 1.3
Перевод из неметрических единиц массы, применяемых в США и Великобритании, в метрические единицы
|
Наименование единицы массы |
Перевод в метрические единицы |
|
|
Драхма (Великобритания) |
1,772 г |
|
|
Драхма тройская, аптекарская |
3,888 г |
|
|
Квартер |
12700 г |
|
|
Пеннивейт |
1,555 г |
|
|
Скрупул аптекарский |
1,296 г |
|
|
Слаг |
14590 г |
|
|
Стоун |
6350 г |
|
|
Наименование единицы массы |
Перевод в метрические единицы |
|
|
Тонна короткая |
907200 г |
|
|
Тонна пробирная (Великобритания) |
32,67 г |
|
|
Тонна пробирная (США) |
29,17 г |
|
|
Унция тройская или аптекарская |
31,1 г |
|
|
Фунт торговый |
453,54 г |
|
|
Фунт тройский или аптекарский |
373,2 г |
|
|
Центнер длинный |
50800 г |
|
|
Центнер короткий, квинтал |
45360 г |
Метрические единицы массы
Грамм -- единица измерения массы, одна из основных единиц системы СГС.
Карат - единица измерения массы, применяемая в ювелирном деле. Метрический карат установлен 4-й Генеральной конференцией по мерам и весам (Париж, 1907) и принят в СССР с 1922 года.
Килограмм -- единица измерения массы, одна из основных единиц СИ. Килограмм определяется как масса международного эталона килограмма, хранящегося в Международном бюро мер и весов и представляющего собой цилиндр из платино-иридиевого сплава (90% платины, 10% иридия). Первоначально килограмм определялся как масса одного литра чистой воды при температуре 4 °С и стандартном атмосферном давлении. Эталон был изготовлен в 1880-х гг. и с тех пор хранится в Международном бюро мер и весов.
Миллиграмм -- единица измерения массы, 1 тысячная часть грамма.
Тонна -- метрическая единица измерения массы, равная 1000 килограммам.
Центнер -- метрическая единица измерения массы, равная 100 килограммам.
Перевод из одних метрических единиц массы в другие метрические единицы рассмотрим в таблице 1.4.
Таблица 1.4
Перевод из одних метрических единиц массы в другие метрические единицы
|
Наименование единицы массы |
Перевод в метрические единицы |
|
|
Грамм |
1 г |
|
|
Карат |
0,2 г |
|
|
Килограмм |
1000 г |
|
|
Наименование единицы массы |
Перевод в метрические единицы |
|
|
Тонна |
1000000 г |
|
|
Центнер |
100000 г |
В данном пункте мы рассмотрели некоторые единицы массы, теперь мы приступим к рассмотрению единиц измерения площади.
1.3 Классификация единиц измерения
Классификация информации - система расположения объектов в соответствии с определенными признаками, группировка объектов, направленных на выделение однородных свойств. Любая классификация всегда относительна. Один и тот же объект может быть классифицирован по разным признакам или критериям. Эти рассуждения особенно актуальны при классификации видов информации без учета ее предметной ориентации, так как она часто может быть использована в разных условиях, разными потребителями, для разных целей.
Фасетная (фасеточная) система классификации позволяет выбрать признаки классификации независимо друг от друга, а также от семантического содержания классифицируемого объекта. Признаки классификации называются фасетами. Каждый фасет содержит совокупность однородных значений данного классификационного признака.
Процедура классификации состоит в присвоении каждому объекту соответствующих значений из фасетов. При этом могут быть использованы не все фасеты. Для каждого объекта задается конкретная группировка фасетов.
При построении фасетной системы классификации необходимо, чтобы значения, используемые в различных фасетах, не повторялись.
Проклассифицируем единицы измерения массы в таблице 1.5.
Таблица 1.5
Системы мерЕдиницыизмерения |
Русская система мер |
Метрическая система мер |
Английская система мер |
Аптекарская и тройская система мер |
|
|
1. Берковец |
+ |
- |
- |
- |
|
|
2. Грамм |
- |
+ |
- |
- |
|
|
3. Гран |
- |
- |
+ |
+ |
|
|
4. Доля |
+ |
- |
- |
- |
|
|
5. Драхма |
- |
- |
+ |
+ |
|
|
6. Золотник |
+ |
- |
- |
- |
|
|
7. Карат |
- |
+ |
- |
- |
|
|
8. Квартер |
- |
- |
+ |
- |
|
|
9. Килограмм |
- |
+ |
- |
- |
|
|
10. Лот |
+ |
- |
- |
- |
|
|
11. Миллиграмм |
- |
+ |
- |
- |
|
|
12. Пеннивейт |
- |
- |
- |
+ |
|
|
13. Пуд |
+ |
- |
- |
- |
|
|
14. Скрупул |
- |
- |
- |
+ |
|
|
15. Слаг |
- |
- |
+ |
- |
|
|
16. Стоун |
- |
- |
+ |
- |
|
|
17. Тонна |
- |
+ |
+ |
- |
|
|
18. Унция |
- |
- |
+ |
+ |
|
|
19. Фунт |
+ |
- |
+ |
+ |
|
|
20. Хандредвейт |
- |
- |
+ |
- |
|
|
21. Центнер |
- |
+ |
- |
- |
Мы проклассифицировали единицы измерения массы по системам мер.
Входной информацией будет исходный вес, выходной информацией будет полученный вес путем вычислений.Промежуточная информация переведенный исходный вес в граммы.Вся представленная информация в числовом виде.
2. Практическая часть
Перед тем, как написать программу, следует разработать блок-схему.
2.1 Блок-схема
Рис. 2.1 Основная блок-схема
Размещено на http://www.allbest.ru/
Рис. 2.2 Блок-схема процедуры выхода Рис. 2.3 Блок-схема процедуры очистки
Размещено на http://www.allbest.ru/
Рис. 2.4 Блок-схема процедуры вычисления веса
Мы разработали блок-схему. Теперь можно приступить непосредственно к написанию программы.
2.2 Программа
Итак, мы нарисовали блок-схему, написали программу. Теперь расскажем, как работает эта программа.
unit Unit1; {Главная форма}
procedure TForm1.Button1Click(Sender: TObject); {Перевод единиц измерения веса}
var
a0,a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16,a17,a18,a19,a20,a21,a22,a23, a24,a25,a26,a27,a28,a29,a30: real;
summa:real;
cod: integer; ed: string[9];
begin
Edit2.Enabled:=True;
a0:=163800; a1:=1; a2:=0.0647989; a3:=0.04443; a4:=1.772; a5:=3.888; a6:=4.266; a7:=0.2; a8:=12700; a9:=1000; a10:=12.8; a11:=0.001; a12:=1.555; a13:=16380; a14:=1.296; a15:=14590; a16:=6350; a17:=1016000; a18:=907200; a19:=1000000; a20:=32.67; a21:=29.17; a22:=28.3495; a23:=31.1; a24:=453.592; a25:=409.5; a26:=453.54; a27:=373.2; a28:=50800; a29:=45360; a30:=100000; {Переводим каждую единицу измерения веса в граммы}
Val (Edit1.Text, summa, cod);
if ComboBox1.ItemIndex=-1 then Edit2.Enabled:=False;
if ComboBox2.ItemIndex=-1 then Edit2.Enabled:=False;
if Edit1.Text='' then
begin
Edit2.Enabled:=False;
Application.MessageBox ('Введите значение!', 'Внимание!'); {Если пользователь не вводит значение, то выводится сообщение об ошибке}
end;
case ComboBox1.ItemIndex of {Программа переводит единицу веса, выбранную в левом списке, в единицу веса, выбранную в правом списке}
-1: Application.MessageBox ('Выберите исходную единицу измерения!', 'Внимание!');
0: begin case ComboBox2.ItemIndex of
-1: ;
0: summa:=summa*a0/a0;
1: summa:=summa*a0/a1;
2: summa:=summa*a0/a2;
3: summa:=summa*a0/a3;
4: summa:=summa*a0/a4;
5: summa:=summa*a0/a5;
6: summa:=summa*a0/a6;
7: summa:=summa*a0/a7;
8: summa:=summa*a0/a8;
9: summa:=summa*a0/a9;
10: summa:=summa*a0/a10;
11: summa:=summa*a0/a11;
12: summa:=summa*a0/a12;
13: summa:=summa*a0/a13;
14: summa:=summa*a0/a14;
15: summa:=summa*a0/a15;
16: summa:=summa*a0/a16;
17: summa:=summa*a0/a17;
18: summa:=summa*a0/a18;
19: summa:=summa*a0/a19;
20: summa:=summa*a0/a20;
21: summa:=summa*a0/a21;
22: summa:=summa*a0/a22;
23: summa:=summa*a0/a23;
24: summa:=summa*a0/a24;
25: summa:=summa*a0/a25;
26: summa:=summa*a0/a26;
27: summa:=summa*a0/a27;
28: summa:=summa*a0/a28;
29: summa:=summa*a0/a29;
30: summa:=summa*a0/a30;
end;
Str(summa:9:6, ed);
Edit2.Text:= ed; {Выводим полученное значение на экран}
end;
1: begin case ComboBox2.ItemIndex of
-1: ;
0: summa:=summa*a1/a0;
1: summa:=summa*a1/a1;
2: summa:=summa*a1/a2;
3: summa:=summa*a1/a3;
4: summa:=summa*a1/a4;
5: summa:=summa*a1/a5;
6: summa:=summa*a1/a6;
7: summa:=summa*a1/a7;
8: summa:=summa*a1/a8;
9: summa:=summa*a1/a9;
10: summa:=summa*a1/a10;
11: summa:=summa*a1/a11;
12: summa:=summa*a1/a12;
13: summa:=summa*a1/a13;
14: summa:=summa*a1/a14;
15: summa:=summa*a1/a15;
16: summa:=summa*a1/a16;
17: summa:=summa*a1/a17;
18: summa:=summa*a1/a18;
19: summa:=summa*a1/a19;
20: summa:=summa*a1/a20;
21: summa:=summa*a1/a21;
22: summa:=summa*a1/a22;
23: summa:=summa*a1/a23;
24: summa:=summa*a1/a24;
25: summa:=summa*a1/a25;
26: summa:=summa*a1/a26;
27: summa:=summa*a1/a27;
28: summa:=summa*a1/a28;
29: summa:=summa*a1/a29;
30: summa:=summa*a1/a30;
end;
Str(summa:9:6, ed);
Edit2.Text:= ed; {Выводим полученное значение на экран}
end;
2: begin case ComboBox2.ItemIndex of
-1: ;
0: summa:=summa*a2/a0;
1: summa:=summa*a2/a1;
2: summa:=summa*a2/a2;
3: summa:=summa*a2/a3;
4: summa:=summa*a2/a4;
5: summa:=summa*a2/a5;
6: summa:=summa*a2/a6;
7: summa:=summa*a2/a7;
8: summa:=summa*a2/a8;
9: summa:=summa*a2/a9;
10: summa:=summa*a2/a10;
11: summa:=summa*a2/a11;
12: summa:=summa*a2/a12;
13: summa:=summa*a2/a13;
14: summa:=summa*a2/a14;
15: summa:=summa*a2/a15;
16: summa:=summa*a2/a16;
17: summa:=summa*a2/a17;
18: summa:=summa*a2/a18;
19: summa:=summa*a2/a19;
20: summa:=summa*a2/a20;
21: summa:=summa*a2/a21;
22: summa:=summa*a2/a22;
23: summa:=summa*a2/a23;
24: summa:=summa*a2/a24;
25: summa:=summa*a2/a25;
26: summa:=summa*a2/a26;
27: summa:=summa*a2/a27;
28: summa:=summa*a2/a28;
29: summa:=summa*a2/a29;
30: summa:=summa*a2/a30;
end;
Str(summa:9:6, ed);
Edit2.Text:= ed; {Выводим полученное значение на экран}
end;
3: begin case ComboBox2.ItemIndex of
-1: ;
0: summa:=summa*a3/a0;
1: summa:=summa*a3/a1;
2: summa:=summa*a3/a2;
3: summa:=summa*a3/a3;
4: summa:=summa*a3/a4;
5: summa:=summa*a3/a5;
6: summa:=summa*a3/a6;
7: summa:=summa*a3/a7;
8: summa:=summa*a3/a8;
9: summa:=summa*a3/a9;
10: summa:=summa*a3/a10;
11: summa:=summa*a3/a11;
12: summa:=summa*a3/a12;
13: summa:=summa*a3/a13;
14: summa:=summa*a3/a14;
15: summa:=summa*a3/a15;
16: summa:=summa*a3/a16;
17: summa:=summa*a3/a17;
18: summa:=summa*a3/a18;
19: summa:=summa*a3/a19;
20: summa:=summa*a3/a20;
21: summa:=summa*a3/a21;
22: summa:=summa*a3/a22;
23: summa:=summa*a3/a23;
24: summa:=summa*a3/a24;
25: summa:=summa*a3/a25;
26: summa:=summa*a3/a26;
27: summa:=summa*a3/a27;
28: summa:=summa*a3/a28;
29: summa:=summa*a3/a29;
30: summa:=summa*a3/a30;
end;
Str(summa:9:6, ed);
Edit2.Text:= ed; {Выводим полученное значение на экран}
end;
4: begin case ComboBox2.ItemIndex of
-1: ;
0: summa:=summa*a4/a0;
1: summa:=summa*a4/a1;
2: summa:=summa*a4/a2;
3: summa:=summa*a4/a3;
4: summa:=summa*a4/a4;
5: summa:=summa*a4/a5;
6: summa:=summa*a4/a6;
7: summa:=summa*a4/a7;
8: summa:=summa*a4/a8;
9: summa:=summa*a4/a9;
10: summa:=summa*a4/a10;
11: summa:=summa*a4/a11;
12: summa:=summa*a4/a12;
13: summa:=summa*a4/a13;
14: summa:=summa*a4/a14;
15: summa:=summa*a4/a15;
16: summa:=summa*a4/a16;
17: summa:=summa*a4/a17;
18: summa:=summa*a4/a18;
19: summa:=summa*a4/a19;
20: summa:=summa*a4/a20;
21: summa:=summa*a4/a21;
22: summa:=summa*a4/a22;
23: summa:=summa*a4/a23;
24: summa:=summa*a4/a24;
25: summa:=summa*a4/a25;
26: summa:=summa*a4/a26;
27: summa:=summa*a4/a27;
28: summa:=summa*a4/a28;
29: summa:=summa*a4/a29;
30: summa:=summa*a4/a30;
end;
Str(summa:9:6, ed);
Edit2.Text:= ed; {Выводим полученное значение на экран}
end;
5: begin case ComboBox2.ItemIndex of
-1: ;
0: summa:=summa*a5/a0;
1: summa:=summa*a5/a1;
2: summa:=summa*a5/a2;
3: summa:=summa*a5/a3;
4: summa:=summa*a5/a4;
5: summa:=summa*a5/a5;
6: summa:=summa*a5/a6;
7: summa:=summa*a5/a7;
8: summa:=summa*a5/a8;
9: summa:=summa*a5/a9;
10: summa:=summa*a5/a10;
11: summa:=summa*a5/a11;
12: summa:=summa*a5/a12;
13: summa:=summa*a5/a13;
14: summa:=summa*a5/a14;
15: summa:=summa*a5/a15;
16: summa:=summa*a5/a16;
17: summa:=summa*a5/a17;
18: summa:=summa*a5/a18;
19: summa:=summa*a5/a19;
20: summa:=summa*a5/a20;
21: summa:=summa*a5/a21;
22: summa:=summa*a5/a22;
23: summa:=summa*a5/a23;
24: summa:=summa*a5/a24;
25: summa:=summa*a5/a25;
26: summa:=summa*a5/a26;
27: summa:=summa*a5/a27;
28: summa:=summa*a5/a28;
29: summa:=summa*a5/a29;
30: summa:=summa*a5/a30;
end;
Str(summa:9:6, ed);
Edit2.Text:= ed; {Выводим полученное значение на экран}
end;
6: begin case ComboBox2.ItemIndex of
-1: ;
0: summa:=summa*a6/a0;
1: summa:=summa*a6/a1;
2: summa:=summa*a6/a2;
3: summa:=summa*a6/a3;
4: summa:=summa*a6/a4;
5: summa:=summa*a6/a5;
6: summa:=summa*a6/a6;
7: summa:=summa*a6/a7;
8: summa:=summa*a6/a8;
9: summa:=summa*a6/a9;
10: summa:=summa*a6/a10;
11: summa:=summa*a6/a11;
12: summa:=summa*a6/a12;
13: summa:=summa*a6/a13;
14: summa:=summa*a6/a14;
15: summa:=summa*a6/a15;
16: summa:=summa*a6/a16;
17: summa:=summa*a6/a17;
18: summa:=summa*a6/a18;
19: summa:=summa*a6/a19;
20: summa:=summa*a6/a20;
21: summa:=summa*a6/a21;
22: summa:=summa*a6/a22;
23: summa:=summa*a6/a23;
24: summa:=summa*a6/a24;
25: summa:=summa*a6/a25;
26: summa:=summa*a6/a26;
27: summa:=summa*a6/a27;
28: summa:=summa*a6/a28;
29: summa:=summa*a6/a29;
30: summa:=summa*a6/a30;
end;
Str(summa:9:6, ed);
Edit2.Text:= ed; {Выводим полученное значение на экран}
end;
7: begin case ComboBox2.ItemIndex of
-1: ;
0: summa:=summa*a7/a0;
1: summa:=summa*a7/a1;
2: summa:=summa*a7/a2;
3: summa:=summa*a7/a3;
4: summa:=summa*a7/a4;
5: summa:=summa*a7/a5;
6: summa:=summa*a7/a6;
7: summa:=summa*a7/a7;
8: summa:=summa*a7/a8;
9: summa:=summa*a7/a9;
10: summa:=summa*a7/a10;
11: summa:=summa*a7/a11;
12: summa:=summa*a7/a12;
13: summa:=summa*a7/a13;
14: summa:=summa*a7/a14;
15: summa:=summa*a7/a15;
16: summa:=summa*a7/a16;
17: summa:=summa*a7/a17;
18: summa:=summa*a7/a18;
19: summa:=summa*a7/a19;
20: summa:=summa*a7/a20;
21: summa:=summa*a7/a21;
22: summa:=summa*a7/a22;
23: summa:=summa*a7/a23;
24: summa:=summa*a7/a24;
25: summa:=summa*a7/a25;
26: summa:=summa*a7/a26;
27: summa:=summa*a7/a27;
28: summa:=summa*a7/a28;
29: summa:=summa*a7/a29;
30: summa:=summa*a7/a30;
end;
Str(summa:9:6, ed);
Edit2.Text:= ed; {Выводим полученное значение на экран}
end;
8: begin case ComboBox2.ItemIndex of
-1: ;
0: summa:=summa*a8/a0;
1: summa:=summa*a8/a1;
2: summa:=summa*a8/a2;
3: summa:=summa*a8/a3;
4: summa:=summa*a8/a4;
5: summa:=summa*a8/a5;
6: summa:=summa*a8/a6;
7: summa:=summa*a8/a7;
8: summa:=summa*a8/a8;
9: summa:=summa*a8/a9;
10: summa:=summa*a8/a10;
11: summa:=summa*a8/a11;
12: summa:=summa*a8/a12;
13: summa:=summa*a8/a13;
14: summa:=summa*a8/a14;
15: summa:=summa*a8/a15;
16: summa:=summa*a8/a16;
17: summa:=summa*a8/a17;
18: summa:=summa*a8/a18;
19: summa:=summa*a8/a19;
20: summa:=summa*a8/a20;
21: summa:=summa*a8/a21;
22: summa:=summa*a8/a22;
23: summa:=summa*a8/a23;
24: summa:=summa*a8/a24;
25: summa:=summa*a8/a25;
26: summa:=summa*a8/a26;
27: summa:=summa*a8/a27;
28: summa:=summa*a8/a28;
29: summa:=summa*a8/a29;
30: summa:=summa*a8/a30;
end;
Str(summa:9:6, ed);
Edit2.Text:= ed; {Выводим полученное значение на экран}
end;
9: begin case ComboBox2.ItemIndex of
-1: ;
0: summa:=summa*a9/a0;
1: summa:=summa*a9/a1;
2: summa:=summa*a9/a2;
3: summa:=summa*a9/a3;
4: summa:=summa*a9/a4;
5: summa:=summa*a9/a5;
6: summa:=summa*a9/a6;
7: summa:=summa*a9/a7;
8: summa:=summa*a9/a8;
9: summa:=summa*a9/a9;
10: summa:=summa*a9/a10;
11: summa:=summa*a9/a11;
12: summa:=summa*a9/a12;
13: summa:=summa*a9/a13;
14: summa:=summa*a9/a14;
15: summa:=summa*a9/a15;
16: summa:=summa*a9/a16;
17: summa:=summa*a9/a17;
18: summa:=summa*a9/a18;
19: summa:=summa*a9/a19;
20: summa:=summa*a9/a20;
21: summa:=summa*a9/a21;
22: summa:=summa*a9/a22;
23: summa:=summa*a9/a23;
24: summa:=summa*a9/a24;
25: summa:=summa*a9/a25;
26: summa:=summa*a9/a26;
27: summa:=summa*a9/a27;
28: summa:=summa*a9/a28;
29: summa:=summa*a9/a29;
30: summa:=summa*a9/a30;
end;
Str(summa:9:6, ed);
Edit2.Text:= ed; {Выводим полученное значение на экран}
end;
10: begin case ComboBox2.ItemIndex of
-1: ;
0: summa:=summa*a10/a0;
1: summa:=summa*a10/a1;
2: summa:=summa*a10/a2;
3: summa:=summa*a10/a3;
4: summa:=summa*a10/a4;
5: summa:=summa*a10/a5;
6: summa:=summa*a10/a6;
7: summa:=summa*a10/a7;
8: summa:=summa*a10/a8;
9: summa:=summa*a10/a9;
10: summa:=summa*a10/a10;
11: summa:=summa*a10/a11;
12: summa:=summa*a10/a12;
13: summa:=summa*a10/a13;
14: summa:=summa*a10/a14;
15: summa:=summa*a10/a15;
16: summa:=summa*a10/a16;
17: summa:=summa*a10/a17;
18: summa:=summa*a10/a18;
19: summa:=summa*a10/a19;
20: summa:=summa*a10/a20;
21: summa:=summa*a10/a21;
22: summa:=summa*a10/a22;
23: summa:=summa*a10/a23;
24: summa:=summa*a10/a24;
25: summa:=summa*a10/a25;
26: summa:=summa*a10/a26;
27: summa:=summa*a10/a27;
28: summa:=summa*a10/a28;
29: summa:=summa*a10/a29;
30: summa:=summa*a10/a30;
end;
Str(summa:9:6, ed);
Edit2.Text:= ed; {Выводим полученное значение на экран}
end;
11: begin case ComboBox2.ItemIndex of
-1: ;
0: summa:=summa*a11/a0;
1: summa:=summa*a11/a1;
2: summa:=summa*a11/a2;
3: summa:=summa*a11/a3;
4: summa:=summa*a11/a4;
5: summa:=summa*a11/a5;
6: summa:=summa*a11/a6;
7: summa:=summa*a11/a7;
8: summa:=summa*a11/a8;
9: summa:=summa*a11/a9;
10: summa:=summa*a11/a10;
11: summa:=summa*a11/a11;
12: summa:=summa*a11/a12;
13: summa:=summa*a11/a13;
14: summa:=summa*a11/a14;
15: summa:=summa*a11/a15;
16: summa:=summa*a11/a16;
17: summa:=summa*a11/a17;
18: summa:=summa*a11/a18;
19: summa:=summa*a11/a19;
20: summa:=summa*a11/a20;
21: summa:=summa*a11/a21;
22: summa:=summa*a11/a22;
23: summa:=summa*a11/a23;
24: summa:=summa*a11/a24;
25: summa:=summa*a11/a25;
26: summa:=summa*a11/a26;
27: summa:=summa*a11/a27;
28: summa:=summa*a11/a28;
29: summa:=summa*a11/a29;
30: summa:=summa*a11/a30;
end;
Str(summa:9:6, ed);
Edit2.Text:= ed; {Выводим полученное значение на экран}
end;
12: begin case ComboBox2.ItemIndex of
-1: ;
0: summa:=summa*a10/a0;
1: summa:=summa*a12/a1;
2: summa:=summa*a12/a2;
3: summa:=summa*a12/a3;
4: summa:=summa*a12/a4;
5: summa:=summa*a12/a5;
6: summa:=summa*a12/a6;
7: summa:=summa*a12/a7;
8: summa:=summa*a12/a8;
9: summa:=summa*a12/a9;
10: summa:=summa*a12/a10;
11: summa:=summa*a12/a11;
12: summa:=summa*a12/a12;
13: summa:=summa*a12/a13;
14: summa:=summa*a12/a14;
15: summa:=summa*a12/a15;
16: summa:=summa*a12/a16;
17: summa:=summa*a12/a17;
18: summa:=summa*a12/a18;
19: summa:=summa*a12/a19;
20: summa:=summa*a12/a20;
21: summa:=summa*a12/a21;
22: summa:=summa*a12/a22;
23: summa:=summa*a12/a23;
24: summa:=summa*a12/a24;
25: summa:=summa*a12/a25;
26: summa:=summa*a12/a26;
27: summa:=summa*a12/a27;
28: summa:=summa*a12/a28;
29: summa:=summa*a12/a29;
30: summa:=summa*a12/a30;
end;
Str(summa:9:6, ed);
Edit2.Text:= ed; {Выводим полученное значение на экран}
end;
13: begin case ComboBox2.ItemIndex of
-1: ;
0: summa:=summa*a10/a0;
1: summa:=summa*a13/a1;
2: summa:=summa*a13/a2;
3: summa:=summa*a13/a3;
4: summa:=summa*a13/a4;
5: summa:=summa*a13/a5;
6: summa:=summa*a13/a6;
7: summa:=summa*a13/a7;
8: summa:=summa*a13/a8;
9: summa:=summa*a13/a9;
10: summa:=summa*a13/a10;
11: summa:=summa*a13/a11;
12: summa:=summa*a13/a12;
13: summa:=summa*a13/a13;
14: summa:=summa*a13/a14;
15: summa:=summa*a13/a15;
16: summa:=summa*a13/a16;
17: summa:=summa*a13/a17;
18: summa:=summa*a13/a18;
19: summa:=summa*a13/a19;
20: summa:=summa*a13/a20;
21: summa:=summa*a13/a21;
22: summa:=summa*a13/a22;
23: summa:=summa*a13/a23;
24: summa:=summa*a13/a24;
25: summa:=summa*a13/a25;
26: summa:=summa*a13/a26;
27: summa:=summa*a13/a27;
28: summa:=summa*a13/a28;
29: summa:=summa*a13/a29;
30: summa:=summa*a13/a30;
end;
Str(summa:9:6, ed);
Edit2.Text:= ed; {Выводим полученное значение на экран}
end;
14: begin case ComboBox2.ItemIndex of
-1: ;
0: summa:=summa*a10/a0;
1: summa:=summa*a14/a1;
2: summa:=summa*a14/a2;
3: summa:=summa*a14/a3;
4: summa:=summa*a14/a4;
5: summa:=summa*a14/a5;
6: summa:=summa*a14/a6;
7: summa:=summa*a14/a7;
8: summa:=summa*a14/a8;
9: summa:=summa*a14/a9;
10: summa:=summa*a14/a10;
11: summa:=summa*a14/a11;
12: summa:=summa*a14/a12;
13: summa:=summa*a14/a13;
14: summa:=summa*a14/a14;
15: summa:=summa*a14/a15;
16: summa:=summa*a14/a16;
17: summa:=summa*a14/a17;
18: summa:=summa*a14/a18;
19: summa:=summa*a14/a19;
20: summa:=summa*a14/a20;
21: summa:=summa*a14/a21;
22: summa:=summa*a14/a22;
23: summa:=summa*a14/a23;
24: summa:=summa*a14/a24;
25: summa:=summa*a14/a25;
26: summa:=summa*a14/a26;
27: summa:=summa*a14/a27;
28: summa:=summa*a14/a28;
29: summa:=summa*a14/a29;
30: summa:=summa*a14/a30;
end;
Str(summa:9:6, ed);
Edit2.Text:= ed; {Выводим полученное значение на экран}
end;
15: begin case ComboBox2.ItemIndex of
-1: ;
0: summa:=summa*a15/a0;
1: summa:=summa*a15/a1;
2: summa:=summa*a15/a2;
3: summa:=summa*a15/a3;
4: summa:=summa*a15/a4;
5: summa:=summa*a15/a5;
6: summa:=summa*a15/a6;
7: summa:=summa*a15/a7;
8: summa:=summa*a15/a8;
9: summa:=summa*a15/a9;
10: summa:=summa*a15/a10;
11: summa:=summa*a15/a11;
12: summa:=summa*a15/a12;
13: summa:=summa*a15/a13;
14: summa:=summa*a15/a14;
15: summa:=summa*a15/a15;
16: summa:=summa*a15/a16;
17: summa:=summa*a15/a17;
18: summa:=summa*a15/a18;
19: summa:=summa*a15/a19;
20: summa:=summa*a15/a20;
21: summa:=summa*a15/a21;
22: summa:=summa*a15/a22;
23: summa:=summa*a15/a23;
24: summa:=summa*a15/a24;
25: summa:=summa*a15/a25;
26: summa:=summa*a15/a26;
27: summa:=summa*a15/a27;
28: summa:=summa*a15/a28;
29: summa:=summa*a15/a29;
30: summa:=summa*a15/a30;
end;
Str(summa:9:6, ed);
Edit2.Text:= ed; {Выводим полученное значение на экран}
end;
16: begin case ComboBox2.ItemIndex of
-1: ;
0: summa:=summa*a16/a0;
1: summa:=summa*a16/a1;
2: summa:=summa*a16/a2;
3: summa:=summa*a16/a3;
4: summa:=summa*a16/a4;
5: summa:=summa*a16/a5;
6: summa:=summa*a16/a6;
7: summa:=summa*a16/a7;
8: summa:=summa*a16/a8;
9: summa:=summa*a16/a9;
10: summa:=summa*a16/a10;
11: summa:=summa*a16/a11;
12: summa:=summa*a16/a12;
13: summa:=summa*a16/a13;
14: summa:=summa*a16/a14;
15: summa:=summa*a16/a15;
16: summa:=summa*a16/a16;
17: summa:=summa*a16/a17;
18: summa:=summa*a16/a18;
19: summa:=summa*a16/a19;
20: summa:=summa*a16/a20;
21: summa:=summa*a16/a21;
22: summa:=summa*a16/a22;
23: summa:=summa*a16/a23;
24: summa:=summa*a16/a24;
25: summa:=summa*a16/a25;
26: summa:=summa*a16/a26;
27: summa:=summa*a16/a27;
28: summa:=summa*a16/a28;
29: summa:=summa*a16/a29;
30: summa:=summa*a16/a30;
end;
Str(summa:9:6, ed);
Edit2.Text:= ed; {Выводим полученное значение на экран}
end;
17: begin case ComboBox2.ItemIndex of
-1: ;
0: summa:=summa*a17/a0;
1: summa:=summa*a17/a1;
2: summa:=summa*a17/a2;
3: summa:=summa*a17/a3;
4: summa:=summa*a17/a4;
5: summa:=summa*a17/a5;
6: summa:=summa*a17/a6;
7: summa:=summa*a17/a7;
8: summa:=summa*a17/a8;
9: summa:=summa*a17/a9;
10: summa:=summa*a17/a10;
11: summa:=summa*a17/a11;
12: summa:=summa*a17/a12;
13: summa:=summa*a17/a13;
14: summa:=summa*a17/a14;
15: summa:=summa*a17/a15;
16: summa:=summa*a17/a16;
17: summa:=summa*a17/a17;
18: summa:=summa*a17/a18;
19: summa:=summa*a17/a19;
20: summa:=summa*a17/a20;
21: summa:=summa*a17/a21;
22: summa:=summa*a17/a22;
23: summa:=summa*a17/a23;
24: summa:=summa*a17/a24;
25: summa:=summa*a17/a25;
26: summa:=summa*a17/a26;
27: summa:=summa*a17/a27;
28: summa:=summa*a17/a28;
29: summa:=summa*a17/a29;
30: summa:=summa*a17/a30;
end;
Str(summa:9:6, ed);
Edit2.Text:= ed; {Выводим полученное значение на экран}
end;
18: begin case ComboBox2.ItemIndex of
-1: ;
0: summa:=summa*a18/a0;
1: summa:=summa*a18/a1;
2: summa:=summa*a18/a2;
3: summa:=summa*a18/a3;
4: summa:=summa*a18/a4;
5: summa:=summa*a18/a5;
6: summa:=summa*a18/a6;
7: summa:=summa*a18/a7;
8: summa:=summa*a18/a8;
9: summa:=summa*a18/a9;
10: summa:=summa*a18/a10;
11: summa:=summa*a18/a11;
12: summa:=summa*a18/a12;
13: summa:=summa*a18/a13;
14: summa:=summa*a18/a14;
15: summa:=summa*a18/a15;
16: summa:=summa*a18/a16;
17: summa:=summa*a18/a17;
18: summa:=summa*a18/a18;
19: summa:=summa*a18/a19;
20: summa:=summa*a18/a20;
21: summa:=summa*a18/a21;
22: summa:=summa*a18/a22;
23: summa:=summa*a18/a23;
24: summa:=summa*a18/a24;
25: summa:=summa*a18/a25;
26: summa:=summa*a18/a26;
27: summa:=summa*a18/a27;
28: summa:=summa*a18/a28;
29: summa:=summa*a18/a29;
30: summa:=summa*a18/a30;
end;
Str(summa:9:6, ed);
Edit2.Text:= ed; {Выводим полученное значение на экран}
end;
19: begin case ComboBox2.ItemIndex of
-1: ;
0: summa:=summa*a19/a0;
1: summa:=summa*a19/a1;
2: summa:=summa*a19/a2;
3: summa:=summa*a19/a3;
4: summa:=summa*a19/a4;
5: summa:=summa*a19/a5;
6: summa:=summa*a19/a6;
7: summa:=summa*a19/a7;
8: summa:=summa*a19/a8;
9: summa:=summa*a19/a9;
10: summa:=summa*a19/a10;
11: summa:=summa*a19/a11;
12: summa:=summa*a19/a12;
13: summa:=summa*a19/a13;
14: summa:=summa*a19/a14;
15: summa:=summa*a19/a15;
16: summa:=summa*a19/a16;
17: summa:=summa*a19/a17;
18: summa:=summa*a19/a18;
19: summa:=summa*a19/a19;
20: summa:=summa*a19/a20;
21: summa:=summa*a19/a21;
22: summa:=summa*a19/a22;
23: summa:=summa*a19/a23;
24: summa:=summa*a19/a24;
25: summa:=summa*a19/a25;
26: summa:=summa*a19/a26;
27: summa:=summa*a19/a27;
28: summa:=summa*a19/a28;
29: summa:=summa*a19/a29;
30: summa:=summa*a19/a30;
end;
Str(summa:9:6, ed);
Edit2.Text:= ed; {Выводим полученное значение на экран}
end;
20: begin case ComboBox2.ItemIndex of
-1: ;
0: summa:=summa*a20/a0;
1: summa:=summa*a20/a1;
2: summa:=summa*a20/a2;
3: summa:=summa*a20/a3;
4: summa:=summa*a20/a4;
5: summa:=summa*a20/a5;
6: summa:=summa*a20/a6;
7: summa:=summa*a20/a7;
8: summa:=summa*a20/a8;
9: summa:=summa*a20/a9;
10: summa:=summa*a20/a10;
11: summa:=summa*a20/a11;
12: summa:=summa*a20/a12;
13: summa:=summa*a20/a13;
14: summa:=summa*a20/a14;
15: summa:=summa*a20/a15;
16: summa:=summa*a20/a16;
17: summa:=summa*a20/a17;
18: summa:=summa*a20/a18;
19: summa:=summa*a20/a19;
20: summa:=summa*a20/a20;
21: summa:=summa*a20/a21;
22: summa:=summa*a20/a22;
23: summa:=summa*a20/a23;
24: summa:=summa*a20/a24;
25: summa:=summa*a20/a25;
26: summa:=summa*a20/a26;
27: summa:=summa*a20/a27;
28: summa:=summa*a20/a28;
29: summa:=summa*a20/a29;
30: summa:=summa*a20/a30;
end;
Str(summa:9:6, ed);
Edit2.Text:= ed; {Выводим полученное значение на экран}
end;
21: begin case ComboBox2.ItemIndex of
-1: ;
0: summa:=summa*a21/a0;
1: summa:=summa*a21/a1;
2: summa:=summa*a21/a2;
3: summa:=summa*a21/a3;
4: summa:=summa*a21/a4;
5: summa:=summa*a21/a5;
6: summa:=summa*a21/a6;
7: summa:=summa*a21/a7;
8: summa:=summa*a21/a8;
9: summa:=summa*a21/a9;
10: summa:=summa*a21/a10;
11: summa:=summa*a21/a11;
12: summa:=summa*a21/a12;
13: summa:=summa*a21/a13;
14: summa:=summa*a21/a14;
15: summa:=summa*a21/a15;
16: summa:=summa*a21/a16;
17: summa:=summa*a21/a17;
18: summa:=summa*a21/a18;
19: summa:=summa*a21/a19;
20: summa:=summa*a21/a20;
21: summa:=summa*a21/a21;
22: summa:=summa*a21/a22;
23: summa:=summa*a21/a23;
24: summa:=summa*a21/a24;
25: summa:=summa*a21/a25;
26: summa:=summa*a21/a26;
27: summa:=summa*a21/a27;
28: summa:=summa*a21/a28;
29: summa:=summa*a21/a29;
30: summa:=summa*a21/a30;
end;
Str(summa:9:6, ed);
Edit2.Text:= ed; {Выводим полученное значение на экран}
end;
22: begin case ComboBox2.ItemIndex of
-1: ;
0: summa:=summa*a22/a0;
1: summa:=summa*a22/a1;
2: summa:=summa*a22/a2;
3: summa:=summa*a22/a3;
4: summa:=summa*a22/a4;
5: summa:=summa*a22/a5;
6: summa:=summa*a22/a6;
7: summa:=summa*a22/a7;
8: summa:=summa*a22/a8;
9: summa:=summa*a22/a9;
10: summa:=summa*a22/a10;
11: summa:=summa*a22/a11;
12: summa:=summa*a22/a12;
13: summa:=summa*a22/a13;
14: summa:=summa*a22/a14;
15: summa:=summa*a22/a15;
16: summa:=summa*a22/a16;
17: summa:=summa*a22/a17;
18: summa:=summa*a22/a18;
19: summa:=summa*a22/a19;
20: summa:=summa*a22/a20;
21: summa:=summa*a22/a21;
22: summa:=summa*a22/a22;
23: summa:=summa*a22/a23;
24: summa:=summa*a22/a24;
25: summa:=summa*a22/a25;
26: summa:=summa*a22/a26;
27: summa:=summa*a22/a27;
28: summa:=summa*a22/a28;
29: summa:=summa*a22/a29;
30: summa:=summa*a22/a30;
end;
Str(summa:9:6, ed);
Edit2.Text:= ed; {Выводим полученное значение на экран}
end;
23: begin case ComboBox2.ItemIndex of
-1: ;
0: summa:=summa*a23/a0;
1: summa:=summa*a23/a1;
2: summa:=summa*a23/a2;
3: summa:=summa*a23/a3;
4: summa:=summa*a23/a4;
5: summa:=summa*a23/a5;
6: summa:=summa*a23/a6;
7: summa:=summa*a23/a7;
8: summa:=summa*a23/a8;
9: summa:=summa*a23/a9;
10: summa:=summa*a23/a10;
11: summa:=summa*a23/a11;
12: summa:=summa*a23/a12;
13: summa:=summa*a23/a13;
14: summa:=summa*a23/a14;
15: summa:=summa*a23/a15;
16: summa:=summa*a23/a16;
17: summa:=summa*a23/a17;
18: summa:=summa*a23/a18;
19: summa:=summa*a23/a19;
20: summa:=summa*a23/a20;
21: summa:=summa*a23/a21;
22: summa:=summa*a23/a22;
23: summa:=summa*a23/a23;
24: summa:=summa*a23/a24;
25: summa:=summa*a23/a25;
26: summa:=summa*a23/a26;
27: summa:=summa*a23/a27;
28: summa:=summa*a23/a28;
29: summa:=summa*a23/a29;
30: summa:=summa*a23/a30;
end;
Str(summa:9:6, ed);
Edit2.Text:= ed; {Выводим полученное значение на экран}
end;
24: begin case ComboBox2.ItemIndex of
-1: ;
0: summa:=summa*a24/a0;
1: summa:=summa*a24/a1;
2: summa:=summa*a24/a2;
3: summa:=summa*a24/a3;
4: summa:=summa*a24/a4;
5: summa:=summa*a24/a5;
6: summa:=summa*a24/a6;
7: summa:=summa*a24/a7;
8: summa:=summa*a24/a8;
9: summa:=summa*a24/a9;
10: summa:=summa*a24/a10;
11: summa:=summa*a24/a11;
12: summa:=summa*a24/a12;
13: summa:=summa*a24/a13;
14: summa:=summa*a24/a14;
15: summa:=summa*a24/a15;
16: summa:=summa*a24/a16;
17: summa:=summa*a24/a17;
18: summa:=summa*a24/a18;
19: summa:=summa*a24/a19;
20: summa:=summa*a24/a20;
21: summa:=summa*a24/a21;
22: summa:=summa*a24/a22;
23: summa:=summa*a24/a23;
24: summa:=summa*a24/a24;
25: summa:=summa*a24/a25;
26: summa:=summa*a24/a26;
27: summa:=summa*a24/a27;
28: summa:=summa*a24/a28;
29: summa:=summa*a24/a29;
30: summa:=summa*a24/a30;
end;
Str(summa:9:6, ed);
Edit2.Text:= ed; {Выводим полученное значение на экран}
end;
25: begin case ComboBox2.ItemIndex of
-1: ;
0: summa:=summa*a25/a0;
1: summa:=summa*a25/a1;
2: summa:=summa*a25/a2;
3: summa:=summa*a25/a3;
4: summa:=summa*a25/a4;
5: summa:=summa*a25/a5;
6: summa:=summa*a25/a6;
7: summa:=summa*a25/a7;
8: summa:=summa*a25/a8;
9: summa:=summa*a25/a9;
10: summa:=summa*a25/a10;
11: summa:=summa*a25/a11;
12: summa:=summa*a25/a12;
13: summa:=summa*a25/a13;
14: summa:=summa*a25/a14;
15: summa:=summa*a25/a15;
16: summa:=summa*a25/a16;
17: summa:=summa*a25/a17;
18: summa:=summa*a25/a18;
19: summa:=summa*a25/a19;
20: summa:=summa*a25/a20;
21: summa:=summa*a25/a21;
22: summa:=summa*a25/a22;
23: summa:=summa*a25/a23;
24: summa:=summa*a25/a24;
25: summa:=summa*a25/a25;
26: summa:=summa*a25/a26;
27: summa:=summa*a25/a27;
28: summa:=summa*a25/a28;
29: summa:=summa*a25/a29;
30: summa:=summa*a25/a30;
end;
Str(summa:9:6, ed);
Edit2.Text:= ed; {Выводим полученное значение на экран}
end;
26: begin case ComboBox2.ItemIndex of
-1: ;
0: summa:=summa*a26/a0;
1: summa:=summa*a26/a1;
2: summa:=summa*a26/a2;
3: summa:=summa*a26/a3;
4: summa:=summa*a26/a4;
5: summa:=summa*a26/a5;
6: summa:=summa*a26/a6;
7: summa:=summa*a26/a7;
8: summa:=summa*a26/a8;
9: summa:=summa*a26/a9;
10: summa:=summa*a26/a10;
11: summa:=summa*a26/a11;
12: summa:=summa*a26/a12;
13: summa:=summa*a26/a13;
14: summa:=summa*a26/a14;
15: summa:=summa*a26/a15;
16: summa:=summa*a26/a16;
17: summa:=summa*a26/a17;
18: summa:=summa*a26/a18;
19: summa:=summa*a26/a19;
20: summa:=summa*a26/a20;
21: summa:=summa*a26/a21;
22: summa:=summa*a26/a22;
23: summa:=summa*a26/a23;
24: summa:=summa*a26/a24;
25: summa:=summa*a26/a25;
26: summa:=summa*a26/a26;
27: summa:=summa*a26/a27;
28: summa:=summa*a26/a28;
29: summa:=summa*a26/a29;
30: summa:=summa*a26/a30;
end;
Str(summa:9:6, ed);
Edit2.Text:= ed; {Выводим полученное значение на экран}
end;
27: begin case ComboBox2.ItemIndex of
-1: ;
0: summa:=summa*a27/a0;
1: summa:=summa*a27/a1;
2: summa:=summa*a27/a2;
3: summa:=summa*a27/a3;
4: summa:=summa*a27/a4;
5: summa:=summa*a27/a5;
6: summa:=summa*a27/a6;
7: summa:=summa*a27/a7;
8: summa:=summa*a27/a8;
9: summa:=summa*a27/a9;
10: summa:=summa*a27/a10;
11: summa:=summa*a27/a11;
12: summa:=summa*a27/a12;
13: summa:=summa*a27/a13;
14: summa:=summa*a27/a14;
15: summa:=summa*a27/a15;
16: summa:=summa*a27/a16;
17: summa:=summa*a27/a17;
18: summa:=summa*a27/a18;
19: summa:=summa*a27/a19;
20: summa:=summa*a27/a20;
21: summa:=summa*a27/a21;
22: summa:=summa*a27/a22;
23: summa:=summa*a27/a23;
24: summa:=summa*a27/a24;
25: summa:=summa*a27/a25;
26: summa:=summa*a27/a26;
27: summa:=summa*a27/a27;
28: summa:=summa*a27/a28;
29: summa:=summa*a27/a29;
30: summa:=summa*a27/a30;
end;
Str(summa:9:6, ed);
Edit2.Text:= ed; {Выводим полученное значение на экран}
end;
28: begin case ComboBox2.ItemIndex of
-1: ;
0: summa:=summa*a28/a0;
1: summa:=summa*a28/a1;
2: summa:=summa*a28/a2;
3: summa:=summa*a28/a3;
4: summa:=summa*a28/a4;
5: summa:=summa*a28/a5;
6: summa:=summa*a28/a6;
7: summa:=summa*a28/a7;
8: summa:=summa*a28/a8;
9: summa:=summa*a28/a9;
10: summa:=summa*a28/a10;
11: summa:=summa*a28/a11;
12: summa:=summa*a28/a12;
13: summa:=summa*a28/a13;
14: summa:=summa*a28/a14;
15: summa:=summa*a28/a15;
16: summa:=summa*a28/a16;
17: summa:=summa*a28/a17;
18: summa:=summa*a28/a18;
19: summa:=summa*a28/a19;
20: summa:=summa*a28/a20;
21: summa:=summa*a28/a21;
22: summa:=summa*a28/a22;
23: summa:=summa*a28/a23;
24: summa:=summa*a28/a24;
25: summa:=summa*a28/a25;
26: summa:=summa*a28/a26;
27: summa:=summa*a28/a27;
28: summa:=summa*a28/a28;
29: summa:=summa*a28/a29;
30: summa:=summa*a28/a30;
end;
Str(summa:9:6, ed);
Edit2.Text:= ed; {Выводим полученное значение на экран}
end;
29: begin case ComboBox2.ItemIndex of
-1: ;
0: summa:=summa*a29/a0;
1: summa:=summa*a29/a1;
2: summa:=summa*a29/a2;
3: summa:=summa*a29/a3;
4: summa:=summa*a29/a4;
5: summa:=summa*a29/a5;
6: summa:=summa*a29/a6;
7: summa:=summa*a29/a7;
8: summa:=summa*a29/a8;
9: summa:=summa*a29/a9;
10: summa:=summa*a29/a10;
11: summa:=summa*a29/a11;
12: summa:=summa*a29/a12;
13: summa:=summa*a29/a13;
14: summa:=summa*a29/a14;
15: summa:=summa*a29/a15;
16: summa:=summa*a29/a16;
17: summa:=summa*a29/a17;
18: summa:=summa*a29/a18;
19: summa:=summa*a29/a19;
20: summa:=summa*a29/a20;
21: summa:=summa*a29/a21;
22: summa:=summa*a29/a22;
23: summa:=summa*a29/a23;
24: summa:=summa*a29/a24;
25: summa:=summa*a29/a25;
26: summa:=summa*a29/a26;
27: summa:=summa*a29/a27;
28: summa:=summa*a29/a28;
29: summa:=summa*a29/a29;
30: summa:=summa*a29/a30;
end;
Str(summa:9:6, ed);
Edit2.Text:= ed; {Выводим полученное значение на экран}
end;
30: begin case ComboBox2.ItemIndex of
-1: ;
0: summa:=summa*a30/a0;
1: summa:=summa*a30/a1;
2: summa:=summa*a30/a2;
3: summa:=summa*a30/a3;
4: summa:=summa*a30/a4;
5: summa:=summa*a30/a5;
6: summa:=summa*a30/a6;
7: summa:=summa*a30/a7;
8: summa:=summa*a30/a8;
9: summa:=summa*a30/a9;
10: summa:=summa*a30/a10;
11: summa:=summa*a30/a11;
12: summa:=summa*a30/a12;
13: summa:=summa*a30/a13;
14: summa:=summa*a30/a14;
15: summa:=summa*a30/a15;
16: summa:=summa*a30/a16;
17: summa:=summa*a30/a17;
18: summa:=summa*a30/a18;
19: summa:=summa*a30/a19;
20: summa:=summa*a30/a20;
21: summa:=summa*a30/a21;
22: summa:=summa*a30/a22;
23: summa:=summa*a30/a23;
24: summa:=summa*a30/a24;
25: summa:=summa*a30/a25;
26: summa:=summa*a30/a26;
27: summa:=summa*a30/a27;
28: summa:=summa*a30/a28;
29: summa:=summa*a30/a29;
30: summa:=summa*a30/a30;0: begin case ComboBox2.ItemIndex of
-1: ;
0: summa:=summa*a0/a0;
1: summa:=summa*a0/a1;
2: summa:=summa*a0/a2;
3: summa:=summa*a0/a3;
4: summa:=summa*a0/a4;
5: summa:=summa*a0/a5;
6: summa:=summa*a0/a6;
7: summa:=summa*a0/a7;
8: summa:=summa*a0/a8;
9: summa:=summa*a0/a9;
10: summa:=summa*a0/a10;
11: summa:=summa*a0/a11;
12: summa:=summa*a0/a12;
13: summa:=summa*a0/a13;
14: summa:=summa*a0/a14;
15: summa:=summa*a0/a15;
16: summa:=summa*a0/a16;
17: summa:=summa*a0/a17;
18: summa:=summa*a0/a18;
19: summa:=summa*a0/a19;
20: summa:=summa*a0/a20;
21: summa:=summa*a0/a21;
22: summa:=summa*a0/a22;
23: summa:=summa*a0/a23;
24: summa:=summa*a0/a24;
25: summa:=summa*a0/a25;
26: summa:=summa*a0/a26;
27: summa:=summa*a0/a27;
28: summa:=summa*a0/a28;
29: summa:=summa*a0/a29;
30: summa:=summa*a0/a30;
end;
Str (summa:9:6, ed);
Edit2.Text:= ed; {Выводим полученное значение на экран}
end;
1: begin case ComboBox2.ItemIndex of
-1: ;
0: summa:=summa*a1/a0;
1: summa:=summa*a1/a1;
2: summa:=summa*a1/a2;
3: summa:=summa*a1/a3;
4: summa:=summa*a1/a4;
5: summa:=summa*a1/a5;
6: summa:=summa*a1/a6;
7: summa:=summa*a1/a7;
8: summa:=summa*a1/a8;
9: summa:=summa*a1/a9;
10: summa:=summa*a1/a10;
11: summa:=summa*a1/a11;
12: summa:=summa*a1/a12;
13: summa:=summa*a1/a13;
14: summa:=summa*a1/a14;
15: summa:=summa*a1/a15;
16: summa:=summa*a1/a16;
Подобные документы
Программа для выбираемой единицы измерения (градусы Фаренгейта или Цельсия) и для задаваемого значения температуры в этой единице измерения. Среда Delphi. Системные требования. Блок схема программы. Интерфейс. Тестирование и сопровождение программы.
курсовая работа [447,6 K], добавлен 04.02.2009Составление программы. Среда Delphi - механизм, обеспечивающий эффективную работу программиста. Составление программы, которая выводит для выбираемой единицы измерения (километры в час, мили в час или узлы) значение скорости в других единицах измерения.
курсовая работа [684,0 K], добавлен 04.02.2009Особенности разработки устройства управления системой измерения веса, построенного на микроконтроллере ATmega16 фирмы Atmel. Схема включения микроконтроллера, сброса, стабилизатора напряжения. Проектирование функций микроконтроллера. Листинг программы.
курсовая работа [153,6 K], добавлен 19.12.2010Основные единицы измерения времени, массы и объема. Исчисления между битами и байтами. Двоичные приставки в ОС Windows и у производителей ОЗУ. Расчет информационного размера изображения. Объём компьютерных информационных носителей, пример определения.
презентация [638,9 K], добавлен 27.01.2014Разновидности конструктивных решений реализации весового оборудования. Разработка блок-схемы предустановок, блок-схемы измерения веса, блок-схемы вывода информации о весе в компьютер, блок-схемы устройства и программы работы микропроцессорного блока.
курсовая работа [525,4 K], добавлен 13.02.2023Обоснование необходимости разработки данных лабораторных работ. Основные средства измерения затухания методами светопропускания. Методы измерения оптической мощности. Разработка оболочки пакета программ. Оценка эффективности разработанных интерфейсов.
дипломная работа [3,8 M], добавлен 20.10.2013Сущностные характеристики информации. Классификация информации по форме представления, области возникновения, способу передачи и восприятия и способам кодирования. Анализ основных единиц измерения информации, служащих для измерения объёма информации.
реферат [77,6 K], добавлен 04.10.2011Информатика - техническая наука, определяющая сферу деятельности, связанную с процессами хранения, преобразования и передачи информации с помощью компьютера. Формы представления информации, ее свойства. Кодирование информации, единицы ее измерения.
презентация [117,7 K], добавлен 28.03.2013Проектирование устройства контроля температуры в холодильных установках. Устройство измеряет температуру с помощью схемы измерения температуры. Значение температуры представлены в 8-битном формате. Создание компьютерной программы для устройства.
курсовая работа [29,5 K], добавлен 22.02.2008Рассмотрение теории и технологии работы со средой программирования Delphi. Описание Описание интерфейса программы, структуры данных, генерации точек. Разработка задания по выявлению всех квадратов, которые могут быть образованы точками на плоскости.
реферат [21,0 K], добавлен 13.01.2015
