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

[НовичокЗоя]

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

[Poma][a]

Дык поставьте развилку - нашли - все прекрасно, иначе вывели ложь

[Bugrimov]

НовичокЗоя выложите какие-нибудь наработки.

[НовичокЗоя]

function rez (S1, S2: String): ?;
begin
rez:=pos(S1,S2)
end;

Насколько я понимаю формулировку задачи, в случае, когда rez=0, необходимо работать с переменной типа boolean, в остальных случаях - с integer.

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

[Serge_Bliznykov]

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

Вы правильно мучаетесь вопросом.
Паскаль строго типизированный язык. Переменная НЕ МОЖЕТ принимать значения разного типа (ну, если не брать искусственно введённый в 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 и подобное требует какое-то логическое обоснование - для чего это нужно.

надеюсь, что немного помог Вам разобраться в данном вопросе.

[Niro]

НовичокЗоя

Никак не могу взять в толк, как переменной присвоить тип boolean и integer одновременно?

По моему, вы слишком мудрите, пытаясь найти в задаче "скрытый" смысл.
Как решать такую задачу, во-первый зависит от темы, к которой она относится, посмотрите в названии лабы.

Пусть рез-т ф-и - тип integer - после выполнения функции - анализируете её результат.

если rez (s1,s2) = 0, то выводим - ложь иначе выводим - номер позиции.

ну или можно по извращаться так (если у вас ТР, т.е. строка до 255 символов)

function rez (s1,s2): byte;
begin
rez:=pos(S1,S2);
end;
........

if rez(s1,s2)>0 then writeln (boolean (rez(s1,s2)) else writeln (rez(s1,s2));

[НовичокЗоя]

function findPos(const S1, S2 : string; var PosS1InS2 : integer) : boolean;
Как в этом случае обратиться к такой функции в теле основной программы? Можно ли использовать значение PosS1InS2 для каких-либо операций?

[min@y™]

Предлагаю текст этого вопроса считать эталонным и добавить в ПРАВИЛА пункт "как правильно задавать вопросы" со ссылкой на этот топик!

Кто ЗА?

Автору - респект.

[НовичокЗоя]

Спасибо всем огромное! Получилось!

[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;

Ахтунг! Аттеншн! Внимание! Увага!!! SHIT-CODE detected!!! Не отлаживал, писал на заборе!