Процедура нормализации строки

@CyberGore · Регистрация: 20.01.2014

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

@volvo · 20.01.2014, 13:05

А поточнее? Что за "нормализация"? Это после которой строка будет без пробелов в начале/конце, и с пробелами после знаков препинания, а не до них? Тогда вот так:

Pascal

const
  nChars = 5; { при желании количество и сами разделители можно добавить }
  chars: array[1.. nChars] of char = (' ', '.', ',', '!', '?');
 
var
  s: string;
  i, p: integer;
 
begin
  write('s = '); readln(s);
  { s := '    one two ,  three   ... four five  !  '; }
  for i := 1 to nChars do
    repeat
      p := Pos(' ' + chars[i], s);
      if p > 0 then
        delete(s, p, 1);
    until p = 0;
  if s[1] = ' ' then delete(s, 1, 1);
  if s[length(s)] = ' ' then delete(s, length(s), 1);
  
  writeln(s);
end.

Если нужно именно с процедурой - то так:

Pascal

procedure Normalize(var s: string);
const
  nChars = 5;
  chars: array[1.. nChars] of char = (' ', '.', ',', '!', '?');
var
  i, p: integer;
begin
  for i := 1 to nChars do
    repeat
      p := Pos(' ' + chars[i], s);
      if p > 0 then
        delete(s, p, 1);
    until p = 0;
  if s[1] = ' ' then delete(s, 1, 1);
  if s[length(s)] = ' ' then delete(s, length(s), 1);
end;
 
var
  s: string;
 
begin
  write('s = '); readln(s);
  Normalize(s);
  writeln(s);
end.

@CyberGore 0 / 0 / 0 Регистрация: 20.01.2014 Сообщений: 10
		1
	Процедура нормализации строки 20.01.2014, 12:31. Показов 1708. Ответов 1 Метки нет (Все метки) Процедура нормализации строки 0

	20.01.2014, 13:05

Процедура нормализации строки

Решение