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

volvo

Супер-модератор

30767 / 20097 / 7853

Регистрация: 22.10.2011

Сообщений: 34,917

Записей в блоге: 6

24.12.2013, 19:24

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

24.12.2013, 19:24. Просмотров 1007. Ответов 1

Метки (Все метки)

Сообщение было отмечено 33Anton11 как решение

Решение

Pascal

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

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;...

Наверх