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

[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.