Определить, совпадает ли строка с частью заданной строки - Pascal

Узнай цену своей работы

Формулировка задачи:

Подскажите пожалуйста как написать данную программу: В заданный непустой текст входят только цифры и буквы. Определить удовлетворят ли он следующему свойству: текст совпадает с конечным отрезком ряда 0123456789 ( например: 9, 89, 789).

Решение задачи: «Определить, совпадает ли строка с частью заданной строки»

textual
Листинг программы
const g = '0123456789';
var s: string;
begin
  writeln('Введите строку:');
  readln(s);
  write('Строка ');
  if (length(s) > length(g)) or (pos(s, g) <> length(g) - length(s) + 1) then write('не ');
  write('совпадает с конечным отрезком ряда ', g);
  readln
end.

Объяснение кода листинга программы

  1. Создается константа g с значением 0123456789.
  2. Создается переменная s типа string для ввода значения пользователем.
  3. Выводится сообщение Введите строку: для предложения пользователю ввести строку.
  4. Считывается значение, введенное пользователем, и сохраняется в переменной s.
  5. Выводится сообщение Строка.
  6. Проверяется условие:
    • Если длина строки s больше длины строки g, или
    • Позиция подстроки s в строке g не равна разности длины g и длины s плюс 1
  7. Если условие из пункта 6 истинно, то выводится не, иначе ничего не выводится.
  8. Выводится совпадает с конечным отрезком ряда и значение константы g.
  9. Ввод завершается. Этот код проверяет, совпадает ли введенная пользователем строка s с конечным отрезком строки g (0123456789).

Оцени полезность:

13   голосов , оценка 3.846 из 5
Похожие ответы