Работа со строками

@aleks2903 · Регистрация: 30.06.2010

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

Имеется некоторый текст. Образовать из него новый, в который включить информацию, заключенную между пробелом и запятой.

@Mawrat · 01.07.2010, 23:32

Программа выбирает из входной строки части между символами ' ' и ',' и формирует из них результирующую строку.

Pascal

program Project1;
 
const
  N = 10;
var
  StrSrc, StrTmp, StrRes : String;
  i : Integer;
  Flag : Boolean;
begin
  Writeln('Введите строку:');
  Readln(StrSrc);
 
  StrRes := '';
  StrTmp := '';
  Flag := False;
  for i := 1 to Length(StrSrc) do begin
    if i > 1 then begin
      if StrSrc[i - 1] = ' ' then begin
        StrTmp := '';
        Flag := True;
      end;
    end;
 
    if StrSrc[i] = ',' then begin
      StrRes := StrRes + StrTmp;
      Flag := False;
    end;
 
    if Flag then
      StrTmp := StrTmp + StrSrc[i]
    ;
  end;
 
  Writeln('Результирующая строка:');
  Writeln(StrRes);
  Readln;
end.

Результат работы программы:
Исходная строка:
111 aaa, bbb, ccc, 222.
Результирующая строка:
aaabbbccc

@aleks2903 0 / 0 / 0 Регистрация: 30.06.2010 Сообщений: 8
		1
	Работа со строками 01.07.2010, 23:05. Показов 1356. Ответов 1 Метки нет (Все метки) Имеется некоторый текст. Образовать из него новый, в который включить информацию, заключенную между пробелом и запятой. 0

	01.07.2010, 23:32

Работа со строками

Решение