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

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

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

 
 Ответить  Открыть новую тему 
> задачка на цикл While
pan
сообщение 22.05.2008 16:24
Сообщение #1


Новичок
*

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

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


Вычислить сумму ряда:

x^3 x^5 x^(2n+1)
x=X+ ------- + -------- + ... + ---------------
x^3 x^5 (2n+1)


Считать что требуемая точность достигнута. если очередное слагаемое по модулю меньше E. E=10^(-3).

Моё решение:

ses crt;
var
x,E,s2,s3: real; n,s1,i: integer;
begin
clrscr;
n:=0;
write ('Введите X: ');
readln (x);
while n<0.001 do
begin
s1:=(2*n)+1;
s2:=1;
for i:=1 to s1 do
begin
s2:=s2*x;
end;

s3:=s3+(s2/s1);
writeln ('s3=',s3);
n:=n+1;
end;
writeln ('s3=',s3);
readln;
end.

ПОЖ-ТА!!! проверьте правильно ли я решил задачу!

Добавлено через 7 мин.
Цитата(pan @ 22.05.2008 16:24) *

Вычислить сумму ряда:

x^3 x^5 x^(2n+1)
x=X+ ------- + -------- + ... + ---------------
x^3 x^5 (2n+1)
Считать что требуемая точность достигнута. если очередное слагаемое по модулю меньше E. E=10^(-3).

Моё решение:

ses crt;
var
x,E,s2,s3: real; n,s1,i: integer;
begin
clrscr;
n:=0;
write ('Введите X: ');
readln (x);
while n<0.001 do
begin
s1:=(2*n)+1;
s2:=1;
for i:=1 to s1 do
begin
s2:=s2*x;
end;

s3:=s3+(s2/s1);
writeln ('s3=',s3);
n:=n+1;
end;
writeln ('s3=',s3);
readln;
end.

ПОЖ-ТА!!! проверьте правильно ли я решил задачу!

вот нормальное условие задачи!


Эскизы прикрепленных изображений
Прикрепленное изображение
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
pan
сообщение 22.05.2008 19:20
Сообщение #2


Новичок
*

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

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


что никто незнает правильно ли я решил или нет?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
sintanial
сообщение 22.05.2008 20:12
Сообщение #3


Пионер
**

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

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


Ну вроде если написано в задании по модулю то нужно делать по модулю =), а я его у тебя вроде не нашел.
И если я не ошибаюсь тута нужно делать рекурентное соотношение насколько я знаю =). (но я точно не знаю, может я и не прав !)

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

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

 

- Текстовая версия 17.07.2025 20:38
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"