Студопедия

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

КАТЕГОРИИ:

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






Ход работы.




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


mylektsii.ru - Мои Лекции - 2015-2017 год. (0.009 сек.)