![]() Главная страница Случайная страница КАТЕГОРИИ: АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника |
Ход работы. ⇐ ПредыдущаяСтр 2 из 2
1. Запустим среду Delphi и создадим новую форму (File → New → Form). 2. Используя компоненты, размещенные на странице Additional палитры создать форму, на которой разместить следующие активные объекты: Edit, Label, Button, Memo, и из палитры Standard выбрать объект – BitBtn
Метки Label1, Label2, Label3, которые переименовать соответственно на xn, xk та h с соответствующими свойствами Font (шрифт) – Синий, размером 14, жирный. Для этого одновременно отделим пять объектов: держа нажатой клавишу Shift, поочередно активизируйте объекты, щелкая на них левой клавишей мыши. Очистите поле редактирования Label1, Label2, Label3 -для этого удалите значение свойства Text для объектов. Метки Button1, Button2, BitBtn1, которые переименовать соответственно на Вычислить, Очистить и Выход по соответствующим свойствам Font (шрифт) – Черный, размером 16, жирный. 1. Нажимаем двойным щелчком мыши на кнопке Button1 и впишем в открытый метод обработки нажатия TForm1.BitBtn1Click такие строки: procedure TForm1.Button1Click(Sender: TObject); var Form1: TForm1; y, xn, xk, h, t, x: real; begin xn: =strtofloat(Edit1.Text); xk: =strtofloat(Edit2.Text); h: =strtofloat(Edit3.Text); x: =xn; repeat t: =x-1; if t< 0 then memo1.Lines.Add('x='+FormatFloat('0.00', x)+' Нет решения') else begin y: =sqrt(t)+cos(3*x); memo1.Lines.Add('x='+FormatFloat('0.00', x)+' y='+FormatFloat('0.00', y)); end; x: =x+h; until x> xk; end; 2. Нажимаем двойным щелчком мыши на кнопке Button1 и впишем в открытый метод обработки нажатия TForm1.BitBtn1Click такие строки: procedure TForm1.Button2Click(Sender: TObject); begin memo1.Lines.Clear; end; 3. Нажимаем двойным щелчком мыши на кнопке Button1 и впишем в открытый метод обработки нажатия TForm1.BitBtn1Click такие строки: procedure TForm1.BitBtn1Click(Sender: TObject); begin Close; end; end. 1. Скомпилировать созданный проект функциональной клавишей F9. 2. Проверить работоспособность программы по своиму варианту. 3. Сохранить созданный проект командой File-Save Project As… в папке 1 курс – папка вашей специальности - файл ПР_19
Контрольные вопросы 1. Что такое цикл? 2. Перечислить виды циклов. 3. Что такое тело цикла? 4. Отличие между циклами с пред условием и условием после? 5. Какими функциональными клавишами осуществляется переход из кода программы на форму? 6. Какая функция преобразует строку в числовой формат?
|