Удалить из строки все знаки препинания

@Nastya7474 · Регистрация: 04.04.2017

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

Дана строка символов ( 2-3 строки ) в файле F1.

Составить функцию , удаляющую из строки все

знаки препинания. Записать новую строку в файл F1 после

исходной.

@Zwelenewskiy · 25.05.2017, 23:14

Функция

Pascal

const
  Prep = [',', '.', ';', ':', '!', '?'];
 
function Dell(x: string): string;
var
  i: integer;
begin
  for i := length(x) downto 1 do  
    if x[i] in prep
      then     
      delete(x, i, 1);    
  
  writeln(x); 
end;

@volvo · 27.05.2017, 17:01

Pascal

uses StrUtils;
 
// ...
 
function Dell(s : string) : string;
begin
  result := StringsReplace(s, [',', '.', ';', ':', '!', '?'], ['', '', '', '', '', ''], [rfReplaceAll])
end;

@Nastya7474 0 / 0 / 0 Регистрация: 04.04.2017 Сообщений: 5
		1
	Удалить из строки все знаки препинания 25.05.2017, 22:23. Показов 3657. Ответов 2 Метки нет (Все метки) Дана строка символов ( 2-3 строки ) в файле F1. Составить функцию , удаляющую из строки все знаки препинания. Записать новую строку в файл F1 после исходной. 0

	27.05.2017, 17:01

Опции темы

Удалить из строки все знаки препинания

Решение