вот кусочек кода
var a,b,c,x,y : real;
begin
x:=strtofloat(edit1.text);
case radiogroup1.ItemIndex of
0: begin
a:=1.2; b:=2.4; c:=4.7; end;
1: begin
a:=1.4; b:=3.7; c:=5.1; end;
2: begin
a:=1.6; b:=4.2; c:=6.5; end;
end;
if x>a then begin
y:=c*a + b*exp(3*ln(cos(a*x)));
end
else if (a<=x) and (x<b) then begin
y:=ln(abs(a*c/sqrt(x)))+b*x*exp(3*ln©);
end
else
if x>b then begin
y:=cos(a+b*x*c+a*sqr©);
end;
showmessage(floattostrF(y,fffixed,5,2));
end;
if x>a then begin
y:=c*a + b*exp(3*ln(cos(a*x)));
cos(1.4 * 2) = -0.94 ...
LN(-0.94) =
спасибо ща сделаем...
Да ... и выкладывай в этом разделе решения на Паскале, как ты понимашь, то что ты выложил на паскале откомпилировать не получится. Второй вариант выкладывать проект полностью в раздел Делфи.