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

[aRmAnI]

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

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

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

[Lapp]

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

Можно и еще один цикл, если хочешь. Только тогда второй цикл будет с предусловием. Типа вот так:

Program fordenis;
var n,b:integer;
    a,s:real;
begin
  n:=1;
  s:=0;
  writeln('Введите b,a');
  Readln(b,a);
  Repeat
    S:=S+1/n;
    n:=n+1;
  until (n>b) or (s>=a);
  if s>=a then writeln('первая сумма, большая ',a,' равна ',s);
  while n<=b do begin
    S:=S+1/n;
    n:=n+1;
  end;
  writeln('сумма ',b,' членов ряда 1/n равна ',s);
  ReadLn;
end.

И вообще, в этой задаче цикл с постусловием не совсем правильно применять, поскольку может же (в принципе) быть запрос на сумму 0 членов ряда.

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

Если она отдельно, то в другой теме, плз (правила раздела Задачи, п.6 - вверху этой страницы).