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

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

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

 
 Ответить  Открыть новую тему 
> Задача на циклы с условием, ПОМОГИТЕ решить задачу с предусловием и постусловием
skorpics_guap
сообщение 8.06.2007 18:36
Сообщение #1


Гость






Кто знает, как решить задачу и написать программу на Pascal, 'помогите' !!!!!!


Задание:
1) Вычислите частичную сумму ряда
S=1/1*3 + 1/3*5 + 1/5*7 + ...
2) Вычисления прекратите, когда модуль очередного слагаемого станет меньше 0,001
3) Проверьте насколько сумма приблизилась к значению 1/2
Примечание:
Не использовать счетчики и оператор for!


Заранее огромное спасибо!

Сообщение отредактировано: skorpics_guap - 8.06.2007 22:05
 К началу страницы 
+ Ответить 
мисс_граффити
сообщение 8.06.2007 22:12
Сообщение #2


просто человек
******

Группа: Модераторы
Сообщений: 3 641
Пол: Женский
Реальное имя: Юлия

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


FAQ читай
там подобное разобрано.


--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
skorpics_guap
сообщение 8.06.2007 22:17
Сообщение #3


Гость






Цитата(мисс_граффити @ 8.06.2007 22:12) *

FAQ читай
там подобное разобрано.

Блин не могу найти......может поможеш??? unsure.gif
 К началу страницы 
+ Ответить 
volvo
сообщение 8.06.2007 22:28
Сообщение #4


Гость






А можно мне? unsure.gif

Общие вопросы по математике.
 К началу страницы 
+ Ответить 
skorpics_guap
сообщение 8.06.2007 22:38
Сообщение #5


Гость






Спасибо вам огромное Владимир! good.gif



Сообщение отредактировано: skorpics_guap - 8.06.2007 22:39
 К началу страницы 
+ Ответить 
skorpics_guap
сообщение 9.06.2007 15:36
Сообщение #6


Гость






wacko.gif Блин я все равно не могу решить задачу! Помогите пожалуйста??? mega_chok.gif Это экзаменационная задача!!!

Сообщение отредактировано: skorpics_guap - 9.06.2007 15:37
 К началу страницы 
+ Ответить 
klem4
сообщение 9.06.2007 20:56
Сообщение #7


Perl. Just code it!
******

Группа: Модераторы
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

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


оффтоп

никогда таких грибных тем не видел)))

онтоп

показывай что делал ...


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
skorpics_guap
сообщение 10.06.2007 13:51
Сообщение #8


Гость






Цитата(klem4 @ 9.06.2007 20:56) *

оффтоп

никогда таких грибных тем не видел)))

онтоп

показывай что делал ...


program SKORPICS;
var
x,x1,x2,x3,s,a,n: integer;
begin
writeln(Введите x3, N);
readlnn(X3,N);
s:=0;
x:=x1;
repeat
a:=1\n;
s:=s=a*a;
x:=x=x3
until |n|<0,001;
writeln('s= ',s:6)
end.

Я знаю что это бред, просто не могу решить задачу!!! помогите???
 К началу страницы 
+ Ответить 
volvo
сообщение 10.06.2007 14:04
Сообщение #9


Гость






program SKORPICS;
var
n: integer;
s, next: real;
begin
n := 1;
s := 0;
repeat
next := 1 / (n * (n + 2));
s := s + next;
n := n + 2;
until abs(next) < 0.001;
writeln(s:10:6);
end.
?
 К началу страницы 
+ Ответить 
skorpics_guap
сообщение 11.06.2007 12:39
Сообщение #10


Гость






Цитата(volvo @ 10.06.2007 14:04) *

program SKORPICS;
var
n: integer;
s, next: real;
begin
n := 1;
s := 0;
repeat
next := 1 / (n * (n + 2));
s := s + next;
n := n + 2;
until abs(next) < 0.001;
writeln(s:10:6);
end.
?


А что такое NEXT??? Мы этот оператор не изучали!
 К началу страницы 
+ Ответить 
volvo
сообщение 11.06.2007 12:44
Сообщение #11


Гость






А S вы что, изучали?

Это не оператор, а переменная... Какая разница, назови ее Ivan_Ivanovich, если хочешь...
 К началу страницы 
+ Ответить 
skorpics_guap
сообщение 11.06.2007 12:51
Сообщение #12


Гость






Цитата(volvo @ 11.06.2007 12:44) *

А S вы что, изучали?

Это не оператор, а переменная... Какая разница, назови ее Ivan_Ivanovich, если хочешь...


S - это сумма, как я понимаю! А значит next - величина которая меняется!

Сообщение отредактировано: skorpics_guap - 11.06.2007 12:58
 К началу страницы 
+ Ответить 

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

 



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