Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
b3sik
0 / 0 / 2
Регистрация: 21.12.2017
Сообщений: 61
#1

Удалить из слова все предыдущие вхождения последней буквы - Turbo Pascal

18.02.2018, 14:22. Просмотров 97. Ответов 1
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
program lab6;
Var s,sl,st:string;
i:byte;
Begin
write('Posledovatelnost slov: ');readln(s);
if s[Length(s)]='.' then Delete(s,Length(s),1);
i:=Length(s);
While (s[i]<>' ')and(i<>0) do
Begin
st:=s[i]+st;
Delete(s,i,1);
dec(i);
End;
While Pos(' ',s)>0 do
Begin
sl:=Copy(s,1,Pos(' ',s)-1);
Delete(s,1,Pos(' ',s));
if (st<>sl)and(Length(sl)>1) then writeln(Copy(sl,1,Length(sl)-1));
End;
readln;
End.
Нужно удалить из слова все предыдущие вхождения последней буквы
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.02.2018, 14:22
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Удалить из слова все предыдущие вхождения последней буквы (Turbo Pascal):

Удалить из слова все предыдущие вхождения последней буквы
Здравствуйте друзья, прошу помощи в работе на паскале, желательно если не...

Удалить из каждого слова все предыдущие вхождения последней буквы
Дана последовательность слов. Напечатать все слова, предварительно преобразовав...

Удалить из слова все последующие (предыдущие) вхождения первой (последней) буквы
Дана строка, состоящая из русских слов, разделенных пробелами (одним или...

Удалить из слова все вхождения последней буквы
Дано предложение. Напечатать все его слова предварительно преобразовав каждое...

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

Удалить из заданного слова все буквы, совпадающие с его последней буквой
Вычеркнуть из заданного слова все буквы, совпадающие с его последней буквой. ...

1
bormant
Модератор
Эксперт Pascal/DelphiЭксперт NIX
3755 / 2452 / 2034
Регистрация: 22.11.2013
Сообщений: 6,821
18.02.2018, 15:16 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var
  s, w: String;
  i, p: Integer;
begin
  ReadLn(s); 
  if s[Length(s)]='.' then s[Length(s)]:=' ' else s:=s+' ';
  for i:=1 to Length(s) do
    if s[i]<>' ' then w:=w+s[i]
    else if w<>'' then begin
      p:=Pos(w[Length(w)],w);
      while p<>Length(w) do begin
        Delete(w,p,1);
        p:=Pos(w[Length(w)],w);
      end;
      Write(w,' ');
      w:='';
    end;
  WriteLn;
  Write('Press Enter...'); ReadLn;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.02.2018, 15:16
Привет! Вот еще темы с решениями:

Удалить из каждого слова стpоки все последующие вхождения его пеpвой буквы.
HELP!!! Задана строка символов. Группы символов, разделенные пробелом и не...

Удалить все повторные вхождения данного слова из строки и вывести слова в столбик.
Удалить все повторные вхождения данного слова из строки и вывести слова в...

Удалить из строки все последующие вхождения первой буквы
Дана строка, состоящая из слов, разделенных пробелами (одним или несколькими)....

Удалить все вхождения данного слова из строки
1. удалить все вхождения данного слова из строки. 2. отредактировать строку,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru