Посчитать в строке все последовательности символов 'cd' и удалить те из них, после которых стоит буква 'b'

@Кристинич · Регистрация: 01.06.2014

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

Посчитать в строке все последовательности символов 'cd' и удалить те из них, после которых стоит буква 'b'.

@FIL · 04.06.2014, 00:15

Сообщение от Кристинич

делаю и ошибку в коде выбивает

Код-то где?

@Кристинич · 04.06.2014, 20:30 **[ТС]**

Delphi

procedure TForm1.Button1Click(Sender: TObject);
 var a:string; i,b,n:integer;
begin
 a:= Edit1.Text;
b:=length(a);
n:=0;
for i:= 1 to b do begin
if (a[i] = 'c') and (a[i+1] = 'd') then begin
 n:=n+1;
if a[i+2] = 'b'  then begin a[i]:=' '; a[i+1]:=' '; end;
end;   end;
label1.Caption:=inttostr(n);
label2.Caption:=a;
 
 
end.

@FIL · 04.06.2014, 21:09

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
  a: string;
  i,b,n: integer;
begin
  a := Edit1.Text;
  n := 0;
  i := 1;
  while i < Length(a) do
  begin
    if (a[i] = 'c') and (a[i+1] = 'd') then
    begin
      n:=n+1;
      if (i+2 <= Length(a)) and (a[i+2] = 'b') then
      begin
        Delete(a, i, 2);
      end;
    end;
    inc(i);
  end;
 label1.Caption:=inttostr(n);
 label2.Caption:=a;
end;

@Кристинич 0 / 0 / 0 Регистрация: 01.06.2014 Сообщений: 21
		1
	Посчитать в строке все последовательности символов 'cd' и удалить те из них, после которых стоит буква 'b' 03.06.2014, 23:59. Показов 1095. Ответов 3 Метки нет (Все метки) Посчитать в строке все последовательности символов 'cd' и удалить те из них, после которых стоит буква 'b'. 0

@FIL Модератор 3488 / 2611 / 741 Регистрация: 19.09.2012 Сообщений: 7,971
	04.06.2014, 00:15	2
	Сообщение от Кристинич делаю и ошибку в коде выбивает Код-то где? 0

Опции темы