Версия для печати темы

Автор: niga 25.09.2006 11:38

Привет всем, кто решил посмотреть мой просящий sos топик.
Мне в пятницу надо сдать задачу, а я ни как не могу её осилить. Если кто-то знает, как решить такую задачу очень прошу вас помочь мне. Заранее всем спасибо и большой respect.

Текст задачи:
Дано натуральное число N. Указать самую длинную неубывающую последовательность цифр числа N.

Автор: Bokul 25.09.2006 12:08

конвертируем N в строку s // процедура str()
обнуляем буф //  вспомогательная переменная
обнуляем кол //   результат

for i:=1 to передпоследний символ строки s делаем
	 если s[i+1]>=s[i] то
		буф:=буф+1
	 в обратном случае
		если буф>кол то
			начинаем
			          кол:=буф
			          обнуляем буф
		         конец если
		в обратном случае
			обнуляем буф

Автор: niga 25.09.2006 12:56

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

program N_3;
var
   s: string;
   N,i,b,k : word;
begin
	 writeln('Vvedite natural chislo N');
	 readln(N);
	 str(N,s);
	 b:=0;
	 k:=0;
	 for i:=1 to s[i-1] do
	 if s[i+1]>=s[i] then
	 else
		 if b>k then
		 begin
			  k:=b;
			  b:=0;
			  writeln('itog', k);
			  end
			  else
			  b:=0;
end.

Автор: Michael_Rybak 25.09.2006 15:27

Уточни условие. Что значит "неубывающую последовательность цифр числа N".

Имеется ввиду подпоследовательность идущих *подряд* цифр? Или подпоследовательность, которую можно получить, выкинув часть цифр? Например, для числа 15234517 ответ 2345 или 123457?

Решение Bokula - для первого варианта.

P.S. Вот исправленный код:

1. Не компилиось из-за "for i:=1 to s[i-1] do". Нужна функция length.
2. Цикл делаем все-таки не до предпоследнего, а до последнего символа, чтобы работало на строках длины 1.
3. Читаем сразу строку (readln(s)), чтобы работало на длинных.
4. Переменную b инициализируем единицей а не нулем, чтобы учитывать последний символ найденной последовательности.
5. Не забываем в случае s[i+1]>= s[i] делать буф:=буф+1
6. Ответ выводим в самом конце, а не после каждого найденного улучшения.

program N_3;
  var
    s: string;
    i, b, k: word;
begin
  writeln('Vvedite natural chislo N');
  readln(s);
  b:=1;
  k:=0;
  for i:=1 to length(s) do
    if (i < length(s)) and (s[i+1]>=s[i]) then
      Inc(b)
    else
      if b>k then begin
        k:=b;
        b:=1;
      end else
        b:=1;
  
   writeln('itog ', k);
end.

Автор: volvo 25.09.2006 15:49

Интересно...

      if b>k then begin
        k:=b;
        b:=1;
      end else
        b:=1;

begin
  if b>k then k:=b;
  b:=1;
end;

Автор: niga 25.09.2006 17:22

А как вывести саму последовательность цифр, а не только её длину?

Автор: Bokul 26.09.2006 3:15

Автор: Michael_Rybak 26.09.2006 3:23

Цитата(niga @ 25.09.2006 13:22)

А как вывести саму последовательность цифр, а не только её длину?