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

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

18.02.2018, 14:22. Просмотров 106. Ответов 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
Ответы с готовыми решениями:

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

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

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

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

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

1
bormant
Модератор
Эксперт Pascal/DelphiЭксперт NIX
3897 / 2557 / 2082
Регистрация: 22.11.2013
Сообщений: 7,151
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!!! Задана строка символов. Группы символов, разделенные пробелом и не...

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


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

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

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