Форум программистов, компьютерный форум, киберфорум
Free Pascal
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Free Pascal
Войти
Регистрация
Восстановить пароль
Правила Карта форума Темы раздела Блоги Социальные группы Поиск Сообщения за день  
Другие темы раздела
Free Pascal Последовательно вводятся целые положительные числа. Для каждого числа выяснить, является ли оно факториалом https://www.cyberforum.ru/ free-pascal/ thread1570607.html
Последовательно вводятся целые положительные числа. Для каждого числа выяснить, является ли оно факториалом какого-либо числа. Если да, то вывести число, факториалом которого является вве-денное, если нет, вывести сообщение об этом. Признаком конца ввода является ввод нуля. 		Free Pascal Дано натуральное n. Составить программу для поиска первой цифры этого числа
Дано натуральное n. Составить программу для поиска первой цифры этого числа.
Free Pascal После скольких отражений от стенок шар окажется в одной из луз Задача Billiards. Бильярдный стол имеет форму прямоугольника mхn. В точку с координатами (0,0) положили шар и ударили по нему так, что он покатился под углом a к положительному направлению оси оХ. В углах с координатами (0,0), (0, n), (m, 0), (m, n) находятся лузы. Найти, после скольких отражений от стенок шар окажется в одной из луз или сообщить о том, что это не состоится. Все удары о стенки... https://www.cyberforum.ru/ free-pascal/ thread1570566.html Free Pascal Умножить все положительные элементы массива на квадрат min, а отрицательные - на квадрат max элемента https://www.cyberforum.ru/ free-pascal/ thread1570559.html
задано массив P (13). Умножить все положительные элементы массива на квадрат наименьшего элемента, а все отрицательные - на квадрат крупнейшего элемента. Вывести исходный и сформированый массивы, а также найти минимум и максимум
Free Pascal Установить, может ли принять потерпевших на борт без изменений маршрута судно
Для организации поисков терпящей кораблекрушение шхуны необходимо срочно установить: может ли принять потерпевших на борт без изменений маршрута судно,двигающееся по прямой линии. 		Free Pascal Не компилируется программа https://www.cyberforum.ru/ free-pascal/ thread1570317.html
Прохожу сейчас тренировочную сессию олимпиады ИТМО. Написала прогу, но она не компилируется! Вот условие: Вы пишете программу, задача которой заключается в анализе данных с биржи и принятии решений о покупке или продаже того или иного ресурса. Более конкретно, вы разрабатываете модуль, который по набору трейдеров, торгующих некоторым ресурсом, должен уметь определять, как наиболее выгодно...
Free Pascal Из входного неограниченного потока чисел создать последовательность квадратов чисел и вывести их на экран https://www.cyberforum.ru/ free-pascal/ thread1569893.html
Из входного неограниченного потока чисел создать последовательность квадратов чисел и вывести их на экран. 		Free Pascal Составить программу которая подсчитывает количество слов в текстовом файле
Составить программу которая подсчитывает количество слов в текстовом файле.
Free Pascal Вычислить значение переменной s=s1+s2, где s1 – сумма элементов массива A1(7), модуль которых не превышает 7 https://www.cyberforum.ru/ free-pascal/ thread1569891.html
2. Вычислить значение переменной s=s1+s2, где s1 – сумма элементов массива A1(7), абсолютная величина которых не превышает числа 7, а s2 – сумма элементов массива A2(7), обладающих тем же свойством. 		Free Pascal Вычислить площадь четырехугольника 1. У выпуклого четырехугольника известны длины сторон и расстояния от внутренней точки четырехугольника к каждой стороны. Вычислить площадь четырехугольника. https://www.cyberforum.ru/ free-pascal/ thread1569890.html
Напечатать буквы, что входят в текст дважды Free Pascal
2. Дан текст с прописными латинскими буквами, за которым идет точка. Напечатать буквы, что входят в текст дважды. 		Free Pascal Напечатать те слова последовательности, отличные от последнего слова и слово состоит только из гласных букв 1. Дана последовательность слов. Напечатать те слова последовательности, отличные от последнего слова и удовлетворяют такое свойство – слово состоит только из гласных букв. https://www.cyberforum.ru/ free-pascal/ thread1569888.html
CAPITAL OF ROCK!
1281 / 708 / 982
Регистрация: 03.03.2010
Сообщений: 2,286
05.11.2015, 00:10 0

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

05.11.2015, 00:10. Показов 3433. Ответов 1
Метки (Все метки)
Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

вообще-то вы ошибку в формуле ряда допустили
https://www.cyberforum.ru/cgi-bin/latex.cgi?\sum_{k = 0}^{n}=\frac{\cos \left(\frac{k \pi }{4} \right)}{k!}*{x}^{k}
ну и функцию до кучи. неужели не читабельнее?
https://www.cyberforum.ru/cgi-bin/latex.cgi?f=\exp\left(x\cos\left(\frac{\pi}{4}\right)\right)\cos\left(x\sin\left(\frac{\pi}{4}\right)\right)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

const
    limA = 0.1;
    limB = 1;
    eps = 0.0001;
    pi4 = Pi / 4;
var
    i: Word = 0;
    x: Single;
    sum: Extended = 0;
    si: Extended = 1;
begin
    repeat
        Write('Input x: ');
        ReadLn(x);
    until ((x >= limA) And (x <= limB));
    while (Abs(si) >= eps) do
    begin
        sum := sum + si * Cos(i * pi4);
        Inc(i);
        si := si * x / i;
    end;
    WriteLn('sum=', sum:0:4);
    Write('  f=', (Exp(x * Cos(pi4)) * Cos(x * Sin(pi4))):0:4);
end.


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

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

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

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

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

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

Вычислить сумму членов бесконечного ряда с заданной точностью
Помогите пожалуйста решить задачу. Уже черт знает сколько мучаюсь. Очень надеюсь на вашу помощь.

Вычислить значение суммы бесконечного ряда
Вычислить значение суммы бесконечного ряда S=1+xlna/1!+(xlna)2/2!+...+(xlna)n/n!+..с точностью до...

Алгоритм. Вычислить приближенное значение суммы бесконечного ряда
Вычислить приближенное значение суммы бесконечного ряда , до тех пор , пока очередное слагаемое не...

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

0
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru