Регистрация
kotlaralina
19.09.2021 03:21
Информатика
Есть ответ 👍

Исправьте программу, а то не получается ничего 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.

228
290
Посмотреть ответы 3

Ответы на вопрос:

megakrykova
megakrykova
4,7(76 оценок)
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.
slavachekunov
slavachekunov
4,4(95 оценок)
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.
Udjfjwojzksnsnsnslkm
Udjfjwojzksnsnsnslkm
4,5(84 оценок)
1,9 гб = 1945,6 мб ( мегабайт)

Популярно: Информатика