Помогите исправить задачу

@Nissan · Регистрация: 09.09.2009

Author24 — интернет-сервис помощи студентам

У меня дано уравнение a*x+b=0. Мне нужно найти его значение через метод деления отрезка пополам и метод итераций. Сделать так чтобы можно было задать любое значение а и любое значение b, а также точность и интервал на котором я буду искать данное значение. Вот текст программы

Pascal

Program task_1;
uses crt;
function F(a,b,c,x:real):real;
begin
F:=a*x+b;
end;
procedure Dihot(a,b,c,xn,xk,e:real;var x:real);
var xs:real;
begin
repeat
 xs:=(xn+xk)/2;
 if F(a,b,c,xn)*F(a,b,c,xs)<=0 then xk:=xs
 else xn:=xs;
until xk-xn<e;
x:=(xn+xk)/2;
writeln('method dilennya navpil:');
writeln('x=',x:0:1);
end;
procedure Iter(a,b,c,xn,xk,e:real;var x:real);
var x1,x2,f1,f2:real;
    n,i:longint;
begin
{method iteracij}
n:=round((xk-xn)/e);
x1:=xn; f1:=F(a,b,c,x1);
for i:=1 to n do
  begin
   x2:=x1+(xk-xn)/n;
   f2:=F(a,b,c,x2);
   if f1*f2 <= 0 then
    begin
     writeln('method iteracij:');
     writeln('x=',(x2 + x1)/2:0:5);
    end;
   x1:=x2; f1:=f2;
  end;
end;
 
var a,b,c,xn,xk,x,e:real;
begin
clrscr;
a:=-0.5;b:=-1;
xn:=-5;xk:=5;
if F(a,b,c,xn)=0 then
  begin
     writeln('x=xn=',a:9:6);
     readln;
     exit;
  end;
if F(a,b,c,xk)=0 then
   begin
     writeln('x=xk=',b:9:6);
     readln;
     exit;
   end;
if F(a,b,c,xn)*F(a,b,c,xk)>0 then
  begin
   writeLn('meghi intervaly zadani nevirno');
   readln;
   exit;
  end;
writeln('F(x)=a*x+b=0');
writeln('a=-0.5; b=-1;');
writeln;
writeln('tochnist = 0.1: ');
e:=0.1;
Dihot(a,b,c,xn,xk,e,x);
Iter(a,b,c,xn,xk,e,x);
writeln;
writeln('tochnist = 0.05: ');
e:=0.05;
Dihot(a,b,c,xn,xk,e,x);
Iter(a,b,c,xn,xk,e,x);
writeln;
writeln('tochnist = 0.001: ');
e:=0.001;
Dihot(a,b,c,xn,xk,e,x);
Iter(a,b,c,xn,xk,e,x);
readln
end.

@TAVulator · 03.10.2009, 18:01

в чем вопрос-то?

@Nissan · 03.10.2009, 19:06 **[ТС]**

Мне нужно сделать так чтобы при компиляции можно было задать любое значение а и любое значение b, а также точность и интервал на котором я буду искать данное значение.

Добавлено через 39 минут
Все я уже исправил, спасибо за помощь. Программа будет выглядеть так:

Pascal

Program task_1;
uses crt;
function F(a,b,c,x:real):real;
begin
F:=a*x+b;
end;
procedure Dihot(a,b,c,xn,xk,e:real;var x:real);
var xs:real;
begin
repeat
 xs:=(xn+xk)/2;
 if F(a,b,c,xn)*F(a,b,c,xs)<=0 then xk:=xs
 else xn:=xs;
until xk-xn<e;
x:=(xn+xk)/2;
writeln('method dilennya navpil:');
writeln('x=',x:0:1);
end;
procedure Iter(a,b,c,xn,xk,e:real;var x:real);
var x1,x2,f1,f2:real;
    n,i:longint;
begin
{method iteracij}
n:=round((xk-xn)/e);
x1:=xn; f1:=F(a,b,c,x1);
for i:=1 to n do
  begin
   x2:=x1+(xk-xn)/n;
   f2:=F(a,b,c,x2);
   if f1*f2 <= 0 then
    begin
     writeln('method iteracij:');
     writeln('x=',(x2 + x1)/2:0:5);
    end;
   x1:=x2; f1:=f2;
  end;
end;
 
var a,b,c,xn,xk,x,e:real;
begin
clrscr;
writeln ('vvesti znachennya a= , b= ');
readln (a,b);
writeln ('vvesti meghi xn= xk= ');
readln (xn, xk);
if F(a,b,c,xn)=0 then
  begin
     writeln('x=xn=',a:9:6);
     readln;
     exit;
  end;
if F(a,b,c,xk)=0 then
   begin
     writeln('x=xk=',b:9:6);
     readln;
     exit;
   end;
if F(a,b,c,xn)*F(a,b,c,xk)>0 then
  begin
   writeLn('meghi intervaly zadani nevirno');
   readln;
   exit;
  end;
writeln('F(x)=a*x+b=0');
writeln('a=  b=');
writeln;
readln;
readln;
writeln('tochnist= ');
readln(e);
Dihot(a,b,c,xn,xk,e,x);
Iter(a,b,c,xn,xk,e,x);
writeln;
writeln('tochnist= ');
readln (e);
Dihot(a,b,c,xn,xk,e,x);
Iter(a,b,c,xn,xk,e,x);
writeln;
writeln('tochnist= ');
readln (e);
Dihot(a,b,c,xn,xk,e,x);
Iter(a,b,c,xn,xk,e,x);
readln
end.

@TAVulator ⚽ 4190 / 1291 / 237 Регистрация: 27.07.2009 Сообщений: 3,962
	03.10.2009, 18:01	2
	в чем вопрос-то? 1

	03.10.2009, 19:06