Для произвольного текста вывести и удалить слова заданной длины

@katelili · Регистрация: 10.03.2015

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

создать программу в паскаль для произвольного текста записать и удалить слова заданной длины. помогите сделать, пожалуйста! надо сделать так, чтобы находились слова заданной длины, выводились на экран, а затем выводился текст без этих слов

@Joy · 10.03.2015, 13:25

Pascal

const delim='., :;!-';
var
  s,s1,sr:string;
  n,i:integer;
begin
  write('введите текст:');
  readln(s);
  write('слова какой длины нужно удалить:');
  readln(n);
  for i:=1 to length(s) do
    if pos(s[i],delim)>0 then begin
      if length(s1)=n then sr:=sr+s[i] else sr:=sr+s1+s[i];
      s1:='';
    end else s1:=s1+s[i]; 
  writeln('полученный текст:',sr);
end.

@katelili · 12.03.2015, 05:28 **[ТС]**

Но мне надо, чтобы сначала слова заданной длины выводились, а потом выводился текст без этих слов

@Joy · 12.03.2015, 08:53

Pascal

const delim='., :;!-';
var
  s,s1,sr:string;
  n,i:integer;
begin
  write('введите текст:');
  readln(s);s:=s+' '; 
  write('слова какой длины нужно удалить:');
  readln(n);
  for i:=1 to length(s) do
    if pos(s[i],delim)>0 then begin
      if length(s1)=n then begin sr:=sr+s[i]; writeln(s1);end
        else sr:=sr+s1+s[i];
      s1:='';
    end else s1:=s1+s[i];
  writeln('полученный текст:',sr);
end.

@katelili · 14.03.2015, 11:10 **[ТС]**

Огромное спасибо!!!это то, что мне было надо...

@katelili 0 / 0 / 0 Регистрация: 10.03.2015 Сообщений: 21 Записей в блоге: 2
		1
	Для произвольного текста вывести и удалить слова заданной длины 10.03.2015, 08:54. Показов 1929. Ответов 4 Метки нет (Все метки) создать программу в паскаль для произвольного текста записать и удалить слова заданной длины. помогите сделать, пожалуйста! надо сделать так, чтобы находились слова заданной длины, выводились на экран, а затем выводился текст без этих слов 0

@katelili 0 / 0 / 0 Регистрация: 10.03.2015 Сообщений: 21 Записей в блоге: 2
	12.03.2015, 05:28 [ТС]	3
	Но мне надо, чтобы сначала слова заданной длины выводились, а потом выводился текст без этих слов 0

@katelili 0 / 0 / 0 Регистрация: 10.03.2015 Сообщений: 21 Записей в блоге: 2
	14.03.2015, 11:10 [ТС]	5
	Огромное спасибо!!!это то, что мне было надо... 0

Опции темы

Для произвольного текста вывести и удалить слова заданной длины

Решение