Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Pascal] Работа с массивами

Автор: SunRaider 10.5.2007, 20:31

Дана строка символов, которая вводится с клавиатуры. Строка состоит из букв T и F. Нужно определитьдлину самой длинной последовательности из расположенных подряд в одномерном логическом массиве значений TRUE и вывод найденной длины на экран. Длина массива и значения TRUE и FALSE вводятся с клавиатуры в форме F (для FALSE) и T (для TRUE).

Автор: Rodman 11.5.2007, 08:56

Код


uses crt;
var a:string;
      w:char;
       i,count:integer;
BEGIN
   writeln('Enter string');
   readln(a);
   w:=a[1];
   j:=0;
  count:=0;
   for i:=2 to length(a) do
   begin
       if(w=a[i])then
          inc(j)
       else
       begin
          if(count < j)then
             count:=j;
          j:=0;
       end;
         w:=a[i];
   end;
   writeln(count);
    readln;
END.

вроде так