Рекурр. последоват. Опции

[smith]

Да даже если sheka и неправильно сделал - он то действовал не от имени форума (или smith сказал обратное?), и даже в этом случае обвинять весь форум и требовать что-то - неправильно.

да я же извинился.
говорю:погорячился. с кем не бывает?.
К форуму нет и не может быть претензий.

[volvo]

Помогите, пожалуйста сделать правильно!

Навскидку -

  s := 0; t := 1;
  for i := 1 to n do
  begin
    t := t / i;
    s := s + (t + sqrt(abs(x)));
  end;

Это если через For, для других циклов - аналогично...

[Lapp]

М

все все поняли, флуд в этой теме прекращаем. Я добавлю разъясняющую инфу в раздел "Задачи на заказ"

[smith]

s := 0; t := 1;
  for i := 1 to n do
  begin
    t := t / i;
    s := s + (t + sqrt(abs(x)));
  end;

.

Извините меня, дурака, но где здесь поиск факториала?))
Простите, но 5!=1*2*3*5?))
Поясните, пожалуйста!

[volvo]

Простите, но 5!=1*2*3*5?))

Нет, 5! = 1*2*3*4*5

Извините меня, дурака, но где здесь поиск факториала?))

Смотри:
Изначально: t = 1
первая итерация: i = 1, t = t/i = 1/1
вторая итерация: i = 2, t = t/i = 1/(1*2)
третья итерация: i = 3, t = t/i = 1/(1*2*3)
четвертая итерация: i = 4, t = t/i = 1/(1*2*3*4)
пятая итерация: i = 5, t = t/i = 1/(1*2*3*4*5)

Итого, что имеем в знаменателе? Не факториал i, случайно?

[smith]

спасибо!

[smith]

окей, прога с циклом со счетчиком исправно работает.

uses crt;
var x,t,s:real;
    n,i,j:integer;
begin
clrscr;
write('x=');readln(x);
write('n=');readln(n);
s:=0;
for i:=1 to n do
 begin
  t:=1;
  for j:=1 to i do
  t:=t/j;
  s:=s+t+sqrt(abs(x));
 end;
write('S=',s:0:2);
readln
end.

.

Но вот цикл с пост/пред-условием никак не работает...=(

[smith]

uses crt;
var x,t,s:real;
n,i,j:integer;
begin
clrscr;
write('x=');readln(x);
write('n=');readln(n);
s:=0;
i:=1;
while i<=n do
begin
t:=1;
j:=1;
while j<=i do
begin
t:=t/j;
j:=j+1;
end;
s:=s+t+sqrt(abs(x));
i:=i+1;
end;
write('S=',s:0:2);
readln
end.

.

ок, с while есть))
Пожалуйста, помогите с репит антил сделать=)

[volvo]

var x,t,s:real;
    n,i,j:integer;
begin
  write('x=');readln(x);
  write('n=');readln(n);
  s:=0;
  i := 0;
  repeat
    inc(i);
    t:=1;
    j := 0;
    repeat
      inc(j);
      t:=t/j;
    until j = i;
    s:=s+t+sqrt(abs(x));
  until i = n;
  write('S=',s:0:2);
  readln
end.

Выдает тот же результат, что и твои оба варианта, хотя я не понимаю, зачем тебе внешний цикл. В первоначальном условии про него ни слова не было, и вот это:

var x,t,s:real;
    n,i,j:integer;
begin
  write('x=');readln(x);
  write('n=');readln(n);
  s:=0; t := 1;
  for i:=1 to n do
  begin
    t:=t/i;
    s:=s+t+sqrt(abs(x));
  end;
  write('S=',s:0:2);
  readln
end.

работает точно так же, как твой код из поста №27. А если оно работает так же, "зачем писать больше"? почти (С). Итого: от внешнего цикла можно избавиться...

[smith]

работает точно так же, как твой код из поста №27. А если оно работает так же, "зачем писать больше"? почти (С). Итого: от внешнего цикла можно избавиться...

Да тут дело в том, что задание гласит:
написать прогу тремя способами: с пред/пост-условием и с помощью цикла со счетчиком.=)

[volvo]

Задание гласит, что тебе надо написать то, что написано в первой строке, а не то, что во второй:


Учти, я тебя предупредил... Чтоб потом не было опять претензий

[smith]

чорд, тогда я ваще ниче не понял))
Можешь попродробнее на примере программы?
Чет я значит непрально понял/сделал.

Сейчас ты написал и я чет задумался))
Спасибо большое.
Сможешь помочь разобраться?

[volvo]

Я тебе уже привел программу, которая выполняет твое задание:

var x,t,s:real;
    n,i:integer;
begin
  write('x=');readln(x);
  write('n=');readln(n);
  s:=0; t := 1;
  for i:=1 to n do
  begin
    t:=t/i;
    s:=s+t+sqrt(abs(x));
  end;
  write('S=',s:0:2);
  readln
end.

Если тебе надо сделать это несколькими видами циклов - то не делай их ВЛОЖЕННЫМИ, они должны идти последовательно один за другим... Вот тебе пример для For и While, третий добавишь сам:

var x,t,s:real;
    n,i,j:integer;
begin
  write('x=');readln(x);
  write('n=');readln(n);

  write('for loop: ');
  s:=0; t := 1;
  for i:=1 to n do
  begin
    t:=t/i;
    s:=s+t+sqrt(abs(x));
  end;
  writeln('S=',s:0:5);

  write('while loop: ');
  s:=0; t := 1;
  i := 1;
  while i <= n do
  begin
    t:=t/i;
    s:=s+t+sqrt(abs(x));
    inc(i);
  end;
  writeln('S=',s:0:5);

  readln
end.

[smith]

спасибо!!
Тыща раз спасибо!