Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
SERB18
0 / 0 / 0
Регистрация: 17.10.2018
Сообщений: 4
1

Удалить во всех словах буквы, расположенные по алфавиту после буквы h

23.10.2018, 14:22. Просмотров 500. Ответов 3
Метки нет (Все метки)

Дана последовательность символов, состоящая из слов. Удалить во всех словах буквы, расположенные по алфавиту после буквы h, включая саму букву h.
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
23.10.2018, 14:22
Ответы с готовыми решениями:

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

Файловый ввод/вывод. Во всех словах строки переставить все входящие буквы «а» в начало слова, а буквы «я» – в конец
Здравствуйте! Помогите, пожалуйста, составить программу, которая считывает из текстового файла...

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

Отсортировать в словах буквы по алфавиту
Написать программу, требующую от пользователя ввести число n - количество слов,затем ввести n слов...

3
Puporev
Модератор
59465 / 44866 / 30970
Регистрация: 18.05.2008
Сообщений: 107,650
23.10.2018, 15:14 2
Pascal
1
2
for i:=length(s) downto 1 do
if s[i] in ['h'..'z'] then delete(s,i,1);
0
SERB18
0 / 0 / 0
Регистрация: 17.10.2018
Сообщений: 4
29.10.2018, 12:27  [ТС] 3
Если не сложно можно полноценный КОД.
0
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
5710 / 3888 / 4350
Регистрация: 05.06.2014
Сообщений: 19,369
29.10.2018, 13:06 4
Взято отсюда:
Разбить строку на слова
Упорядочены ли буквы по алфавиту
Нужна доработка напильником. Ибо не совсем понял задачу.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
var
  S, Slovo: string;
  f: boolean;
  i: integer;
 
begin
  write('Введите текст: ');
  readln(S);
  S := S + ' ';
  writeln;
  while Pos(' ', S) > 0 do
  begin
    Slovo := Copy(S, 1, Pos(' ', S) - 1); {Выделяем слово из строки}
    write(Slovo); {Выводим слово}
    f := true;
    i := 1;
    while(i < length(slovo)) and f do
      if UpCase(slovo[i]) > UpCase(slovo[i + 1]) then 
        f := false
      else 
        i := i + 1;
    if f then 
    begin
      write('Буквы по алфавиту, удаляем.');
      for i := length(slovo) downto 1 do
        if slovo[i] in ['h'..'z'] then 
          delete(slovo, i, 1);
      writeln(Slovo); {Выводим слово}
    end
    else 
      writeln('Буквы не по алфавиту, пропускаем.');
    Delete(S, 1, Length(Slovo) + 1); {Удаляем слово из основной строки}
  end;
end.
0
29.10.2018, 13:06
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.10.2018, 13:06

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

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

Удалить все цифры из файла, а после каждой буквы поставить следующую по алфавиту
Народ помогите! Как можно иначе написать такую же программу? Если нужны пояснения к процедурам,...

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

Из текста удалить все буквы в, которые стоят сразу после буквы с
Подскажите, как решить задание(текст должен вводится пользователем на русском)


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

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

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