Question

Исправьте программу, а то не получается ничего program jdjd; function f(x: real): real; var d,a,b,x,y,c,e: real; begin d : = 0.8; f : = x - sin(x) - 2 * 3.14 * (1 - d); write; readln (a); write; readln (b); write; readln (e); while b-a> 0 do begin c: =(a+b)/2; if f(z)*f(a)> 0 then a: =c else b: =c; end; write (c); end.

Answer 1

Program jdjd; 
var a,b,y,c,e:real; 
function F(x:real):real; 
begin 
F := x - sin(x) - 2 * 3.14 * (1 - 0.8); 
end;
begin
write ('a=');readln (a); 
write('b=');readln (b); 
write('e=');readln (e); 
while b-a>0 do 
begin 
c:=(a+b)/2; 
if f(z)*f(a)>0 then 
a:=c 
else 
b:=c; 
end; 
write (c); 
end.

Answer 2

Program jdjd;

var
  d, a, b, c, e: real;

function F(x: real): real;
begin
  d := 0.8;
  F := x - sin(x) - 2 * 3.14 * (1 - d)
end;

begin
  write('a='); readln(a);
  write('b='); readln(b);
  write('e='); readln(e);
  while b - a > e do
  begin
    c := (a + b) / 2;
    if f(b) * f(a) > 0 then a := c
    else b := c
  end;
  write(c);
end.