Студопедия

Главная страница Случайная страница

Разделы сайта

АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника






Ход работы.






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. Какая функция преобразует строку в числовой формат?






© 2023 :: MyLektsii.ru :: Мои Лекции
Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав.
Копирование текстов разрешено только с указанием индексируемой ссылки на источник.