Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
0 / 0 / 0
Регистрация: 30.11.2013
Сообщений: 4
1

Нужно исправить в 14 строке формулу чтобы ответ получился -2,341 при x=5 n=4

24.12.2013, 18:49. Просмотров 982. Ответов 1
Метки нет (Все метки)

1.program summa;
2.var
3. q,x,y,s:real;
4. n,i,p,t:integer;
5.begin
6. writeln('x');
7. readln(x);
8. writeln('n');
9. readln(n);
10. t:=-1;p:=1;y:=1;s:=1;
11. for i:=1 to n do
12.begin
13. s:=s+y;
14. p:=i*p*(i+1)*(i+2);
15. y:=power(t,i)*power(x,2*i)/p;writeln(y);
16.end;
17. write('s=',s);
18.end.
Вот есть формула https://www.cyberforum.ru/cgi-bin/latex.cgi?\huge S=\sum_{0}^{n}\frac{(-1)^i*(x^2)^i}{(3i)!}
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.12.2013, 18:49
Ответы с готовыми решениями:

Нужно исправить в 14 строке формулу чтобы ответ получился -2,341 при x=5 n=4
1.program summa; 2.var 3. q,x,y,s:real; 4. n,i,p,t:integer; 5.begin 6. writeln('x'); 7. ...

Записать последовательность вызовов CAR и CDR таким образом, чтобы ответ получился - A
всем привет...помогите записать последовательность вызовов CAR и CDR таким образом, чтобы ответ...

Записать последовательность вызовов CAR и CDR таким образом, чтобы ответ получился - А
всем привет...помогите записать последовательность вызовов CAR и CDR таким образом, чтобы ответ...

Что нужно изменить, чтобы получился однонаправленный список?
Что нужно добавить или изменить, чтобы получился однонаправленный список? struct car{ char name;...

1
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
30626 / 19986 / 7814
Регистрация: 22.10.2011
Сообщений: 34,812
Записей в блоге: 6
24.12.2013, 19:24 2
Лучший ответ Сообщение было отмечено 33Anton11 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
program summa;
var
  x, s, p: real;
  n, i: integer;
begin
  writeln('x');
  readln(x);
  writeln('n');
  readln(n);
  p := 1; s := p;
  for i := 1 to n do
  begin
    p := -p * sqr(x) / (3 * i - 2) / (3 * i - 1) / (3 * i);
    s := s + p;
  end;
  write('s=', s);
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.12.2013, 19:24

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Что нужно установить на FreeBSD8.1 чтобы получился сервер?
Значит так, появилась необходимость собрать сервак для небольшого офиса, человек на 10. Задачи...

Цилиндр нужно разделить плоскостями чтобы получился квадрат
Цилиндр нужно разделить плоскостями чтобы получился квадрат...Высота цилиндра = 8, диаметр = 5....

что нужно заметить для того чтобы получился прямоугольник ?
И так, это код в цикле do_while показывающий на экране квадрат сторонами 5*5 с этим я справился,...

Какое наименьшее количество ребер нужно добавить к графу, чтобы получился граф, имеющий Эйлеров цикл
Какое наименьшее количество ребер нужно добавить к графу K_{3,4} чтобы получился граф, имеющий...

Нужно исправить формулу
Привет всем. Я написал функцию на Visual Basic но думаю, что не правильно написал. Подскажите, что...

Нужно исправить формулу
Вот что нужно сделать А вот мой код =ЕСЛИ(B1<=0;0,8-0,1*(B1);4,756 LN(B1)+COS(B1)) Как нужно...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.