Определение корней уравнения Опции

[alina]

Задача: Определение корней уравнения, т.е. нахождение отрезков содержащих единственный корень.

Надо составить программу для

Код

f:=x-3
То есть надо найти x.
В программе надо использовать:
if f(a+h)=0 then writeln(x:0:3);
и это:
if f(a)*f(a+h)<0 then writeln(a:0:3,' ,(a+h):0:3);
и ЭТО:
while a<=b do
Также надо использовать ещё и это:
a:=a+h;
Также надо использовать ещё и это:
function f(x:real):real;
begin
f:=x-3;
end;

[klem4]

Ну вот же оно решение, я же показывал тебе!

Код

uses crt;
var  a,b,h,x:real;

function f(x:real):real;
begin
  f:=x-3;
end;

Begin
  clrscr;
  write('a=');readln(a);
  write('b=');readln(b);
  write('h=');readln(h);
  x:=a;
  while x<= (b+h/2) do
   begin
      if abs(f(x))<0.000001 then
       writeln('x=',x:2:3);
      if f(x)*f(x+h)<0.000001 then
       writeln('x=',x:2:3,' ','x+h=',(x+h):2:3);
      x:=x+h;
   end;
  readln;
End.

[Altair]

я точно такую-же программу выслал ей... уже 2 раз....

[alina]

Ну вот же оно решение, я же показывал тебе!

Но Вы не использовали вот это:

Код

if f(a+h)=0 then writeln(x:0:3);
if f(a)*f(a+h)<0 then writeln(a:0:3,' ,(a+h):0:3);
while a<=b do
a:=a+h;

А мне нужна программа где будет использховано вот это всё!
Помогите пожалуйста! :molitva: :molitva: :molitva: :molitva: :molitva: :molitva:

[klem4]

А ЭТО ЧТО ?

Код

...
if abs(f(x))<0.000001 then
  writeln('x=',x:2:3);
if f(x)*f(x+h)<0.000001 then
  writeln('x=',x:2:3,' ','x+h=',(x+h):2:3);
  x:=x+h;
...

[volvo]

alina
Если

мне нужна программа где будет использховано вот это всё!

, то переписывайте все, что написано в задании и пользуйтесь. Вам главное что? Чтобы все было использовано, или чтобы программа правильно работала?

Вот это:

Код

if f(a+h)=0 then

стабильно работать не будет...

[Altair]

стабильно работать не будет...

Да уж... еще месяц назад я бы так не подумал

[alina]

alina
Если , то переписывайте все, что написано в задании и пользуйтесь. Вам главное что? Чтобы все было использовано, или чтобы программа правильно работала?

Вот это:

Код

if f(a+h)=0 then

стабильно работать не будет...

Да может быть Вы и правы, но нам преподаватель сказал что мы должны и пользовать все эти данные обязательно!!
Пожалуйста помогите!