ВСТУП
Комп'ютери, спочатку створені для вузькоспеціалізованих військових завдань, були сприйняті як платформи з воістину безмежними можливостями. У той далекий час математики займалися виключно гіпотетичними машинами, які мали дуже віддалене відношення до дійсності. Втілені в металі, інженерні ідеї обігнали на десятиліття вперед навіть знаменитих математиків. Запропонована дискретна архітектура була досконала і існує до цих пір, привівши до розвитку відповідної дискретної математики, більшою частиною описує те, що інженери давно втілили в життя. Так з самого початку практичні комп'ютерні технології залишили позаду математичні моделі.
Дивовижне відставання нашої країни, в той час ми входили до СРСР, в області обчислювальної техніки, жорстка дисципліна, постійні репресії призвели до того, що субкультура програмістів, виникла в стінах лабораторій США і вже звідти поширилася на весь світ. Як наслідок, ця сфера більшою частиною американізоване, особливо у нас, на тлі масового використання американської, а не "рідний" програмно-апаратної бази.
Сучасний інформаційний достаток призводить до атрофування навички самостійного отримання необхідних знань. Парадоксально на перший погляд, але недолік літератури розвиває і тренує мізки куди краще, ніж її надлишок.
Існує два типи програмістів, кардинально відрізняються один від одного. Перший тип це якраз "творці", які створюють нове, їм цікаво вирішувати найскладніші завдання, деколи витрачаючи на це багато часу. Другий тип - комерційні програмісти. Комерційний програміст, якими б не були його нахили, має дуже мало шансів стати генієм своєї справи, навіть будучи професіоналом. Працюючи на замовлення, обмеженому жорсткими тимчасовими рамками, він просто не в змозі заглиблюватися в нетрі коду або ціною трьох безсонних ночей скорочувати вже до межі оптимізовану програму на один байт.
У 60-х роках темпи розвитку обчислювальної техніки істотно відрізнялися від сьогоднішніх і на розробку ПО відводилося достатньо багато часу, так що пізнавальні експерименти не були недосяжною розкішшю. Оптимізація тоді була не тільки показником "крутості" програміста, але і необхідністю. При існували обмеження пам'яті, швидкості і можливостей периферії на тій техніці могли програмувати лише генії.
Мова визначає стиль мислення, тому мислення програміста поступово перетворюється під впливом використовуваної архітектури в образ мислення її творця.
До кінця шістдесятих років програмістів можна було зіставити з античними майстрами. Програмування асоціювалося з вищою професіоналізмом і що з нього культурою поведінки. Картина до кінця шістдесятих років була наступна - в умовах повної замкнутості і відсутності будь-якого зв'язку між комп'ютерними центрами країни кожен програміст повинен був отримати необхідні йому знання САМ. Це був довгий і тернистий шлях. Інформатика тоді лише зароджувалася, і навіть ефективні алгоритми і прийоми ще не були канонізовані і широко відомі. Як би не був очевидний деревоподібний пошук або лінійна сортування, але до них треба було додуматися самому і, - на жаль, - далеко не один раз. Як наслідок, всі алгоритми десятки разів відкривалися заново, перш ніж інформація про них встигала дійти до адресатів "природним" шляхом - через книги та університети.
Кінець 60-х - початок 70-х років - роки безперервного вдосконалення технологій програмування й апаратного забезпечення. Росла обчислювальна потужність ЕОМ, ємність периферійних накопичувачів і швидкодія центрального процесора.
Сі (мова програмування) став першим цеглою у фундаменті швидких засобів проектування, на якому сьогодні побудовані такі чисто візуальні системи як Visual Basic і Delphi.
На даний момент за вікном століття інформаційних технологій, революцій в обчислювальній техніці та програмному забезпеченні. Комп'ютер швидко увійшов в життя практично кожної людини. Зараз комп'ютер це не розкіш, а необхідна річ майже у кожній установі та будинку, для декого це навіть засіб існування. Сьогодні можна творити і створювати нове, хоча це і здається дуже складним, адже всі вже винайдено, але варто лише спробувати і тоді розумієш, що вся суть в процесі творчості, створення нових програм.
Зрозуміло, що професіоналами не народжуються, ними стають.
1. Загальна частина
1.1 Мета і аналіз використання розробки
Потреби, інтереси та ідеали, взагалі установки і тенденції особистості визначають, що хоче людина, його здібності - що він може. Але залишається ще питання про те, що ж він є - які основні, стрижневі, найбільш істотні властивості людини, які визначають його загальний вигляд і його поведінку. Це питання про характер. Тісно пов'язаний зі спрямованістю особистості, характер людини разом з тим має своєю передумовою його темперамент. Темперамент і характер відмінні і разом з тим тісно пов'язані один з одним. Їх наукове вивчення йшло не співпадаючими, але неодноразово перехресними шляхами. Коли говорять про темперамент, то мають на увазі багато психічних відмінності між людьми - розходження по глибині, інтенсивності, стійкості емоцій, емоційної вразливості, темпу, енергійності дій і інші динамічні, індивідуально-стійкі особливості психічного життя, поведінки та діяльності. Тим не менш, темперамент і сьогодні залишається багато в чому спірною і невирішеною проблемою. Однак при всьому різноманітті підходів до проблеми, вчені і практики визнають, що темперамент - біологічний фундамент, природна основа, на якому формується особистість як соціальна істота. Тобто темперамент відбиває динамічні аспекти поводження, переважно уродженого характеру, тому властивості темпераменту найбільш стійкі і постійні в порівнянні з іншими психічними особливостями людини, і однаково виявляючись у різноманітній діяльності незалежно від її змісту, цілей, мотивів, залишаються постійними і в зрілому віці і у взаємозв'язку характеризують тип темпераменту. Не можна знайти двох людей, однакових за своїм психічним властивостям. Кожна людина відрізняється від інших багатьма особливостями, єдність яких утворює його індивідуальність.
У психологічних відмінностях між людьми істотне місце займають так звані динамічні особливості психіки. Як відомо, люди помітно відрізняються один від одного по силі відгуку на навколишні впливу, за що проявляється ними енергії, за темпом, швидкості психічних процесів. Такого роду особливості істотним чином характеризують психічну активність індивіда, його моторику, емоційні прояви. Так, для однієї людини більш характерна пасивність, для іншого - невпинна ініціативність, одному властива легкість пробудження почуттів, а іншому - холоднокровність, одного відрізняють різкі жести, виразна міміка, іншого - стриманість рухів, дуже мала рухливість особи. Темпераменту називають сукупність властивостей, які характеризують динамічні особливості протікання психічних процесів і поведінки людини, їх силу, швидкість, виникнення, припинення і зміна. Властивості темпераменту до числа власне особистісних якостей людини можна віднести лише умовно, швидше становлять індивідуальна його особливості, так як в основному біологічно обумовлені і є вродженими. Тим не менш, темперамент впливає на формування характеру і поведінки людини, іноді визначає його вчинки, його індивідуальність, тому повністю відокремити темперамент від особистості не можна. Він виступає як би сполучною ланкою між організмом, особистістю і пізнавальними процесами.
І. Кант поділяв темпераменти людини (прояви темпераменту можна помітити й у вищих тварин) на два типи:
темпераменти почуття і темпераменти діяльності.
У цілому ж можна встановити лише чотири простих темпераменту:
Ø Сангвінічний
Ø Меланхолійний
Ø Холеричний
Ø Флегматический
З цих чотирьох типів темпераменту до темпераментами почуття ставляться сангвінічний і його протилежність - меланхолійний. Перший характеризується тим, що при ньому відчуття виникають в нервовій системі й у свідомості людини досить швидко і зовні виявляються сильно, але внутрішньо бувають недостатньо глибокими і тривалими. При меланхолійному темперамент зовнішні прояви відчуттів бувають менш яскравими, але зате внутрішньо достатньо глибокими і тривалими.
Сангвінічний темперамент діяльності характеризує людину вельми веселої вдачі. Він представляється оптимістом, повним надій, гумористом, жартівником, баляндрасником. Він швидко запалюється, але так само швидко остигає, втрачає інтерес до того, що зовсім ще недавно його дуже хвилювало і притягувало до себе. Сангвінік багато обіцяє, але не завжди стримує свої обіцянки. Він легко і з задоволенням вступає в контакти з незнайомими людьми, є хорошим співрозмовником, всі люди йому друзі. Його відрізняє доброта, готовність прийти на допомогу. Напружена розумова чи фізична робота його швидко стомлює.
Меланхолійний темперамент діяльності, за Кантом, властивий людині протилежної, в основному похмурого настрою. Така людина зазвичай живе складною і напруженою внутрішнім життям, надає великого значення всьому, що його стосується, має підвищеною тривожністю і вразливою душею. Така людина часто буває стриманим і особливо контролює себе при видачі обіцянок. Він ніколи не обіцяє того, що не в змозі зробити, дуже страждає від того, що не може виконати дану обіцянку, навіть в тому випадку, якщо його виконання безпосередньо від нього самого мало залежить.
Холеричний темперамент діяльності характеризує запального людини. Про таку людину говорять, що він занадто гарячий, нестриманий. Разом з тим такий індивід швидко остигає і заспокоюється, якщо йому поступаються, йдуть назустріч. Його рухи поривчасті, але нетривалі.
Флегматичний темперамент діяльності відноситься до холоднокровному людині. Він висловлює собою швидше схильність до бездіяльності, ніж до напруженої, активної роботи. Така людина повільно приходить у стан збудження, але зате надовго. Це замінює йому повільність входження в роботу.
Метою даного курсового проекту є створення програми психологічного діагностування на виявлення типу темпераменту.
1.2 Характеристика існуючої ОС
Програма даного курсового проекту розроблялася в операційній системі Windows XP, на мові Delphi версії 7.0.Історія Windows бере свій початок в 1986 році, коли з'явилася перша версія системи. Вона являла собою набір програм, що розширюють можливості існуючих операційних систем для більшої зручності в роботі. Через кілька років вийшла друга версія, але особливої популярності система Windows не завоювала. Проте в 1990 році вийшла нова версія - Windows 3.0, яка стала використовуватися на багатьох персональних комп'ютерах. Популярність нової версії Windows пояснювалася кількома причинами. Графічний інтерфейс дозволяє працювати з об'єктами вашого комп'ютера не за допомогою команд, а за допомогою наочних і зрозумілих дій над значками, які позначають ці об'єкти. Можливість одночасної роботи з кількома програмами значно підвищила зручність і ефективність роботи. Крім того, зручність і легкість написання програм для Windows призвели до появи дедалі більше різноманітних програм, що працюють під управлінням Windows. Нарешті, краще було організовано роботу з різноманітним комп'ютерним обладнанням, що також визначило популярність системи. Подальші версії Windows були спрямовані на підвищення надійності, а також підтримку засобів мультимедіа (версія 3.1) і роботу в комп'ютерних мережах (версія 3.11).
Паралельно з розробкою Windows компанія Microsoft в 1988 році почала роботу над новою операційною системою, названої Windows NT. Перед новою системою були поставлені завдання істотного підвищення надійності та ефективної підтримки мережевої роботи. При цьому інтерфейс системи не повинен був відрізнятися від інтерфейсу Windows 3.0. Цікаво, що найпоширенішою версією Windows NT також стала третя версія. У 1992 році з'явилася версія Windows NT 3.0, а в 1994 році - Windows NT 3.5.
Процес розвитку операційних систем не стоїть на місці, і в 1995 з'явилася система Windows 95, що стала новим етапом в історії Windows. У порівнянні з Windows 3.1 значно змінився інтерфейс, зросла швидкість роботи програм. Однією з нових можливостей Windows 95 була можливість автоматичної настройки додаткового обладнання комп'ютера для роботи без конфліктів один з одним. Іншою важливою особливістю системи стала можливість роботи з Інтернетом без використання додаткових програм.
Інтерфейс Windows 95 став основним для всього сімейства Windows, і в 1996 з'являється перероблена версія Windows NT 4.0, яка має такий же інтерфейс, як і Windows 95. Продовженням розвитку Windows 95 стала операційна система, що з'явилася в 1998 році. При збереженому інтерфейсі внутрішня структура була значно перероблена. Багато уваги було приділено роботі з Інтернетом, а також підтримці сучасних протоколів передачі інформації - стандартів, що забезпечують обмін інформацією між різними пристроями. Крім того, особливістю Windows 98 є можливість роботи з декількома моніторами.
Наступним етапом у розвитку Windows стала поява Windows 2000 і Windows Me (Millennium Edition - редакція тисячоліття). Система Windows 2000 розроблена на основі Windows NT і успадкувала від неї високу надійність і захищеність інформації від стороннього втручання. Операційна система Windows Me стала спадкоємицею Windows 98, але придбала багато нових можливостей. Перш за все, це покращена робота із засобами мультимедіа, можливість записувати не тільки аудіо, але і відеоінформацію, потужні засоби відновлення інформації після збоїв і багато іншого. Поступово різниця між різними системами Windows стирається, і нова операційна система Windows XP призначена для заміни як Windows 2000, так і Windows Me.
Операційна система Microsoft Windows XP, створена на основі технології NT і є прямою спадкоємицею системи Windows 2000. Разом з тим, всі кращі нововведення, включені в Windows Me, можна виявити і в Windows XP. При збереженні високих показників надійності, безпеки та швидкодії, система стала більш простою в освоєнні, у ній з'явилося безліч засобів, призначених для індивідуальних домашніх користувачів.
Система поставляється в декількох варіантах, орієнтованих на різні особливості застосування. Версія Microsoft Windows XP Home Edition призначена для індивідуальних користувачів, найчастіше працюють на домашньому комп'ютері. У цій версії особливий акцент зроблено на роботу з малюнками, аудіо та відео. Версія Microsoft Windows XP Professional призначена, як зрозуміло з назви, для професіоналів. Ця версія є найбільш часто використовується в організаціях. Якщо ж будинку виполняnm складні роботи зі створення і редагування зображень, моделювання та конструювання, або будь-які інші складні роботи, то ця версія підійде і для домашнього комп'ютера. Версія Microsoft Windows XP Server призначена для установки на сервері - потужному комп'ютері, що забезпечує роботу безлічі користувачів у комп'ютерній мережі.
У версії Windows XP сильно змінився зовнішній вигляд системи. Кнопки, піктограми, панелі тепер виглядають трохи інакше. Навіть головне меню Windows змінилося. Зміни інтерфейсу найзначніші після переходу з Windows 3.1 на Windows 95. Особливо слід відзначити роботу програм в режимі сумісності з попередніми версіями Windows. Можна працювати з програмою, яка написана для Windows 95, і не працює в Windows 2000. Всі версії Windows XP мають безліч нововведень. Підтримується значно більше різноманітних пристроїв. Система дозволяє легко і зручно обробляти відеофільми, фотографії, малюнки, музику та пісні. Тепер за допомогою Windows XP будь-хто зможе побудувати домашню мережу на основі двох-трьох комп'ютерів, забезпечивши спільне використання файлів, папок, принтера, факсу і доступу в Інтернет.
При роботі з Windows XP для запису інформації на записувані й перезаписувані компакт-диски не буде потрібно встановлювати додаткові програми. Записати компакт-диск можна прямо з провідника Windows.
Корисним компонентом системи є редактор відеофільмів. Тепер можна виконати професійний нелінійний монтаж своїх аматорських фільмів. Істотно легше стало працювати з цифровими фотокамерами і сканерамі.Не потрібно ніякої додаткової програми, щоб ввести фотографію в комп'ютер, незначно перетворити її та роздрукувати на принтері. Універсальний програвач аудіо і відео тепер підтримує більше форматів і дозволяє змінити свій зовнішній вигляд. Також можна створювати звукові файли в популярному форматі МРЗ. Універсальний програвач підтримує також відтворення цифрових відеодисків (DVD-дисків), що дозволить насолодитися найвищою якістю зображення і звуку при перегляді сучасних фільмів. Для розваг в Windows XP включено кілька нових ігор, частина з яких дозволяють грати в Інтернеті.
Комп'ютери, спочатку створені для вузькоспеціалізованих військових завдань, були сприйняті як платформи з воістину безмежними можливостями. У той далекий час математики займалися виключно гіпотетичними машинами, які мали дуже віддалене відношення до дійсності. Втілені в металі, інженерні ідеї обігнали на десятиліття вперед навіть знаменитих математиків. Запропонована дискретна архітектура була досконала і існує до цих пір, привівши до розвитку відповідної дискретної математики, більшою частиною описує те, що інженери давно втілили в життя. Так з самого початку практичні комп'ютерні технології залишили позаду математичні моделі.
Дивовижне відставання нашої країни, в той час ми входили до СРСР, в області обчислювальної техніки, жорстка дисципліна, постійні репресії призвели до того, що субкультура програмістів, виникла в стінах лабораторій США і вже звідти поширилася на весь світ. Як наслідок, ця сфера більшою частиною американізоване, особливо у нас, на тлі масового використання американської, а не "рідний" програмно-апаратної бази.
Сучасний інформаційний достаток призводить до атрофування навички самостійного отримання необхідних знань. Парадоксально на перший погляд, але недолік літератури розвиває і тренує мізки куди краще, ніж її надлишок.
Існує два типи програмістів, кардинально відрізняються один від одного. Перший тип це якраз "творці", які створюють нове, їм цікаво вирішувати найскладніші завдання, деколи витрачаючи на це багато часу. Другий тип - комерційні програмісти. Комерційний програміст, якими б не були його нахили, має дуже мало шансів стати генієм своєї справи, навіть будучи професіоналом. Працюючи на замовлення, обмеженому жорсткими тимчасовими рамками, він просто не в змозі заглиблюватися в нетрі коду або ціною трьох безсонних ночей скорочувати вже до межі оптимізовану програму на один байт.
У 60-х роках темпи розвитку обчислювальної техніки істотно відрізнялися від сьогоднішніх і на розробку ПО відводилося достатньо багато часу, так що пізнавальні експерименти не були недосяжною розкішшю. Оптимізація тоді була не тільки показником "крутості" програміста, але і необхідністю. При існували обмеження пам'яті, швидкості і можливостей периферії на тій техніці могли програмувати лише генії.
Мова визначає стиль мислення, тому мислення програміста поступово перетворюється під впливом використовуваної архітектури в образ мислення її творця.
До кінця шістдесятих років програмістів можна було зіставити з античними майстрами. Програмування асоціювалося з вищою професіоналізмом і що з нього культурою поведінки. Картина до кінця шістдесятих років була наступна - в умовах повної замкнутості і відсутності будь-якого зв'язку між комп'ютерними центрами країни кожен програміст повинен був отримати необхідні йому знання САМ. Це був довгий і тернистий шлях. Інформатика тоді лише зароджувалася, і навіть ефективні алгоритми і прийоми ще не були канонізовані і широко відомі. Як би не був очевидний деревоподібний пошук або лінійна сортування, але до них треба було додуматися самому і, - на жаль, - далеко не один раз. Як наслідок, всі алгоритми десятки разів відкривалися заново, перш ніж інформація про них встигала дійти до адресатів "природним" шляхом - через книги та університети.
Кінець 60-х - початок 70-х років - роки безперервного вдосконалення технологій програмування й апаратного забезпечення. Росла обчислювальна потужність ЕОМ, ємність периферійних накопичувачів і швидкодія центрального процесора.
Сі (мова програмування) став першим цеглою у фундаменті швидких засобів проектування, на якому сьогодні побудовані такі чисто візуальні системи як Visual Basic і Delphi.
На даний момент за вікном століття інформаційних технологій, революцій в обчислювальній техніці та програмному забезпеченні. Комп'ютер швидко увійшов в життя практично кожної людини. Зараз комп'ютер це не розкіш, а необхідна річ майже у кожній установі та будинку, для декого це навіть засіб існування. Сьогодні можна творити і створювати нове, хоча це і здається дуже складним, адже всі вже винайдено, але варто лише спробувати і тоді розумієш, що вся суть в процесі творчості, створення нових програм.
Зрозуміло, що професіоналами не народжуються, ними стають.
1. Загальна частина
1.1 Мета і аналіз використання розробки
Потреби, інтереси та ідеали, взагалі установки і тенденції особистості визначають, що хоче людина, його здібності - що він може. Але залишається ще питання про те, що ж він є - які основні, стрижневі, найбільш істотні властивості людини, які визначають його загальний вигляд і його поведінку. Це питання про характер. Тісно пов'язаний зі спрямованістю особистості, характер людини разом з тим має своєю передумовою його темперамент. Темперамент і характер відмінні і разом з тим тісно пов'язані один з одним. Їх наукове вивчення йшло не співпадаючими, але неодноразово перехресними шляхами. Коли говорять про темперамент, то мають на увазі багато психічних відмінності між людьми - розходження по глибині, інтенсивності, стійкості емоцій, емоційної вразливості, темпу, енергійності дій і інші динамічні, індивідуально-стійкі особливості психічного життя, поведінки та діяльності. Тим не менш, темперамент і сьогодні залишається багато в чому спірною і невирішеною проблемою. Однак при всьому різноманітті підходів до проблеми, вчені і практики визнають, що темперамент - біологічний фундамент, природна основа, на якому формується особистість як соціальна істота. Тобто темперамент відбиває динамічні аспекти поводження, переважно уродженого характеру, тому властивості темпераменту найбільш стійкі і постійні в порівнянні з іншими психічними особливостями людини, і однаково виявляючись у різноманітній діяльності незалежно від її змісту, цілей, мотивів, залишаються постійними і в зрілому віці і у взаємозв'язку характеризують тип темпераменту. Не можна знайти двох людей, однакових за своїм психічним властивостям. Кожна людина відрізняється від інших багатьма особливостями, єдність яких утворює його індивідуальність.
У психологічних відмінностях між людьми істотне місце займають так звані динамічні особливості психіки. Як відомо, люди помітно відрізняються один від одного по силі відгуку на навколишні впливу, за що проявляється ними енергії, за темпом, швидкості психічних процесів. Такого роду особливості істотним чином характеризують психічну активність індивіда, його моторику, емоційні прояви. Так, для однієї людини більш характерна пасивність, для іншого - невпинна ініціативність, одному властива легкість пробудження почуттів, а іншому - холоднокровність, одного відрізняють різкі жести, виразна міміка, іншого - стриманість рухів, дуже мала рухливість особи. Темпераменту називають сукупність властивостей, які характеризують динамічні особливості протікання психічних процесів і поведінки людини, їх силу, швидкість, виникнення, припинення і зміна. Властивості темпераменту до числа власне особистісних якостей людини можна віднести лише умовно, швидше становлять індивідуальна його особливості, так як в основному біологічно обумовлені і є вродженими. Тим не менш, темперамент впливає на формування характеру і поведінки людини, іноді визначає його вчинки, його індивідуальність, тому повністю відокремити темперамент від особистості не можна. Він виступає як би сполучною ланкою між організмом, особистістю і пізнавальними процесами.
І. Кант поділяв темпераменти людини (прояви темпераменту можна помітити й у вищих тварин) на два типи:
темпераменти почуття і темпераменти діяльності.
У цілому ж можна встановити лише чотири простих темпераменту:
Ø Сангвінічний
Ø Меланхолійний
Ø Холеричний
Ø Флегматический
З цих чотирьох типів темпераменту до темпераментами почуття ставляться сангвінічний і його протилежність - меланхолійний. Перший характеризується тим, що при ньому відчуття виникають в нервовій системі й у свідомості людини досить швидко і зовні виявляються сильно, але внутрішньо бувають недостатньо глибокими і тривалими. При меланхолійному темперамент зовнішні прояви відчуттів бувають менш яскравими, але зате внутрішньо достатньо глибокими і тривалими.
Сангвінічний темперамент діяльності характеризує людину вельми веселої вдачі. Він представляється оптимістом, повним надій, гумористом, жартівником, баляндрасником. Він швидко запалюється, але так само швидко остигає, втрачає інтерес до того, що зовсім ще недавно його дуже хвилювало і притягувало до себе. Сангвінік багато обіцяє, але не завжди стримує свої обіцянки. Він легко і з задоволенням вступає в контакти з незнайомими людьми, є хорошим співрозмовником, всі люди йому друзі. Його відрізняє доброта, готовність прийти на допомогу. Напружена розумова чи фізична робота його швидко стомлює.
Меланхолійний темперамент діяльності, за Кантом, властивий людині протилежної, в основному похмурого настрою. Така людина зазвичай живе складною і напруженою внутрішнім життям, надає великого значення всьому, що його стосується, має підвищеною тривожністю і вразливою душею. Така людина часто буває стриманим і особливо контролює себе при видачі обіцянок. Він ніколи не обіцяє того, що не в змозі зробити, дуже страждає від того, що не може виконати дану обіцянку, навіть в тому випадку, якщо його виконання безпосередньо від нього самого мало залежить.
Холеричний темперамент діяльності характеризує запального людини. Про таку людину говорять, що він занадто гарячий, нестриманий. Разом з тим такий індивід швидко остигає і заспокоюється, якщо йому поступаються, йдуть назустріч. Його рухи поривчасті, але нетривалі.
Флегматичний темперамент діяльності відноситься до холоднокровному людині. Він висловлює собою швидше схильність до бездіяльності, ніж до напруженої, активної роботи. Така людина повільно приходить у стан збудження, але зате надовго. Це замінює йому повільність входження в роботу.
Метою даного курсового проекту є створення програми психологічного діагностування на виявлення типу темпераменту.
1.2 Характеристика існуючої ОС
Програма даного курсового проекту розроблялася в операційній системі Windows XP, на мові Delphi версії 7.0.Історія Windows бере свій початок в 1986 році, коли з'явилася перша версія системи. Вона являла собою набір програм, що розширюють можливості існуючих операційних систем для більшої зручності в роботі. Через кілька років вийшла друга версія, але особливої популярності система Windows не завоювала. Проте в 1990 році вийшла нова версія - Windows 3.0, яка стала використовуватися на багатьох персональних комп'ютерах. Популярність нової версії Windows пояснювалася кількома причинами. Графічний інтерфейс дозволяє працювати з об'єктами вашого комп'ютера не за допомогою команд, а за допомогою наочних і зрозумілих дій над значками, які позначають ці об'єкти. Можливість одночасної роботи з кількома програмами значно підвищила зручність і ефективність роботи. Крім того, зручність і легкість написання програм для Windows призвели до появи дедалі більше різноманітних програм, що працюють під управлінням Windows. Нарешті, краще було організовано роботу з різноманітним комп'ютерним обладнанням, що також визначило популярність системи. Подальші версії Windows були спрямовані на підвищення надійності, а також підтримку засобів мультимедіа (версія 3.1) і роботу в комп'ютерних мережах (версія 3.11).
Паралельно з розробкою Windows компанія Microsoft в 1988 році почала роботу над новою операційною системою, названої Windows NT. Перед новою системою були поставлені завдання істотного підвищення надійності та ефективної підтримки мережевої роботи. При цьому інтерфейс системи не повинен був відрізнятися від інтерфейсу Windows 3.0. Цікаво, що найпоширенішою версією Windows NT також стала третя версія. У 1992 році з'явилася версія Windows NT 3.0, а в 1994 році - Windows NT 3.5.
Процес розвитку операційних систем не стоїть на місці, і в 1995 з'явилася система Windows 95, що стала новим етапом в історії Windows. У порівнянні з Windows 3.1 значно змінився інтерфейс, зросла швидкість роботи програм. Однією з нових можливостей Windows 95 була можливість автоматичної настройки додаткового обладнання комп'ютера для роботи без конфліктів один з одним. Іншою важливою особливістю системи стала можливість роботи з Інтернетом без використання додаткових програм.
Інтерфейс Windows 95 став основним для всього сімейства Windows, і в 1996 з'являється перероблена версія Windows NT 4.0, яка має такий же інтерфейс, як і Windows 95. Продовженням розвитку Windows 95 стала операційна система, що з'явилася в 1998 році. При збереженому інтерфейсі внутрішня структура була значно перероблена. Багато уваги було приділено роботі з Інтернетом, а також підтримці сучасних протоколів передачі інформації - стандартів, що забезпечують обмін інформацією між різними пристроями. Крім того, особливістю Windows 98 є можливість роботи з декількома моніторами.
Наступним етапом у розвитку Windows стала поява Windows 2000 і Windows Me (Millennium Edition - редакція тисячоліття). Система Windows 2000 розроблена на основі Windows NT і успадкувала від неї високу надійність і захищеність інформації від стороннього втручання. Операційна система Windows Me стала спадкоємицею Windows 98, але придбала багато нових можливостей. Перш за все, це покращена робота із засобами мультимедіа, можливість записувати не тільки аудіо, але і відеоінформацію, потужні засоби відновлення інформації після збоїв і багато іншого. Поступово різниця між різними системами Windows стирається, і нова операційна система Windows XP призначена для заміни як Windows 2000, так і Windows Me.
Операційна система Microsoft Windows XP, створена на основі технології NT і є прямою спадкоємицею системи Windows 2000. Разом з тим, всі кращі нововведення, включені в Windows Me, можна виявити і в Windows XP. При збереженні високих показників надійності, безпеки та швидкодії, система стала більш простою в освоєнні, у ній з'явилося безліч засобів, призначених для індивідуальних домашніх користувачів.
Система поставляється в декількох варіантах, орієнтованих на різні особливості застосування. Версія Microsoft Windows XP Home Edition призначена для індивідуальних користувачів, найчастіше працюють на домашньому комп'ютері. У цій версії особливий акцент зроблено на роботу з малюнками, аудіо та відео. Версія Microsoft Windows XP Professional призначена, як зрозуміло з назви, для професіоналів. Ця версія є найбільш часто використовується в організаціях. Якщо ж будинку виполняnm складні роботи зі створення і редагування зображень, моделювання та конструювання, або будь-які інші складні роботи, то ця версія підійде і для домашнього комп'ютера. Версія Microsoft Windows XP Server призначена для установки на сервері - потужному комп'ютері, що забезпечує роботу безлічі користувачів у комп'ютерній мережі.
У версії Windows XP сильно змінився зовнішній вигляд системи. Кнопки, піктограми, панелі тепер виглядають трохи інакше. Навіть головне меню Windows змінилося. Зміни інтерфейсу найзначніші після переходу з Windows 3.1 на Windows 95. Особливо слід відзначити роботу програм в режимі сумісності з попередніми версіями Windows. Можна працювати з програмою, яка написана для Windows 95, і не працює в Windows 2000. Всі версії Windows XP мають безліч нововведень. Підтримується значно більше різноманітних пристроїв. Система дозволяє легко і зручно обробляти відеофільми, фотографії, малюнки, музику та пісні. Тепер за допомогою Windows XP будь-хто зможе побудувати домашню мережу на основі двох-трьох комп'ютерів, забезпечивши спільне використання файлів, папок, принтера, факсу і доступу в Інтернет.
При роботі з Windows XP для запису інформації на записувані й перезаписувані компакт-диски не буде потрібно встановлювати додаткові програми. Записати компакт-диск можна прямо з провідника Windows.
Корисним компонентом системи є редактор відеофільмів. Тепер можна виконати професійний нелінійний монтаж своїх аматорських фільмів. Істотно легше стало працювати з цифровими фотокамерами і сканерамі.Не потрібно ніякої додаткової програми, щоб ввести фотографію в комп'ютер, незначно перетворити її та роздрукувати на принтері. Універсальний програвач аудіо і відео тепер підтримує більше форматів і дозволяє змінити свій зовнішній вигляд. Також можна створювати звукові файли в популярному форматі МРЗ. Універсальний програвач підтримує також відтворення цифрових відеодисків (DVD-дисків), що дозволить насолодитися найвищою якістю зображення і звуку при перегляді сучасних фільмів. Для розваг в Windows XP включено кілька нових ігор, частина з яких дозволяють грати в Інтернеті.
Істотно поліпшена і захист системи. Тепер при випадковому видаленні важливих системних файлів, вони будуть автоматично відновлені. Є можливість відновлення системи до попереднього стану, після установки нових програм і обладнання. Покращена підтримка технології Plug & Play дозволяє підключити до комп'ютера багато сучасних побутові прилади.
Подальший розвиток отримали і засоби для роботи з Інтернетом. Істотно перероблена довідкова система, поліпшена система безпеки. Численні зміни торкнулися засобів адміністрування та управління роботою безлічі користувачів у локальній обчислювальній мережі.
1.3 Характеристика мови програмування
Для розробки програми по темі даного курсового проекту була обрана система візуального проектування - Delphi.
Дельфи - це давньогрецьке місто на березі затоки Корінфа. На відміну від пам'ятника стародавнього зодчества, про який зараз нагадують лише руїни, Delphi - одна з популярних сучасних систем для розробки програм. Непогана назва придумали творці цієї системи, правда? Місто Дельфи пов'язаний з ім'ям бога мудрості і покровителя мистецтв Аполлона. Згідно з міфом, головне святилище Аполлона знаходилося в Дельфах. Його жриці-сивіли звіщали тим, хто до них звертався, пророцтва - оракули. Керівник дослідницької групи з розробки системи Delphi Чак Язджевскі згадує: "Ім'я Delphi було запропоновано Денні Торпом під час однієї мозкової атаки. Ми хотіли, щоб в імені відбилися унікальні здатності продукту до роботи з базами даних, і Delphi як не можна краще перегукувалася з таким заслуженим ім'ям в цій області, як Oracle, принаймні, для тих, кому поєднання "дельфійський оракул" про щось говорить ... ".
Система Delphi втілює в собі кращі досягнення сучасної теорії програмування. Іноді кажуть, що Delphi - це інтегроване середовище для розробки програм. Дійсно, вона об'єднує в собі безліч корисних інструментів і готових компонентів, з яких, як будинок із цеглинок, збираються проекти - призначені для користувача програми. Delphi - візуальне середовище розробки програм. Це означає, що зовнішній вигляд кожної програми (її "обличчя", або інтерфейс) створюється простим переміщенням складових елементів з деякого набору. Таке проектування під силу навіть тим, хто вміє лише збирати вражаючі споруди з деталей дитячого конструктора. Звичайно, щоб така конструкція "ожила" і заробила, необхідно продумати і дещо ще - написати програму її поведінки.
Базовою мовою програмування в Delphi служить мову Object Pascal - об'єктно-орієнтована Паскаль. Продуктивним ядерцем, з якого буйно розрослося зелене дерево, Delphi, був старий і добрий (20 років - це вже історія!) Мова програмування Turbo Pascal. Принципова відмінність систем програмування Delphi і Turbo Pascal (Turbo - торгова марка розробника системи фірми Borland International, Inc. (США)) полягає у використанні екранного режиму монітора: Turbo Pascal орієнтований на текстовий режим операційної системи DOS, a Delphi, як і Windows, - на графічний. Тим не менш програми, написані на мові Turbo Pascal і не використовують графічні засоби, після невеликої установки можуть виконуватися в середовищі Delphi. Образотворчі можливості Delphi дозволяють побачити на екрані монітора, як у буквальному сенсі "оживають" ті або інші конструкції мови, а це важливо для його швидкого і ефективного засвоєння (воістину: "краще один раз побачити, ніж сто разів почути").
Delphi - потужна сучасна система програмування, що має численні застосування скрізь, де сьогодні застосовуються комп'ютери - від інженерних і наукових розрахунків до автоматизації управлінської діяльності. Перш за все - це інструмент, інструмент досить тонкий і універсальний, здатний на багато що в руках досвідченого майстра. Сьогодні різноманітність додатків Delphi таке, що вивчити всі можливості цієї системи, навіть у рамках шкільного факультативу, не представляється можливим. У цьому сенсі Delphi можна порівняти з горою, шлях до вершини якої далекий і тривалий. Але хіба споглядання прекрасних квітів і пурхають дивовижних метеликів на схилах цієї гори не настільки ж захоплююче заняття, як і огляд з недоступною поки вершини тікає в далечінь горизонту? Delphi - результат розвитку мови Турбо Паскаль, який, у свою чергу, розвинувся з мови Паскаль. Паскаль був повністю процедурною мовою, Турбо Паскаль починаючи з версії 5.5 додав в Паскаль об'єктно-орієнтовані властивості, а Delphi - об'єктно-орієнтована мова програмування з можливістю доступу до метаданих класів (тобто до опису класів та їх членів) у компільованої коді, також званому інтроспекцією. Так як всі класи успадковують функції базового класу TObject, то будь-який вказівник на об'єкт можна перетворити до нього, і скористатися методом ClassType і функцією TypeInfo, які й забезпечать інтроспекції. Також відмітною властивістю Дельфі від С + + є відсутність можливості розташовувати об'єкти в стеку (об'єкти, успадковані з Турбо Паскаля, розташовуватися в стеку можуть) - всі об'єкти потрапляють в динамічно виділяється область (купу).
Де-факто Object Pascal, а потім і мову Delphi є функціональними нарощуваннями Turbo Pascal. Про це говорять позначення версій компілятора. Так, в Delphi 7 компілятор має номер версії 15.0 (Остання версія Borland Pascal / Turbo Pascal позначалася 7.0, в Delphi 1 компілятор має версію 8.0, в Delphi 2 - 9.0, і т. д. Номер версії 11.0 носить компілятор Pascal, що входив до складу середовища C + + Builder).
Delphi зробив величезний вплив на створення концепції мови C # для платформи. NET. Багато його елементи і концептуальні рішення увійшли до складу С #. Однією з причин називають перехід Андерса Хейлсберг, одного з провідних розробників Дельфі, з компанії Borland Ltd. в Microsoft Corp.
Версія 1 була призначена для розробки під 16-ти розрядну платформу Win16;
Версії з другої компілюють програми під 32-х розрядну платформу Win32;
Разом з 6-й версією Delphi вийшла сумісна з ним по мові і бібліотекам середу Kylix, призначена для компіляції програм під операційну систему Linux;
Версія 8 здатна генерувати байт-код виключно для платформи. NET. Це перша середа, орієнтована на розробку мультимовних додатків (лише для платформи. NET);
Наступні версії (позначаються роками виходу, а не порядковими номерами, як це було раніше) можуть створювати як додатки Win32, так і байт-код для платформи. NET;
Delphi for. NET - середовище розробки Delphi, а так само мова Delphi (Object Pascal), орієнтовані на розробку додатків для. NET.
Перша версія повноцінної середовища розробки Delphi для. NET - Delphi 8. Вона дозволяла писати програми лише для. NET. В даний час, в Delphi 2006, можна писати програми для. NET використовуючи стандартну бібліотеку класів. NET, VCL для. NET. Середовище також дозволяє писати. NET-додатки на C # і Win32-додатки на C + +. Delphi 2006 містить функції для написання звичайних додатків з використанням біліотек VCL і CLX. Delphi 2006 підтримує технологію MDA за допомогою ECO (Enterprise Core Objects) версії 3.0.
Файли, що складають додаток Delphi:
DPR - файл проекту. Містить він основний код програми, посилання на всі вікна (форми) проекту і пов'язані з ним модулі. У ньому також міститься код ініціалізації. Має однойменну назву з проектом.
PAS - pascal файл. Він містить текст, який ви бачите у вікні редактора коду так званого модуля програми.
DFM - delphi form. Являє собою файл з повними даними про проектувальника форми. Позиція, розмір, розташовані компоненти та ін Форма додатка є невід'ємною частиною модуля PAS і має ту ж назву.
DCU - двійковий файл модуля. Має однойменну назву з модулем.
RES - ресурсний файл. Містить у собі іконки, значки покажчика миші, картинки, звуки.
DOF, DSK - містять налаштування проекту.
CFG - містить налаштування конфігурації проекту.
EXE - скомпільованій формі. Зберігається автоматично при запуску проекту на виконання. Оновлюється у момент компіляції. Має однойменну назву проекту. Повністю самостійне додаток.
По ходу роботи в середовищі Delphi можуть автоматично створюватися файли, що мають розширення, що починається символом ~ (тильда). Це резервні копії файлів, які створюються при їх повторному збереженні.
Розглянемо, як виглядають тексти модулів. Нижче наведено текст модуля з порожньою формою. Докладні коментарі в цьому тексті пояснюють, куди і що в цей код можна додавати.
unit Unitl;
interface / / Відкритий інтерфейс модуля
(Список модулів)
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls;
{Оголошення класу форми}
type
TForml = class (TForm)
private / / Закритий розділ класу
{Private declarations}
{Сюди можуть поміщатися оголошення змінних, функцій і процедур, що включаються в клас форми, але не доступних для інших модулів}
public / / Відкритий розділ класу
{Public declarations}
{Сюди можуть поміщатися оголошення змінних, функцій і процедур, що включаються в клас форми і доступних для інших модулів}
end;
var
Forml: TForml;
{Сюди можуть поміщатися оголошення типів, констант, змінних, функцій і процедур, до яких буде доступ з інших модулів, але які не включаються в клас форми}
implementation / / Реалізація модуля
($ R *. DFM}
{Сюди можуть міститися пропозиції uses, оголошення типів, констант, змінних, до яких не буде доступу з інших модулів. Тут же повинні бути реалізації всіх оголошених у розділі interface функцій і процедур, а також можуть бути реалізації будь-яких додаткових, не оголошених раніше функцій і процедур.}
end.
Модуль починається з ключового слова unit, після якого пишеться ім'я модуля. Вона збігається з ім'ям файлу, в яких ви зберегли свій модуль. За замовчуванням для першого модуля ім'я одно Unitl, для другого Unit2 - і т.д.
Текст модуля складається з двох основних розділів: interface - відкритий інтерфейс модуля, і implementation - реалізація модуля. Все, що потрібно покласти прямо у розділ interface (типи, змінні, константи, функції, процедури), може бути використане іншими модулями програми. Все, що поміщається в розділ implementation - внутрішня справа модуля. Зовнішні модулі не можуть бачити типи, змінні, константи, функції та процедури, розміщені в розділі реалізації.
У розділі interface після пропозиції uses, що містить список модулів, ви можете бачити заготівлю оголошення класу вашої форми, підготовлену Delphi. Ім'я класу вашої форми - TForml. Клас містить два розділи: private - закритий розділ класу, і public - відкритий розділ класу. Те, що ви або Delphi оголосіть в розділі public, буде доступне для інших класів та модулів. Те, що оголошено в розділі private, доступно тільки в межах даного модуля.
Після завершення оголошення класу форми можна побачити рядки
var
Forml: TForml;
Це оголошується змінна Forml класу TForml, тобто оголошується форма як об'єкта класу TForml.
Потім слід поки порожній розділ реалізації implementation, в якому міститься тільки директива компілятора.
У модуль можна ввести ще два розділи, крім interface і implementation: розділи initialization і finalization
2 Спеціальна частина
2.1 Постановка завдання
Поставлена задача полягає в наступному: необхідно створити програму, яка б проводила тестування з метою виявлення типу темпераменту. Програма має допомогти психологам у проведенні тестування студентів.
Обробка результатів здійснюється наступним чином: є типізований файл, з загальною кількістю тверджень, рівним 56 (див. Додаток А) і варіантами відповідей "Так" або "Ні". Ці твердження діляться на групи: від 1 до 14 - перша група, що описує холерика, від 15 до 28 - друга група, що описує сангвініка, від 29 до 42 - третя група, що описує флегматика, від 43 до 56 - четверта група, що описує меланхоліка. Користувачеві надається можливість відповідати на них або "Так", або "Ні". Далі підраховується кількість позитивних ("Так") і кількість негативних ("Ні") відповідей у кожній групі тверджень. У тій групі, де кількість позитивних ("Так") відповідей більше за все, той тип темпераменту і переважає, тобто є яскраво вираженим, він виводиться в окреме вікно (див. рис.1).
У випадку, якщо кількість позитивних відповідей у групах тверджень виявиться рівним, то при проходженні першої групи тверджень, другої і наступних, виведеться той темперамент, який відповідає першій групі тверджень.
2.2 Схема алгоритму основної програми
SHAPE \ * MERGEFORMAT
2.3 Схема алгоритму програми по обробці результатів
SHAPE \ * MERGEFORMAT
2.4 Текст програми з коментарями
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, ComCtrls;
type
TForm1 = class (TForm)
memo1: TMemo;
Button1: TButton;
Button2: TButton;
Button3: TButton;
RadioGroup1: TRadioGroup;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
Panel1: TPanel;
Label1: TLabel;
Button4: TButton;
procedure Button2Click (Sender: TObject);
procedure Button3Click (Sender: TObject);
procedure Button1Click (Sender: TObject);
procedure Button4Click (Sender: TObject);
private
{Private declarations}
public
{Public declarations}
end;
tip = record
vop: string [100];
ot1: string [20];
ot2: string [20];
end;
var
f1: file of tip;
a: tip;
Form1: TForm1;
j1, i1, k1, t, g, m, min, min1, en: integer;
ms1: array [1 .. 100] of integer;
s: integer;
m1: array [1 .. 4] of integer;
implementation
uses Unit2;
{$ R *. dfm}
procedure sozdanie (s: string); {процедура щодо створення файлу з питаннями}
begin
if k1 <> 5 then
begin
g: = 1;
t: = 0;
i1: = 0;
end;
assign (f1, 'input.dat');
reset (f1);
j1: = filesize (f1);
if not eof (f1) then
begin
if i1 <j1 then
begin
seek (f1, i1);
read (f1, a);
form1.memo1.Lines.Text: = a.vop;
form1.RadioButton1.Caption: = a.ot1;
form1.RadioButton2.Caption: = a.ot2;
i1: = i1 +1;
end;
if form1.radiobutton1.Checked then ms1 [g]: = ms1 [g] +1;
{Обробка результатів}
if (t = 14) or (t = 28) or (t = 42) then g: = g +1;
end;
if eof (f1) then en: = 5;
k1: = 5;
close (f1);
t: = t +1;
end;
procedure TForm1.Button2Click (Sender: TObject);
begin
close;
end;
procedure TForm1.Button3Click (Sender: TObject);
begin
form2.visible: = true;
end;
procedure TForm1.Button1Click (Sender: TObject);
begin if fileexists ('input.dat') = true then begin
RadioGroup1.Visible: = true;
RadioButton1.Visible: = true;
RadioButton2.Visible: = true;
sozdanie ('input.dat');
if en = 5 then
panel1.Visible: = true;
begin
min: = ms1 [1];
min1: = 1;
form1.Label1.Caption: = InttoStr (min);
for m: = 2 to 4 do
if ms1 [m]> min then
begin
min1: = m;
min: = ms1 [g];
end;
case min1 of
1: form1.Label1.Caption: = 'Холерик';
2: form1.Label1.Caption: = 'Сангвінік';
3: form1.Label1.Caption: = 'Флегматик';
4: form1.Label1.Caption: = 'Меланхолік';
end;
end;
end
else showmessage ('створіть файл');
end;
procedure TForm1.Button4Click (Sender: TObject);
begin
case min1 of
1: showmessage ('Ви холерик' + # 13 + 'Відрізняється підвищеною збудливістю, дії переривчасті. Йому властиві різкість і стрімкість рухів, сила, імпульсивність, яскрава виразність емоційних переживань. Темперамент проявляє в ініціатівнсті, енергійності, принциповості');
2: showmessage ('Ви сангвінік' + # 13 + 'Швидко пристосовується до нових умов, швидко сходиться з людьми, товариський. Почуття легко виникають і змінюються, емоційні переживання, як правило неглибокі. Міміка багата, рухлива, виразна. Кілька непосидючий, потребує в нових враженнях ');
3: showmessage ('Ви флегматик' + # 13 + 'Характеризується порівняно низьким рівнем активності поведінки. Володіє повільністю і спокоєм у діях, міміці й мови, рівністю, постійністю, глибиною почуттів. Наполегливий і впертий, він рідко виходить з себе. Економить сили , даремно їх не витрачає ');
4: showmessage ('Ви меланхолік' + # 13 + 'Реакція часто не відповідає силі подразника, присутня глибина і стійкість почуттів при слабкому їх вираженні. Йому важко довго на чому-небудь зосередитися. Йому властива стриманість і мови і рухів, сором'язливість, боязкість , нерішучість ');
end;
end;
end.
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, ComCtrls;
type
TForm2 = class (TForm)
Memo1: TMemo;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Panel1: TPanel;
Button4: TButton;
UpDown1: TUpDown;
procedure Button1Click (Sender: TObject);
procedure Button2Click (Sender: TObject);
procedure Button4Click (Sender: TObject);
procedure Button3Click (Sender: TObject);
private
{Private declarations}
public
{Public declarations}
end;
tip = record
vop: string [100];
ot1: string [20];
ot2: string [20];
end;
var
f2: file of tip;
a2: tip;
del: Boolean;
Form2: TForm2;
j2: integer;
implementation
uses Unit1;
{$ R *. dfm}
procedure sozdanie (s: string);
begin
assign (f2, 'input.dat');
rewrite (f2);
close (f2);
end;
procedure sozdanie2 (s: string);
begin
assign (f2, 'input.dat');
reset (f2);
j2: = filesize (f2);
seek (f2, j2);
a2.vop: = form2.Memo1.Lines.Text;
a2.ot1: = 'Так';
a2.ot2: = 'Ні';
write (f2, a2);
close (f2);
unit1.k1: = 1;
end;
procedure TForm2.Button1Click (Sender: TObject);
begin
if fileexists ('input.dat') = false
then
begin
sozdanie ('input.dat');
showmessage ('file create');
end
else showmessage ('file exist');
end;
procedure TForm2.Button2Click (Sender: TObject);
begin
if fileexists ('input.dat') = true
then
begin
del: = deletefile ('input.dat');
showmessage ('file delete');
end
else showmessage ('file not found');
end;
procedure TForm2.Button4Click (Sender: TObject);
begin
if fileexists ('input.dat') = true
then
begin
sozdanie2 ('input.dat');
showmessage ('Дані успішно додані');
end
else showmessage ('file not found');
end;
procedure TForm2.Button3Click (Sender: TObject);
begin
close;
end;
end.
2.4 Опис процесу налагодження
При розробці програми даного курсового проекту більший час зайняв процес налагодження. Він звівся до встановлення причини виникнення помилок та їх усунення.
Більшість помилок виникає на етапі програмування. Помилки такого класу бувають синтаксичними, семантичними і логічними.
1) Синтаксичні помилки. Вони з'являються на етапі компіляції і виникають у зв'язку з порушенням синтаксичних правил мови Паскаль (пропущені знаки пунктуації, посилання на неописані змінні, присвоювання зміною значень невірного типу і т.д.).
Якщо компілятор зустрічає в тексті програми оператор або команду, яку він не може інтерпретувати, він виводить повідомлення про помилку.
2) Семантичні помилки. До їх виникнення призводить порушення семантичних правил написання програм на мові Турбо Паскаль (наприклад, спроба програми виконати ділення на нуль).
3) Логічні помилки. Це помилки, пов'язані з неправильним застосуванням тих чи інших алгоритмічних конструкцій. Такі помилки не виявляються на етапі компіляції і не призводять до аварійного завершення програми. На їх наявність вказує неправильна робота програми і видача нею некоректних результатів.
Для роботи з вбудованим відладчиком Delphi 4 його інтегроване середовище розробки (IDE) пропонує цілу серію установок, більшість з яких краще не чіпати, а залишити, як є (за замовчуванням). Однак якщо змінювати установки, то виберать команду Tools / Options і в діалоговому вікні Environment Options клацнути на вкладці Preferences.
Інтегроване середовище Delphi надає користувачеві декілька команд покрокової налагодження доступних у меню Run. Run. Вибір цієї команди запускає додаток на виконання в звичайному режимі. Можна використовувати її як для запуску програми, так і для продовження його роботи після якого-небудь переривання виконання (наприклад, по точці зупинки). Якщо включена опція Break on Exception, то використовувати команду для продовження роботи після отримання повідомлення про виняткову ситуації. Step Over. Коли точка виконання перебуває на рядку містить виклик процедури або функції, використовувати її і для виконання рядки, включаючи дзвінки один крок, без проходження окремих рядків викликаються функцій. Точка виконання переміщається при виконанні на наступний рядок. Trace Into. На відміну від попередньої команди, ця опція відпрацює покрокову налагодження викликаються процедур і функцій. Іншими словами, якщо, наприклад, у рядку викликається якась процедура, то при виконанні цієї команди точка виконання перейде на перший рядок процедури. Однак якщо в рядку немає таких викликів, значить, останні дві команди ідентичні. Уважність потрібна при покрокової трасуванні обробника події OnPaint. Оскільки при покрокової налагодженні вікно редактора розміщується поверх інших вікон, потрібно перемальовування вікна програми, для чого викликається обробник події OnPaint. Можна потрапити в замкнуте коло, точніше в нескінченний цикл викликів одного і того ж обробника. Тим не менш, варто лишень простежити, щоб вікна програми та редактора не перекривалися, і проблема вирішиться сама собою.
Trace to Next Source Line. Іноді один код викликає інший код побічно, наприклад, при виклику функції, яка запускає обробник події, або при виклику функції Windows API, яка, у свою чергу, запускає функцію непрямого виклику. Оскільки такі виклики непрямі, відладчик не бачить виклику і не відстежує покрокового виконання таких викликів. Проте використання описуваної команди призводить до відстеження таких викликів і останову отладчика на першому рядку спричиненої таким чином функції або процедури. Run to Cursor. Найчастіше зовсім не хочеться витрачати час у пошуках помилки, місце розташування якої з якоюсь точністю відомо, покроково добиратися до потрібного місця через сотні, а то й тисячі рядків коду. У такому випадку достатньо помістити курсор на потрібний рядок програми у вікні редагування і використовувати команду Run to Cursor. Ці дії еквівалентні тимчасовому приміщенню точки зупину в необхідної вам рядки програми, і після виконання попереднього рядку коду робота програми припиняється. Якщо намагатися виконати програму до позиції курсору, який знаходиться в рядку, що не містить налагоджувальної інформації, то з'явиться повідомлення про помилку.
2.5 Результат роботи програми
Результат роботи програми задовольняє всім вимогам, поставленим перед розробником даної програми. Підсумком роботи програми є виведений на екран тип темпераменту і докладний опис до нього.
(Рис.1)
2.6 Інструкція з виконання програми
Програма даного курсового проекту відтворює на екран дисплея результати тесту.
Програма запускається подвійним клацанням лівої кнопки миші по файлу Progect.exe,
Від користувача потрібно: відповідати на питання так чи ні.
На екран дисплея виведеться тип темпераменту. При натисканні кнопки "Докладніше" йде розгорнутий опис темперемента.
Для виходу з програми натиснути кнопку "Вихід".
ВИСНОВОК
На сучасному етапі розвитку освітньої системи чимала роль відводиться комп'ютерній техніці, яка покликана зробити процес навчання більш цікавим і цікавим.
Програмний продукт, створений в результаті роботи над даним курсовим проектом є перспективним, цікавим.
Розробка даного курсового проекту виявилася досить не простий. Але завдяки цій роботі, я закріпила отримані теоретичні та практичні знання, навчилася самостійно аналізувати поставлену задачу і розбивати її на підзадачі, закріпила навички роботи в Delphi.
Робота над даним курсовим проектом допомогла розробнику відчути впевненість у своїх силах як майбутньому фахівцеві.
СПИСОК ЛІТЕРАТУРИ
1. Ресурси сайту ww.wikipedia.ru
2. "Основи алгоритмізації та програмування", О. Л. Голіцина, І. І. Попов, Москва, 2002 рік, вид-во "Форум - Інфа - М"
3. "Windows XP", 2е видання, самовчитель, В. Холмогоров, изд-во "Пітер", 2003 рік
4. Підручник "Психологія" за ред. А. А. Крилова - М: ПРОСПЕКТ, 2000
5. Мерлін В.С. Нарис теорії темпераменту. - М, 1964.
6. "Програмування в Delphi 7" Архангельський А. Я. - М.: ТОВ "Біном-Пресс", 2004.
ДОДАТОК А
Питання до тесту
1. Непосидючі, метушливі.
2. Невитримані, запальні.
3. Нетерплячі.
4. Рішучі і ініціативні.
5. Уперті.
6. Винахідливі в суперечці.
7. Працюєте ривками.
8. Схильні до ризику.
9. Незлопам'ятні і необразлива.
10. Маєте швидкої, пристрасною промовою.
11. Неврівноважені, схильні до запалу.
12. Нетерпимі до недоліків.
13. Невпинно прагнете до нового.
14. Схильні до різких змін настрою.
15. Веселі, життєрадісні.
16. Енергійні, діловиті.
17. Часто не доводьте справу до кінця.
18. Схильні переоцінювати себе.
19. Нестійкі в інтересах і схильностях.
20. Легко пристосовуєтеся до різних обставин.
21. Швидко включаєтеся в нову роботу і швидко переключаєтеся.
22. Вам не подобається одноманітність, буденно-копітка робота.
23. Ви товариські і чуйні.
24. Маєте гучної, швидкої, чіткою промовою.
25. Зберігаєте самовладання в несподіваних, складних ситуаціях.
26. Швидко засинаєте і прокидаєтеся.
27. Часто незібрані, проявляєте поспішність у рішеннях.
28. Схильні часто відволікатися.
29. Спокійні і холоднокровні.
30. Послідовні і докладні в справах.
31. Обережні і розважливі.
32. Чи вмієте чекати.
33. Мовчазні, не любите даремно базікати.
34. Маєте спокійній промовою без різко виражених емоцій.
35. Не витрачає просто сил.
36. Дотримуєтеся розпорядку в життя, системи в роботі.
37. Маловоспріімчіви до схвалення і осуду.
38. Повільно включаєтеся в нову роботу і переключаєтеся з однієї на іншу.
39. Рівні у відносинах з усіма.
40. Любіть акуратність і порядок.
41. Насилу пристосовуєтеся до нової обстановки.
42. Інертні, малорухливі.
43. Сором'язливі, сором'язливі.
44. Губитеся в новій обстановці.
45. Не вірите в свої сили.
46. Легко переносьте самотність.
47. Відчуваєте пригніченість і розгубленість при невдачах.
48. Схильні йти у себе, замикатися.
49. Швидко стомлюєтеся.
50. Маєте слабкою тихою мовою, іноді знижується до шепоту.
51. Мимоволі пристосовуєтеся до характеру співрозмовника.
52. Вразливі до слізливості.
53. Пред'являєте високі вимоги до себе і оточуючих.
54. Схильні до підозрілості.
55. Болісно чутливі і легко ранимі.
56. Прагнете викликати співчуття і допомогу в оточуючих
Подальший розвиток отримали і засоби для роботи з Інтернетом. Істотно перероблена довідкова система, поліпшена система безпеки. Численні зміни торкнулися засобів адміністрування та управління роботою безлічі користувачів у локальній обчислювальній мережі.
1.3 Характеристика мови програмування
Для розробки програми по темі даного курсового проекту була обрана система візуального проектування - Delphi.
Дельфи - це давньогрецьке місто на березі затоки Корінфа. На відміну від пам'ятника стародавнього зодчества, про який зараз нагадують лише руїни, Delphi - одна з популярних сучасних систем для розробки програм. Непогана назва придумали творці цієї системи, правда? Місто Дельфи пов'язаний з ім'ям бога мудрості і покровителя мистецтв Аполлона. Згідно з міфом, головне святилище Аполлона знаходилося в Дельфах. Його жриці-сивіли звіщали тим, хто до них звертався, пророцтва - оракули. Керівник дослідницької групи з розробки системи Delphi Чак Язджевскі згадує: "Ім'я Delphi було запропоновано Денні Торпом під час однієї мозкової атаки. Ми хотіли, щоб в імені відбилися унікальні здатності продукту до роботи з базами даних, і Delphi як не можна краще перегукувалася з таким заслуженим ім'ям в цій області, як Oracle, принаймні, для тих, кому поєднання "дельфійський оракул" про щось говорить ... ".
Система Delphi втілює в собі кращі досягнення сучасної теорії програмування. Іноді кажуть, що Delphi - це інтегроване середовище для розробки програм. Дійсно, вона об'єднує в собі безліч корисних інструментів і готових компонентів, з яких, як будинок із цеглинок, збираються проекти - призначені для користувача програми. Delphi - візуальне середовище розробки програм. Це означає, що зовнішній вигляд кожної програми (її "обличчя", або інтерфейс) створюється простим переміщенням складових елементів з деякого набору. Таке проектування під силу навіть тим, хто вміє лише збирати вражаючі споруди з деталей дитячого конструктора. Звичайно, щоб така конструкція "ожила" і заробила, необхідно продумати і дещо ще - написати програму її поведінки.
Базовою мовою програмування в Delphi служить мову Object Pascal - об'єктно-орієнтована Паскаль. Продуктивним ядерцем, з якого буйно розрослося зелене дерево, Delphi, був старий і добрий (20 років - це вже історія!) Мова програмування Turbo Pascal. Принципова відмінність систем програмування Delphi і Turbo Pascal (Turbo - торгова марка розробника системи фірми Borland International, Inc. (США)) полягає у використанні екранного режиму монітора: Turbo Pascal орієнтований на текстовий режим операційної системи DOS, a Delphi, як і Windows, - на графічний. Тим не менш програми, написані на мові Turbo Pascal і не використовують графічні засоби, після невеликої установки можуть виконуватися в середовищі Delphi. Образотворчі можливості Delphi дозволяють побачити на екрані монітора, як у буквальному сенсі "оживають" ті або інші конструкції мови, а це важливо для його швидкого і ефективного засвоєння (воістину: "краще один раз побачити, ніж сто разів почути").
Delphi - потужна сучасна система програмування, що має численні застосування скрізь, де сьогодні застосовуються комп'ютери - від інженерних і наукових розрахунків до автоматизації управлінської діяльності. Перш за все - це інструмент, інструмент досить тонкий і універсальний, здатний на багато що в руках досвідченого майстра. Сьогодні різноманітність додатків Delphi таке, що вивчити всі можливості цієї системи, навіть у рамках шкільного факультативу, не представляється можливим. У цьому сенсі Delphi можна порівняти з горою, шлях до вершини якої далекий і тривалий. Але хіба споглядання прекрасних квітів і пурхають дивовижних метеликів на схилах цієї гори не настільки ж захоплююче заняття, як і огляд з недоступною поки вершини тікає в далечінь горизонту? Delphi - результат розвитку мови Турбо Паскаль, який, у свою чергу, розвинувся з мови Паскаль. Паскаль був повністю процедурною мовою, Турбо Паскаль починаючи з версії 5.5 додав в Паскаль об'єктно-орієнтовані властивості, а Delphi - об'єктно-орієнтована мова програмування з можливістю доступу до метаданих класів (тобто до опису класів та їх членів) у компільованої коді, також званому інтроспекцією. Так як всі класи успадковують функції базового класу TObject, то будь-який вказівник на об'єкт можна перетворити до нього, і скористатися методом ClassType і функцією TypeInfo, які й забезпечать інтроспекції. Також відмітною властивістю Дельфі від С + + є відсутність можливості розташовувати об'єкти в стеку (об'єкти, успадковані з Турбо Паскаля, розташовуватися в стеку можуть) - всі об'єкти потрапляють в динамічно виділяється область (купу).
Де-факто Object Pascal, а потім і мову Delphi є функціональними нарощуваннями Turbo Pascal. Про це говорять позначення версій компілятора. Так, в Delphi 7 компілятор має номер версії 15.0 (Остання версія Borland Pascal / Turbo Pascal позначалася 7.0, в Delphi 1 компілятор має версію 8.0, в Delphi 2 - 9.0, і т. д. Номер версії 11.0 носить компілятор Pascal, що входив до складу середовища C + + Builder).
Delphi зробив величезний вплив на створення концепції мови C # для платформи. NET. Багато його елементи і концептуальні рішення увійшли до складу С #. Однією з причин називають перехід Андерса Хейлсберг, одного з провідних розробників Дельфі, з компанії Borland Ltd. в Microsoft Corp.
Версія 1 була призначена для розробки під 16-ти розрядну платформу Win16;
Версії з другої компілюють програми під 32-х розрядну платформу Win32;
Разом з 6-й версією Delphi вийшла сумісна з ним по мові і бібліотекам середу Kylix, призначена для компіляції програм під операційну систему Linux;
Версія 8 здатна генерувати байт-код виключно для платформи. NET. Це перша середа, орієнтована на розробку мультимовних додатків (лише для платформи. NET);
Наступні версії (позначаються роками виходу, а не порядковими номерами, як це було раніше) можуть створювати як додатки Win32, так і байт-код для платформи. NET;
Delphi for. NET - середовище розробки Delphi, а так само мова Delphi (Object Pascal), орієнтовані на розробку додатків для. NET.
Перша версія повноцінної середовища розробки Delphi для. NET - Delphi 8. Вона дозволяла писати програми лише для. NET. В даний час, в Delphi 2006, можна писати програми для. NET використовуючи стандартну бібліотеку класів. NET, VCL для. NET. Середовище також дозволяє писати. NET-додатки на C # і Win32-додатки на C + +. Delphi 2006 містить функції для написання звичайних додатків з використанням біліотек VCL і CLX. Delphi 2006 підтримує технологію MDA за допомогою ECO (Enterprise Core Objects) версії 3.0.
Файли, що складають додаток Delphi:
DPR - файл проекту. Містить він основний код програми, посилання на всі вікна (форми) проекту і пов'язані з ним модулі. У ньому також міститься код ініціалізації. Має однойменну назву з проектом.
PAS - pascal файл. Він містить текст, який ви бачите у вікні редактора коду так званого модуля програми.
DFM - delphi form. Являє собою файл з повними даними про проектувальника форми. Позиція, розмір, розташовані компоненти та ін Форма додатка є невід'ємною частиною модуля PAS і має ту ж назву.
DCU - двійковий файл модуля. Має однойменну назву з модулем.
RES - ресурсний файл. Містить у собі іконки, значки покажчика миші, картинки, звуки.
DOF, DSK - містять налаштування проекту.
CFG - містить налаштування конфігурації проекту.
EXE - скомпільованій формі. Зберігається автоматично при запуску проекту на виконання. Оновлюється у момент компіляції. Має однойменну назву проекту. Повністю самостійне додаток.
По ходу роботи в середовищі Delphi можуть автоматично створюватися файли, що мають розширення, що починається символом ~ (тильда). Це резервні копії файлів, які створюються при їх повторному збереженні.
Розглянемо, як виглядають тексти модулів. Нижче наведено текст модуля з порожньою формою. Докладні коментарі в цьому тексті пояснюють, куди і що в цей код можна додавати.
unit Unitl;
interface / / Відкритий інтерфейс модуля
(Список модулів)
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls;
{Оголошення класу форми}
type
TForml = class (TForm)
private / / Закритий розділ класу
{Private declarations}
{Сюди можуть поміщатися оголошення змінних, функцій і процедур, що включаються в клас форми, але не доступних для інших модулів}
public / / Відкритий розділ класу
{Public declarations}
{Сюди можуть поміщатися оголошення змінних, функцій і процедур, що включаються в клас форми і доступних для інших модулів}
end;
var
Forml: TForml;
{Сюди можуть поміщатися оголошення типів, констант, змінних, функцій і процедур, до яких буде доступ з інших модулів, але які не включаються в клас форми}
implementation / / Реалізація модуля
($ R *. DFM}
{Сюди можуть міститися пропозиції uses, оголошення типів, констант, змінних, до яких не буде доступу з інших модулів. Тут же повинні бути реалізації всіх оголошених у розділі interface функцій і процедур, а також можуть бути реалізації будь-яких додаткових, не оголошених раніше функцій і процедур.}
end.
Модуль починається з ключового слова unit, після якого пишеться ім'я модуля. Вона збігається з ім'ям файлу, в яких ви зберегли свій модуль. За замовчуванням для першого модуля ім'я одно Unitl, для другого Unit2 - і т.д.
Текст модуля складається з двох основних розділів: interface - відкритий інтерфейс модуля, і implementation - реалізація модуля. Все, що потрібно покласти прямо у розділ interface (типи, змінні, константи, функції, процедури), може бути використане іншими модулями програми. Все, що поміщається в розділ implementation - внутрішня справа модуля. Зовнішні модулі не можуть бачити типи, змінні, константи, функції та процедури, розміщені в розділі реалізації.
У розділі interface після пропозиції uses, що містить список модулів, ви можете бачити заготівлю оголошення класу вашої форми, підготовлену Delphi. Ім'я класу вашої форми - TForml. Клас містить два розділи: private - закритий розділ класу, і public - відкритий розділ класу. Те, що ви або Delphi оголосіть в розділі public, буде доступне для інших класів та модулів. Те, що оголошено в розділі private, доступно тільки в межах даного модуля.
Після завершення оголошення класу форми можна побачити рядки
var
Forml: TForml;
Це оголошується змінна Forml класу TForml, тобто оголошується форма як об'єкта класу TForml.
Потім слід поки порожній розділ реалізації implementation, в якому міститься тільки директива компілятора.
У модуль можна ввести ще два розділи, крім interface і implementation: розділи initialization і finalization
2 Спеціальна частина
2.1 Постановка завдання
Поставлена задача полягає в наступному: необхідно створити програму, яка б проводила тестування з метою виявлення типу темпераменту. Програма має допомогти психологам у проведенні тестування студентів.
Обробка результатів здійснюється наступним чином: є типізований файл, з загальною кількістю тверджень, рівним 56 (див. Додаток А) і варіантами відповідей "Так" або "Ні". Ці твердження діляться на групи: від 1 до 14 - перша група, що описує холерика, від 15 до 28 - друга група, що описує сангвініка, від 29 до 42 - третя група, що описує флегматика, від 43 до 56 - четверта група, що описує меланхоліка. Користувачеві надається можливість відповідати на них або "Так", або "Ні". Далі підраховується кількість позитивних ("Так") і кількість негативних ("Ні") відповідей у кожній групі тверджень. У тій групі, де кількість позитивних ("Так") відповідей більше за все, той тип темпераменту і переважає, тобто є яскраво вираженим, він виводиться в окреме вікно (див. рис.1).
У випадку, якщо кількість позитивних відповідей у групах тверджень виявиться рівним, то при проходженні першої групи тверджень, другої і наступних, виведеться той темперамент, який відповідає першій групі тверджень.
2.2 Схема алгоритму основної програми
SHAPE \ * MERGEFORMAT
початок |
Висновок меню |
Створення файлу |
Тестувати? |
Створити файл? |
Тестування |
та |
немає |
та |
немає |
Вихід? |
кінець |
та |
немає |
2.3 Схема алгоритму програми по обробці результатів
SHAPE \ * MERGEFORMAT
вхід |
i1 <j1 |
t = 14 or t = 28 or t = 42 |
ms1 [m]> min |
Not eof (f1) |
вихід |
assign (f1, 'input.dat' reset (f1); j1: = filessize (f1); |
seek (f1, i1); read (f1, a); i1: = i1 +1; |
min1: = m; min: = ms1 [g]; |
g: = g +1; |
m: = 2,4 |
2.4 Текст програми з коментарями
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, ComCtrls;
type
TForm1 = class (TForm)
memo1: TMemo;
Button1: TButton;
Button2: TButton;
Button3: TButton;
RadioGroup1: TRadioGroup;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
Panel1: TPanel;
Label1: TLabel;
Button4: TButton;
procedure Button2Click (Sender: TObject);
procedure Button3Click (Sender: TObject);
procedure Button1Click (Sender: TObject);
procedure Button4Click (Sender: TObject);
private
{Private declarations}
public
{Public declarations}
end;
tip = record
vop: string [100];
ot1: string [20];
ot2: string [20];
end;
var
f1: file of tip;
a: tip;
Form1: TForm1;
j1, i1, k1, t, g, m, min, min1, en: integer;
ms1: array [1 .. 100] of integer;
s: integer;
m1: array [1 .. 4] of integer;
implementation
uses Unit2;
{$ R *. dfm}
procedure sozdanie (s: string); {процедура щодо створення файлу з питаннями}
begin
if k1 <> 5 then
begin
g: = 1;
t: = 0;
i1: = 0;
end;
assign (f1, 'input.dat');
reset (f1);
j1: = filesize (f1);
if not eof (f1) then
begin
if i1 <j1 then
begin
seek (f1, i1);
read (f1, a);
form1.memo1.Lines.Text: = a.vop;
form1.RadioButton1.Caption: = a.ot1;
form1.RadioButton2.Caption: = a.ot2;
i1: = i1 +1;
end;
if form1.radiobutton1.Checked then ms1 [g]: = ms1 [g] +1;
{Обробка результатів}
if (t = 14) or (t = 28) or (t = 42) then g: = g +1;
end;
if eof (f1) then en: = 5;
k1: = 5;
close (f1);
t: = t +1;
end;
procedure TForm1.Button2Click (Sender: TObject);
begin
close;
end;
procedure TForm1.Button3Click (Sender: TObject);
begin
form2.visible: = true;
end;
procedure TForm1.Button1Click (Sender: TObject);
begin if fileexists ('input.dat') = true then begin
RadioGroup1.Visible: = true;
RadioButton1.Visible: = true;
RadioButton2.Visible: = true;
sozdanie ('input.dat');
if en = 5 then
panel1.Visible: = true;
begin
min: = ms1 [1];
min1: = 1;
form1.Label1.Caption: = InttoStr (min);
for m: = 2 to 4 do
if ms1 [m]> min then
begin
min1: = m;
min: = ms1 [g];
end;
case min1 of
1: form1.Label1.Caption: = 'Холерик';
2: form1.Label1.Caption: = 'Сангвінік';
3: form1.Label1.Caption: = 'Флегматик';
4: form1.Label1.Caption: = 'Меланхолік';
end;
end;
end
else showmessage ('створіть файл');
end;
procedure TForm1.Button4Click (Sender: TObject);
begin
case min1 of
1: showmessage ('Ви холерик' + # 13 + 'Відрізняється підвищеною збудливістю, дії переривчасті. Йому властиві різкість і стрімкість рухів, сила, імпульсивність, яскрава виразність емоційних переживань. Темперамент проявляє в ініціатівнсті, енергійності, принциповості');
2: showmessage ('Ви сангвінік' + # 13 + 'Швидко пристосовується до нових умов, швидко сходиться з людьми, товариський. Почуття легко виникають і змінюються, емоційні переживання, як правило неглибокі. Міміка багата, рухлива, виразна. Кілька непосидючий, потребує в нових враженнях ');
3: showmessage ('Ви флегматик' + # 13 + 'Характеризується порівняно низьким рівнем активності поведінки. Володіє повільністю і спокоєм у діях, міміці й мови, рівністю, постійністю, глибиною почуттів. Наполегливий і впертий, він рідко виходить з себе. Економить сили , даремно їх не витрачає ');
4: showmessage ('Ви меланхолік' + # 13 + 'Реакція часто не відповідає силі подразника, присутня глибина і стійкість почуттів при слабкому їх вираженні. Йому важко довго на чому-небудь зосередитися. Йому властива стриманість і мови і рухів, сором'язливість, боязкість , нерішучість ');
end;
end;
end.
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, ComCtrls;
type
TForm2 = class (TForm)
Memo1: TMemo;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Panel1: TPanel;
Button4: TButton;
UpDown1: TUpDown;
procedure Button1Click (Sender: TObject);
procedure Button2Click (Sender: TObject);
procedure Button4Click (Sender: TObject);
procedure Button3Click (Sender: TObject);
private
{Private declarations}
public
{Public declarations}
end;
tip = record
vop: string [100];
ot1: string [20];
ot2: string [20];
end;
var
f2: file of tip;
a2: tip;
del: Boolean;
Form2: TForm2;
j2: integer;
implementation
uses Unit1;
{$ R *. dfm}
procedure sozdanie (s: string);
begin
assign (f2, 'input.dat');
rewrite (f2);
close (f2);
end;
procedure sozdanie2 (s: string);
begin
assign (f2, 'input.dat');
reset (f2);
j2: = filesize (f2);
seek (f2, j2);
a2.vop: = form2.Memo1.Lines.Text;
a2.ot1: = 'Так';
a2.ot2: = 'Ні';
write (f2, a2);
close (f2);
unit1.k1: = 1;
end;
procedure TForm2.Button1Click (Sender: TObject);
begin
if fileexists ('input.dat') = false
then
begin
sozdanie ('input.dat');
showmessage ('file create');
end
else showmessage ('file exist');
end;
procedure TForm2.Button2Click (Sender: TObject);
begin
if fileexists ('input.dat') = true
then
begin
del: = deletefile ('input.dat');
showmessage ('file delete');
end
else showmessage ('file not found');
end;
procedure TForm2.Button4Click (Sender: TObject);
begin
if fileexists ('input.dat') = true
then
begin
sozdanie2 ('input.dat');
showmessage ('Дані успішно додані');
end
else showmessage ('file not found');
end;
procedure TForm2.Button3Click (Sender: TObject);
begin
close;
end;
end.
2.4 Опис процесу налагодження
При розробці програми даного курсового проекту більший час зайняв процес налагодження. Він звівся до встановлення причини виникнення помилок та їх усунення.
Більшість помилок виникає на етапі програмування. Помилки такого класу бувають синтаксичними, семантичними і логічними.
1) Синтаксичні помилки. Вони з'являються на етапі компіляції і виникають у зв'язку з порушенням синтаксичних правил мови Паскаль (пропущені знаки пунктуації, посилання на неописані змінні, присвоювання зміною значень невірного типу і т.д.).
Якщо компілятор зустрічає в тексті програми оператор або команду, яку він не може інтерпретувати, він виводить повідомлення про помилку.
2) Семантичні помилки. До їх виникнення призводить порушення семантичних правил написання програм на мові Турбо Паскаль (наприклад, спроба програми виконати ділення на нуль).
3) Логічні помилки. Це помилки, пов'язані з неправильним застосуванням тих чи інших алгоритмічних конструкцій. Такі помилки не виявляються на етапі компіляції і не призводять до аварійного завершення програми. На їх наявність вказує неправильна робота програми і видача нею некоректних результатів.
Для роботи з вбудованим відладчиком Delphi 4 його інтегроване середовище розробки (IDE) пропонує цілу серію установок, більшість з яких краще не чіпати, а залишити, як є (за замовчуванням). Однак якщо змінювати установки, то виберать команду Tools / Options і в діалоговому вікні Environment Options клацнути на вкладці Preferences.
Інтегроване середовище Delphi надає користувачеві декілька команд покрокової налагодження доступних у меню Run. Run. Вибір цієї команди запускає додаток на виконання в звичайному режимі. Можна використовувати її як для запуску програми, так і для продовження його роботи після якого-небудь переривання виконання (наприклад, по точці зупинки). Якщо включена опція Break on Exception, то використовувати команду для продовження роботи після отримання повідомлення про виняткову ситуації. Step Over. Коли точка виконання перебуває на рядку містить виклик процедури або функції, використовувати її і для виконання рядки, включаючи дзвінки один крок, без проходження окремих рядків викликаються функцій. Точка виконання переміщається при виконанні на наступний рядок. Trace Into. На відміну від попередньої команди, ця опція відпрацює покрокову налагодження викликаються процедур і функцій. Іншими словами, якщо, наприклад, у рядку викликається якась процедура, то при виконанні цієї команди точка виконання перейде на перший рядок процедури. Однак якщо в рядку немає таких викликів, значить, останні дві команди ідентичні. Уважність потрібна при покрокової трасуванні обробника події OnPaint. Оскільки при покрокової налагодженні вікно редактора розміщується поверх інших вікон, потрібно перемальовування вікна програми, для чого викликається обробник події OnPaint. Можна потрапити в замкнуте коло, точніше в нескінченний цикл викликів одного і того ж обробника. Тим не менш, варто лишень простежити, щоб вікна програми та редактора не перекривалися, і проблема вирішиться сама собою.
Trace to Next Source Line. Іноді один код викликає інший код побічно, наприклад, при виклику функції, яка запускає обробник події, або при виклику функції Windows API, яка, у свою чергу, запускає функцію непрямого виклику. Оскільки такі виклики непрямі, відладчик не бачить виклику і не відстежує покрокового виконання таких викликів. Проте використання описуваної команди призводить до відстеження таких викликів і останову отладчика на першому рядку спричиненої таким чином функції або процедури. Run to Cursor. Найчастіше зовсім не хочеться витрачати час у пошуках помилки, місце розташування якої з якоюсь точністю відомо, покроково добиратися до потрібного місця через сотні, а то й тисячі рядків коду. У такому випадку достатньо помістити курсор на потрібний рядок програми у вікні редагування і використовувати команду Run to Cursor. Ці дії еквівалентні тимчасовому приміщенню точки зупину в необхідної вам рядки програми, і після виконання попереднього рядку коду робота програми припиняється. Якщо намагатися виконати програму до позиції курсору, який знаходиться в рядку, що не містить налагоджувальної інформації, то з'явиться повідомлення про помилку.
2.5 Результат роботи програми
Результат роботи програми задовольняє всім вимогам, поставленим перед розробником даної програми. Підсумком роботи програми є виведений на екран тип темпераменту і докладний опис до нього.
(Рис.1)
2.6 Інструкція з виконання програми
Програма даного курсового проекту відтворює на екран дисплея результати тесту.
Програма запускається подвійним клацанням лівої кнопки миші по файлу Progect.exe,
Від користувача потрібно: відповідати на питання так чи ні.
На екран дисплея виведеться тип темпераменту. При натисканні кнопки "Докладніше" йде розгорнутий опис темперемента.
Для виходу з програми натиснути кнопку "Вихід".
ВИСНОВОК
На сучасному етапі розвитку освітньої системи чимала роль відводиться комп'ютерній техніці, яка покликана зробити процес навчання більш цікавим і цікавим.
Програмний продукт, створений в результаті роботи над даним курсовим проектом є перспективним, цікавим.
Розробка даного курсового проекту виявилася досить не простий. Але завдяки цій роботі, я закріпила отримані теоретичні та практичні знання, навчилася самостійно аналізувати поставлену задачу і розбивати її на підзадачі, закріпила навички роботи в Delphi.
Робота над даним курсовим проектом допомогла розробнику відчути впевненість у своїх силах як майбутньому фахівцеві.
СПИСОК ЛІТЕРАТУРИ
1. Ресурси сайту ww.wikipedia.ru
2. "Основи алгоритмізації та програмування", О. Л. Голіцина, І. І. Попов, Москва, 2002 рік, вид-во "Форум - Інфа - М"
3. "Windows XP", 2е видання, самовчитель, В. Холмогоров, изд-во "Пітер", 2003 рік
4. Підручник "Психологія" за ред. А. А. Крилова - М: ПРОСПЕКТ, 2000
5. Мерлін В.С. Нарис теорії темпераменту. - М, 1964.
6. "Програмування в Delphi 7" Архангельський А. Я. - М.: ТОВ "Біном-Пресс", 2004.
ДОДАТОК А
Питання до тесту
1. Непосидючі, метушливі.
2. Невитримані, запальні.
3. Нетерплячі.
4. Рішучі і ініціативні.
5. Уперті.
6. Винахідливі в суперечці.
7. Працюєте ривками.
8. Схильні до ризику.
9. Незлопам'ятні і необразлива.
10. Маєте швидкої, пристрасною промовою.
11. Неврівноважені, схильні до запалу.
12. Нетерпимі до недоліків.
13. Невпинно прагнете до нового.
14. Схильні до різких змін настрою.
15. Веселі, життєрадісні.
16. Енергійні, діловиті.
17. Часто не доводьте справу до кінця.
18. Схильні переоцінювати себе.
19. Нестійкі в інтересах і схильностях.
20. Легко пристосовуєтеся до різних обставин.
21. Швидко включаєтеся в нову роботу і швидко переключаєтеся.
22. Вам не подобається одноманітність, буденно-копітка робота.
23. Ви товариські і чуйні.
24. Маєте гучної, швидкої, чіткою промовою.
25. Зберігаєте самовладання в несподіваних, складних ситуаціях.
26. Швидко засинаєте і прокидаєтеся.
27. Часто незібрані, проявляєте поспішність у рішеннях.
28. Схильні часто відволікатися.
29. Спокійні і холоднокровні.
30. Послідовні і докладні в справах.
31. Обережні і розважливі.
32. Чи вмієте чекати.
33. Мовчазні, не любите даремно базікати.
34. Маєте спокійній промовою без різко виражених емоцій.
35. Не витрачає просто сил.
36. Дотримуєтеся розпорядку в життя, системи в роботі.
37. Маловоспріімчіви до схвалення і осуду.
38. Повільно включаєтеся в нову роботу і переключаєтеся з однієї на іншу.
39. Рівні у відносинах з усіма.
40. Любіть акуратність і порядок.
41. Насилу пристосовуєтеся до нової обстановки.
42. Інертні, малорухливі.
43. Сором'язливі, сором'язливі.
44. Губитеся в новій обстановці.
45. Не вірите в свої сили.
46. Легко переносьте самотність.
47. Відчуваєте пригніченість і розгубленість при невдачах.
48. Схильні йти у себе, замикатися.
49. Швидко стомлюєтеся.
50. Маєте слабкою тихою мовою, іноді знижується до шепоту.
51. Мимоволі пристосовуєтеся до характеру співрозмовника.
52. Вразливі до слізливості.
53. Пред'являєте високі вимоги до себе і оточуючих.
54. Схильні до підозрілості.
55. Болісно чутливі і легко ранимі.
56. Прагнете викликати співчуття і допомогу в оточуючих