Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Максим_Лост
3 / 3 / 1
Регистрация: 22.01.2010
Сообщений: 89
#1

Вычисления с точностью. - Turbo Pascal

08.02.2010, 18:57. Просмотров 1148. Ответов 1
Метки нет (Все метки)

Помогите пожалуйста разобраться с программой. Я её скачал, а до конца понять не могу как она работает. Если не трудно, то обьясните:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Program toch;
uses crt;
var x,e,s,sk,t:real;
    k:longint;
begin
clrscr;
write('введите x=');
readln(x);
e:=0.000001;
s:=0;
t:=-x;
sk:=-x;
k:=1;
while abs(s-sk)>e do
 begin
  s:=sk;
  k:=k+1;
  t:=-t*x;
  sk:=sk+t/k;
 end;
write('Результат=',s:0:8,' Точность вычисления=',abs(s-sk):0:8);
readln
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.02.2010, 18:57
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Вычисления с точностью. (Turbo Pascal):

Вычисления бесконечной суммы с точностью е - Turbo Pascal
Написать программу вычисления бесконечной суммы с точностью е=0,001. используя конструкцию do until/loop for i:=1 to n do begin ...

Составить программу вычисления суммы ряда с точностью ε - Turbo Pascal
Народ помогите пожалуйста решить задачки на паскале!!! . Сам ни фига не понимаю. Составить программу вычисления суммы ряда с...

Не используя стандартные функции произвести вычисления с заданной точностью - Turbo Pascal
Не используя стандартные функции (за исключением abs), вычислить с точностью : . . Считать, что требуемая точность достигнута, если...

Составить программу для вычисления суммы ряда с точностью до е - Turbo Pascal
Здравствуйте. Помогите с пожалуйста 1) Составить программу для вычисления суммы ряда с точностью до е(эпсилон)=10^(-4)...

Разработать программу для вычисления суммы с заданной точностью - Turbo Pascal
1. Разработать программу для вычисления суммы с заданной точностью (Табл. 1.) Получить результат.

Написать программу для вычисления конечной суммы с заданной точностью - Turbo Pascal
Задание: Написать программу для вычисления конечной суммы с заданной точностью. Вывести эк-ран полученное значение суммы, значение...

1
Puporev
Модератор
52830 / 40641 / 13888
Регистрация: 18.05.2008
Сообщений: 94,274
08.02.2010, 19:35 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
e:=0.000001;//заданная точность вычислений суммы ряда
s:=0;//итоговая сумма, пока=0
t:=-x;//значение текущего члена ряда, пока первое
sk:=-x;//предыдущая сумма, пока первая
k:=1;//номнр элемента в ряду
while abs(s-sk)>e do/пока модуль разности соседних сумм больше точности, повторяем
 begin
  s:=sk;//присваиваем сумме предыдущее значение
  k:=k+1;//увеличиваем номер
  t:=-t*x;//рекуррентно вычисляем очередной член ряда, в этом случае меняем знак и домножаем на х
  sk:=sk+t/k;//считаем новую текущую сумму
 end;
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.02.2010, 19:35
Привет! Вот еще темы с ответами:

Разработка программы вычисления суммы знакопеременной бесконечного ряда с заданной точностью - Turbo Pascal

Используя цикл While do, написать программу вычисления членов ряда: S=1+1/2+1/3+..1/n, с точностью до 0.0005 - Turbo Pascal
Используя цикл While do, написать программу вычисления членов ряда: S=1+ 1/2+ 1/3+ .. 1/n, с точностью до члена ряда, меньшего 0.0005,а так...

Написать программу вычисления значения площади круга радиуса r с заданной точностью - Turbo Pascal
Задание1: Написать программу вычисления значения площади круга радиуса r с заданной точностью. Точность задается при вводе, форматированный...

Написать программу для приближенного вычисления ПИ с заданной точностью как сумму ряда - Turbo Pascal
№1.Написать программу которая выводит таблицу значений функции y=|x-2|+|x+1|в диапазоне от -4 до 4 с шагом 0,5. №2.Написать...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.