Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Помогите пожалуйста

Жанна © (2003-01-14 12:52:00)
Мастера а вы не знаете как победить этот пример
Дана последовательность целых чисел. Построить последовательность номеров позиций, откуда начинаются последовательности, состоящие как минимум из 2-х единиц подряд.
Признак конца последовательности - 0.
и надо вывести по одному элементу результирующей последовательности, а заключительный нуль в результат не выводить

myor (2003-01-14 13:53:00) [1]
тоже вариант

still (2003-01-14 13:29:00) [2]
а вот и не напутал :)
как только нашли 11, то следующие единицы пропускаются (вложенный while)

myor (2003-01-14 13:22:00) [3]

> still © (14.01.03 13:18)

а вроде и напутал
прога будет выводить и позицию "3", потому что ты проверяешь наличие "1" только впереди, т. е., из уже найденной последовательности

still (2003-01-14 13:18:00) [4]
var
a: array[1..100] of integer;
i: integer;
begin
i := 1;
while (i<=100) do
begin
if (a[i]=1) and (a[i+1]=1) then
begin
//здесь запоминаем i или выводим его напр., на экран
while (i<=100) and (a[i+1]=1) do inc(i);
end;
inc(i);
end;
end;

Вроде ничего не напутал ...

myor (2003-01-14 13:15:00) [5]
совсем другое дело :)

j:=0;
for i:=1 to the_end do
begin
if ((a[i]=1) and (a[i+1]=1) and (a[i-1]<>1))
then begin
inc(j);
b[j]:=i;
end;
end;

a- массив чисел входной последовательности
b- массив позиций

ввести и вывести последовательности в цикле, а надеюсь, не проблема? :)

Жанна (2003-01-14 13:06:00) [6]
Вход:

4
1
1
1
6
1
2
1
1
0
Выход:

2
8

myor (2003-01-14 12:57:00) [7]
????????

> последовательность целых чисел

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

???????

если можно, еще раз

и желательно с примером

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »