Технический форум

Технический форум (http://www.tehnari.ru/)
-   Помощь студентам (http://www.tehnari.ru/f41/)
-   -   Cтроковый тип (http://www.tehnari.ru/f41/t87501/)

Леночка 15.04.2013 22:01

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

Vladimir_S 16.04.2013 11:53

Цитата:

Сообщение от Леночка (Сообщение 896780)
помогите, люди добрые. задача. паскаль. дан текст. найти наибольшее кол-во идущих подряд одинаковых символов

Легко:
Код:

Var
 S:String;
 C,Cmax:Char;
 N,N1,i:Byte;
Begin
 Writeln('Enter the string:');
 Readln(S);
 N:=1;
 N1:=1;
 i:=1;
 C:=S[1];
 Cmax:=C;
 Repeat
  Inc(i);
  While S[i]=C do
  begin
    Inc(N1);
    Inc(i);
  end;
  If N1>N then
  begin
    N:=N1;
    Cmax:=C;
  end;
  C:=S[i];
  N1:=1;
 Until i>=Length(S);
 Writeln('Symbol "'+Cmax+'", ',N,' times');
 Readln
End.



Часовой пояс GMT +4, время: 02:41.

Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.