Написать таблицу после программы
помогите плиз не могу понять. после программы нужно написать таблицу типа: название a; тип real; и описание....
программа такая:
Program First;
function f(x:real):real;
begin
f:=x*x*x*x+8*x*x-3;
end;
var
a,b,e,x,c:real;
begin
writeln ('Найти корень уравнения x^4+8*x^2-3 на интервале [0;2] с точностью 0,001');
a:=0;
b:=2;
e:=0.001;
repeat
c:=(a+b)/2;
if f(a)*f(c)<=0 then b:=c
else a:=c
until b-a<e;
x:=(a+b)/2;
writeln ('x',x:0:3);
readln
end.
[mod2]Алёна, у нас не принято лезть в чужие темы - создавайте свои! Тем более, что та, в которую Вы запостили вопрос, не соответствует задаче: там - метод касательных, а у Вас - половинное деление.
Модератор.[/mod2]
помогите плиз не могу понять. после программы нужно написать таблицу типа: название a; тип real; и описание....
программа такая:
Program First;
function f(x:real):real;
begin
f:=x*x*x*x+8*x*x-3;
end;
var
a,b,e,x,c:real;
begin
writeln ('Найти корень уравнения x^4+8*x^2-3 на интервале [0;2] с точностью 0,001');
a:=0;
b:=2;
e:=0.001;
repeat
c:=(a+b)/2;
if f(a)*f(c)<=0 then b:=c
else a:=c
until b-a<e;
x:=(a+b)/2;
writeln ('x',x:0:3);
readln
end.
[mod2]Алёна, у нас не принято лезть в чужие темы - создавайте свои! Тем более, что та, в которую Вы запостили вопрос, не соответствует задаче: там - метод касательных, а у Вас - половинное деление.
Модератор.[/mod2]