Форум программистов, компьютерный форум, киберфорум
Free Pascal
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.86/7: Рейтинг темы: голосов - 7, средняя оценка - 4.86
0 / 0 / 0
Регистрация: 30.06.2015
Сообщений: 22
1

Сравнение введённого и данного текста

28.06.2016, 11:10. Показов 1331. Ответов 9
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Определить совпадает ли введённый текст(числовой) с каким либо отрезком последовательности целых чисел 0,1,2...
пример:3, 678,101112
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
28.06.2016, 11:10
Ответы с готовыми решениями:

Сравнение введенного текста с содержимым текстового файла
Мне нужно сделать так, чтобы тот текст который ты ввёл за $pass сравнивало текст с pass.txt, как...

Сравнение введенного текста и заранее определенных вариантов (if . else)
Добрый день, форумчане! Я в начале веселого и сложного пути знакомства с питоном В ходе...

Сравнение текста введенного в Textbox по name. При этом Textbox создан динамически
using System; using System.Collections.Generic; using System.ComponentModel; using System.Data;...

Найдите сумму квадратов чисел из введённого набора от данного номера до данного номера
Найдите сумму квадратов чисел из введённого набора от данного номера до данного номера. Например,...

9
Почетный модератор
64305 / 47602 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
28.06.2016, 12:43 2
Цитата Сообщение от Headklif Посмотреть сообщение
введённый текст(числовой)
А числа в тексте разделяются запятой?
0
0 / 0 / 0
Регистрация: 30.06.2015
Сообщений: 22
28.06.2016, 16:44  [ТС] 3
Самый банальный пример
Цитата Сообщение от Puporev Посмотреть сообщение
А числа в тексте разделяются запятой?
ряд:12457810
Последовательность:12345678910
0
Модератор
Эксперт Pascal/DelphiЭксперт NIX
7797 / 4620 / 2831
Регистрация: 22.11.2013
Сообщений: 13,121
Записей в блоге: 1
28.06.2016, 18:46 4
А вот такое совпадение учитывается?
1323 --> ... 31 32 33 ...
Или только по границе чисел?
0
0 / 0 / 0
Регистрация: 30.06.2015
Сообщений: 22
28.06.2016, 19:24  [ТС] 5
только по границе, если верить преподу
0
Модератор
Эксперт Pascal/DelphiЭксперт NIX
7797 / 4620 / 2831
Регистрация: 22.11.2013
Сообщений: 13,121
Записей в блоге: 1
28.06.2016, 21:32 6
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Если только по границе, то достаточно
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
const NY: array [Boolean] of String[3] = ('НЕ ','');
var
  s: String;
  i, j, k, p, q: Integer;
begin
  repeat
    Write('Цифры: '); ReadLn(s);
    i:=Length(s); while (i>0) and (s[i] in ['0'..'9']) do Dec(i);
    if (i=0) and (Length(s)>1) then Break
    else WriteLn('*** Ошибочный ввод. Повторите...');
  until False;
  for j:=1 to Length(s) div 2 do
    if Length(s) mod j=0 then begin
      Val(Copy(s,1,j),q,k); i:=1+j;
      while i+j-1<=Length(s) do begin
        p:=q; Val(Copy(s,i,j),q,k);
        if q-p<>1 then Break;
        Inc(i,j);
      end;
      if i+j-1>Length(s) then Break;
    end;
  WriteLn(NY[i+j-1>Length(s)],'совпадает');
end.
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
33022 / 21323 / 8185
Регистрация: 22.10.2011
Сообщений: 36,624
Записей в блоге: 9
29.06.2016, 11:20 7
Цитата Сообщение от bormant Посмотреть сообщение
то достаточно
Этот код не всегда будет правильно работать. Проверь его на последовательности 99100, которая-таки совпадает с отрезком числовой последовательности. Ответ - "НЕ совпадает", то же самое и с 910. Там, где есть увеличение количества цифр в элементах числовой последовательности - сбой.
1
0 / 0 / 0
Регистрация: 30.06.2015
Сообщений: 22
29.06.2016, 15:27  [ТС] 8
там суть в том что например 1812 уже не входит в последовательность, а например 17910 входит в 78910.
И надо выводить последовательность
0
257 / 234 / 185
Регистрация: 02.04.2016
Сообщений: 898
29.06.2016, 16:10 9
Тогда решай через множества
0
Модератор
Эксперт Pascal/DelphiЭксперт NIX
7797 / 4620 / 2831
Регистрация: 22.11.2013
Сообщений: 13,121
Записей в блоге: 1
29.06.2016, 17:19 10
Цитата Сообщение от volvo Посмотреть сообщение
Там, где есть увеличение количества цифр в элементах числовой последовательности - сбой.
Да, надо чуть менять подход.
но, судя по примерам Headklif, у него вообще не такая задача. А какая -- я пока не понял.
0
29.06.2016, 17:19
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
29.06.2016, 17:19
Помогаю со студенческими работами здесь

Найдите сумму чисел из введённого набора от данного номера до данного номера
Найдите сумму чисел из введённого набора от данного номера до данного номера. Например, если...

Найдите сумму чисел из введённого набора от данного номера до данного номера
Например, если введены номера «2 4», то нужно найти сумму чисел в наборе со 2-го по 4-е. Формат...

Сравнение текста из файла и сравнение с текстом в программе char - Dev C++
Доброго времени суток! Имеется код программы: ifstream test(&quot;primer.txt&quot;); char awm = &quot;kod&quot;;...

Сравнение введенного пароля с заданным
Задать в программе пароль, в котором отсутствуют цифры. Из введенного пароля перед сравнением с...


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

Или воспользуйтесь поиском по форуму:
10
Ответ Создать тему
Новые блоги и статьи
Интеграция Arduino и ChatGPT: Практическое руководство
InfoMaster 16.01.2025
В современную эпоху технологических инноваций интеграция искусственного интеллекта с микроконтроллерами открывает принципиально новые возможности для создания умных устройств и автоматизированных. . .
Как создать робота, управляемого ChatGPT
InfoMaster 16.01.2025
Концепция проекта В современную эпоху искусственный интеллект и робототехника становятся все более доступными для энтузиастов и разработчиков. Создание роботизированной руки, управляемой ChatGPT,. . .
Как создать ChatGPT бота в Telegram на Python
InfoMaster 16.01.2025
В современном мире технологии искусственного интеллекта становятся все более доступными для разработчиков, открывая новые возможности для создания умных и интерактивных приложений. Одним из самых. . .
Машинное обучение с помощью Python
InfoMaster 16.01.2025
Машинное обучение стало неотъемлемой частью современных технологий, позволяя компьютерам учиться на основе данных и принимать решения без явного программирования. В сочетании с языком. . .
Использование связки C# и PHP в корпоративной разработке и микросервисной архитектуре
InfoMaster 16.01.2025
Введение в интеграцию C# и PHP В современной корпоративной разработке все чаще возникает потребность в создании гибких и масштабируемых решений, способных эффективно решать широкий спектр. . .
Как использовать Kerio дома для управления сетью и пользователями
InfoMaster 16.01.2025
Использование технологий для улучшения повседневной жизни стало неотъемлемой частью современного быта. Одной из таких технологий является Kerio — мощный инструмент для управления сетью и. . .
Есть ли будущее у DVD и Blu-ray?
InfoMaster 16.01.2025
В эпоху стремительного развития цифровых технологий и повсеместного распространения потоковых сервисов вопрос о будущем физических носителей информации становится все более актуальным. Особенно остро. . .
Как проводить научные вычисления на Python
InfoMaster 15.01.2025
Python стал одним из наиболее востребованных языков программирования в области научных вычислений благодаря своей простоте, гибкости и обширной экосистеме специализированных библиотек. Научные. . .
Создание игры типа Minecraft на PyGame/Python: пошаговое руководство
InfoMaster 15.01.2025
В данном руководстве мы рассмотрим процесс создания игры в стиле Minecraft с использованием библиотеки PyGame на языке программирования Python. Этот проект идеально подходит как для начинающих. . .
Как создать свою первую игру в стиле Doom на Unreal Engine
InfoMaster 15.01.2025
Разработка шутера от первого лица в стиле классического Doom представляет собой увлекательное путешествие в мир игрового программирования, где сочетаются творческий подход и технические навыки. . . .
Параллельное программировани­е: основные технологии и принципы
InfoMaster 15.01.2025
Введение в параллельное программирование Параллельное программирование представляет собой фундаментальный подход к разработке программного обеспечения, который позволяет одновременно выполнять. . .
Как написать микросервис на C# с Kafka, MediatR, Redis и GitLab CI/CD
InfoMaster 15.01.2025
В современной разработке программного обеспечения микросервисная архитектура стала стандартом де-факто для создания масштабируемых и гибких приложений. Этот подход позволяет разделить сложную систему. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru