Вопрос по информатике:
Исправьте программу, а то не получается ничего
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.
- 05.02.2018 23:46
- Информатика
- remove_red_eye 20041
- thumb_up 39
Ответы и объяснения 2
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.
- 06.02.2018 04:13
- thumb_up 39
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.
- 07.02.2018 23:12
- thumb_up 10
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.