Форум программистов, компьютерный форум, киберфорум
Free Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Free Pascal Заменить нулевые элементы, расположенные над побочной диагональю, на -1 Дан двумерный массив 5*5. Заменить нулевые элементы, расположенные над побочной диагональю, на -1. Помогите пожалуйста, отстаю немного от графика сдач) https://www.cyberforum.ru/ free-pascal/ thread985162.html Free Pascal Выход из цикла после нажатия клавиши, например пробела
Помогите с такой проблемой, я написал программу и надо сделать так чтобы после нажатия клавишы(например пробела, шифта, ну или какой другой) программа выходила из цикла Program U; Uses Crt; Var i:integer; begin clrscr; writeln('введи любое число'); repeat readln(i) if i>50 then begin writeln('число больше 50'); end else writeln('число меньше 50');
Free Pascal не могу выполнить задачу! 1.3. Черепаха Входной файл input.txt Выходного файл output.txt Ограничение по времени: 2 секунды Ограничение по памяти: 64 МБ Существует одна древняя загадка, согласно которой Ахиллес никак не сможет догнать черепаху, которая находится на некотором расстоянии от него, и движется с постоянной скоростью. Почему? Пусть Ахиллес и черепаха находятся в точках X1 и X2 на некоторой прямой и... https://www.cyberforum.ru/ free-pascal/ thread984388.html Free Pascal Количество единиц топлива необходимо для спуска с высоты A до высоты B над уровнем моря. https://www.cyberforum.ru/ free-pascal/ thread984353.html
Задача: Недавно Шурик увлекся полетами на воздушном шаре. Все бы хорошо, но однажды у него закончилось топливо, и приземление оказалось очень жестким. Отделавшись легким испугом и парой царапин, он решил создать микроконтроллер, который бы сигнализировал о необходимости начать спуск. Оказалось, что для плавного спуска нужно каждые два метра сжигать одну единицу горючего. Для простоты наш...
Подтягивания Free Pascal
Серега и Костен — заядлые спортсмены. Как обычно, они качались на турниках. В этот момент к ним подошла Маша и дала тонкий намек на то, что не отказалась бы посмотреть, как ребята играют в лесенку вплоть до N подтягиваний, а победитель получит приз. Игра в лесенку известна всем, но все же: каждый из парней делают по очереди подходы от 1 до N включительно подтягиваний, а потом от N-1 до 1...
Free Pascal Динамические переменные =) Как мне реализовать такую программу? Var a1,a2,a3,a4,a5 : integer; b : byte; begin b := random(5); a(b) := 10; end. P.S. Код не рабочий! Это пример! https://www.cyberforum.ru/ free-pascal/ thread983994.html
Free Pascal Турбо Паскаль. Информатика https://www.cyberforum.ru/ free-pascal/ thread983947.html
Найти номера элементов массива чисел b(50), меньших заданного числа
Free Pascal Определить, сколько железа выплавят из А тонн руды
1)Из 18 т железной руды выплавляют 10 т железа. Сколько железа выплавят из А т руды? 2)Масса молекул кислорода в организме человека составляет 65% от его массы. Составьте программу для определения массы молекул кислорода в организме человека. 3) Известна сумма денег, имеющаяся у покупателя и стоимость одной единицы товара. Сколько единиц товара сможет купить покупатель и какова его сдача?
Free Pascal Отрицательные элементы массива возвести в квадрат https://www.cyberforum.ru/ free-pascal/ thread983765.html
помогите написать 2 задание на паскале
Free Pascal где ошибка? https://www.cyberforum.ru/ free-pascal/ thread983389.html
ребят, все время выдает не тот ответ, что надо... можете просмотреть задачку,и мое решение? итак условие: Вася заработал много денег. Ради интереса он изобрел машину, которая может менять номинал купюр, причем у тех купюр, которые имеют номинал выше среднего арифметического, номинал меняется на максимальный из присутствующих, а у тех что меньше, на наименьший из присутствующий. Теперь он хочет...
Дочке задали задачку Free Pascal
Суть задачи посчитать модуль х Сама задача y=abc(x) Var x,y: integer; begin writeln ('x?');
Free Pascal подключить мышку Как подключить мышку, как будет выглядеть код? https://www.cyberforum.ru/ free-pascal/ thread982942.html
696 / 570 / 414
Регистрация: 31.03.2013
Сообщений: 1,029
23.10.2013, 09:21 0

Вычислить сумму членов бесконечного ряда с заданной точностью - Free Pascal - Ответ 5222552

23.10.2013, 09:21. Показов 1421. Ответов 2
Метки (Все метки)

Лучший ответ Сообщение было отмечено Justfast как решение

Решение

Justfast,
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
const e=10e-5;
var x,s,sk:real;
   k:integer;
begin
  write('x = ');readln(x);
  sk:=1;
  s:=1;
  k:=0;
  writeln('e = ',e:0:4);
  repeat
    inc(k);
    sk:=-sk*x*x/((2*k-1)*(2*k));
    s:=s+(2*k*k+1)*sk;
    writeln('s[',k,'] = ',sk*(2*k*k+1):0:5);
  until (abs(sk*(2*k*k+1))<e);
  writeln('s = ',s:0:5,', k = ',k);
  readln
end.


Вернуться к обсуждению:
Вычислить сумму членов бесконечного ряда с заданной точностью Free Pascal
1
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.10.2013, 09:21
Готовые ответы и решения:

Составить программу вычисления суммы членов бесконечного ряда S с заданной точностью ε=
Только для 1 варианта. Составить программу вычисления суммы членов бесконечного ряда S с...

Вычислить значение суммы бесконечного ряда с заданной точностью
Вычислить значение суммы бесконечного ряда с заданной точностью ε=10-4...

Циклы: вычислить значение суммы бесконечного ряда с заданной точностью
Доброй ночи, народ) помогите с кодом пожалуйсста: 3. Вычислить значение суммы бесконечного ряда с...

Вычислить сумму бесконечного ряда с точностью е
Написать программу для обчисления суммы ряда с точностью е. program test; var u, s :real; z, n...

2
23.10.2013, 09:21
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.10.2013, 09:21
Помогаю со студенческими работами здесь

Вычислить сумму бесконечного ряда с точностью е
program test; var u, s :real; z, n :integer; fac :longint; i :byte; const e=1e-3; x=0.25;...

Вычислить с заданной точностью сумму ряда
а сможешь помочь вот с этим: вычислить с заданной точностью сумму ряда (сумма от i=1 до...

Вычислить сумму ряда с заданной точностью
Помогите пожалуйста!) нужно решение в Free Pascal) Вот задание: Не используя стандартные функции...

Вычислить сумму ряда с заданной точностью
Помогите пожалуйста написать программу. И если можно с подробным описанием. Заранее спасибо)...

Вычислить с заданной точностью сумму ряда.
Дано действительное х.Вычислить с заданной точностью(10^-6) сумму ряда (сумма от к=1 до...

Вычислить сумму ряда с заданной точностью
Вычислить бесконечную* сумму с заданной точностью e (e&gt;0).* Счи- тать,* что требуемая точность...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru