Pascal: найти в строке все прогрессии

Mokingbird · 13.11.2014, 14:20

Помогите пожалуйста с задачей, совсем запуталась.
Строка представляет собой последовательность натуральных чисел, разделенных пробелом. Найти в ней все последовательности (не менее трех чисел), являющиеся арифметическими прогрессиями.

Входные данные:
1 3 4 6 2 4 6 8 1 3 5

Выходные данные:
2 4 6 8
1 3 5

Vladimir_S · 13.11.2014, 15:00

Например, так:

Код:

Const
 N=11;
 A:Array[1..N] of Integer=(1, 3, 4, 6, 2, 4, 6, 8, 1, 3, 5);

Var
 i:Integer;
 flag,flag1:boolean;

Begin
 for i:=1 to N do write(A[i],' ');
 writeln;
 i:=0;
 flag1:=false;
 flag:=true;
 Repeat
  Inc(i);
  repeat
   if (A[i+1]-A[i])=(A[i+2]-A[i+1]) then
    begin
     flag1:=true;
     if flag then
      begin
       write(A[i],' ',A[i+1],' ',A[i+2]);
       flag:=false;
      end
     else
      write(' ',A[i+2]);
     if i<N-2 then Inc(i);
    end;
  until (i>=N-2) or ((A[i+1]-A[i])<>(A[i+2]-A[i+1]));
  if i<N-2 then
   begin
    if flag1 then
     begin
      writeln;
      flag1:=false;
     end;
    flag:=true;
   end;
 Until i>=N-2;
 Readln
End.

Mokingbird · 13.11.2014, 15:16

Наверное неточно сформулировала задание.. Строка типа String, и ее вводить с консоли через пробел. Но все равно спасибо)

Vladimir_S · 13.11.2014, 15:43

Цитата:

Сообщение от Mokingbird

Наверное неточно сформулировала задание.. Строка типа String, и ее вводить с консоли через пробел. Но все равно спасибо)

О, Боже - это еще городить преобразование строки в массив? Обязательно? Последовательный ввод чисел не годится?

Mokingbird · 13.11.2014, 15:53

Цитата:

Сообщение от Vladimir_S

О, Боже - это еще городить преобразование строки в массив? Обязательно? Последовательный ввод чисел не годится?

Увы, обязательно :С задание дано на строки.

Vladimir_S · 13.11.2014, 16:02

Цитата:

Сообщение от Mokingbird

Увы, обязательно :С задание дано на строки.

Тогда еще вопрос: нельзя ли через вспомогательный файл? Т.е. строку записать в файл и считать из него уже числа? Это бы сильно упростило дело.

Mokingbird · 13.11.2014, 16:06

Цитата:

Сообщение от Vladimir_S

Тогда еще вопрос: нельзя ли через вспомогательный файл? Т.е. строку записать в файл и считать из него уже числа? Это бы сильно упростило дело.

Файлы можно)))

Vladimir_S · 13.11.2014, 16:23

Цитата:

Сообщение от Mokingbird

Файлы можно)))

Вот:

Код:

Var
 N,i:Integer;
 flag,flag1:boolean;
 A:Array[1..100] of Integer;
 f:Text;
 S:String;

Begin
 Writeln('Enter the string: ');
 Readln(S);
 Assign(f,'fff.txt');
 Rewrite(f);
 Write(f,S);
 Close(f);
 Reset(f);
 N:=0;
 Repeat
  Inc(N);
  Read(f,A[N]);
 Until EoF(f);
 Close(f);
 Erase(f);
 writeln;
 i:=0;
 flag1:=false;
 flag:=true;
 Repeat
  Inc(i);
  repeat
   if (A[i+1]-A[i])=(A[i+2]-A[i+1]) then
    begin
     flag1:=true;
     if flag then
      begin
       write(A[i],' ',A[i+1],' ',A[i+2]);
       flag:=false;
      end
     else
      write(' ',A[i+2]);
     if i<N-2 then Inc(i);
    end;
  until (i>=N-2) or ((A[i+1]-A[i])<>(A[i+2]-A[i+1]));
  if i<N-2 then
   begin
    if flag1 then
     begin
      writeln;
      flag1:=false;
     end;
    flag:=true;
   end;
 Until i>=N-2;
 Readln
End.

Mokingbird · 13.11.2014, 16:28

Огромнейшее вам спасибо!!!

Vladimir_S · 13.11.2014, 16:31

Цитата:

Сообщение от Mokingbird

Огромнейшее вам спасибо!!!

Да не за что. Только вот не уверен я, что Ваши преподы это примут: могут потребовать, чтобы числа из строки выколупывать. Обращайтесь, если что - сделаем.

13.11.2014, 14:20	#1 (permalink)
Mokingbird Новичок Регистрация: 13.11.2014 Сообщений: 10 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Pascal: найти в строке все прогрессии Помогите пожалуйста с задачей, совсем запуталась. Строка представляет собой последовательность натуральных чисел, разделенных пробелом. Найти в ней все последовательности (не менее трех чисел), являющиеся арифметическими прогрессиями. Входные данные: 1 3 4 6 2 4 6 8 1 3 5 Выходные данные: 2 4 6 8 1 3 5

13.11.2014, 15:16	#3 (permalink)
Mokingbird Новичок Регистрация: 13.11.2014 Сообщений: 10 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Наверное неточно сформулировала задание.. Строка типа String, и ее вводить с консоли через пробел. Но все равно спасибо)

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070

13.11.2014, 16:28	#9 (permalink)
Mokingbird Новичок Регистрация: 13.11.2014 Сообщений: 10 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Огромнейшее вам спасибо!!!