Задача со строковыми величинами (Pascal)

Posted by obzor under Delphi

Написать функцию, которая получает на входе две строковые величины и проверяет вхождение одной в другую. На выходе выдает результат ложь или номер позиции вхождения. Никак не могу взять в толк, как переменной присвоить тип boolean и integer одновременно?

Serge_Bliznykov

Паскаль строго типизированный язык. Переменная НЕ МОЖЕТ принимать значения разного типа (ну, если не брать искусственно введённый в Delphi тип VARIANT)

поэтому, у Вас два выхода.
выход первый — функция возвращает только целочисленное значение. В случае ошибки возвращается значение, которого заведомо нет и не может быть.
например, Pos возвращает ноль, если ничего не нашлось. Некоторые функции возвращают -1, если значение не найдено в списке и т.д.

вариант второй.
функция делается логического типа и возвращает true (нашлось) или false (не найдено) и при этом функция вовращает значение через переменную параметер:

function findPos(const S1, S2 : string; var PosS1InS2 : integer) : boolean;
begin
   PosS1InS2 := Pos(S1, S2);
   findPos := (PosS1InS2 > 0);
end;

безусловно, можно написать функцию, которая возвращает тип Variant, но это будет работать далеко не в каждом Pascal и подобное требует какое-то логическое обоснование — для чего это нужно.

min@y™

Формулировка задачи написана для с/с++, там то, что = 0 и есть false.
На паскале можно, конечно, принять false за 0, что логично и правильно.

type
  TPosResult = record case byte of
    0: (Position: Integer);
    1: (Success: Boolean);
  end;

function MyPos(const SubStr, S: string; const Offset: Integer = 1): TPosResult;
begin
  Result.Position:= Pos(SubStr, S, Offset);
end;

тема на форуме

Похожие статьи

• Способы передачи параметров в подпрограммы в Delphi
• Описать функцию Pi(eps), вычисляющую значение числа Пи по формуле
• Вычислить методом касательных (Pascal)
• Ввести номер одного из друзей и вывести его имя (задача на записи)
• Найти сумму элементов массива, стоящих после последнего нулевого элемента
• Вычисление формулы с произведениями
• Можно ли среди чисел массива найти две разных пары чисел, суммы которых одинаковы?
• Определить, является ли массив «магическим квадратом»
• Создать таблицу умножения
• Обработка строк (Pascal)