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;