| ShowMessage(FloatToStr(s));
Немесе ShowMessage(FloatToStr(s, ffgeneral,7,3));
Жүйе соңғы операторды оқып шығып , жеті цифрдан тұратын нақты санды символдық типте шығару терезесінде көрсетеді.
Мысал. X=4,8 үшін y=2x+5/3 функциясының мәнін есептеу керек. Х мәні InputBox терезесі арқылы енгізілсін, у мәні ShowMessage терезесінде көрсетілсін.
1.File/New Application командасын беріп, жаңа проект ашыңыз. Form 1 терезесі көрінеді.
2.Форманы екі рет шертіңіз. Unit1.pas атаулы модуль құрылады да, код терезесінде OnCreate оқиғасын өңдеуіш процедурасының дайындамасы көрінеді 1-сурет.
1-сурет.Программалық код терезесі.
3.Келесі программаны енгізіңіз:
Бұл – форманы екі рет шерту (OnCreate) оқиғасына сәйкес жазылған оқиғаны өңдеу процедурасы.
4.Іске қосу: Run немесе F9 клавишін басыңыз.
5. Терезеге 4,8 мәнін енгізіп, ОК түймесін басыңыз 2-сурет:
2-сурет. Мән енгізу.
41
6.Нәтижесі 3-суретте көрсетілген:
3-сурет. Нәтиже.
Тапсырма 1. Процедураға ShowMessage(FloatToStr(s, ffgeneral,7,3)); операторын енгізіп, программаны іске қосыңыз.
Тапсырма 2. Мысалды TEdit, Tlabel,TButton компоненттері арқылы келесі процедураны қойып орындаңыз:
Достарыңызбен бөлісу: |
