Форум: "Основная";
Текущий архив: 2003.01.23;
Скачать: [xml.tar.bz2];
Вниз
Помогите пожалуйста Найти похожие ветки
← →
Жанна (2003-01-14 12:52) [0]Мастера а вы не знаете как победить этот пример
Дана последовательность целых чисел. Построить последовательность номеров позиций, откуда начинаются последовательности, состоящие как минимум из 2-х единиц подряд.
Признак конца последовательности - 0.
и надо вывести по одному элементу результирующей последовательности, а заключительный нуль в результат не выводить
← →
myor (2003-01-14 12:57) [1]????????
> последовательность целых чисел
или нулей и единиц
или в последовательности целых найти последовательности единиц,
которые заканчиваются нулем
???????
если можно, еще раз
и желательно с примером
← →
Жанна (2003-01-14 13:06) [2]Вход:
4
1
1
1
6
1
2
1
1
0
Выход:
2
8
← →
myor (2003-01-14 13:15) [3]совсем другое дело :)
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- массив позиций
ввести и вывести последовательности в цикле, а надеюсь, не проблема? :)
← →
still (2003-01-14 13:18) [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:22) [5]
> still © (14.01.03 13:18)
а вроде и напутал
прога будет выводить и позицию "3", потому что ты проверяешь наличие "1" только впереди, т. е., из уже найденной последовательности
← →
still (2003-01-14 13:29) [6]а вот и не напутал :)
как только нашли 11, то следующие единицы пропускаются (вложенный while)
← →
myor (2003-01-14 13:53) [7]тоже вариант
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.01.23;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.011 c