Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 06.12.2018, 13:02   #1
Enotik_1998
Пользователь
 
Регистрация: 09.03.2018
Сообщений: 77
По умолчанию Создать новый текст, содержащий все слова исходного текста, которые оканчиваются на ту же букву, что и слово максимальной длины pascal abc

Создать новый текст, содержащий все слова исходного текста, которые оканчиваются на ту же букву, что и слово максимальной длины, текст вводится пользователем. Я смог найти самое длинное слово и его последнюю букву, помогите дописать остальное. Вот исходник:
Код:
uses
  crt;
const
  dividers=[' ',',','.',';',':','-','=','+'];
var
  s,max,temp:string;
  i:integer;
begin
  clrscr;
  writeln('Введите строку...');
  readln(s);
  temp:='';
  max:='';
  for i:=1 to length(s) do
  begin
    if not (s[i] in dividers) then
      temp:=temp+s[i];
    if (s[i] in dividers) or (i=length(s)) then
      if temp<>'' then
      begin
        if length(temp)>length(max) then
          max:=temp;
        temp:='';
      end;
  end;
  writeln('Самое длинное слово: ',max,'. В нём букв: ',length(max));
  writeln('',max[length(max)]);
end.
______________________
Используйте тег [CODE] (кнопка с решеткой # в форме сообщения) при вставке кода на форум. Подробнее в FAQ

Последний раз редактировалось Alex11223; 06.12.2018 в 13:05.
Enotik_1998 вне форума Ответить с цитированием
Старый 06.12.2018, 13:07   #2
Alex11223
Старожил
 
Аватар для Alex11223
 
Регистрация: 12.01.2011
Сообщений: 19,500
По умолчанию

Цитата:
Сообщение от Enotik_1998 Посмотреть сообщение
Я смог найти самое длинное слово и его последнюю букву, помогите дописать остальное.
Так а проблема-то в чем? На этом месте стало лень думать дальше?
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом.
Alex11223 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Дан файл вещественных чисел. Создать файл целых чисел, содержащий длины всех убывающих последовательностей элементов исходного файла. Например, для исходного файла с элементами 1.7 faza9444 C# (си шарп) 1 27.11.2017 22:23
В новый стек записать все слова, которые не заканчиваются на заданную букву ggjgj Общие вопросы C/C++ 3 21.04.2017 23:52
Pascal ABC. В текстовом русскоязычном файле убрать все слова, начинающиеся на букву «а» и одновременно содержащие букву «о» MarsLoveMoon Паскаль, Turbo Pascal, PascalABC.NET 8 25.04.2014 17:03
Дан текст из слов, разделенных пробелами. Напечатайте все слова, которые состоят из тех же букв, что и последнее слово текста hunter129 Паскаль, Turbo Pascal, PascalABC.NET 3 21.11.2013 06:47
Дан текст. Слова в тексте отделены одним пробелом, в конце текста точка. Распечатать все слова текста, которые содержат..... Anton94.by Паскаль, Turbo Pascal, PascalABC.NET 1 06.02.2012 23:36