Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Программа для расчета значений функций в указанном диапазоне https://www.cyberforum.ru/ turbo-pascal/ thread755527.html
Помогите, пожалуйста! Нужно составить программу для расчета значений функций в указанном диапазоне изменения аргумента и параметра: y=\frac{{e}^x-{{e}^a+a}}{x+1}; x\in ; \Delta x=0,2; a=0;1;2
Turbo Pascal Правильность разложения в ряд заданной функции
2)Создать программу для численной проверки правильности разложения в ряд заданной функции , для чего вычислить её значения и значения соответствующего ей ряда в не менее , чем трех точках указанного...
Turbo Pascal Процедуры в одномерном массиве https://www.cyberforum.ru/ turbo-pascal/ thread755519.html
Помогите пожалуйста написать эту прогу с процедурами : CONST N=25; y1=-12; y2=-4; VAR A:Array of Integer; i,Mx,KolOtr:Integer;
Turbo Pascal Задание : Составить программу для расчета значений функций в указанном диапазоне изменения аргумента и параметра Задание : Составить программу для расчета значений функций в указанном диапазоне изменения аргумента и параметра. y= C/ C*x^2 +1 x принадлежит Δx = 0,4 C = 1;2;3 https://www.cyberforum.ru/ turbo-pascal/ thread755516.html
арифметическая прогрессия Turbo Pascal
Подскажите где исправить условие в программе по нахождению арифметической прогрессии, если в строке более одной арф.пр. то вывести самую длинную, пожалуйста. Uses crt; Var f:file of integer; ...
Turbo Pascal Найти минимальное из трех чисел X, Y, Z, которые равны сумме элементов не главной диагонали матриц А, В, С соответственно https://www.cyberforum.ru/ turbo-pascal/ thread755401.html
Заданы три матрицы А(М,М), B(N,N), С(М,М). Найти минимальное из трех чисел X, Y, Z, которые равны сумме элементов не главной диагонали матриц А, В, С соответственно. 1)Не могу добиться, чтобы...
Turbo Pascal Дана шахматная доска размером nxn. На поле с координатами Xo, Yo помещается конь Требования к работе код на на паскале нужен Разработать программную систему для следующей задачи. Дана шахматная доска размером nxn. На поле с координатами Xo, Yo помещается конь. Найти... https://www.cyberforum.ru/ turbo-pascal/ thread755394.html Определить количество слов, начинающихся с буквы "а" Turbo Pascal
Написать программу!Буквенный тип!Через CHAR!Без массивов и стрингов!а буквенный тип Дана последовательность слов, состоящих из латинских букв, соседние слова отделяются друг от друга запятыми, за...
Turbo Pascal Составить блок-схемы к нескольким программам может кто помочь с построением блок-схем? https://www.cyberforum.ru/ turbo-pascal/ thread755324.html Turbo Pascal Создать новый файл, в котором каждое слово будет записано в обратном порядке https://www.cyberforum.ru/ turbo-pascal/ thread755293.html
Задан текстовый файл. Переносов слов нет. Создать новый файл, в котором каждое слово будет записано в обратном порядке
Определить, сколько различных чисел имеется в массиве Turbo Pascal
Доброго вечера всем. У меня такая проблема: надо сделать программу: задать массив из 100 случайно заданных чисел их промежутка от 0 до 10. Сколько различных чисел имеется в массиве? Program...
Turbo Pascal Представления натурального числа N Помогите пожалуйста с программой: Составьте программу, генерирующую все представления натурального числа N в виде суммы натуральных чисел (перестановка слагаемых нового способа не дает) https://www.cyberforum.ru/ turbo-pascal/ thread755220.html
314 / 273 / 272
Регистрация: 25.09.2011
Сообщений: 477
08.01.2013, 14:06 0

Составить программу для численной проверки правильности разложения в ряд - Turbo Pascal - Ответ 3967865

08.01.2013, 14:06. Показов 986. Ответов 1
Метки (Все метки)

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

Решение

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
25
26
27
28
const e=0.000001;
 
function Sum(x:real):real;
var n:word; x1,s,el:real;
begin
  s:=x; n:=1; x1:=x; { pri n=0  x1=x, s=x1 }
  repeat
    x1:=x1*sqr(x);
    el:=x1/(2*n+1);
    s:=s+el;
    inc(n);
  until el<e;
  sum:=s;
end;
 
var
  x,dx:real;
  n : byte;
begin
  write('Kol-vo tochek dlq testa n>2  =  '); readln(n);
  dx:=1.999998 / n; x:=-0.9;
  while x<1 do begin
    writeln('X= ',x:0:6,'  ln= ',ln(sqrt((1+x)/(1-x))):0:8,
            '  Sum= ',sum(x):0:8);
    x:=x+dx;
  end;
  readln;
end.


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

Составить программу для численной проверки правильности разложения в ряд заданной функции
Помогите, пожалуйста! Меня загрузили этой жуткой задачей, сдавать завтра! составить программу...

Составить программу для численной проверки правильности разложения в ряд заданной функнции
Составить программу для численной проверки правильности разложения в ряд заданной функнции,для чего...

Составить программу для численной проверки правильности разложения в ряд заданной функции
Составить программу для численной проверки правильности разложения в ряд заданной функции, для чего...

Составить программу для численной проверки правильности разложения в ряд заданной функции
Составить программу для численной проверки правильности разложения в ряд заданной функции, для чего...

1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.01.2013, 14:06

Составить программу численной проверки правильности ....
Помогите пожалуйста :wall: Всё перечитала но паскаль не понимаю. Составить программу для численной...

Составить программу для вычисления значения функции с помощью разложения функции в степенной ряд
Составить программу для вычисления значения функции y=e^-x с помощью разложения функции в степенной...

Численная проверка правильности разложения в ряд заданной функции
составить программу для численной проверки правильности расположения в ряд заданной функции, для...

Написать программу для проверки правильности ответа на пример
Написать программу для проверки правильности ответа на пример 2 +5 =?

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