Delphi 7 ортасында Калькулятор бағдарламасын құру

І. Кіріспе
Есептегіш машинаның шыққан жылдары
ІІ. Негізгі бөлім:
1. Delphi.дің 7 версиясымен танысу
2. Delphi ортасымен танысу
3. Құрал саймандар батырмалары
4. Программалар код терезесі
5. Есептің алгоритмі
6. Калькулятор программасы
ІІІ. Қорытынды
Есепті қорытындылау
Пайдаланылған әдебиеттер
Программа листингісі
Кіріспе
50-жылдардың басында жарыққа шыға бастаған негізгі өңдеу құралы – бірінші буын ЭЕМ-дерінің ішкі құрылымы элементтері жеке бөлшектерден дайындалған электрондық-логикалық схемаларға негізделген болатын. Бұл бөлшектің негізгілері вакумдық электрондық шамдар еді. Мұндай компьютерлердің көлемі үлкен, сенімділігі жоғары емес, тездік жылдамдықтары бір секундта 5-6 мың қарапайым операция шамасынан аспайтын (екі санды қосу, көбейту не символдарды салыстыру сияқты бір әрекет қарапайым операция деп аталады да, оны орындайтын команда машиналық команда деп аталды. Оның үстіне, мұндай машиналар үшін құрылатын программалар машиналық командалардан тұратын да, программалау жұмысы көп еңбекті қажет еткен. Ал, ЭЕМ-нің өзі тек есептеу жұмыстарын жүргізу үшін пайдаланған).
Транзисторды ойлап шығарғанға байланысты, 50-жылдардың соғы кездері техникалық негіздері түгелдей алмастырылған, негізгі элементтері жартылай өткізгішті транзисторлардан тұратын екінші буын ЭЕМ-дері жарыққа шықты. Мұндай элементтер машинаның әрекет тездігін және сенімділігін елеулі түрде арттыруға мүмкіндік береді. Екінші буын машиналарының сырт аумағы, масасы, энергия пайдалану шамасы көп төмендегендіктен, олардың өзіндік құны да бірінші буын машиналарына қарағанда көп төмендетілді. Оның үстіне, бұл ЭЕМ-дерде жоғарғы деңгейлі (Алгол, Фортран, Бейсик, т.б) программалау тілдерінде операторлардан тұратын программалармен жұмыс істеу мүмкіндігі туды.
Информация өзінің хабары мен мазмұны арқылы сипатталатындығы және хабар жіберушіден қабылдаушыға материалды – энергетикалық (электр, жарық, дыбыс және т.с.с сигналдар) түрінде берілетіндігі белгілі. Хабарды қабылдау қабылдаушының жағдайын сипаттайтын қандай-да бір шаманың уақытқа байланысты өзгерісімен тікелей байланысты. Демек, информациялық хабарды информациялық процесс жүретін физикалық ортаның материалдық – энергетикалық параметрлерін уақытқы байланысты өзгертетін Х(t) функциясымен бейнелеуге болады. Осы функция үздіксіз де (мысалы, уақытқа байланысты өзгеретін дененің жылдамдығы, ауаның температурасы және электр тогының күші сияқтылар), үздікті де (мысалы, уақытқа байланысты белгілі бір қатынас тіліндегі таңбалар тізбектері немесе дыбыстар тіркестері арқылы құрылатын сөздер мен сөйлемдер) болуы мүмкін. Үздіксіз функциялар арқылы бейнеленетін хабар – аналогты сигнал, ал үздікті функциялар арқылы берілетін хабар – дискретті сигнал деп аталады. Адамның сезім мүшелерінің мүмкіндігі шектеулі болғандықтан үздіксіз информацияны дискретті түрде қабылдайды.
Ең алғаш ДЭЕМ тек сандық информацияларды өңдеу, яғни ғылыми-техникалық, соның ішінде көбінесе математикалықесептерді шешу үшін ғана қолданылған. Сондықтан оның атындағы «дискреттік» деген сөздің орнына «цифрлық» деген анықтауышты пайдаланып, цифрлық есептегіш машина (ЦЕМ) деп аталып кетті.
Қазіргі кезде ЦЕМ арқылы информациялардың кез келген (сандық, символдық, локикалық) типін өңдеуге, яғни әр түрлі (ғылыми-техникалық, экономикалық мәтіндерді түрлендіру, бір тілден екінші тілге аудару, басқару, жасанды зерде және т.б.) есептерді шешуге болады. Оның себебі, бұларда информацияларды өңдеу және сақтау үшін екі тұрақты жағдайлары бар физикалық құрылғылар қолданылады. Бұл жағдайларды “ 0 ” және “ 1 ” цифралырымен белгілейді. Сондықтан өңдеуге қажет информациялар және оларға қатысты алгоритмдер “ 0 ” және “ 1 ” – ден тұратын тізбектер арқылы берілуі керек. Ал қандайда болмасын алгоритмдік тілде жазылған алгоритмді және кезкелген таңбалардың тізбектері арқылы берілген өңдеуге қажет информацияларды мазмұндарын өзгертпей “ 0 ” мен “ 1 ” –ден тұратын тізбектер арқылы кескіндеуге болады(бір ғана мазмұн әртүрлі хабар арқылы беріледі). Яғни, ЦЕМ әмбебап есептегіш (өңдегіш) құрал болады. Біздің қарастыратынымыз тек ЦЕМ.
Ең алғаш 1946 жылы АҚШ ғалымы Джон фон Нейман әмбебап ЦЕМ жасаудың негізгі принцииптерін жариялады. Осы принциптерді толық жүзеге асырып жасалынған ең бірінші ЦЕМ “EDSAC” деген атпен 1949 жылы Англияда Кембридж университетінде жасалынды. Бір жылдан кецін 1950 жылы “EDVAC” атты әмбебап ЦЕМ АҚШ-та шықты. Бұл елдерде оларды ағылшын тілінде «компьютер» деп атады. Сондықтан осы терминді «автомобиль» деген термин сияқты қазақ тіліне өзгертпей ендіріп қолдануымыз керек. Бұрынғы Кеңес одағында ең бірінші «МЭСМ» деген компьютердің жасалуы 1947 жылы басталып 1951 жылы аяқталды, 1952-1953 жылдары келесі “БЭСМ - 1” компьютері жасалынды.
Алгоритмнің “ 0 ” мен “ 1 ” – ден тұратын тізбектер арқылы кескінделуін программа деп атайды. Ал ондағы нұсқаулар мен амалдарды бұйрықтар дейді. ЦЕМ орындай алатын барлық бұйрықтар жиынын машиналық тіл деп атайды. Қазіргі машиналық тілдің әліпбилері тек “ 0 ” мен “ 1 ” – ден “” ғана құрылады.
Пайдаланылған әдебиеттер


1. Халықова К.З., Тұрғанбаева А.Р. Программалау тілдерін оқыту: Оқу құралы.-Алматы,2005.
2. Камардинов О. Информатика. Оқу құралы. Алматы: «Қарасай» баспасы, 2006.
3. Халықова К.З., Паскаль тілінде программалау: Оқу құралы. – Алматы: АГУ им. Абая, 2002.
4. Культин Н. Delphi. Программирование на Object Paskal. Санкт-Петербург, 1998.
5. М. Фленов. Библия Delphi. Санкт-Петербург, 2004.
6. Орлик С.В Секреты Delphi на примерах. М.:Бином, 1996
        
        ҚАЗАҚСТАН РЕСПУБЛИКАСЫ БІЛІМ ЖӘНЕ ҒЫЛЫМ МИНИСТРЛІГІ
Информатика және қолдаңбалы математика кафедрасы
Курстық жұмыс
Мазмұны
І. Кіріспе
Есептегіш машинаның ... ... ... ... ... 7 версиясымен танысу
2. Delphi ортасымен танысу
3. Құрал саймандар батырмалары
4. Программалар код ... ... ... ... программасы
ІІІ. Қорытынды
Есепті қорытындылау
Пайдаланылған әдебиеттер
Программа листингісі
Кіріспе
50-жылдардың басында жарыққа шыға бастаған негізгі өңдеу құралы ... буын ... ішкі ... ... жеке ... ... схемаларға негізделген болатын. ... ... ... ... ... еді. ... көлемі үлкен, сенімділігі жоғары емес, тездік жылдамдықтары
бір секундта 5-6 мың қарапайым операция шамасынан аспайтын (екі ... ... не ... салыстыру сияқты бір әрекет қарапайым операция деп
аталады да, оны орындайтын команда ... ... деп ... ... ... ... үшін ... программалар машиналық
командалардан тұратын да, ... ... көп ... ... ... ... өзі тек ... жұмыстарын жүргізу үшін пайдаланған).
Транзисторды ойлап шығарғанға байланысты, 50-жылдардың соғы кездері
техникалық негіздері түгелдей алмастырылған, негізгі элементтері ... ... ... екінші буын ЭЕМ-дері жарыққа шықты.
Мұндай элементтер машинаның әрекет тездігін және сенімділігін елеулі ... ... ... ... буын машиналарының сырт аумағы, масасы,
энергия пайдалану шамасы көп төмендегендіктен, олардың өзіндік құны ... буын ... ... көп ... Оның ... бұл ЭЕМ-
дерде жоғарғы деңгейлі (Алгол, Фортран, ... т.б) ... ... ... программалармен жұмыс істеу мүмкіндігі
туды.
Информация өзінің хабары мен мазмұны арқылы ... ... ... ... ...... (электр, жарық,
дыбыс және т.с.с сигналдар) түрінде берілетіндігі белгілі. Хабарды ... ... ... қандай-да бір шаманың уақытқа байланысты
өзгерісімен тікелей байланысты. Демек, информациялық хабарды информациялық
процесс жүретін физикалық ортаның материалдық – ... ... ... ... Х(t) ... ... ... Осы
функция үздіксіз де (мысалы, уақытқа байланысты өзгеретін ... ... ... және электр тогының күші сияқтылар),
үздікті де (мысалы, уақытқа ... ... бір ... ... ... ... дыбыстар тіркестері арқылы құрылатын сөздер мен
сөйлемдер) болуы мүмкін. Үздіксіз функциялар арқылы бейнеленетін хабар –
аналогты сигнал, ал ... ... ... берілетін хабар – дискретті
сигнал деп аталады. Адамның сезім мүшелерінің ... ... ... информацияны дискретті түрде қабылдайды.
Ең алғаш ДЭЕМ тек сандық информацияларды өңдеу, яғни ... ... ... көбінесе математикалықесептерді шешу үшін ғана
қолданылған. Сондықтан оның атындағы «дискреттік» ... ... ... ... ... пайдаланып, цифрлық есептегіш машина (ЦЕМ) деп
аталып кетті.
Қазіргі кезде ЦЕМ арқылы ... кез ... ... ... типін өңдеуге, яғни әр түрлі (ғылыми-техникалық,
экономикалық мәтіндерді түрлендіру, бір ... ... ... ... ... зерде және т.б.) есептерді шешуге болады. Оның себебі,
бұларда информацияларды өңдеу және ... үшін екі ... ... ... ... қолданылады. Бұл жағдайларды “ 0 ” және “ 1 ... ... ... ... ... информациялар және оларға
қатысты алгоритмдер “ 0 ” және “ 1 ” – ден ... ... ... ... Ал ... ... ... тілде жазылған алгоритмді
және кезкелген таңбалардың тізбектері арқылы берілген өңдеуге ... ... ... “ 0 ” мен “ 1 ” ... тұратын
тізбектер арқылы кескіндеуге болады(бір ғана мазмұн әртүрлі ... ... ... ЦЕМ ... ... (өңдегіш) құрал болады. Біздің
қарастыратынымыз тек ЦЕМ.
Ең алғаш 1946 жылы АҚШ ғалымы Джон фон ... ... ЦЕМ ... ... ... Осы принциптерді толық жүзеге асырып
жасалынған ең бірінші ЦЕМ “EDSAC” деген атпен 1949 жылы ... ... ... Бір ... ... 1950 жылы ... атты әмбебап
ЦЕМ АҚШ-та шықты. Бұл елдерде оларды ағылшын ... ... деп ... осы ... ... деген термин сияқты қазақ тіліне
өзгертпей ендіріп қолдануымыз керек. Бұрынғы Кеңес ... ең ... ... ... ... 1947 жылы ... 1951 жылы аяқталды,
1952-1953 жылдары келесі ... - 1” ... ... “ 0 ” мен “ 1 ” – ден ... ... ... программа деп атайды. Ал ... ... мен ... ... ЦЕМ орындай алатын барлық бұйрықтар жиынын машиналық тіл
деп атайды. Қазіргі машиналық тілдің әліпбилері тек “ 0 ” мен “ 1 ” – ... ғана ... 7 ... танысу
7 түрі(версиясы)нің ерекшелігі: бұның алдындағы версиялардың(түрі)
мүмкіншіліктері мұнда жоқ ... ... 7 ... ... 6 ... жасаудың тілімен және интеграциялық ортасы мен қатты ұқсас. Оның
ерекшелігі – интернет жүйесіне бағдарлама жасауды ... үшін ... ... 7 ... тағы да ... – автоматтандырылған
бағдарламаны жасау CASE атты құрал, басқаша айтқанда Modal Moker.
Modal Moker.құарлы барлық жұмысқа да ... ... ол ... ... ... ... мысалдарды орындай отыруға көмектесіп, өзі
басқа қара жұмысты орындап ... ... ... ... да ... ... Web ... арқылы қосымша көмек сұрамайтын жаңа ... ... ... ... одан әрі жеңілдету үшін Delphi
7 мен Kylix 3 ... тіл ... ... және CLX жүйесінің жұмысын жеңілдеткен кезде VCL-дан Quick
Report, Past Net ... ... ... өзгерістерді есептемегенде 7 версияның ең басты ерекшелігі
– кроссплатформалық көмекші құралдардың жақсы деңгейде ұсталуы және де CASE
құралдарын енгізу туралы.
VCL ... ... 26 ... 325 ... ... бағдарлама жасаудың біріңғай жүйесі болып келеді. Басқа да
өзіне сәйкес жүйе сияқты Delphi ... ... ... ... ... өте бір ... екі ерекшелігі бар, олар: ол жасаған бағдарлама тек
қана Windows арқылы жұмыс жасап тұрмайды, ал өзі ... ... ... түріне жатады (RAD).
Delphi жүйесі Visual Basic тілінен ... ... ... Бұл ... ... жасалынып жатқанда ақ,
компеляторға ... ... ... ... ... береді. Бұл жүйе өзінің
көрсеткіштері арқылы СОМ түрлері және технологияларымен жедел ... ... Ал Visual Basic пен Java ... СОМ ... ... онымен жәй әрі кештеу байланысады.
Айта кету керек: Delph
жүй
түрлері(версиясы)нің мүмкіншіліктері мол: рет саны бойынша ең ... ... ең ... де ... ... ... ... түрде
олай бола алмайды.
Delphi ортасымен танысу
Delphi-ді іске қосқан кезде осындай терезе алдыңызға шығады. Оның
ішінде:
1) ... ... ... ... ... обьектілер инспекторының терезесі;
4) броузер терезесі;
5) формалар терезесі;
6) программа кодының терезесі
Программа кодының терезесін көру үшін F12 клавишасын басу
жеткілікті. Delphi-ді алғаш ... ... ... ... Direct» ... барлық терезенің үстіне шығады. Осы терезенің
көмегімен Intprise коорпарациясының Web-беттеріне кіруге мүмкіндік туады.
Негізгі терезе. ... ... ... ... ... ... қызметті атқарады.Бұл терезе экранда барлық уақытта
болады және ең ... ... ... Негізгі терезеде Delphi
ортасының бас менюіб пиктографиялық командалық ... ... ... ... меню ... басқаруға арналған барлық қажетті командалардан
тұрады. Бас менюдің барлық операциялары екінші деңгейде ашылатын ... ... Бас ... барлық элементтері арнайы панельдерде
орналасқан, оның сол жақ бөлігінде басқару батырмалары ... ... ... ... ... үшін оған ... тышқанның оң жақ ... басу ... ... ... меню ... ... ... аттары келтірілген және
олардың статусы көрсетілген ... ... ... ... ... ... ... баптау терезесі пайда болады. Енді
қажет емес батырмаларды алып тастауға болады, Commands ... ... ... ... оны экранға тасып апаруға болады.
Негізгі терезеге жиі пайдаланылатын пиктограммаларды
орналастырған ... ... Chek – ... ... тексеру; View/Debug/ Windows/Watches- откладкалық режимді
бақылау терезесіне кіру және ... ... бас ... негізгі опцияларына жылдам
кіруге мүмкіндік береді. Олар ... ... ... 7 ... бөлінген.
Әрбір топ бір панельде орналасады:
1. Standard тобы;
2. View тобы;
3. Debug тобы;
4. Custom тобы;
5. Desktops тобы;
6. Internet тобы;
Құрал саймандар ... ... ... ... ... ... ... файлды ашу. Команда эквиваленті File-Open.
Дискіге файлды сақтайды. Команда эквиваленті File-Save .
Барлық файл проектілерді ... ... ... ... проектілерді ашу. Команда эквиваленті File-Open
Project .
Жаңа проетіні қояды. Команда эквиваленті Project-Add to ... ... ... ... ... from ... тобы:
Модуль тізіміндегі ашылған проектіге модуль қояды. Команда
эквиваленті View-Units.
Форма тізіміндегі ашылған проектіге форма қояды. ... ... ... ... коды ... ... Команда
эквиваленті View-Toggle Form/Unit.
Ашылған проетіге жаңа форма қою. Команда эквиваленті View-New-
Form.
Debug тобы:
Компилированиялайды және программаны орындайды. Команда
эквиваленті Run-Run.
Программа ортасында ... ... ... ... Run-
Program Pause.
Біртіндеп программаны алға қарай іске қосады. ... ... ... ... ... ... іске ... Команда
эквиваленті Run-Step Over.
Custom тобы:
Анықтама қызметін ашады. Команда эквиваленті Help-Delphi Help.
Desktops тобы:
Қалған терезерді реттеу ... ... ... ... ... ... тобы:
Қосымша Web Snap жаңа технологиясымен құрылады.
Қосымша Web Snap бетті құрады.
Қосымша Web Snap модулін құрады.
Программалар код терезесі
Код ...... ... ... ... ... Бұл
мәтін арнайы ережесі бойынша құрылады және ... ... ... ... жазу ... жиынтығы программалау тілі деп
атайды. Delphi жүйесінде Объект Paskal программалау тілі пайдаланылады. ... ... Paskal ... кеңейтілген, жетілдірілген нұсқасы, оны
алғаш рет швейцариялық ғалым Н.Вирт 1970 жылы ... және оны ... ... ... ... код терезесінде толыққанды Windows терезесі ретінде бос
форманы басқаруды жүзеге асыратын алғашқы ... ... ... программа құру үшін программа кодын құрып
өзгертуге, жөндеуге тура ... ... код ... ... істеудің
негізгі тәсілдері келтірілген. Жаңа ... ... ... ... ... ... Windows, ... SysUtils, Classes, Graphics,
Controls, Forms, Dialogs;
Type
Tform 1=class(Tform)
Private {Private Declarations}
Public {Public Declaration}
End;
Var
Form1: Tform1;
Implementation
{SR*.DFM}
End.
Delphi бұл жолдарды жаңа форма үшін код ... ... ... Код ... ... ... басталғаннан кейінгі жағын
қарастырады. Ал форма терезесі оның сыртқы көрінісі. Екі ... ... ... Delphi ортасы
Unit Unit1;
және
Implementation
Жолдарының арасына қажетті жолдарды қояды.
Әзір бұл мәтін ... ... ... Кейінірек
программаның мәтін терезесіне
{SR*.DFM}
және
End.
Жолдарының арасына қажетті мәтінді ... ... жаңа ... үшін ... орынға курсорды келтіріп, ... ... ... элементті тышқанмен екі рет белгілеу сәйкес
объектіні сипаттау үшін код терезесіне ... ... ... ... ... кезінде орындалады. Аса күрделі емес оқу программаларын
құруда браузер браузер терезесін ... ... ... Браузер терезесін
шығару үшін View Explorer терезесін таңдаймыз.Программада қатені тексеру
жөндеу BS және Delete клавиштарының көмегімен ... ... ... ... ... жазылған.. Бұны жазуға мен Delphi 7
программасын таңдадым. Себебі, бұл программалау тілі жеңіл.
Калькулятор бағдарламасының интерфейсін жасау
Қажетті объекттер
MainMenu – ... ... ......... және ... ... – батырма (түсін өзгерту және батырмада Button-нан (өзгешелік
бар)
Image – суретті орнату
Интерфейстi өңдеу.
1. Форманы жасау.
Форманың қасиеттерi.
Name:              kalkul
Caption:           ... түсі ... ... ... – False, қалғаны True.
1. Объекттi формаға салып қою Edit.  Қасиеті:  Name : Edit1,   Text –
бос ... ... ... ... 0 ден 9-ға дейінгі сандар,
–арифметикалық сандар,
– белгі «=»
– белгілер (түбір, синус, ... ... ... ... ... - BitBtnнiң батырмасы.
Қасиеттер:
Name – солай қалдыруға болады
Caption - атау тиiстi атқарылатын функциялар
Font - шрифт және ... түсi өз ... ... ... болса) суретті формаға орналастыру, форманың түсi,
шрифттi күйге келтiрсiн, (егер керек болса) формада тиiстi ... ... ... арифметикалық жазуы
I. Сандарды еңгізу процедурасын жазу. Ол үшін екі рет «1» батырмасын
басыңыз (объект BitBtn1) одан соң келесі кодты ... ... ... ... қалған цифрлар мен символдарды жазу
«,»
II. Процедураны кетіретін жолды ашу Edit1, батырма «С» (объект BitBtn22)
procedure TForm1.BitBtn22Click(Sender: TObject);
begin
    edit1.Clear 
end;
III. ... ... ... ... ашу «+», «–», «/», «*» ... Ол үшін ... алгоритм мен калькулятормен жұмыс жасау керек:
1. Edit1 жолына сан енгізу. Edit1 жолында сан, ... жолы ... ... «+» ... ... ... дайындауда келесі қажетті істерді
орындау:
o Санды StrToFloat функциясы арқылы өзгерту;
o Санды ауысқан X-те сақтау;
o Ауысқанда сақтау, мысалы, kod бұл операцияның ... Edit1 ішін ... ... санды Edit1 жолына енгізу.
4. «=» батырмасын басу. Бұл батырманың өңдеулерiн ... ... ... ... ... эту ... в ... с помощью функции StrToFloat;
o сохранить это число в переменной Y;
o в зависимости от кода ... ... в ... ... ... ... ... z:=x+y;
o преобразовать число, находящееся в переменной Z, в текст с
помощью функции  FloatToStr и вывести в поле Edit1.
IV. Что ... для ... ... ... ... ... X, Y, Z, kod. ... переменные будем в
основной программе, модуле Unit, чтобы ... ... ... ... ... ... переменные).
var
Form1 : TForm1;
kod : char;
x, y, z : real;
2. Создать процедуры обработки нажатий кнопок «+», «–», «/», «*»
Например,
procedure TForm1.BitBtn17Click(Sender: ... ... := ... что ... если мы в поле Edit1 ... не ... и нажмем кнопку
«+»? Возникнет ошибка и программа завершится. Чтобы избежать этого
надо проверить имеется ли в поле Edit1символы? И в ... ... ... продолжить выполнять процедуру или вернуться к вводу
данных. Следовательно, мы должны использовать алгоритмическую
структуру ... с ... ... ... ... на ... ... процедура обработки нажатия кнопки «+»
procedureTForm1.BitBtn17Click(Sender: TObject);
begin
ifedit1.Text'' thenx:=strtofloat(edit1.text);
kod := ‘+’;
edit1.Clear;
end;
Аналогично создатьпроцедуры обработки нажатий кнопок «–», «/», ... ... ... ... нажатия кнопки «=». В этой процедуре
необходимо в зависимости от значения переменной kod выполнять ... ... ... ... ... ... ветвление»
или «Выбор».
Изучить с учащимися правила записи структуры «Выбор» на ... ... ... ... ... if edit1.Text'' then  y:=strtofloat(edit1.text);       
впеременную y кладем edit1.text
    case kod of
    '+': ... '-': ... '*': ... '/': ... end ... ... в поле Edit1 ...  z
end;
«Написание процедур вычисления основных функций»
I. Создать процедуры вычисления функции «X в степени Y». Для этого
необходимо:
1. ... тему ... на ... Delphi».
2. Создать процедуру обработки нажатия кнопки «X в степени Y».
procedure ... ... ... := ... ... в ... ... кнопки «=» следующий код
vark, y1:integer;      /y1 – степень в которую возводим число x/
…                            /k– счетчик цикла/
 '^': begin
                     y1:=strtoint( edit1.Text); 
edit1.clear;
                         z :=1;
                         for k:=1 to y1 ... ... ... ... ... остальных функций. При вычислении
тригонометрических функций учесть, что компьютер работает с радианной
мерой углов.
Например, ... ... ... ... ... ... «корень»
begin
     x:=strtofloat( edit1.Text);
     edit1.clear;
     z:=sqrt(x);
     edit1.Text:=floattostr(z)
end;
Процедура вычисления функции sin
procedure TForm1.BitBtn11Click(Sender: TObject); ... ... ... ... edit1.Clear; 
     z:=sin(x);
     edit1.Text:=floattostr(z)
end;
«Написание процедур работы с меню и усовершенствование калькулятора»
У любой ... ... ... меню, которая позволяет выполнять
разные сервисные функции.  Создадим для ... ... ... ... ... ... из следующий пунктов: «Файл»,
«Правка», «Справка». Для этого: поместить на форму объект MainMenu (в
любое место формы, этот ... ... ... при ... Два раза щелкнуть левой кнопкой мыши по этому объекту на ... ... в ... ... ... поле и в ... ... свойство Caption ввести «Файл».
• Аналогично создать пункты меню «Правка» и  «О программе».
• В меню ... ... ... «Выход», а в «Правка» - пункты
«Копировать» и «Вставить».
• Закрыть форму создания меню.
procedure ... ... ... ... ... TObject);
begin
    Edit1.CopyToClipboard;        / копироватьвбуферобмена/
end;
procedure TForm1.N5Click(Sender: TObject);
begin
    Edit1.PasteFromClipboard;            /вставить из буфера обмена/
end;
Создание меню
Для ... ... ... еще одну ... с именем Form2, на которой
можно разместить справочные сведения и информацию об авторах программы. Для
размещения текста можно воспользоваться объектом  Memo, ... из себя ... ... текстовый редактор, и объектом Image для
размещения графики и фотографий. Для открытия ... ... ... ... формы «Справка»
procedure TForm1.N8Click(Sender: TObject);
begin
   Form2.ShowModal          Открытие формы «Справка»
end;
Усовершенствование калькулятора
В зависимости от ... и ... ... ... ... может по-
своему модернизировать программу. Кто-то пожелает просто улучшить интерфейс
программы, а другой захочет превратить свой простой калькулятор в
инженерный, добавив ... ... ... ... и ...  работу с 2-ми, 8-ми и 16-ми числами.
Қорытынды
Сонымен қорытындылай кететін болсақ, біз калькулятор жұмысын Delphi
программасы арқылы бағдарламаладық. Delphi ...... ... ... ... ... ... орта.
Программалау іскерлігін үйрену үшін нақты есептер ... жаза білу ... Ол үш ... тілі ... құру ортасын
меңгеру керек. Обьектілі бағдарланған программалау ... ... ... ... ... синтаксисі мен
компоненттерді пайдалануды үйренуде болып табылады.
Қазіргі заман талабына сай компьютерлендіру ... өте ... ... да ... да ... орны ... жұмыс атқара алмайды.
Ал оны оқып ... ... ... ... Дербес компьютерде жұмыс істей
білу бұл болашақта кез келген жұмысты ... алу ... ... ... көп ... ... ... көп мұқияттылықты
талап етеді. Бұл программистердің басты мақсаты.
Ақпараттық ... ... ... ... ... ... байланысты соңғы кездері программалауға деген
қызығушылықтың арта түскені белгілі. Қазіргі уақытта ... ... ... ... ... көз ... ... қиын. Бұл компьютермен жұмыс
істейтін адамға қандайда бір ұмтылысты тудыруы мүмкін.
Пайдаланылған әдебиеттер
1. Халықова К.З., Тұрғанбаева А.Р. ... ... ... ... ... О. ... Оқу ... Алматы: «Қарасай» баспасы,
2006.
3. Халықова К.З., Паскаль тілінде программалау: Оқу ...... им. ... ... Культин Н. Delphi. Программирование на Object Paskal. ... ... М. ... ... Delphi. Санкт-Петербург, 2004.
6. Орлик С.В Секреты Delphi на примерах. М.:Бином, 1996
Программа листингісі
1-ші ... ... ... SysUtils, Variants, Classes, Graphics, Controls,
Forms,
Dialogs, StdCtrls, Menus, ExtCtrls, jpeg;
type
TForm1 = ... ... ... TLabel;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
Label2: TLabel;
Image1: TImage;
Bevel1: TBevel;
Shape1: TShape;
procedure N2Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: ... Private ... ... Public ... ... ... Unit3, Unit2, Unit4, Unit5, Unit7;
{$R *.dfm}
procedure TForm1.N2Click(Sender: TObject);
begin
form4:=tform4.Create(form1);
form4.ShowModal
end;
procedure TForm1.N4Click(Sender: TObject);
begin
form3:=tform3.create(form1);
form3.showmodal
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
form5:=tform5.Create(form1);
form5.ShowModal
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
form7:=tform7.create(form1);
form7.showmodal;
end;
end.
2-ші ... ... ... ... ... Classes, Graphics, Controls,
Forms,
Dialogs, StdCtrls, Buttons, ExtCtrls, DB, Grids, DBGrids, ... = ... ... ... ... ... TDBGrid;
ADOTable1DSDesigner: TAutoIncField;
ADOTable1DSDesigner2: TWideStringField;
ADOTable1DSDesigner3: TWideStringField;
ADOTable1DSDesigner4: TWideStringField;
ADOTable1DSDesigner5: TWideStringField;
ADOTable1DSDesigner6: TWideStringField;
ADOTable1DSDesigner7: TWideStringField;
ADOTable1DSDesigner8: TWideStringField;
ADOTable1DSDesigner9: TWideStringField;
ADOTable1DSDesigner10: TWideStringField;
ADOTable1DSDesigner11: TIntegerField;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N5: TMenuItem;
N6: ... ... ... ... ... TShape;
Bevel1: TBevel;
Bevel2: TBevel;
Bevel3: TBevel;
procedure BitBtn1Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N8Click(Sender: ... ... ... Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
{$R *.dfm}
procedure TForm2.BitBtn1Click(Sender: TObject);
begin
close;
end;
procedure TForm2.N6Click(Sender: TObject);
begin
Adotable1.Insert;
dbgrid1.SetFocus;
end;
procedure TForm2.N8Click(Sender: TObject);
begin
adotable1.Delete;
end;
procedure TForm2.N2Click(Sender: ... ... ... ... ... ... Classes, Graphics, Controls,
Forms,
Dialogs, StdCtrls, Buttons, ExtCtrls, ... = ... ... ... ... ... TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Image1: TImage;
Timer1: TTimer;
procedure Timer1Timer(Sender: TObject);
private
{ Private ... ... Public ... ... ... ... ... TObject);
begin
image1.Free;
end;
end.
4-ші форма
unit Unit4;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
Dialogs, StdCtrls, Buttons;
type
TForm4 = class(TForm)
Label1: TLabel;
BitBtn1: ... ... ... TObject);
procedure BitBtn2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations ... ... Unit2, Unit3, ... ... ... ... TForm4.BitBtn2Click(Sender: TObject);
begin
close;
end;
end.
5-ші форма
unit Unit5;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, ... ... = ... TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public ... ... ... Unit2, ... *.dfm}
procedure TForm5.Button1Click(Sender: TObject);
begin
form2:=tform2.Create(form5);
form2.ShowModal
end;
procedure TForm5.Button2Click(Sender: TObject);
begin
form6:=tform6.create(form5);
form6.showmodal
end;
end.
6-ші форма
unit Unit6;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
Dialogs, StdCtrls;
type
TForm6 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: ... ... ... ... TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
Label16: TLabel;
Label17: TLabel;
Label18: TLabel;
Label19: TLabel;
Label20: TLabel;
Label21: ... ... ... ... ... ... ... TLabel;
Label28: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations ... ... ... ... TObject);
begin
close;
end;
end.
7-ші форма
unit Unit7;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, ... ... = ... ... ... ... TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form7: TForm7;
implementation
uses Unit8, Unit9;
{$R ... ... ... ... ... форма
unit Unit8;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
Dialogs, StdCtrls;
type
TForm8 = class(TForm)
Label22: TLabel;
Label23: TLabel;
Label24: TLabel;
Label25: TLabel;
Label26: TLabel;
Label27: ... ... ... ... ... TLabel;
Label5: TLabel;
Label6: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
Label16: TLabel;
Label17: TLabel;
Label2: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private ... ... Public ... ... ... ... ... TObject);
begin
close;
end;
end.
9-ші форма
unit Unit9;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, ... Menus, DB, ADODB, Grids, DBGrids, ... ... = ... ... ... TLabel;
DBGrid1: TDBGrid;
ADOConnection1: TADOConnection;
ADOTable1: TADOTable;
ADOTable1DSDesigner: TAutoIncField;
ADOTable1DSDesigner2: TWideStringField;
ADOTable1DSDesigner3: TWideStringField;
ADOTable1DSDesigner4: TWideStringField;
ADOTable1DSDesigner5: ... ... ... ... ... TWideStringField;
ADOTable1DSDesigner11: TIntegerField;
DataSource1: TDataSource;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
Bevel1: TBevel;
Shape1: TShape;
Bevel2: ... ... ... ... ... TObject);
procedure N8Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form9: TForm9;
implementation
{$R *.dfm}
procedure TForm9.N6Click(Sender: TObject);
begin
Adotable1.Insert;
dbgrid1.SetFocus;
end;
procedure TForm9.N2Click(Sender: TObject);
begin
close;
end;
procedure TForm9.N8Click(Sender: TObject);
begin
adotable1.Delete;
end;
end.

Пән: Информатика
Жұмыс түрі: Курстық жұмыс
Көлемі: 23 бет
Бұл жұмыстың бағасы: 500 теңге









Ұқсас жұмыстар
Тақырыб Бет саны
Delphi-де «Инженерлік калькулятор» құру18 бет
Delphi ортасын пайдалана отырып интернет дүкен бағдарламасын құру32 бет
Delphi ортасында тест бағдарламасын құру58 бет
Delphi ортасында тестілеу бағдарламасын құру жобасы39 бет
Delphi-дің графикалық мүмкіндіктерін қолдана отырып қозғалатын бағдарлама құру20 бет
Delphi-де математикалық есептеуге арналған бағдарлама құру19 бет
Delphi-де тест бағдарламасын құру17 бет
«Тест» қосымшасын құру»25 бет
Электрондық курс және оны құру28 бет
Windows - тың стандартты программалары6 бет


Исходниктер
Пәндер
Көмек / Помощь
Арайлым
Біз міндетті түрде жауап береміз!
Мы обязательно ответим!
Жіберу / Отправить


Зарабатывайте вместе с нами

Рахмет!
Хабарлама жіберілді. / Сообщение отправлено.

Сіз үшін аптасына 5 күн жұмыс істейміз.
Жұмыс уақыты 09:00 - 18:00

Мы работаем для Вас 5 дней в неделю.
Время работы 09:00 - 18:00

Email: info@stud.kz

Phone: 777 614 50 20
Жабу / Закрыть

Көмек / Помощь