задача на поиск среди чисел первого положительного, (с помощью цикла) Опции

[Reflex]

она проверяет является ли число суммой двух предыдущих, я надеюсь, что автор этой темы догадаетьси как это исправить в сумму трех предыдущих.

[мисс_граффити]

а по-моему, она проверяет не совсем то....
ты же проходишь от начала массива, то есть речь не обязательно о последних 2.

[klem4]

18192123, Сколько можно мусолить этот маразм ?! Функция, которая ищет нужный по твоему заданию элемент, если такого элемента нет, ф-я возвращает - 1.

function Find(const v: PVector; n: Integer): Integer;
var
  s, i, j: Integer;
  flag: Boolean;
begin
  i := 4;
  flag := false;
  while (i <= n) and not(flag) do begin
    if v^[i] > 0 then begin
      j := i - 3;
      s := 0;
      while (j < i) and (s <= v^[i]) do begin
        s := s + v^[j];
        inc(j);
      end;
      flag := (s = v^[i]);
    end;
    if not(flag) then inc(i);
  end;
  if flag then Find := i else Find := - 1;
end;

[18192123]

18192123, Сколько можно мусолить этот маразм ?! Функция, которая ищет нужный по твоему заданию элемент, если такого элемента нет, ф-я возвращает - 1.

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

[klem4]

uses crt;

var
  x, x1, x2, x3, s : Integer;
  count: Integer;
  find: Boolean;

begin
  clrscr;
  count := 0;
  find := false;
  repeat
    write('x = '); readln(x);
    inc(count);
    case count of
       1: x1 := x;
       2: x2 := x;
       3: x3 := x;
      else
       if (x > 0) and (x1 + x2 + x3 = x) then find := true
        else begin
          x1 := x2;
          x2 := x3;
          x3 := x;
        end;
    end;
  until (x = 0) or (find);

  if find then writeln('Find')
   else writeln('Not find');

  readln;
end.

?

[Malice]

klem4, "Найти первый положительный член", раз первый, значит могли бы быть и другие, значит прерывать ввод по find не надо. 0 тоже положительное число.

[klem4]

Malice, а как же быть с

пользователь вводит последовательнось целых чисел, признак окончания ввода - 0.

?

Если делать выход по find, может возникнуть зацикленность, так как искомого числа до того как введен 0 может просто не быть ...

Если уточнить условие так что среди введенных чисел _точно_ есть искомое, то это меняет дело.

[Malice]

Если делать выход по find, может возникнуть зацикленность, так как искомого числа до того как введен 0 может просто не быть ...

А ты говоришь "Маразм". По find выходите _не надо_, об этом я и написал.

[klem4]

Все, понял

uses crt;
var
  x, x1, x2, x3, s : Integer;
  count: Integer;
  find: Integer;

begin
  clrscr;
  count := 0;
  find := -maxint;
  repeat
    write('x = '); readln(x);
    inc(count);
    case count of
       1: x1 := x;
       2: x2 := x;
       3: x3 := x;
      else
       if (x > 0) and (x1 + x2 + x3 = x) and (find = -maxint) then find := x
        else begin
          x1 := x2;
          x2 := x3;
          x3 := x;
        end;
    end;
  until (x = 0);

  if find <> -maxint then writeln('Find = ', Find)
   else writeln('Not find');

  readln;
end.

[18192123]

Все, понял

скажи пожалуйста, что такое find := -maxint в твоей программе
и что такое count?

Сообщение отредактировано: volvo - 2.11.2006 16:55

[мисс_граффити]

0 - это не положительное число! и не отрицательное.

[18192123]

0 - это не положительное число! и не отрицательное.

может ты мне объяснишь, что такое в последней проге klem4 count, find:=-maxint

[мисс_граффити]

find:=-maxint
это мы присваиваем самое маленькое возможное значение. если find равен такой бяке, значит, подходящее число мы еще не нашли.

count - количество введенных чисел. если оно меньше 3, мы просто записываем новое число в подходящую переменную, а если больше - сдвигаем имеющиеся и в последнюю записываем.

[18192123]

find:=-maxint
это мы присваиваем самое маленькое возможное значение. если find равен такой бяке, значит, подходящее число мы еще не нашли.

count - количество введенных чисел. если оно меньше 3, мы просто записываем новое число в подходящую переменную, а если больше - сдвигаем имеющиеся и в последнюю записываем.

большое спасибо, что объяснила, теперь с заданием все ясно!

[мисс_граффити]

пожалуйста.

[Reflex]

а... извините, неправильно поняла задачу я думал трех чисел, которые до этого числа встречались в массиве.