Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
WRKira
1 / 1 / 0
Регистрация: 24.02.2011
Сообщений: 15
1

вычислить сумму при заданных х и е

24.02.2011, 10:03. Просмотров 562. Ответов 5
Метки нет (Все метки)

Приветствую, пожалуйста помогите написать программу...
(E=1E-06)
http://pics.kz/s6/2d/83/f3/2d83f3440faca8f59b9640db0b3fc687.jpg
Мой вариант, ну опять же не без чьей то помощи...Укажите ошибки, ну или с нуля напишите
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
program sum;
const e=1E-06;
var x,k1,k:integer;
     a,b,s:real;
begin
      k1:=-1;
write('x=');
readln(x);
a=1;
while (b>=e) do
begin
       k1:=k1*(-1);
       k:=k+1;
for k:=1 to k do 
       a:=a*(2*k+1);
       b:=(k1/a)*exp((4*k+3)*ln(x/3));
       s:=s+b;
   end;
writeln('s=', s:5:2);
readln;
end.
0
Изображения
 
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.02.2011, 10:03
Ответы с готовыми решениями:

Для заданных x, N и E вычислить сумму N слагаемых заданного вида
Точное условие: При некоторых заданных x, N и E, определяемых вводом,...

Вычислить сумму и разность двух заданных одномерных массивов
Вычислить сумму и разность двух заданных одномерных массивов размером 5....

Вычислить сумму двух заданных матриц размером 3х3
Добрый вечер! Помогите решить задачку: "Вычислить сумму двух заданных матриц...

Вычислить значение у при заданных а и х
Вычислить значение у при заданных а и х Изображение

Вычислить выражение при заданных константах
Помогите решить и записать в виде паскаля.

5
WRKira
1 / 1 / 0
Регистрация: 24.02.2011
Сообщений: 15
24.02.2011, 10:38  [ТС] 2
Ой сорри там над суммой не "X",а знак Бесконечности.

Добавлено через 12 минут
b:=1; (рядом с a:=1)
0
Puporev
Модератор
55014 / 42308 / 29214
Регистрация: 18.05.2008
Сообщений: 99,972
24.02.2011, 12:20 3
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 sum;
uses crt;
const e=1E-06;
var k:integer;
    x,b,s:real;
begin
clrscr;
write('x=');
readln(x);
{нулевые значения}
k:=0;
x:=x/3;
b:=x*x*x;
s:=0;
while (abs(b)>=e) do
 begin
  k:=k+1;
  b:=-b*x*x*x*x/(2*k*(2*k+1));{рекуррентно домножаем на x^4 и делим на следующие 2 числа}
  s:=s+b;
 end;
writeln('s=', s:0:6);
readln
end.
0
WRKira
1 / 1 / 0
Регистрация: 24.02.2011
Сообщений: 15
26.02.2011, 07:07  [ТС] 4
Цитата Сообщение от Puporev Посмотреть сообщение
(2*k*(2*k+1))
хммм...а вот факториал, вроде не правильно вычисляет, ну при единице он все же ответ правильный выдает, а при 2 и т.д нет. Или я чего то не догоняю. Спасибо за помощь
0
Puporev
Модератор
55014 / 42308 / 29214
Регистрация: 18.05.2008
Сообщений: 99,972
26.02.2011, 08:14 5
Цитата Сообщение от WRKira Посмотреть сообщение
а вот факториал, вроде не правильно вычисляет,
И как Вы это определили?
при к=1 f=1*2*3=3!
при к=2 f=f*4*5=5!
при k=3 f=f*6*7=7!
и так далее...
А если шибка умный, то и нефиг тут спрашивать нас, убогих...
0
WRKira
1 / 1 / 0
Регистрация: 24.02.2011
Сообщений: 15
28.02.2011, 12:26  [ТС] 6
Цитата Сообщение от Puporev Посмотреть сообщение
И как Вы это определили?
при к=1 f=1*2*3=3!
при к=2 f=f*4*5=5!
при k=3 f=f*6*7=7!
и так далее...
А если шибка умный, то и нефиг тут спрашивать нас, убогих...
Я приношу свои извинения...
0
28.02.2011, 12:26
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.02.2011, 12:26

При некоторых заданных x, N и E, определяемых вводом, вы-числите сумму N
При некоторых заданных x, N и E, определяемых вводом, вы-числите сумму N...

Подпрограммы: Вычислить значение выражения при заданных значениях x, y, z
здравствуйте ребята помогите пожалуйста с задачей Вычислить значение...

Вычислить значение выражения при всех конкретно заданных значениях
Помогите пожалуйста с заданием !!! В заданиях "а" выделить постоянную часть...


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

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

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