даны две строчки. обусловьте, является ли 1-ая строчка подстрокой второй строчки

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

Задать свой вопрос
Никита Пуйло
Строчки вводятся с клавиатуры?
Куйбедин Степан
на вход поддаются две строки
Таисия Комасова
нужно вывести слово yes,если 1-ая строчка является подстрокой 2-ой строки, либо слово no в неприятном случае
Данил Муат
if Pos(s2,s1)>0 then Writeln('yes') else Writeln('no');
Глянько Элина
Или там Pos(s1,s2) - не помню так, надобно в справке посмотреть по функции.
1 ответ
Без использования посторониих функций. 
Миша Мисловской
Дурдом))) Pos - это не посторонняя, а интегрированная стандартная функция языка Pascal, начиная с версии Turbo Pascal 7.1. (1992).
Кира Розумянская
А вот за break школьные учителя обычно голову сносят, ибо нарушает каноны структурного программирования и рвет целостность блок-схем.
Валерия
Можно убрать break в принципе, он не оказывает влияние на работу алгоритма, но чуть ускоряет его работу :)
Ульяна Габра
Да и сущность задачки вероятнее всего была построить свою программку, а не использовать теснее готовые функции :) Так можно половину задач решить, что не есть "зачёт".
Нина Шмаина
О да, очень ускоряет... Не надо придумывать того, что нет в условии: Вы так условьтесь и квадратный корень программировать.
Arsenij
Метод с Pos будет эффективнее НА ПОРЯДОК, так как это inline-функция, реализованная в машинном коде.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт