Дана строка, состоящая из слов, оставить только последнее вхождение каждого слова

@mkprivet · Регистрация: 03.07.2012

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

Дана строка, состоящая из слов оставить только последнее вхождение каждого слова

@Puporev · 06.07.2012, 20:19

Pascal

uses crt;
var s,s1:string;
    i,j,k:byte;
beginclrscr;
writeln('Введите строку из слов, разделенных пробелами:');//для простоты
read(s);
i:=length(s);//идем с конца
while i>=1 do
if(s[i]<>' ')and((i=length(s))or(s[i+1]=' ')) then
 begin
  s1:='';//составляем последнее неудаленное слово
  j:=i;
  while(j>=1)and(s[j]<>' ') do
   begin
    s1:=s[j]+s1;
    j:=j-1;
   end;
  k:=j;//встаем перед ним
  while k>=1 do//ищем впереди такие же слова
  if(copy(s,k,length(s1))=s1)and((k=1)or(s[k-1]=' '))and(s[k+length(s1)]=' ')
  then
   begin
    delete(s,k,length(s1));//находим, удаляем
    k:=k-1;//вперед
   end
  else k:=k-1;//нет, вперед
  i:=pos(s1,s)-1;//встаем перед последним неудаленным
 end
else i:=i-1;//пропускаем пробелы
write(s);
end.

@mkprivet 0 / 0 / 0 Регистрация: 03.07.2012 Сообщений: 34
		1
	Дана строка, состоящая из слов, оставить только последнее вхождение каждого слова 06.07.2012, 19:08. Показов 1547. Ответов 1 Метки нет (Все метки) Дана строка, состоящая из слов оставить только последнее вхождение каждого слова 0

	06.07.2012, 20:19

Опции темы

Дана строка, состоящая из слов, оставить только последнее вхождение каждого слова

Решение