tify"> '?': begin if ftemp <0 then begin res: = 0; outtextxy (450,65, 'false'); end else Res: = sqrt (Ftemp); end;
...
Висновок
В результаті виконання даного курсового проекту був розроблений ігровий програмний продукт "Калькулятор". За допомогою цієї програми можна вираховувати певні арифметичні операції. Програма не займає багато місця, не вимоглива до встановленого програмного забезпечення. p align="justify"> Також було проведено дослідження отриманого програмного продукту. У результаті були виявлені наступні достоїнства і недоліки отриманого програмного продукту:
Переваги: ​​
В· Існує можливість скидати результат;
В· Програмний продукт маловимогливий до системних ресурсів комп'ютера.
Недоліки:
В· Неможливість виконання деяких інших математичних операцій;
В· Неможливість збереження операндів або результатів в пам'яті програми;
В цілому, поставлена ​​на початку курсового проекту мета була досягнута. У програмі виконуються всі необхідні функціональні вимоги. p align="center"> Список літератури
1. Фаронов, В.В. Програмування в Delphi 7: навч. посібник/В.В. Фаронов. - 7-е вид., Перераб. - М.: Нолидж, 2006. - 412с. p align="justify">. Ставровский, А.Б. Delphi в задачах і прикладах: навч. для вузів/А.Б. Ставровский. - Київ: BНV, 2004. - 399с. p align="justify">. Кнут, Д.Е. Мистецтво програмування: навч. посібник: у 3 т.: пер. з англ. Т.1: Основні алгоритми. - 3-е вид. - М. та ін: Вільямс, 2000. - 720 с. p align="justify">. Гловацька, А.П. Методи та алгоритми обчислювальної математики: навч. посібник для вузів/А.П. Головицкая. - М.: Радіо і зв'язок, 1999. - 408с. p align="justify">. Бежанової, М.М. Практичне програмування: структури даних і алгоритми: навч. для вузів/М.М. Бежанової, Л.А. Москвіна, І.В. Поттосін. - М.: Логос, 2001. - 223с. p align="center"> Програми
Додаток 1
Лістинг програми
program Calculator;
uses Functions, GrMouse, GrButton, Graph, GrOutPut, dos, crt;: string = '7 8 9/<- x ^ y' +
'4 5 6 * sin cos' +
'1 2 3 - tg ktg' +
'0 с. + = И '+
'P R O E K T';
{$ F +}: array [1.35] of TGrButton;, QuitButton: TGrButton;, SecondEdit: TGrButton;: TMouseStatus;: boolean; GetCaption (i: byte): string;, TempPos, Count: ...
