Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Задача на циклы с условием

Автор: skorpics_guap 8.06.2007 22:36

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


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


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

Автор: мисс_граффити 9.06.2007 2:12

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

Автор: skorpics_guap 9.06.2007 2:17

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

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

Блин не могу найти......может поможеш??? unsure.gif

Автор: volvo 9.06.2007 2:28

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

http://forum.pascal.net.ru/index.php?s=&showtopic=4535&view=findpost&p=44175

Автор: skorpics_guap 9.06.2007 2:38

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


Автор: skorpics_guap 9.06.2007 19:36

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

Автор: klem4 10.06.2007 0:56

оффтоп

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

онтоп

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

Автор: skorpics_guap 10.06.2007 17:51

Цитата(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 18: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.
?

Автор: skorpics_guap 11.06.2007 16:39

Цитата(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 16:44

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

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

Автор: skorpics_guap 11.06.2007 16:51

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

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

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


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