Где здесь ошибка? program P12; uses crt; var a,b,c:real; i,n:integer; function F(x:real):real; begin f: = sqr(sqr(x))+(sqr(x))*x-8*x(sqr(x))+5*x-3-cos(2*x); end; begin clrscr; a: = 0; b: = 1; n: = 20; for i: = 1 to n do begin c: = (a+B)/2; writeln('i = ',i:3, x = ',c:8:5, f(x) = ,f(c):10:5); if f(c) = 0 then break else if f(c)*f(a)>0 then a: = c else b: = c; end; end.
179
ОТВЕТЫ
Было несколько ошибок. Ниже текст, который проходит компиляцию без ошибок. Программа работает. А то ли она делает - установить нельзя, потому что не сказано, что она должна делать.
program P12;
uses crt;
var a,b,c:real;
i,n:integer;
function F(x:real):real;
begin
f:=sqr(sqr(x))+(sqr(x))*x-8*x*(sqr(x))+5*x-3-cos(2*x);
end;
begin
clrscr;
a:=0; b:=1; n:=20;
for i:=1 to n do
begin
c:=(a+B)/2;
writeln(i=,i:3, x=,c:8:5, f(x)=,f(c):10:5);
if f(c)=0 then break
else if f(c)*f(a)gt;0 then a:=c else b:=c;
end;
end.
program P12;
uses crt;
var a,b,c:real;
i,n:integer;
function F(x:real):real;
begin
f:=sqr(sqr(x))+(sqr(x))*x-8*x*(sqr(x))+5*x-3-cos(2*x);
end;
begin
clrscr;
a:=0; b:=1; n:=20;
for i:=1 to n do
begin
c:=(a+B)/2;
writeln(i=,i:3, x=,c:8:5, f(x)=,f(c):10:5);
if f(c)=0 then break
else if f(c)*f(a)gt;0 then a:=c else b:=c;
end;
end.
38
Отв. дан
Darkbrew
Для написания вопросов и ответов необходимо зарегистрироваться на сайте
Другие вопросы в разделе - Математика
Andromasius
Бічна сторона рівнобедреного трикутника дорівнює 9 см, а його ...
2018-09-23 00:00:00
Bogra
С какими целями фараоны содержали большое войско? Как египтяне ...
2018-09-23 00:00:00
Vidal
Сколько человек онемело бы если бы им запретили говорить ...
2018-09-23 00:00:00
Агата
Пожалуйста напишите сочинение ''История одной дуэли" (смерть А. С. ...
2018-09-23 00:00:00