Пожаловаться
- 03.04.2018 20:45
- Информатика
- remove_red_eye 8475
- thumb_up 12
Ответы и объяснения 1
Var x,y:real; i:integer;
begin
write('x = ');
readln(x);
y:=0;
if x>0
then for i:=1 to 10 do y:=y+1/((2*i-1)*x)
else if x<0 then for i:=1 to 10 do y:=y+1/(2*i*x);
writeln('y = ',y:5:3);
end.
Пример:
x = -2
y = -0.732
begin
write('x = ');
readln(x);
y:=0;
if x>0
then for i:=1 to 10 do y:=y+1/((2*i-1)*x)
else if x<0 then for i:=1 to 10 do y:=y+1/(2*i*x);
writeln('y = ',y:5:3);
end.
Пример:
x = -2
y = -0.732
Пожаловаться
- 04.04.2018 12:40
- thumb_up 9
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы