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

[18192123]

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

[Malice]

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

Что не получается ? Задача же простая.. Цикл через Repeat, выход если 0 или совпадение условия. Предыдущие значения запоминать в 3-х переменных. Если выход из repeat-a был по нулю, то решений небыло, иначе еще 1 repeat для ввода следующих чисел, без анализа. Условие выхода - 0, после чего вывод результатов

[Bokul]

Если выход из repeat-a был по нулю, то решений небыло

А если последовательность будет такой: -5,3,2,0 ? Или 0 не есть положительным членом?

[Malice]

А если последовательность будет такой: -5,3,2,0 ? Или 0 не есть положительным членом?

Хитрый ты Если такой случай тоже нужен, то эту фразу читать так:
"Если выход из repeat-a был не по условию, то .."

[18192123]

Что не получается ? Задача же простая.. Цикл через Repeat, выход если 0 или совпадение условия. Предыдущие значения запоминать в 3-х переменных. Если выход из repeat-a был по нулю, то решений небыло, иначе еще 1 repeat для ввода следующих чисел, без анализа. Условие выхода - 0, после чего вывод результатов

а как насчет более подробного ответа!?

[volvo]

а как насчет более подробного ответа!?

А как насчет САМОЙ попробовать хоть что-то сделать?

[18192123]

А как насчет САМОЙ попробовать хоть что-то сделать?

вопрос был адресован не тебе!!!!!!!!!!

[volvo]

А мой - к тебе ...
Внимательно посмотри на картинку:

Видишь ключевое слово? Вместе, а не "за Вас"... Тебе уже подсказали, теперь твоя очередь.

А вот хамить не надо. Чревато...

[18192123]

Что не получается ? Задача же простая.. Цикл через Repeat, выход если 0 или совпадение условия. Предыдущие значения запоминать в 3-х переменных. Если выход из repeat-a был по нулю, то решений небыло, иначе еще 1 repeat для ввода следующих чисел, без анализа. Условие выхода - 0, после чего вывод результатов

я не понимаю, как привязать к программе эти три переменные

[Malice]

Что-то типа этого:

Код

x1:=x2; x2:=x3; x3:=x;
readln (x);

т.е. происходит постоянный сдвиг и в х1, х2,х3 остаются 3 предыдущие переменные.

[18192123]

Что-то типа этого:

Код

x1:=x2; x2:=x3; x3:=x;
readln (x);

т.е. происходит постоянный сдвиг и в х1, х2,х3 остаются 3 предыдущие переменные.

а как с этими переменными соотносится первый положительный элемент?

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

если он равен их сумме и положителен - то он подходит

[18192123]

если он равен их сумме и положителен - то он подходит

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

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

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

[18192123]

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

посмотри прогу, что-то тут не то, выдает первый элемент последовательности
 FIGNAI.PAS ( 349 байт ) Кол-во скачиваний: 388

[Reflex]

нашла ошибку sorry

Сообщение отредактировано: Reflex - 23.10.2006 19:46

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

мм....?
Reflex и 18192123 - одно лицо?

[Reflex]

нет ... я вывесила решение задачи, а потом в нем нашла ошибку.

Код

x1:=x2;
x2:=x3;
x3:=x;
s:=x1+x2+x3;
if ((x3>0)and(s=x3)) then writeln ('pervy poloshitelniy element naiden=',x3);

этот код говорит если x2+x3=0 и x>0 то выведи x

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

Сообщение отредактировано: Reflex - 23.10.2006 20:29

[Reflex]

на то что ты написала Volvo ругатьси еще больше будет, а код вот:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
const
  nn = 100;
type
  arr = array [1..nn] of integer;
var
  a : arr;
  n : integer;

function check(num : integer) : boolean;
var j, i : integer;
begin
  check:=false;
  if a[num]<0 then exit;
  for i:= 1 to num - 1 do
    for j:= 1 to num - 1 do
      if  (i<>j) and (a[num]=a[i]+a[j]) then begin
        check:=true;
        exit;
      end;
end;

procedure read_data;
var temp:integer;
begin
  n:=0;
  read(temp);
  while temp<>0 do begin
    inc(n);
    a[n]:=temp;
    read(temp);
  end;
end;

function find: integer;
var i : integer;
begin
  find := 0;
  for i:= 3 to n do
    if check(i) then begin
      find := i;
      exit
    end;
end;


begin
  read_data;
  write(find);
  readln;
  readln;
end.

[Malice]

Функция check здесь что-то другое проверяет.