Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Другие темы раздела
PascalABC.NET гляньте пожалуйста не могу исправить.Сильно надо последняя задолженность преподу https://www.cyberforum.ru/ pascalabc-net/ thread1055147.html
program laboratornaya5; uses crt; var x,y,g,k,f1,f2,f3:real;n,o:integer; otv:0..1; ot:1..4; label 1,2,3; begin 4:clrscr; writeln('Выберете режим:'); writeln('1-первая...
PascalABC.NET Математический маятник
Нужно написать программу которая будет изображать мат. маятник, при этом пользователь вводит длину подвеса и частоту колебаний!
PascalABC.NET Нужно объяснение
Объясните, пожалуйста, как в этих программах выполняются действия. Не могу понять по какому принципу считаются тут. 1)var i,j,s,k:integer; a: array of integer; begin s:=0; k:=1; for i:=1 to 5...
PascalABC.NET Проверьте, включено ли множество Y в множество X Имеются 3 множества символьного типа: Y1=; Y2=; Y3=. Постройте множество X = (Y1\tiny \bigcapY2)\tiny \bigcup(Y1\Y2). Выведите его на печать и проверьте,включено ли множество Y3 в множество X.... https://www.cyberforum.ru/ pascalabc-net/ thread1054543.html
PascalABC.NET Замена всех нулевых элементов массива на минимальный элемент https://www.cyberforum.ru/ pascalabc-net/ thread1054530.html
ввести двумерный массив А(N,M). Составить программу замены всех нулевых элементов на минимальный элемент Помогите пожайлуста)
PascalABC.NET Специальные методы сортировки
Реализовать специальные методы сортировки: • Простейшую карманную с использованием второго массива и без него • Обобщенную карманную сортировку с повторяющимися ключами и дополнительными списками...
PascalABC.NET Описать процедуру печати таблицы, параметрами которой являются функции-процедурные переменные
Нужно описать процедуру печати таблицы, параметрами которой являются функции-процедурные переменные, вычисляют: tg x, ctg x x и y изменяются в определенном диапазоне; с - в пределах кодовой таблицы.
PascalABC.NET Найти одномерный массив В из сумм элементов каждой строки матрицы написать программу в турбо паскале, помогите!!!!! Дана Матрица А(5.4) 1)Найти одномерный массив В из сумм элементов каждой строки матрицы 2)найти максимальный элемент матрицы А в 5-ой строке... https://www.cyberforum.ru/ pascalabc-net/ thread1053906.html
PascalABC.NET В каком порядке выполняются операции в выражениях множественного типа? https://www.cyberforum.ru/ pascalabc-net/ thread1053865.html
В каком порядке выполняются операции в выражениях множественного типа?
PascalABC.NET Как выполнить в турбо паскале Очень нужна помощь https://www.cyberforum.ru/ pascalabc-net/ thread1053829.html
PascalABC.NET Найти общую сумму элементов только тех столбцов, которые имеют хотя бы один нулевой элемент https://www.cyberforum.ru/ pascalabc-net/ thread1053700.html
Дана вещественная матрица размерности n * m. Найти общую сумму элементов только тех столбцов, которые имеют хотя бы один нулевой элемент.
PascalABC.NET Смоделировать колебания пружинного маятника Помогите, составить программу, моделирующую колебания пружинного маятника (колебания происходят в направлении оси у). https://www.cyberforum.ru/ pascalabc-net/ thread1053554.html
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
30767 / 20097 / 7853
Регистрация: 22.10.2011
Сообщений: 34,917
Записей в блоге: 6
24.12.2013, 19:24 0

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

24.12.2013, 19:24. Просмотров 1007. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено 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.


Вернуться к обсуждению:
Нужно исправить в 14 строке формулу чтобы ответ получился -2,341 при x=5 n=4
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.12.2013, 19:24
Готовые ответы и решения:

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