исправьте программу, а то не получается ничего
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.
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.
More Questions From This User See All
Answers & Comments
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.