Использование символьного и строкового типа данных

@sp3ki · Регистрация: 23.06.2009

Студворк — интернет-сервис помощи студентам

1. Ввести строку. Удалить из нее сочитание PHP.
2. Ввести строку. Опредилить сколько в последнем слове встречаеться К.
3. Ввести строку. Подсчитать самую длинную последовательность подряд идущих букв А.

@Messenger of G. · 23.06.2009, 13:33

За Вас в этом разделе решать никто, кроме ув. Puporev, не будет.
Советы:
1. Прочитайте про функцию pos(substr,str).
2. Последнее слово в строке s (w:string; i:integer):

Pascal
1
w:=''; i:=length(s); while s[i]<>'' do dec(i); w:=copy(s,i+1,length(s)-i)

Перебор всех символов строки w со сравнением и инкрементом счетчика.
3. Перебор всех символов, если "A", то использовать вложенный цикл для нахождения конца последовательности, сравнение с уже найденными последовательностями.

Вариант

Pascal
1
2
var s:string; a,j:byte;
begin readln(s); c:=0; for a:=1 to length(s) do if s[a]='A' then begin j:=a+1; while s[j]='A' do inc(j); if j-a>c then c:=j-a end; write(c); end.

@mamedovvms · 23.06.2009, 13:53

Сообщение от Messenger of G.

За Вас в этом разделе решать никто, кроме ув. Puporev, не будет.

Messenger of G., а почему вы так уверены

Добавлено через 40 секунд

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

Ввести строку. Удалить из нее сочитание PHP.

таких сочетаний может быть сколько угодно?

@sp3ki · 23.06.2009, 14:07 **[ТС]**

Только одно

@mamedovvms · 23.06.2009, 14:23

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
uses crt;
var s,ss:string;
    k:integer;
begin
 clrscr;
 s:='sdkgmd lkfgjsdfklgphpsd php';
 ss:=s;
 repeat
  k:=pos('php',ss);
  if k<>0 then  delete(ss,k,3);
 until(k=0);
 writeln(ss);
 readln;
end.

я написал что может быть много

Добавлено через 8 минут 5 секунд

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
uses crt;
var s:string;
    i,k:integer;
begin
 clrscr;
 s:='fgjksd fgkjsd fgsdkjg f gkdkg kdfkkkkkk  . .';
 i:=length(s);
 k:=0;
 while (s[i]<'a')or(s[i]>'z') do
  i:=i-1;
 while (s[i]>='a')and(s[i]<='z') do
  begin
   if s[i]='k' then k:=k+1;
   i:=i-1;
  end;
  writeln(k);
  readln;
end.

Добавлено через 4 минуты 27 секунд

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
uses crt;
var s:string;
    i,k,max:integer;
begin
 clrscr;
 max:=0;
 k:=0;
 s:='kfjgaaaasdgj ;sdkfjga;laaaaagagja;lgja;l ';
 for i:=1 to length(s) do
  begin
   if s[i]='a' then k:=k+1
    else
     begin
      if max<k then max:=k;
      k:=0;
     end;
  end;
  writeln(max);
  readln;
end.

@John_Pa9JIbHuK · 23.06.2009, 15:56

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

s:='sdkgmd lkfgjsdfklgphpsd php'; ss:=s;

а смысл???

Новые блоги и статьи Все статьи Все блоги /
Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .
Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .	Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .

@sp3ki 0 / 0 / 0 Регистрация: 23.06.2009 Сообщений: 14

	Использование символьного и строкового типа данных 23.06.2009, 12:45. Показов 1093. Ответов 5 Метки нет (Все метки) 1. Ввести строку. Удалить из нее сочитание PHP. 2. Ввести строку. Опредилить сколько в последнем слове встречаеться К. 3. Ввести строку. Подсчитать самую длинную последовательность подряд идущих букв А. 0

@sp3ki 0 / 0 / 0 Регистрация: 23.06.2009 Сообщений: 14
	23.06.2009, 14:07 [ТС]
	Только одно 0