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

еще может потребоваться подключить модуль crt

Answer 3

и в описании переменных не нужен y

Answer 4

У Вас z не описано

Answer 5

И e, которое вводится, не используется.

Answer 6

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.

Answer 7

Это программа поиска корня уравнения методом деления отрезка пополам.