Встречено := а ожидался оператор , в 10 строке Var a,b,h,e: real;I,k: integer;
f,x: array [1..6] of real;
Function f1 (t :real) : real;
Begin f1 :=7230.122-925.124*t+0.96*t*t end;
Begin
Real(a,b,k,e);
h:=(b-a)/k;
For i:= 1 to k+1 do begin
x[i]:=a+(i-1)*h:
f[i]:=f1(x[i])
End;
For f[i]:=f[i];x[1];x[i] end;
a:=x[1]–h; b:=x[1]+h;
Writeln (‘A=‘, a,‘B=‘, b);
Until abs (b-a) x[1]:=(a+b)/2;
f[1]:=f1(x[1]);
Writeln(‘X=‘, x[1], ‘F=‘, f[1])
End.

vddrobysheva    2   11.02.2021 21:51    0