МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ
Міжнародний Університет РЕГІ імені академіка Степана Дем’янчука
Кафедра інформаційних систем та технологій
КУРСОВА РОБОТА
на тему :
"
Довідник : одиниці вимірювання, система числення, час у різних країнах
"
Виконав :
студент ?? курсу
факультету кібернетики
групи ??-??
?????????????????????
___________________
( підпис )
Керівник :
?????????????????????
___________________
( підпис )
Рівне 2004
Завдання
Розробити програму-довідник переведення чисел з однієї системи числення в іншу, знаходження часу у різних країнах, переведення одиниць вимірювання з одної системи в іншу на мові програмування Delphi , написати пояснення до курсової роботи яке включає в себе лістинг програми а також методи вирішення задачі і теоретичні відомості по темі курсової роботи.
Зміст
1.Завдання…………………………………………………………1
2.Вступ…………………………………………………………….2
3.Дослідження ефективності, випробування в експлуатації…..9
4.Висновки……………………………………………………….12
5. Список використаної літератури……………………………..13
6. Додатки.......................................................................................14
Вступ
А) Системи числення.
Проблема перекладу з однієї системи числення в іншу дуже часто зустрічається при програмуванні. Особливо часто з'являється така проблема при програмуванні на Асемблері. Наприклад при визначенні адреси комірки пам'яті, для одержання двійкового або шістнадцяткового еквівалентів десятичного числа. Іноді стає проблема збільшення швидкості обчислень, і тоді приходить на поміч двійкова система числення. У цій системі числення дуже швидко робити операцію множення шляхом зсуву одного з операндів у двійковому виді вліво на таке число позицій у який стоїть одиниця в другому операнді. Роздивимося докладніше як це здійснюється. Нехай нам треба помножити число 1101 на 101 (обидва числа в двійкові системі числення). Машина робить це в такий спосіб: вона бере число 1101, і якщо перший елемент другого множника дорівнює 1 те вона заносить його в суму. Потім зрушує число 1101 уліво на одну позицію, одержуючи тим самим 11010 і якщо другий елемент другого множника дорівнює одиниці те теж заносить його в суму. Якщо елемент другого множника дорівнює нулю те сума не змінюється. У зв'язку з цим, якщо другий множник містить багато нулів, то операція множення виконується досить довго, тому що машина перевіряє кожну цифру другого множника, у тому числі і нулі. Якщо ж самому робити операцію множення то нулі можна пропустити і тоді множення зробиться швидше.
Що стосується застосування шіснадцяткової системи числення то тут теж великі можливості. По-перше, деякі стандартні процедури Паскаля і Сі потребують задачі параметрів у шістнадцяткові системі, а по-друге, така система числення дуже зручна для збереження інформації, тому що число в шістнадцяткові формі займає менше обсягу диска чим теж число в десятковому, а тим більше в двійковому виді.
У такий спосіб ми переконалися, що проблема перекладу з двійкової системи числення в десяткову, із шістнадцяткової у десяткову й назад дуже актуальна.
Б) Часові пояси
Вимір часу базується на періодичному природному явищі, такому, як чередування світлих та темних періодів, що викликаються обертанням планети. Загальний час, який складається з суми світлого та темного періодів завжди постійний, хоча довжина дня та ночі змінюються. Одна постійна константа - це полудень.
Полудень - це такий час, коли сонце знаходиться в своїй найвищий точці - апогеї. Оскільки Земля кругла, полудень трапляється в різний час в різних куточках планети. Це приводить до поняття місцевого часу. Люди вимірюють час в різних одиницях, більшість з яких так або інакше прив’язані до природних явищ. І до того часу, поки Ви знаходитесь в одному місці, для Вас не має ніякого значення, що місцевий час відрізняється від іншого місцевого часу.
Як тільки у Вас виникає потреба спілкуватися з людьми, що знаходяться на значній відстані від Вас, Вам потрібно відшукати спільну точку виміру часу. В наш час люди різних країн спілкуються між собою, тому були вироблені глобальні стандарти часу. Такий час носить назву універсальним часом (universal time, UT або UTC, який раніше називався Стандартним часом за Ґрінвічем, Greenwich Mean Time або GMT, бо він був місцевим часом в Ґрінвічі у Великобританії). Коли люди, що знаходяться в різний часових поясах мають необхідність в спілкуванні, вони можуть виражати час в універсальному часі і позбутися, таким чином, непорозумінь, які можуть траплятися від мішанини часів.
Кожен місцевий час називається часовим поясом. Але хоча географія і може дозволити всім людям, що мають один і той же полудневий час, жити в одному часовому поясі, але політика дозволити цього не може. З багатьох причин, багато країн користуються літнім часом, тобто, вони переставляють свій годинник, щоб мати більше світлого часу поки вони працюють, і потім повертають стрілки годинників назад в зимовий час. Інші країни цього не роблять. Ті, які це роблять не можуть погодитися, коли саме переводити стрілки годинників, і правила змінюються кожного року. Все це вносить неабиякі складнощі в визначення часових поясів. Визначати часові пояси найкраще або за місцем або за різницею часу відносно Ґрінвічського часу. В США та деяких інших країнах часові пояси мають назви та абревіатури, що складаються з трьох літер. Однак, деякі абревіатури співпадають з іншими, і тому ними не можна користуватися, якщо не вказана також і країна. Кращим є поняття місцевого часу в Гельсінкі, ніж, скажімо, місцевий східньо-європейський час, бо не всі країни східної Європи дотримуються одних і тих же правил. Linux і Windows включає в себе пакет часових зон, в якому мається інформація про всі існуючі часові пояси. Ця інформація може легко поновлюватися, якщо правила змінюються. Все, що треба робити системному адміністратору, це вибрати відповідний часовий пояс. Крім цього, кожен користувач може встановити свій власний часовий пояс, оскільки багато хто працює з комп’ютерами через мережу, знаходячись на величезній відстані від комп’ютера. При зміні правил переходу на літній час в вашому місцевому часовому поясі, не забудьте змінити хоча б цю інформацію.
Отже в умовах прискорення темпів глобалізації існує необхідність в довідниках такого типу.
В) Стандарти і одиниці вимірювання
Наука, в багатьох випадках, вимагає проведення експерименту для доведення того чи іншого твердження. Експерименти вимагають вимірювань, і ми звичайно використовуємо числа для опису результатів вимірювань. Будь-яке число, що використовується для кількісного опису явища називають фізичною величиною. Наприклад, дві величини, що описують Вас – це Ваша вага і Ваш зріст. Деякі фізичні величини є настільки фундаментальними, що ми можемо дати їм означення тільки за допомогою опису самої процедури їх вимірювання. Таке означення називається операційним означенням. У деяких прикладах відстань вимірюють за допомогою лінійки, а часові інтервали за допомогою секундоміра. В інших випадках ми визначаємо фізичну величину, описуючи метод, за яким її розраховують з інших величин, котрі ми можемо виміряти. Таким чином, ми могли б означити середню швидкість рухомого об'єкта як пройдену відстань (виміряну за допомогою лінійки), поділенуe на час подорожі (виміряний секундоміром). Коли ми вимірюємо величину, ми завжди порівнюємо її з деяким еталоном. Коли ми стверджуємо, що автомобіль «Порш 944» має довжину 4.29 метрів, то ми маємо на увазі те, що він у 4.29 разів довший за метрову планку. Метр – це одиниця вимірювання відстані, а секунда – одиниця вимірювання часу. Коли ми використовуємо число для опису фізичної величини, ми завжди повинні зазначати одиниці, котрі використовуємо. Опис відстані як просто «4.29» нічого не значить. Для здійснення точних, надійних вимірювань ми потребуємо таких одиниць вимірювання, котрі б не змінювалися і щоби спостерігачі мали змогу їх відтворити незалежно від місця свого перебування. Систему одиниць вимірювання, що використовується науковцями та інженерами у цілому світі, звичайно називають «метричною системою». А з 1960 року вона отримала офіційну назву Міжнародна система, або SI (скорочення від французької назви, Systeme International).Перелік всіх одиниць системи SI подано у Додатку А, у вигляді означень найбільш фундаментальних одиниць.
Означення основних одиниць метричної системи змінювалися з роками. Коли в 1791-му році Французька Академія Наук заснувала метричну систему, то метру дали означення однієї десятимільйонної частки відстані від Північного Полюса до екватора (Рис.1-2). Секунда була означена як час, потрібний маятнику довжиною один метр для здійснення коливання з однієї сторони в іншу. Ці означення були громіздкими, а точне їх відтворення – ускладненим, і за міжнародними угодами їх замінили на більш досконалі означення.
Час
З 1889 до 1967 року одиниця вимірювання часу була означена як певна частка середнього сонячного дня (це середній часовий інтервал між послідовними проходженнями Сонця через найвищу точку на небі). Сучасний стандарт, прийнятий у 1967 році, є значно точнішим. Він базується на атомному годиннику, який використовує різницю енергій між двома найнижчими енергетичними рівнями атома цезію. Опромінені хвилями мікрохвильового діапазону точної відповідної частоти, атоми цезію здійснюють перехід з одного стану в інший. Секунда означується як час, необхідний для здійснення 9 192 631 770 періодів коливання в електромагнітній хвилі, що відповідає цьому переходу.
Довжина
В 1960-му році атомний стандарт був встановлений і для метра, за використанням оранжево-червоного світла, що випромінюється атомом криптону (86Kr) в газорозрядній трубці. В листопаді 1983-го року стандарт довжини знову змінили, і більш радикальним чином. Була означена швидкість світла у вакуумі - точно 299 792 458 м/с. Метр встановлюється у відповідності до цього числа і до означення секунди, що наведене вище. Отже нове означення метра таке - це відстань, яку проходить світло у вакуумі за 1/299 792 468 секунди. Це надає набагато точніший стандарт довжини, аніж базований на довжині хвилі світла.
Маса
Стандарт маси, кілограм, означується як маса певного конкретного циліндру з платиново-іридієвого сплаву. Цей циліндр зберігається в Міжнародному Бюро Ваг і Мір в Севрі, коло Парижу. Атомний стандарт маси був би більш фундаментальним, але на разі ми не маємо змоги вимірювати маси на атомних масштабах з такою ж точністю, як на макроскопічних масштабах. Грам (який не є фундаментальною одиницею) становить 0.001 кілограма.
Префікси одиниць вимiрювання
Оскільки ми означили фундаментальні одиниці, тоді легко ввести більші та менші одиниці для тих самих фізичних величин. В метричній системі ці інші одиниці пов'язані із фундаментальними одиницями (або, як у випадку маси, із грамом) за допомогою домноження на 10 або 0,1 .Таким чином один кілометр (1 км) становить 1000 метрів, і один сантиметр (1 см) становить метрів. Ми зазвичай виражаємо домноження на 10 або на 0,1 в показниковій формі запису : 1000 = 103
, 1/1000 = 10–3
, і так далі. Назви додаткових одиниць виводяться за допомогою додавання префікса до імені фундаментальних одиниць. Наприклад, префікс „кіло-” ,скорочено „к”, завжди означає збільшення на множник 1000, отже
1 кілометр = 1 км = 103
метрів = 103
м,
1 кілограм = 1 кг = 103
грамів = 103
г,
1 кілоВат = 1 кВт = 103
Ватів = 103
Вт.
Британська система
І, наприкінці, ми згадаємо про Британську систему одиниць вимірювання. Ці одиниці використовуються тільки у Сполучених Штатах і кількох інших країнах, і в багатьох із них вже заміщається одиницями SI. Британські одиниці тепер офіційно визначаються через одиниці SI, ось таким чином:
Довжина: 1 дюйм = 2.54 cм (точно)
Сила: 1 фунт = 4.448221615260 Ньютонів (точно)
«Ньютон», скорочено Н, є одиницею сили в SI. Британською одиницею вимірювання часу є секунда, означена таким ж чином як і в SI. У фізиці Британські одиниці використовуються тільки в механіці і термодинаміці, Британської системи для електричних одиниць не існує.
Виходячи з цих міркувань можна відзначити важливість даної розробки і в цьому відношенні.
3
. Дослідження ефективності, випробування в експлуатації.
3
.1 Теоретична основа рішення задачі переведення систем числення
Як же на практиці здійснюється переклад з однієї системи числення в іншу? Спробуємо розібратися.
Припустимо нам потрібно перекласти число 567 десятеричної системи в двійкову систему. Робиться це в такий спосіб: відшукується максимальний степінь двійки, щоб два в цьому ступені було менше або дорівнювало вихідному числу. У нашому випадку це 9, тому що 2^9=512, а 2^10=1024 що більше нашого початкового числа. У такий спосіб ми одержали число розрядів результату. Воно дорівнює 9+1=10.
Значить результат буде мати вид 1ххххххххх, де замість х може стояти 1 або 0. Знайдемо другу цифру результату. Піднесемо двійку до степеня 9 і віднімемо з вихідного числа: 567-2^9=55. Потім порівнюємо з числом 2^8=256. Тому що 55 менше 256 те дев'ятий розряд буде нулем, тобто результат уже прийме вид 10хххххххх.
Роздивимося восьмий розряд: 2^7=128 > 55, значить і восьмий розряд буде нулем. Так як 2^6=64 то сьомий розряд дорівнює нулю. У такий спосіб ми одержали чотири старших розряди і число прийме вид 1000хххххх. Обчисляємо 2^5=32 і бачимо, що 32 < 55, значить шостий розряд дорівнює 1 (результат 10001ххххх), залишок 55-32=23.2^4=16 < 23 - п'ятий розряд 1 => 100011хххх. Залишок 23-16=7.2^3=8 > 7 => 1000110ххх. 2^2=4 < 7 => 10001101хх, залишок 3.2^1=2 < 3 => 100011011х, залишок 1.2^0=1 = 1 => 1000110111. Ми одержали кінцевий результат.
Тепер спробуємо перекласти теж число 567, але вже в шістнадцяткову систему. Підхід приблизно такий же. Визначимо максимальний розряд. Так як. 16^2=256 < 567, а 16^3=4096 > 567, то максимальний розряд 2+1=3. Визначимо число, що буде стояти в третьому розряді. Шукається максимальний множник у межах від 1 до 15, щоб поточний степінь шістнадцятьох помноженого на цей множник був менше або рівнявся вихідному числу (а надалі - залишку). У нашому прикладі цей множник 2, тому що 256*2=512 < 567, а 256*3=768 > 567. Значить старший розряд нашого результату буде дорівнює 2, і результат прийме вид 2хх, де замість х можуть стояти будь-які цифри або букви з нижче перерахованих: 0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F. Обчисляємо залишок: 567-2*16^2=55. Визначимо що буде стояти в другому розряді. Тому що 3*16^1=48 < 55, а 4*16^1=64 > 55, то в другому розряді буде стояти цифра 3. Залишок=55-3*16^1=7. Визначаємо перший розряд: тому що 16^0=1 то цифра першого розряду дорівнює залишку, тобто 7. У такий спосіб ми одержали число 237, але вже в шістнадцятковій системі числення.
Операція перекладу з десяткової системи виглядає набагато простіше. Роздивимося її на прикладі перекладу із шстнадцяткової системи в десяткову.
Припустимо нам потрібно перекласти число 4A3F у десятеричну систему. Беремо старший (4-ий) розряд і будуємо 16 в степені 4-1=3, одержуємо 16^3=4096. Отриманий результат множимо на значення четвертого розряду, тобто 4. Утворюється 4096*4=16384. Цей результат ми заносимо в суму. Переходимо до такого розряду: 16^2=256. 256 потрібно умножити на значення третього розряду тобто A. Як відомо в шістнадцяткові системі числення букви від A до F символізують числа від 10 до 15 ( A=10, B=11, C=12, D=13, E=14, F=15).
Помноживши 256 на 10 одержимо 2560 і цей результат добавляємо до суми, у якій в нас поки було 16384. У сумі в нас утворилося 18944. Переходимо до другого розряду: 3*16^1=48, додавши це в суму одержимо 18992. І останній розряд: 15*16^0=15. Кінцева сума дорівнює 19007. Ми одержали результат у десятеричній системі числення.
Методологічний підхід.
Розглядаючи переклад із десяткової системи числення в двійкову і шістнадцяткову, можна знайти багато спільного. У обох випадках ми шукаємо максимальний степінь, потім в обох випадках порівнюємо залишок із числом зведеним у степінь розряду. Єдина різниця полягає в тому, що при перекладі в двійкову систему основою степені служить двійка, а при перекладі в шістнадцяткову систему підставою служить число шістнадцять. Виникає питання: а не можна чи об'єднати обидва цих переклади в одну процедуру, у якій у якості параметрів передавати основу степені?
При більш докладному розгляді перекладу в двійкову систему можна зауважити, що порівнюючи залишок із ступенем двійки ми відзначаємо тільки як би два стани: є або немає, тобто 1 або 0, а при перекладі в шістнадцяткову систему ми розглядаємо не просто степінь числа шістнадцятьох, а добуток цього ступеня на розмір майбутнього розряду. Виникає питання: а не одне чи це і теж. Адже перемноживши число на одиницю ми його не змінюємо, а отже немає різниці тим часом, порівнювати степінь із залишком або з залишком помноженим на одиницю.
У такий спосіб з'ясувалося, що переклад із десятеричної системи числення в двійкову і у шістнадцятирічну можна здійснювати одною процедурою, у якій у якості параметра передавати основу степеня, тобто основу кінцевої системи числення.
Щоб не ускладнювати програму і не робити множину операторів умовного переходу в залежності від того, до якої системи числення належить вихідне число, запровадження цього числа здійснюється єдиним блоком, і вихідне число в результаті виконання цього блока записується у вигляді стрічкової змінної і передається на опрацювання наступному блоку. Другий блок опрацьовує рядок символів, що надійшов у нього, таким чином, що на виході цього блока утворюється числове значення в десятеричній системі числення вихідного числа. І третій заключний блок перетворить це числове значення в рядок символів, що буде містити результат у системі числення, що була потрібна.
У результаті такого підходу до рішення задачі алгоритм значно спрощується, тому що в ньому немає розгалужень.
3
.2 Теоретична основа переведення одиниць вимірювання.
Переважна більшість одиниць вимірювання знаходяться в лінійній залежності між собою. Тому вибравши за базову якусь одиницю і записавши коефіцієнт переводу можна легко знаходити потрібні величини.
Тут також зроблено все просто (однією процедурою) : в даній системі одиниць знаходиться базова, а потім похідні від неї.
3
.3 Переведення часу.
Для знаходження часу в будь-якому куточку планети достатньо знати його та свій часовий пояс, а точніше зсув по Гринвічу, потім просумувати результати.
Це завдання виявилось найлегшим в реалізації. Дані про часові пояси взяті із реєстру Windows і перекладені на українську мову, хоч за бажанням користувача можна відновити автентичну інформацію викликавши відповідне контекстне меню.
Висновки
Виконуючи дану курсову роботу я краще навчився працювати в середовищі BorlandDelphi 7, а також добре засвоїв цю мову програмування на практиці.
З вступу стало зрозуміло, що найбільш часто зустрічаються системи числення, двійкова , шістнадцяткова і десятерична. Але зустрічається і восьмирична система числення, хоч це буває рідко але варто зупинитися на цьому. Отже, наша задача здійснити переклад із однієї системи числення в будь яку іншу, перевести значення з однієї системи числення в іншу і перевести час в будь-який із існуючих часових поясів, тобто взаємно зв'язати всі ці три завдання. Результат виконання цієї задачі ми можемо переглянути запустивши на виконання програму.
Список використаної літератури.
1. Том Сван “Освоение Borland Delphi”. 1,2 том. “Діалектика” Київ 1996.
2. Намир К. Шаммас “Основы ObjectPascal и объектно ориентированого програмирования”. “Діалектика” Київ 1996.
3. Тимотти С. Монк, Стивен Поттс «Borland Delphi в примерах» . Мінськ 1996г.
4. Фейсон Т. « Объектно-ориентированное программирование на Borland Delphi». Київ, «Діалектика»,1996.
5. Григоренко Я.М., Панкратова Н. Д. “Обчислювальні методи в задачах прикладної математики”: Навч. посібник.-К.:Либідь,1995.-280с.
6. “Численные методы в инженерных исследованиях” / В. Е. Краскевич, К. Х. Зеленский, В. И. Гречко.-К.: Вища шк.,1986.-263 с.
7. Перминов О. Н. “Программирование на языке Паскаль”.- М.: Радио и связь,1988.-244 с.: ил.
8. Електронний довідник „Поради по Delphiвід Валентина Озерова”
9. Інтернет ресурси :
http://www.vesna.org.ua
http://www.jeep.avtograd.ru/Converters/Length_converter.htm
http://onebit.narod.ru/metrix.htm
http://decoder.ru
Додатки
Вигляд закладки „Час у різних країнах”
Вигляд закладки „Одиниці вимірювання”
Вигляд закладки „Системи числення”
Лістинг програми
program Metrix;
uses
Forms,
Main in
'Main.pas' {MainForm},
Bases in
'Bases.pas',
UkrRecog in
'UkrRecog.pas';
{$R *.res}
begin
Application.Initialize;
Application.Title :='Довідник : одиницівимірювання, с-мачислення, часурізнихкраїнах.';
Application.CreateForm(TMainForm, MainForm);
Application.Run;
end
.
Програма складається з 3-х модулів :
1. Main – Знаходиться опис головної форми і її методів включаючи основні алгоритми.
2. Bases – в цьому модулі описана процедура переводу систем числення.
3. UkrRecog – тут запрограмована функція переводу цілих чисел в словесний вигляд.
1)unit Main;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, ExtCtrls, Registry, Menus, UkrRecog, Bases,
Spin, IniFiles, Buttons ;
type
TMainForm = class
(TForm)
PageControl: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
TabSheet3: TTabSheet;
ComboGMT: TComboBox;
Label1: TLabel;
CurTime: TLabel;
TimeTimer: TTimer;
Label2: TLabel;
PopupMenu1: TPopupMenu;
N1: TMenuItem;
N2: TMenuItem;
Label3: TLabel;
FindedTime: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Base1: TSpinEdit;
Base2: TSpinEdit;
Animate1: TAnimate;
StatusBar1: TStatusBar;
RadioGroup: TRadioGroup;
Panel: TPanel;
MEdit: TEdit;
MButton: TSpeedButton;
MLabel: TLabel;
Label4: TLabel;
Label_: TLabel;
Label6: TLabel;
Label7: TLabel;
Label_2: TLabel;
Label_1: TLabel;
procedure
TimeTimerTimer(Sender: TObject);
procedure
FormCreate(Sender: TObject);
procedure
N1Click(Sender: TObject);
procedure
N2Click(Sender: TObject);
procedure
Edit1Change(Sender: TObject);
procedure
FormClose(Sender: TObject; var
Action: TCloseAction);
procedure
RadioGroupClick(Sender: TObject);
procedure
MButtonClick(Sender: TObject);
private
F : TIniFile;
Edits : array
of
TEdit;
procedure
InitMetrix;
procedure
LoadSetings;
procedure
SaveSetings;
{ Private declarations }
public
{ Public declarations }
end
;
const
SetingsFile='Metrix.ini'; // файл опцій програми
IniFile='Metrix.inf'; // файл параметрів переводу систем числення
GMTFile='GMTs.inf' ; // файл з інформацією про часові зони
FormatString ='Число в %Sковій системі числення';
var
MainForm: TMainForm;
implementation
{$R *.dfm}
procedure
TMainForm.FormCreate(Sender: TObject);
begin
InitMetrix;
ComboGMT.Items.Clear;
ComboGMT.Items.LoadFromFile(ExtractFilePath(Application.ExeName)+ GMTFile);
ComboGMT.ItemIndex:=1;
Edit1Change(Sender);
LoadSetings;
end
;
// Ініціалізація, завантаження параметрів
procedure
TMainForm.InitMetrix;
begin
try
F := TIniFile.Create(ExtractFilePath(Application.ExeName)+IniFile);
except
on
Exception do
Close;
end
;
f.ReadSections( RadioGroup.Items );
RadioGroup.Items.Delete(0);
RadioGroup.ItemIndex:=0;
end
;
// Завантаження заголовків одиниць вимірювання в RadioGroup.
procedure
TMainForm.TimeTimerTimer(Sender: TObject);
var
Finded : TDateTime;
begin
CurTime.Caption:=TimeToStr(Now);
try
if
ComboGMT.Text[5]='+' then
Finded:= Now + StrToTime(copy(ComboGMT.Text,6,5)) - StrToTime('02:00')
else
Finded:= Now - StrToTime(copy(ComboGMT.Text,6,5)) - StrToTime('02:00');
FindedTime.Caption:=TimeToStr(Finded);
except
end
;
end
;
// Порахунок і відображення часу
procedure
TMainForm.N1Click(Sender: TObject);
var
reg : TRegistry;
ts : TStrings;
i : integer;
s : string[150];
begin
TimeTimer.Enabled := False;
ComboGMT.Items.Clear;
reg := TRegistry.Create;
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.OpenKey( 'SOFTWARE\Microsoft\Windows NT\CurrentVersion\Time Zones', false);
if
reg.HasSubKeys then
begin
ts := TStringList.Create;
reg.GetKeyNames(ts);
reg.CloseKey;
for
i := 0 to
ts.Count -1 do
begin
reg.OpenKey('SOFTWARE\Microsoft\Windows NT\CurrentVersion\Time Zones\' + ts.Strings[i], false);
s:= reg.ReadString('Display')+' ('+reg.ReadString('Std');
s:=Copy(s,0,length(s)-7);
ComboGMT.Items.Add(s+')');
reg.CloseKey;
end
;
ts.Free;
ComboGMT.ItemIndex:=1;
ComboGMT.Items.SaveToFile(ExtractFilePath(Application.ExeName)+ 'GMTs.inf');
TimeTimer.Enabled := True;
end
else
reg.CloseKey;
reg.free; end
;
procedure
TMainForm.N2Click(Sender: TObject);
begin
ComboGMT.Items.Clear;
ComboGMT.Items.LoadFromFile(ExtractFilePath(Application.ExeName)+ 'GMTs_default.inf');
ComboGMT.Items.SaveToFile(ExtractFilePath(Application.ExeName)+ 'GMTs.inf');
end
;
// виклик контекстного меню – поновлення інформації про часові пояси
procedure
TMainForm.Edit1Change(Sender: TObject);
Var
NumStr : String;
Radix : LongInt;
ResultStr : String;
NewRadix : LongInt;
begin
try
NumStr := Edit1.Text;
Radix := Base1.Value;
NewRadix:= Base2.Value;
RadixStr(NumStr,Radix,NewRadix,ResultStr);
Edit2.Text := Copy( ResultStr,0,length(ResultStr));
Label_1.Caption:=Format(FormatString, [UkrRecognizeAmount(Base1.Value)]);
Label_2.Caption:=Format(FormatString, [UkrRecognizeAmount(Base2.Value)]);
except
end
;
//Beep;
end
;
// викликається на зміну числа або основи для переводу
procedure
TMainForm.FormClose(Sender: TObject; var
Action: TCloseAction);
begin
try
F.Free;
except
end
;
SaveSetings;
end
;
// при виході закриває файли і зберігає установки
procedure
TMainForm.RadioGroupClick(Sender: TObject);
var
MItems : TStrings; // Назви величин
i, t : integer;
begin
MItems := TStringList.Create;
Panel.Free; // знищення попередньої панелі
Panel := TPanel.Create(TabSheet1);// і створення нової
Panel.Parent := TabSheet1;
Panel.Align := alClient;
Panel.Caption:='';
Panel.BevelInner := bvRaised;
Panel.BevelOuter :=bvLowered;
try
F.ReadSection(RadioGroup.Items[RadioGroup.ItemIndex], MItems);
t:= round((210-MItems.Count*20)/2); // центрування
SetLength(Edits, MItems.Count); // зміна розміру масиву Edits for
i := 0 to
MItems.Count-1 do
begin
Mlabel := TLabel.Create(Panel);
Mlabel.Parent := Panel;
Mlabel.Left:=10;
Mlabel.Top := i*20+t+1;
Mlabel.Caption := MItems[i]; // відображення назв величин
MLabel.Hint:=MItems[i];
MEdit := TEdit.Create(Panel);
MEdit.Parent := Panel;
MEdit.Left := 140;
MEdit.Top := i*20+t;
MEdit.Height:=18;
MEdit.Width :=100;
MEdit.Hint:=MItems[i]; // створення Edits для редагування значень
Edits[i]:=MEdit;
MButton := TSpeedButton.Create(Panel);
MButton.Parent := Panel;
MButton.Left := 243;
MButton.Top := i*20+t;
MButton.Height:= 20;
MButton.Width := 85;
MButton.Caption:='Перерахунок'; // створення кнопок
MButton.Flat := True;
MButton.Hint:=MItems[i];
MButton.OnClick := MButtonClick;
end
;
finally
MItems.Free;
end
;
StatusBar1.SimpleText:= RadioGroup.Items[RadioGroup.ItemIndex];
end
;
// знищує попередню панель і створює нову відповідно до вибраного пункту
procedure
TMainForm.MButtonClick(Sender: TObject);
// Реакція на кнопку „Перерахунок”
var
i, j : integer;
val, Y, X, Etalon : Extended;
begin
val:=1;
for
i := 0 to
High(Edits) do
begin
if
Edits[i].Hint=( Sender as
TSpeedButton).Hint then
begin
try
// знайдено Edits[i] до якого викликано процедуру
if
Edits[i].Text<>'' then
val := StrToFloat(Edits[i].Text)
else
begin
Edits[i].Text:='1'; val:=1; end
;
Break;
except
on
EConvertError do
ShowMessage('Невірнийформатчисла');
end
; // try
end
; //if
end
; //for
X := F.ReadFloat(RadioGroup.Items[RadioGroup.ItemIndex],
( Sender as
TSpeedButton).Hint, 1.0) ;
Etalon := val * X;
// Взяття введеного значення і приведення до „еталону”
for
i := 0 to
High(Edits) do
begin
if
Edits[i].Hint<>( Sender as
TSpeedButton).Hint then
begin
Y := Etalon / F.ReadFloat(RadioGroup.Items[RadioGroup.ItemIndex],
Edits[i].Hint , 1.0) ;
// знаходження вихідної величини і подальше її форматування
Edits[i].Text:=FloatToStr(Y);
if
(pos(',', Edits[i].Text)>0) and (pos('E', Edits[i].Text)=0) then
begin
for
j:= pos(',', Edits[i].Text)+1 to
Length(Edits[i].Text) do
if
(Edits[i].Text[j]<>'0') then
break;
Edits[i].Text:=copy( Edits[i].Text,0,j-1+5);
// число значущих цифр після коми
end
;
end
; //if
end
; //for
Beep; // звук
end
;
// перерахунок величин
procedure
TMainForm.LoadSetings;
var
Setings : TIniFile;
begin
Setings := TiniFile.Create(ExtractFilePath(Application.ExeName)+SetingsFile);
try
MainForm.Left:= Setings.ReadInteger('Window Setings', 'Left', MainForm.Left);
MainForm.Top := Setings.ReadInteger('Window Setings', 'Top', MainForm.Top);
PageControl.ActivePageIndex:= Setings.ReadInteger('Setings', 'ActivePage', PageControl.ActivePageIndex);
RadioGroup.ItemIndex:= Setings.ReadInteger('Metrix Setings', 'Metix_Index', RadioGroup.ItemIndex);
ComboGMT.ItemIndex:= Setings.ReadInteger('Time Setings', 'GMT_Index', ComboGMT.ItemIndex);
Base1.Value:= Setings.ReadInteger('Base Setings', 'Base1', Base1.Value);
Base2.Value:= Setings.ReadInteger('Base Setings', 'Base2', Base2.Value);
finally
Setings.Free;
end
;
end
;
// завантаження параметрів з файлу
procedure
TMainForm.SaveSetings;
var
Setings : TIniFile;
begin
Setings := TiniFile.Create(ExtractFilePath(Application.ExeName)+SetingsFile);
try
Setings.WriteInteger('Window Setings', 'Left', MainForm.Left);
Setings.WriteInteger('Window Setings', 'Top', MainForm.Top);
Setings.WriteInteger('Setings', 'ActivePage', PageControl.ActivePageIndex);
Setings.WriteInteger('Metrix Setings', 'Metix_Index', RadioGroup.ItemIndex);
Setings.WriteInteger('Time Setings', 'GMT_Index', ComboGMT.ItemIndex);
Setings.WriteInteger('Base Setings', 'Base1', Base1.Value);
Setings.WriteInteger('Base Setings', 'Base2', Base2.Value);
Setings.UpdateFile;
finally
Setings.Free;
end
;
end
;
// збереженняння параметрів до файлу
end
.
2)unit Bases;
interface
// переведення числа з однією основою до іншої
procedure
RadixStr(NumStr : String;
Radix : LongInt;
NewRadix : LongInt;
var
ResultStr : String);
implementation
uses
SysUtils;
procedure
RadixStr(NumStr : String; // введене число
Radix : LongInt; // основа введеного числа
NewRadix : LongInt; // основа шуканого числа
var
ResultStr : String);// шукане число
var
RadixChar : String;
v : Int64; //111111111111111111111111111111111111111111111111111111111111111
i : LongInt;
p : Int64;
begin
if
((Abs(Radix) < 2) or (Abs(Radix) > 36)) then
Exit;
if
((Abs(NewRadix) < 2) or (Abs(NewRadix) > 36)) then
Exit;
RadixChar:='0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ';
ResultStr:= Copy( NumStr, 0, Length(NumStr));
v := 0;
UpperCase(ResultStr); // перевірка та задання початкових параметрів
for
i := 1 to
(Length(ResultStr)) do
begin
p := Pos(ResultStr[i] , RadixChar) - 1;
if
((p < 0) or (p >= Abs(Radix))) then
begin
Exit; // Перевірка правильності вводу
end
;
v := v * Abs(Radix) + p; // підрахунок числа в десятковому форматі
if
(v < 0 ) then
begin
ResultStr:='Помилкавводузначенняперевищує 64^2 = '+IntToStr(High(Int64))+'(10)';
exit;
end
;
end
;
if
v = 0 then
begin
ResultStr :='0';
exit;
end
else
begin
i:=1;
repeat
SetLength(ResultStr,i);
ResultStr[i] := RadixChar[(v mod NewRadix)+1];
v := v div NewRadix;
Inc(i) // формування стрічки-числа з вихідною основою
until v = 0;
SetLength(ResultStr,i-1);
p := Length(ResultStr);
RadixChar:=Copy(ResultStr,0,p);
for
i := 1 to
p do
ResultStr[i]:= RadixChar[p-i+1];
// обернення стрічки
end
;
end
;
end
.
3) unit UkrRecog;
{by Andrew Tkachenko, [email protected], Ukraine}
// Перевід цілого числа в словесну форму
interface
Const
UkrMonthString : array
[1..12] of
string[9] = (
'січня', 'лютого', 'березня', 'квiтня', 'травня',
'червня', 'липня', 'серпня', 'вересня', 'жовтня',
'листопада','грудня');
Function
UkrRecognizeAmount(Amount:real):string;
implementation
Uses
Sysutils;
Function
UkrRecognizeAmount(Amount:real):string;
{Распознаетсячисло <= 999 999 999 999.99*}
const
suffBL:string=' ';
suffDCT:string='дцять';
suffNA:string='надцять ';
suffDCM:string='десят';
suffMZ:string='ь';
sot:string='сот';
st:string='ст';
aa:string='а';
ee:string='и'; {e}
ii:string='і'; {и}
oo:string='о';
ov:string='ів';{ов}
C2:string='дв';
C3:string='тpи';
C4:string='чотир';
C5:string='п''ят';
C6:string='шіст';
C7:string='сім';
C8:string='вісім';
C9:string='дев''ят';
var
i:byte;
sAmount,sdInt,sdDec:string;
IsMln,IsTha{,IsDcm},IsRange1019:boolean;
currNum,endMlx,sResult:string;
begin
if
(amount<0)or(amount>999999999999.99) then
begin
Result:='<<<< Помилкавдіапазоні >>>>';
Exit;
end
;
if
amount=0 then
begin
Result:='Нуль';
Exit;
end
;
STR(Amount:16:2,sAmount);
sdInt:=Copy(sAmount,1,13);
sdDec:=Copy(sAmount,15,2);
IsMln:=false;
IsTha:=false;
IsRange1019:=false;
sResult:='';
for
i:=1 to
13 do
begin
currNum:=Copy(sdInt,i,1);
if
currNum<>suffBL then
begin
case i of
5,6, 7:if
currNum<>'0' then
IsMln:=true;
8,9,10:if
currNum<>'0' then
IsTha:=true;
end
;
if
i IN
[2,5,8,11] then
{сотні}
begin
if
currNum='1' then
sResult:=sResult+st+oo+suffBL;
if
currNum='2' then
sResult:=sResult+C2+ii+st+ii+suffBL;
if
currNum='3' then
sResult:=sResult+C3+st+aa+suffBL;
if
currNum='4' then
sResult:=sResult+C4+ee+st+aa+suffBL;
if
currNum='5' then
sResult:=sResult+C5+sot+suffBL;
if
currNum='6' then
sResult:=sResult+C6+sot+suffBL;
if
currNum='7' then
sResult:=sResult+C7+sot+suffBL;
if
currNum='8' then
sResult:=sResult+C8+sot+suffBL;
if
currNum='9' then
sResult:=sResult+C9+sot+suffBL;
end
;
if
i IN
[3,6,9,12] then
{десятки}
begin
if
currNum='1' then
IsRange1019:=true;
if
currNum='2' then
sResult:=sResult+C2+aa+suffDCT+suffBL;
if
currNum='3' then
sResult:=sResult+C3+suffDCT+suffBL;
if
currNum='4' then
sResult:=sResult+'соpок ';
if
currNum='5' then
sResult:=sResult+C5+suffMZ+suffDCM+suffBL;
if
currNum='6' then
sResult:=sResult+C6+suffMZ+suffDCM+suffBL;
if
currNum='7' then
sResult:=sResult+C7+suffMZ+suffDCM+suffBL;
if
currNum='8' then
sResult:=sResult+C8+suffMZ+suffDCM+suffBL;
if
currNum='9' then
sResult:=sResult+'дев''ян'+oo+st+oo+suffBL;
end
;
if
i in
[4,7,10,13] then
{одиниці}
begin
if
(currNum='0') then
if
IsRange1019 then
sResult:=sResult+suffDCM+suffMZ+suffBL;
if
(currNum='1') then
begin
if
(i=13)and(not IsRange1019) then
sResult:=sResult+'один '
else
begin
if
(i=10)and(IsRange1019) then
sResult:=sResult+'оди'
else
if
(i=10)and(not IsRange1019) then
sResult:=sResult+'один '
else
sResult:=sResult+'один'{ин};
if
IsRange1019 and (i=13) then
sResult:=sResult+'адцять'+suffBL
else
if
IsRange1019 then
sResult:=sResult+suffNA
else
sResult:=sResult+suffBL;
end
;
end
;
if
(currNum='2') then
begin
sResult:=sResult+C2;
if
(i=10)and(IsRange1019=False) then
sResult:=sResult+ii
else
if
(i=10)or(IsRange1019) then
sResult:=sResult+aa
else
sResult:=sResult+{aa}ii;
if
IsRange1019 then
sResult:=sResult+suffNA
else
sResult:=sResult+suffBL;
end
;
if
(currNum='3') then
begin
sResult:=sResult+C3;
if
IsRange1019 then
sResult:=sResult+suffNA
else
sResult:=sResult+suffBL;
end
;
if
(currNum='4') then
begin
sResult:=sResult+C4;
if
IsRange1019 then
sResult:=sResult+suffNA
else
sResult:=sResult+ee+suffBL;
end
;
if
(currNum='5') then
begin
sResult:=sResult+C5;
if
IsRange1019 then
sResult:=sResult+suffNA
else
sResult:=sResult+suffMZ+suffBL;
end
;
if
(currNum='6') then
begin
sResult:=sResult+C6;
if
IsRange1019 then
sResult:=sResult+suffNA
else
sResult:=sResult+suffMZ+suffBL;
end
;
if
(currNum='7') then
begin
sResult:=sResult+C7;
if
IsRange1019 then
sResult:=sResult+suffNA
else
sResult:=sResult+suffBL;
end
;
if
(currNum='8') then
begin
sResult:=sResult+C8;
if
IsRange1019 then
sResult:=sResult+suffNA
else
sResult:=sResult+suffBL;
end
;
if
(currNum='9') then
begin
sResult:=sResult+C9;
if
IsRange1019 then
sResult:=sResult+suffNA
else
sResult:=sResult+suffMZ+suffBL;
end
;
end
;
endMlx:='';
case i of
4:begin
if
IsRange1019 then
endMlx:=ov+suffBL else
if
currNum='1' then
endMlx:=suffBL else
if
(currNum='2')or(currNum='3')or(currNum='4') then
endMlx:=aa+suffBL else
endMlx:=ov+suffBL;
sResult:=sResult+'мiльярд'+endMlx;
end
;
7:if
IsMln then
begin
if
IsRange1019 then
endMlx:=ov+suffBL else
if
currNum='1' then
endMlx:=suffBL else
if
(currNum='2')or(currNum='3')or(currNum='4') then
endMlx:=aa+suffBL else
endMlx:=ov+suffBL;
sResult:=sResult+'мiльйон'+endMlx;
end
;
10:if
IsTha then
begin
if
IsRange1019 then
endMlx:=suffBL else
if
currNum='1' then
endMlx:=aa+suffBL else
if
(currNum='2')or(currNum='3')or(currNum='4') then
endMlx:=ii+suffBL else
endMlx:=suffBL;
sResult:=sResult+'тисяч'+endMlx;
end
;
end
;{case}
if
i IN
[4,7,10,13] then
IsRange1019:=false;
end
;{IF
}
end
;{FOR
}
Result:= copy(sResult,0,length(sResult)-1);
if
Result[length(Result)]='ь' then
SetLength(Result, length(Result)-1);
end
;
end
.
|
