Строки

[Ne1StoM]

1. Дана строка. Подсчитать в ней длину самой длинной последовательности букв a. вообще не знаю как делать))Помогите!!!)))

[Alex11223]

Для начала определить чем разделены последовательности.

[Азамат Казанчев]

на чем писать надо? если в паскале, то через функцию pos очень просто реализовать.
и на счет

вообще не знаю как делать))Помогите!!!)))

помочь - не равно - сделать за тебя, давай нароботки

[Ne1StoM]

Блин,мне такое задание дали и сказали решай)))По паскалю и все))Больше ничего не обьясняли))

[malinoff]

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

Блин,мне такое задание дали и сказали решай)))По паскалю и все))Больше ничего не обьясняли))

А должны? Язык знаете, задание знаете - связанное со строками.
Открываете любой учебник по паскалю, ищете раздел "Строки", ищете там нужную информацию. В крайнем случае, идите в гугл.
Вот, вам уже подсказали использовать pos. Найти, что это и как использовать - уже ваша задача.

Если все вышесказанное вас не устраивает, то готов помочь за небольшое вознаграждение

[Sparkman]

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

1. Дана строка. Подсчитать в ней длину самой длинной последовательности букв a. вообще не знаю как делать))Помогите!!!)))

uses crt;
var s:string;
    i,max,n:integer;
    c:char;
begin
     clrscr;
     write('Enter string: ');
     while c<>Chr(13) do
     begin
          c:=readkey;
          if c in [' ','a'] then
          begin
               s:=s+c;
               write(c);
          end;
     end;

     n:=0;
     max:=0;
     for i:=1 to Length(s) do
     if s[i]<>' ' then inc(n) else
     if n>max then begin max:=n; n:=0; end;
     writeln;
     writeln('Max length: ',max);
     readln;
end.

для упрощения сделал возможным ввод только символов "a", пробела и перевода каретки на следующую строку.

[Ne1StoM]

Поясни пожалуйста что такое РЕШЕТКА???где 13 и 32

[Азамат Казанчев]

написал в делфи, оформи ввод строки и вывод результата и все

var cim,s:string; kol,i,n,k:integer;
begin
s:=edit1.Text;      //вводишь строку и присваеваешь ее в s
cim:='';
repeat//for i=1 to k do begin
cim:=cim+'a';
n:=pos(cim,s);
//while n<>0 do begin
//end;
until n=0;
k:=length(cim);
edit2.Text:=inttostr(k-1);   //выводишь максимальное количество(1,2,..)
end;

[Вадим Мошев]

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

Поясни пожалуйста что такое РЕШЕТКА???где 13 и 32

Решётка (#) этот символ, показывающий номер симмвола. если решётка стоит перед числом, то такая конструкция преобразуется в символ, порядковый номер которого равен этому числу. Более точно - это получение клавиши с кодом, равного этому числу

Например, #27 - Esc
#13 - Enter
#8 - BackSpase

[Ne1StoM]

Нужно решение на языке Паскаля)))