Цикл с пост условием, Помогите))) Опции

[aRmAnI]

Найти сумму n членов последовательности 1,1+1/2+1/3,... первое, большее А и его номер...
Никак не получается сделать(((
надо выполнить в Turbo Pascal

И ещё, Определить минимальный член последовательности, заданный формулой Yn=Xn*sqr(2)-7Xn-1

Сообщение отредактировано: aRmAnI - 5.03.2011 21:13

[aRmAnI]

Найти сумму n членов последовательности 1,1/2,1/3,... первое, большее А и его номер...
Именно такое условие и было,

Program fordenis;
uses crt;
var n,b:integer;
    a,s:real;
begin
 clrscr;
 n:=1;
 s:=0;
 writeln('Введите b,a');
 Read(b,a);
  Repeat
  S:=S+1/n; writeln (s);
  n:=n+1;
  if s>=a then break;
 until(n>b);
 Readkey;
end.

1 часть задачи кой как выполнена, осталось ещё вывести 1 число большее А, как мне обхясняли надо ещё 1 цикл тут сделать....

а 2 задача, я даже не представляю как её сделать - она идёт отдельно от первой

Сообщение отредактировано: Lapp - 7.03.2011 4:40