IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Вычисление суммы ряда с заданной точностью
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 14
Пол: Мужской
Реальное имя: Anton

Репутация: -  0  +


Помогите пожалуйста решить задачу на вычесление суммы ряда с заданной точностью по таким вот формулам
cos(i)*sin(i)+i*x/(i*(2*i))+abs(i+x*ln(e))

Сама точность 5*exp(-6*ln(10))

Наклепал вот такую задачу, но она неверная, помогите исправить пожалуйста недочёты в ней

program lab4;
uses crt;
const e=2.71;
label t1;
var
a,x,s,ecp:real;
n,i:integer;
begin
clrscr;
ecp:=5*exp(-6*ln(10));
writeln('tocnost=',ecp:1:6,'');
a:=x;
x:=0.71;
n:=6;
s:=x;
i:=0;
t1: for i:=1 to n do
begin
a:=cos(i)*sin(i)+i*x/(i*(2*i))+abs(i+x*ln(e));
s:=s+a;
i:=i+1;
writeln('chusla progresii=',a:6:2,'');
end;
if a<ecp then goto t1;
writeln('kolichestvo chlenov=',i);
writeln('suma chleniv=',s:6:3,'');
readkey;
end.



Результат нужно выдать в таком порядке
• Точность =
• Член 1=
• Член 2=
Сумма чисел прогресии =

Сообщение отредактировано: Lapp -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
сообщение
Сообщение #2


Профи
****

Группа: Пользователи
Сообщений: 731
Пол: Женский

Репутация: -  25  +


Цитата
По условию задачи нужно делать с помощью меток.

blink.gif Сразу вспомнились слова нашего декана: "Основное свойство оператора перехода: квалификация программиста обратно пропорциональна количеству операторов перехода, которые он использует в своих программах".. ну да ладно, давай разбираться. smile.gif

1. точность, как сказал volvo, лучше задать в виде
Const ecp = 5E-6;

2. за х сорри.. смутило a:=х (можно просто a:=0.0), а дальше была немного невнимательна.. wink.gif
3.
for i:=1 to n do
begin
...
i:=i+1; // <- изменение параметра цикла for "вручную" крайне нежелательно,
// а у меня вообще не проходит компиляцию..
...
end;


Для чего тебе это изменение? ..нужно, чтоб значение i менялось по какому-то правилу (например только нечетные) или что?

Сообщение отредактировано: Айра -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
Single   Вычисление суммы ряда с заданной точностью   3.12.2007 15:45
Айра   Single, пользуйся тегами пожалуйста. 1. А чему до…   3.12.2007 17:47
volvo   Это обязательно? Может проще задать тоже константо…   3.12.2007 17:58
Single   По условию задачи нужно делать с помощью меток. х=…   4.12.2007 1:41
Айра   :blink: Сразу вспомнились слова нашего декана:…   4.12.2007 2:35
feniks25   Для чего тебе это изменение? ..нужно, чтоб значен…   4.12.2007 4:16
Single   Насколько я понял, препод сказал, что член может б…   4.12.2007 4:38
feniks25   Народ, а всё таки, как считать точность, если она …   4.12.2007 23:52
volvo   Да ты можешь написать нормально, ряд-то какой? Фор…   5.12.2007 0:11
feniks25   Да ты можешь написать нормально, ряд-то какой? Фо…   5.12.2007 1:40
Айра   Опять ошибочка вышла :wink: Удалила текст сообщени…   5.12.2007 1:59
volvo   $#%... :YYY: Объясни мне, считающей ЧТО??…   5.12.2007 2:20
Karakum   Помогите пожалуйста с задачей.(не стал создавать н…   15.12.2007 1:53
Single   Всем спасибо, задачу уже дотумкал сам :)   15.12.2007 2:05


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 29.03.2024 20:56
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name