Вопрос по информатике:
Где здесь ошибка?
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.
- 25.10.2015 07:16
- Информатика
- remove_red_eye 12033
- thumb_up 30
Ответы и объяснения 1
Было несколько ошибок. Ниже текст, который проходит компиляцию без ошибок. Программа работает. А то ли она делает - установить нельзя, потому что не сказано, что она должна делать.
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.
- 26.10.2015 07:44
- thumb_up 41
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.