С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.86/7: Рейтинг темы: голосов - 7, средняя оценка - 4.86
yulia2012
0 / 0 / 0
Регистрация: 26.02.2012
Сообщений: 48
1

Дана символьная строка. Подсчитать самую длинную последовательность подряд идущих букв а.

04.03.2012, 20:25. Просмотров 1295. Ответов 4
Метки нет (Все метки)

Дана символьная строка. Подсчитать самую длинную последовательность подряд идущих букв а.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
04.03.2012, 20:25
Ответы с готовыми решениями:

Дана символьная строка.подсчитать самую длинную последовательность
подряд идущих букв а.

Подсчитать самую длинную последовательность подряд идущих букв А
Ввести строку. Подсчитать самую длинную последовательность подряд идущих букв А.

Подсчитать в строке самую длинную последовательность подряд идущих букв А
Здравствуйте помогите пожалуйста! В основной программе должен быть оператор...

Дана символьная строка. Найти наибольшую последовательность букв а
Дана символьная строка. Найти наибольшую последовательность букв а.

Дана символьная строка. Подсчитать в ней количество букв r,k,t
Дана символьная строка. Подсчитать в ней количество букв r,k,t.

4
gecheim
14 / 14 / 5
Регистрация: 21.01.2012
Сообщений: 119
05.03.2012, 01:48 2
написал на английские а, если надо думаю сам сможешь поменять на русскую, и допишешь фразы вывода результата
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
uses crt;
var ch:char;
    i,m:integer;
begin
m:=0;
repeat
 ch:=readkey;
 write(ch);
 i:=0;
 while ch='a' do
  begin
  i:=i+1;
  ch:=readkey;
  write(ch);
  end;
 if i>m then m:=i;
until ch=#13;
writeln;
write(m);
end.
1
yulia2012
0 / 0 / 0
Регистрация: 26.02.2012
Сообщений: 48
18.03.2012, 21:18  [ТС] 3
1.дана символьная строка.подсчитать самую длинную последовательность подряд идущих букв а.
2.Выписать из символьной строки слова,начинающиеся и заканчивающиеся на одну и ту же букву.
0
tm2012
108 / 108 / 100
Регистрация: 04.03.2012
Сообщений: 146
18.03.2012, 22:38 4
1)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
var 
   s:string; 
   a,i,m:byte;
begin
   cls;
   writeln('Введи строку: ');
   readln(s);
   a:=0; m:=0;
   for i:=1 to length(s) do 
      if (s[i]='a') or (s[i]='а') then  //английская или русская буква А
         begin 
            inc(a); 
            if a>m then m:=a; 
         end
      else a:=0;
   write('Самая длинная последовательность букв А: ',m);
end.
2
КонецСвета
Почетный модератор
7932 / 3903 / 2464
Регистрация: 30.10.2011
Сообщений: 5,379
19.03.2012, 00:03 5
Цитата Сообщение от yulia2012 Посмотреть сообщение
2.Выписать из символьной строки слова,начинающиеся и заканчивающиеся на одну и ту же букву.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
uses crt;
var s,sl: string;
    i: byte;
begin
write('s=');readln(s);s:=s+' '; sl:='';
for i:=1 to length(s) do
    if not (s[i] in [' ','.',',','-','!','?',':',';']) then sl:=sl+s[i] else
       if length(sl)>0 then
          begin
          if sl[1]=sl[length(sl)] then write(sl,' ');
          sl:='';
          end;
end.
1
19.03.2012, 00:03
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
19.03.2012, 00:03

Дана символьная строка. Подсчитать в ней количество букв r,k,t
Дана символьная строка. Подсчитать в ней количество букв r,k,t

Дана символьная строка. Подсчитать в ней количество букв r,k,t
Дана символьная строка. Подсчитать в ней количество букв r,k,t.

Дана символьная строка. Подсчитать количество букв k в последнем ее *слове
Дана символьная строка. Подсчитать количество букв k в последнем ее *слове


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru