Никон
5 год назад
исправьте программу, а то не получается ничего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.
ОТВЕТЫ
Юлия
Oct 24, 2020
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.
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.
732
