Лаба №8

Даны числа a, b, c, d. Найти min {max (a, b), max (c, d)}:

if a>b then

max1:=a

else

max1:=b;

if c>d then

max2:=c

else

max2:=d;

if max1<max2 then

min:=max1

else

min:=max2;

Даны два целых числа a, b. Найти вещественные корни уравнения ax ² + b = 0 или вывести сообщение об их отсутствии:

procedure TForm1.Button1Click(Sender: TObject);

var

x2,x1,p2,p1,a,b:real;

begin

Memo1.Clear;

a:=StrToFloat(Edit1.Text);

b:=StrToFloat(Edit2.Text);

p1:=-1*b;

P2:=P1/a;

if P2<0 then

Memo1.Lines.Add('В этом уравнении корней нет')

else

Begin

x1:=sqrt(P2);

x2:=-sqrt(P2);

Memo1.Lines.Add('Получили корни:');

Memo1.Lines.Add('x1 = '+FloatToStr(x1));

Memo1.Lines.Add('x2 = '+FloatToStr(x2));

end

end;