Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.94/18: Рейтинг темы: голосов - 18, средняя оценка - 4.94
0 / 0 / 0
Регистрация: 02.04.2018
Сообщений: 7
1

Составить программу вычисления значения функции с заданной точностью с использованием операторов WHILE и REPEAT

02.04.2018, 11:54. Показов 3196. Ответов 1
Метки нет (Все метки)

Составить программу вычисления значения функции с заданной точностью с использованием операторов WHILE и REPEAT..UNTIL.

Ряд:

https://www.cyberforum.ru/cgi-bin/latex.cgi?<br />
S=\sum_{n=1}^{\infty}\frac{x^{-n}}{n+10}<br />

Точность: 0.00018
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.04.2018, 11:54
Ответы с готовыми решениями:

Составить программы вычисления и печати значения функции f(x) с использованием операторов условного перехода IF и case
Составить программы вычисления и печати значения функции f(x) с использованием операторов...

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

Составить программу для вычисления значения суммы бесконечного ряда с заданной точностью
Определить число членов ряда,вошедших в сумму.Исходные данные 0.62,точность вычисления 10^-4....

Написать программу для вычисления значения функции с использованием операторов ветвления If и выбора Select Case
Во вложении функция. Задание: Написать программу для вычисления значения функции с использованием...

1
Почетный модератор
64085 / 47494 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
02.04.2018, 12:33 2
Лучший ответ Сообщение было отмечено Алексей1987_456 как решение

Решение

1.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var x,e,t,s:real;
    n:integer;
begin
repeat
write('Введите x<>0 x=');
readln(x);
until x<>0;
e:=0.00018;
n:=1;
t:=1/x;
s:=t/11;
while abs(t)/(n+10)>e do
 begin
  n:=n+1;
  t:=t/x;
  s:=s+t/(n+10);
 end;
writeln('S=',s:0:5);
write('Достигнутая точность=',t/(n+10):0:5);
readln
end.
2.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var x,e,t,s:real;
    n:integer;
begin
repeat
write('Введите x<>0 x=');
readln(x);
until x<>0;
e:=0.00018;
n:=1;
t:=1/x;
s:=t/11;
repeat
n:=n+1;
t:=t/x;
s:=s+t/(n+10);
until abs(t)/(n+10)<=e;
writeln('S=',s:0:5);
write('Достигнутая точность=',t/(n+10):0:5);
readln
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.04.2018, 12:33

Составить блок-схему, алгоритм вычисления и программу для вычисления значения кусочно заданной функции
помогите решить

Составить блок-схему, алгоритм вычисления и программу для вычисления значения кусочно заданной функции
помогите пожалуйста =) заранее благодарен =) П.5.19.Правил Запрещено создавать темы в виде ссылок...

Составить программу для вычисления значения заданной функции
Помогите люди добрые решить сложные задачки Составить программу для вычисления значения функции:...

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


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

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