Строки

@Alena_0110 · Регистрация: 20.05.2012

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

В строке заменить точку(.) на слово ТОЧКА, запятую(,) на слово ЗАПЯТАЯ, восклицательные знак(!) на слово ВОСКЛИЦАТЕЛЬНЫЙ ЗНАК, вопросительный знак(?) на слово ВОПРОСИТЕЛЬНЫЙ ЗНАК
Помогите подсчитать количество замен
код Delphi
procedure TForm16.Button1ClickSender:TObject);
var i,j:integer;
s:string[50];
begin
for i:=0 to Memo1.Lines.Count-1 do
begin
s:=Memo1.Lines[i];
j::=1;
while j<=Length (s) do
begin
if s[j]='.' then
begin
delete(s,j,1);
insert('точка',s,j);
end;
if s[j]=',' then
begin
delete(s,j,1);
insert('запятая',s,j);
end;
if s[j]='!' then
begin
delete(s,j,1);
insert('восклицательный знак',s,j);
end;
if s[j]='?' then
begin
delete(s,j,1);
insert('вопросительный знак',s,j);
end;
inc(j);
end;
end;{while}
Memo2.Lines.Add(s);
end;{for}
end/.

@саша40 · 18.11.2012, 15:57

А вот так слабо:

Delphi

var
a: string;
b: integer;
c: string;
I: integer;
begin
a:=edit1.Text; //получаем строку
b:=Length(a);
for i:=1 To b Do 
begin
if a[i]=',' then c:=c + ' запятая';
if a[i]='.' then c:=c + ' точка';
if a[i]='!' then c:=c + ' восклицательный знак';
if a[i]='?' then c:=c + ' вопросительный знак';
if (a[i]<>',') and (a[i]<>'.') and (a[i]<>'!') and (a[i]<>'?') then 
c:=c + a[i];
end;
Edit2.Text:=c;
end;

Одиночка · 18.11.2012, 16:13

Если следовать вашему коду, тогда так:

Delphi

procedure TForm16.Button1ClickSender:TObject);
var
  i,j,k:integer;
  s:string[50];
begin
  k:=0;
  for i:=0 to Memo1.Lines.Count-1 do
  begin
    s:=Memo1.Lines[i];
    j:=1;
    while j<=Length (s) do
    begin
      if s[j]='.' then
      begin
        delete(s,j,1);
        insert('точка',s,j);
        Inc(k);
      end Else
      if s[j]=',' then
      begin
        delete(s,j,1);
        insert('запятая',s,j);
        Inc(k);
      end Else
      if s[j]='!' then
      begin
        delete(s,j,1);
        insert('восклицательный знак',s,j);
        Inc(k);
      end Else
      if s[j]='?' then
      begin
        delete(s,j,1);
        insert('вопросительный знак',s,j);
        Inc(k);
      end;
      inc(j);
    end;{while}
    Memo2.Lines.Add(s);
  end;{for}
end;

На выходе в K - количество замен.
В коде были и другие ошибки.
А вообще, вы уже не первый день на форуме, а оформлять код тегами не научились.

@Alena_0110 0 / 0 / 0 Регистрация: 20.05.2012 Сообщений: 12
		1
	Строки 18.11.2012, 15:40. Показов 735. Ответов 2 Метки нет (Все метки) В строке заменить точку(.) на слово ТОЧКА, запятую(,) на слово ЗАПЯТАЯ, восклицательные знак(!) на слово ВОСКЛИЦАТЕЛЬНЫЙ ЗНАК, вопросительный знак(?) на слово ВОПРОСИТЕЛЬНЫЙ ЗНАК Помогите подсчитать количество замен код Delphi procedure TForm16.Button1ClickSender:TObject); var i,j:integer; s:string[50]; begin for i:=0 to Memo1.Lines.Count-1 do begin s:=Memo1.Lines[i]; j::=1; while j<=Length (s) do begin if s[j]='.' then begin delete(s,j,1); insert('точка',s,j); end; if s[j]=',' then begin delete(s,j,1); insert('запятая',s,j); end; if s[j]='!' then begin delete(s,j,1); insert('восклицательный знак',s,j); end; if s[j]='?' then begin delete(s,j,1); insert('вопросительный знак',s,j); end; inc(j); end; end;{while} Memo2.Lines.Add(s); end;{for} end/. 0

	18.11.2012, 16:13