Отчет по практике: Разработка программного обеспечения

var

Form1: TForm1;

Implementation

{$R*.DFM}

procedure TForm1.Button1Click(Sender: TObject);

var

x, y, z, a, b, c, u : extended;

begin

x:=StrToFloat(Edit1.Text); // Считываетсязначение X

Memo1.Lines.Add('X = '+Edit1.Text); // Вывод X вокно Memo1

y:=StrToFloat(Edit2.Text); // Считывается значение Y

Memo1.Lines.Add('Y = '+Edit2.Text); // Вывод Y вокно Memo1

z:=StrToFloat(Edit3.Text); // Ситывается значение Z

Memo1.Lines.Add('Z = '+Edit3.Text); // Вывод Z вокно Memo1

// Вычисляем арифметическое выражение

a:=Sqr(Sin(x+y)/Cos(x+y));

b:=Exp(y-z);

c:=Sqrt(Cos(Sqr(x))+Sin(Sqr(z)));

u:=a-b*c;

// Выводим результат в окно Memo1

Memo1.Lines.Add('РезультатU = '+FloatToStrF(u,ffFixed,8,3));

end;

end.

Кнопки-переключатели в DELPHI

При создании программ и DELPHI дня организации разветвлений часто используются компоненты в виде кнопок-переключателей. Состояние такой кнопки (включено - выключено) визуально отражается на форме.

Компонент TCheckBox организует кнопку независимого переключателя, с помощью которой пользователь может указать свое решение типа да/нет. В программе состояние кнопки связано со значением булевской переменной, которая проверяется с помощью оператора if.

Компонент TRadioGroup организует группу кнопок - зависимых переключателей. При нажатии одной из кнопок группы все остальные кнопки отключаются. В программу передается номер включенной кнопки (0,1,2,..), который анализируется с помощью оператора case.

Пример написания программы разветвляющегося алгоритма

Задание: ввести три числа - х, у, z. Вычислить по усмотрению u=sin(x) или