– 15 –

•в панели Horizontal выбрать переключатель Right sides (По правой стороне);

•выбирая попарно метку-заголовок и соответствующее ему поле выполнить выравнивания

– переключатель Centers (По центру) в панели Vertical.

Процедура обработки нажатия кнопки

Создать процедуру так же как и в первой лабораторной работе. Текст процедуры должен соответствовать приведенному ниже.

procedure TMainWindow.btCalcClick(Sender: TObject); var a, b, h: real;

begin

a := StrToFloat(edA.Text); { Текст из поля edA преобразовать в Float } b := StrToFloat(edB.Text); { Текст из поля edB преобразовать в Float } if (((a>=0.1)and(a<=1.0)) and ((b>=0.05)and(b<=3.0))) then begin

if ( a>=b ) then begin h := 3.0*a*a - b*b;

end

else begin

h := ln(3.0*a*a - b*b); end;

{ В заголовок метки lbResult вывести результат } lbResult.Caption := FloatToStr( h );

end

else begin

{ В заголовок метки lbResult вывести сообщение об ошибке } lbResult.Caption := 'Неверные параметры';

end;

end;

Отладка программы

•Выполнить несколько подсчетов с разными значениями данных.

•Выполнять по шагам.

•Поставить точку останова в программе обработки TMainWindow.btCalcClick и после выхода в отладчик пройти по шагам.

•Внести в окно слежения переменные edA.Text, a и b и проследить за изменением их значений при выполнении программы по шагам.

Варианты заданий

Создать приложение для вычисления некоторого выражения. Главная форма приложения должна содержать несколько полей ввода (элемент управления Edit в стандартной панели компонентов) для ввода параметров, возможно, несколько полей метки (элемент управления Label в стандартной панели компонентов) для вывода результата (ов) и кнопку (элемент управления Button в стандартной панели компонентов)инициирующую вычисление.

1.Корни квадратного уравнения. ax2 + bx + c = d

2.Коэффициент усиления по напряжению каскада усилителя с резистивно-емкостной свя-

зью.

3. Частота генерируемых колебаний автогенератора на туннельном диоде.

4. Нагрузка несущей колонны.

Калачев Д.П., Лутай В,Н,. Скороход С.В. Delphi. Лабораторные работы.