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

[smith]

Я к вам уже обращался..
Извините, но тут у меня совсем тупик.
Пропустил кучу занятий.. не могу разобраться....

в аттаче картинка задание.

Не поможете составить программулину?
Я даж не представляю как начать, хотя в паскале вобще норм.
Смущает само задание..
не знаю, что такое i!, и как такое считать..

Добавлено через 1 мин.

 С помощью оператора цикла с предусловием while/

program zadaniye;
var n,i:integer;
var S,x,a:real;
begin
writeln('vvedi n,x');
readln(n,x);
S:=0;
i:=1;
while i<=n do begin
a:=(1/i)+sqrt(abs(x));
s:=s+a;
i:=i+1;
end;
writeln(‘S=’, S:0:2);
end.

 С помощью оператора цикла с постусловием repeat/

program zadaniye;
var n,i:integer;
var S,x,a:real;
begin
writeln('vvedi n,x');
readln(n,x);
S:=0;
i:=1;
repeat
a:=(1/i)+sqrt(abs(x));
s:=s+a;
i:=i+1;
until i>n;
writeln(‘S=’, S:0:2);
end.










 С помощью оператора цикла for/

program zadaniye;
var n,i:integer;
var S,x,a:real;
begin
writeln('vvedi n,x');
readln(n,x);
S:=0;
i:=1;
for i:=1 to n do begin
a:=(1/i)+sqrt(abs(x));
s:=s+a;
end;
writeln(‘S=’, S:0:2);
end.

Добавлено через 40 сек.
так вроде считает, но неверно.....

[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. А если оно работает так же, "зачем писать больше"? почти (С). Итого: от внешнего цикла можно избавиться...

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