Подсчитать наибольшее число букв «а» идущих подряд в данной последовательности

@cheka_0292 · Регистрация: 28.03.2010

Решите пожалуйста эти задачи . Очень нужны.
1. Дана последовательность из n символов. Известно, что в последовательности имеется хотя бы одна запятая. Найти номер:
1) . Первой по порядку запятой;
2) . Последней по порядку запятой.

2. Дана последовательность из n символов. Выяснить каких символов в последовательности больше, запятых или точек с запятой. (Не исключается случай равенства).

3. Дана последовательность символов, заканчивающаяся символом «+». Определить и вывести на экран номера символов, имеющих наибольший и наименьший номер.

4. Дана последовательность из n символов. Выяснить, в какой половине последовательности, в первой или во второй, больше вопросительных знаков. (Не исключается случай равенства).

5. Дана последовательность из n символов . Подсчитать наибольшее число букв «а» идущих подряд в данной последовательности.

6. Дана последовательность символов, заканчивающаяся символом «?». Подсчитать наибольшее количество символов «пробел» идущих в строке подряд.

@STRATEG · 28.03.2010, 19:33

Первое

Pascal

Program Stroki1;
Var Str:string;I,per,posl:integer;
BEGIN
Writeln('‚ўҐ¤ЁвҐ вҐЄбв');
Readln(Str);
for i:=1 to length(str) do
  begin
  if str[i]= ',' then posl:=i;
    if (str[i]=',') and (per=0) then per:=i;
  end;
Writeln('ЏҐаў*п=',Per);
Writeln('Џ®б«Ґ¤*пп=',Posl);
Readln;
END.

Pascal

Program Stroki2;
Var Str:string;i,TZ,Z:integer;
BEGIN
Writeln('‚ўҐ¤ЁвҐ вҐЄбв');
Readln(Str);
for i:=1 to length(str) do
  begin
  if str[i]= ',' then Z:=Z+1;
  if str[i]=';' then TZ:=TZ+1;
  end;
 if TZ>Z then Writeln('Ѓ®«миҐ',' ;');
 if TZ<z then Writeln('Ѓ®«миҐ',' ,');
 if TZ=Z then Writeln('Љ®«ЁзҐбвў® а*ў*®');
Readln;
END.

Добавлено через 29 минут

Pascal

Program Stroki3;
Var Str:string;i,Naib,Z:integer;
BEGIN
Writeln('‚ўҐ¤ЁвҐ вҐЄбв');
Readln(Str);
for i:=1 to length(str) do
  begin
  if str[i]= '+' then Naib:=i;
  BREAK;
  end;
  Writeln('Naib=',Naib);
  writeln('Naim=1');
Readln;
END.

Pascal

Program Stroki5;
Var Str:string;i,Count:integer;
BEGIN
Writeln('‚ўҐ¤ЁвҐ вҐЄбв');
Readln(Str);
for i:=1 to length(str) do
  begin
  if str[i]= 'a' then count:=count+1
  else count:=0;
  end;
  Writeln('Naibolshee a =,Count);
Readln;
END.

Pascal

Program Stroki6;
Var Str:string;i,Count,Naib:integer;
BEGIN
Writeln('‚ўҐ¤ЁвҐ вҐЄбв');
Readln(Str);
for i:=1 to length(str) do
  begin
  if str[i]= '?' then BREAK;
  if str[i]=' ' then Count:=Count+1
  else
  begin
  If Count>Naib then Naib:=Count;
  Count:=0;
  end;
  end;
  Writeln('Naib=',Naib);
Readln;
END.

@cheka_0292 · 01.04.2010, 21:37 **[ТС]**

Люди а когда вместо string char поставить задачи выйдут????
я ставлю а у меня не получаются ((((( функция pos не совместима с char.(((((

@cheka_0292 0 / 0 / 0 Регистрация: 28.03.2010 Сообщений: 5
		1
	Подсчитать наибольшее число букв «а» идущих подряд в данной последовательности 28.03.2010, 18:36. Показов 8378. Ответов 2 Метки нет (Все метки) Решите пожалуйста эти задачи . Очень нужны. 1. Дана последовательность из n символов. Известно, что в последовательности имеется хотя бы одна запятая. Найти номер: 1) . Первой по порядку запятой; 2) . Последней по порядку запятой. 2. Дана последовательность из n символов. Выяснить каких символов в последовательности больше, запятых или точек с запятой. (Не исключается случай равенства). 3. Дана последовательность символов, заканчивающаяся символом «+». Определить и вывести на экран номера символов, имеющих наибольший и наименьший номер. 4. Дана последовательность из n символов. Выяснить, в какой половине последовательности, в первой или во второй, больше вопросительных знаков. (Не исключается случай равенства). 5. Дана последовательность из n символов . Подсчитать наибольшее число букв «а» идущих подряд в данной последовательности. 6. Дана последовательность символов, заканчивающаяся символом «?». Подсчитать наибольшее количество символов «пробел» идущих в строке подряд. 0

@cheka_0292 0 / 0 / 0 Регистрация: 28.03.2010 Сообщений: 5
	01.04.2010, 21:37 [ТС]	3
	Люди а когда вместо string char поставить задачи выйдут???? я ставлю а у меня не получаются ((((( функция pos не совместима с char.((((( 0

Опции темы

Подсчитать наибольшее число букв «а» идущих подряд в данной последовательности

Решение