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

@CooN · Регистрация: 23.05.2010

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

Pascal
1
2
3
4
5
6
7
8
9
10
11
uses crt;
 var s:string; i:integer;
 const z:string='.,;:!?()';
begin clrscr;
 writeln('введите строку');
 readln(s);
 for  i:=1 to length(z) do
 while pos(z[i],s)<>0 do
 delete (s,pos(z[i]),1);
 writeln('полученная строка',s)
 end.

вот где то ошибка при записи, не могу понять где именно. Подскажите.

@iDoter · 16.09.2013, 14:11

Pascal
1
2
3
4
5
6
7
8
9
10
11
var s:string; i:integer; z:string:='!?()-,.';
begin
  //readln(s);
  s:='asd.,sa.3df';
  i:=1;
  while i <> Length(s) do
  begin
  if pos(s[i],z) <> 0 then delete(s,i,1) else i:=i+1;
  end;
  writeln(s);
end.

@Cyborg Drone · 17.09.2013, 02:49

CooN, всё почти верно. Ошибка в строке 9. Должно быть

Pascal
1
delete(s,pos(z[i],s),1);

Новые блоги и статьи Все статьи Все блоги /
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .
Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .