Лаба №7

if (x>=4) and (x<>8) then

begin

y:=sqrt(x);

N:=1;

end

else

if x<=1 then

begin

y:=2*x+3;

N:=2;

end

else

begin

y:=abs(exp(3*ln(x))-4);

N:=3;

end;

procedure TForm1.Button1Click(Sender: TObject);

var x,y:real;

begin

x:=StrToFloat(Edit1.Text);

if (x>=5) or (x=0.5) then y:=exp(20*ln(2*x))

else

if x<-2 then y:=2*sqr(x)

else

y:=sin(x);

Memo1.Clear;

Memo1.Lines.Add('программирование разветвляющихся алгоритмов');

Memo1.Lines.Add('Исходные даные:');

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

Memo1.Lines.Add('Результат:');

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

end;