如何在Pascal中查找字符串中字符的位置

以下是使用Pascal编写的代码示例，用于找到字符串中特定字符的位置：\n\npascal\nprogram FindCharacterPosition;\nvar\n str: string;\n ch: char;\n position: integer;\nbegin\n writeln('Enter a string: ');\n readln(str);\n \n writeln('Enter the character to find: ');\n readln(ch);\n \n position := pos(ch, str);\n \n if position > 0 then\n writeln('The character \"', ch, '\" is found at position ', position)\n else\n writeln('The character \"', ch, '\" is not found in the string');\nend.\n\n\n请注意，此代码使用了内置的pos函数，该函数返回字符在字符串中的位置。如果字符不存在于字符串中，则返回0。输出结果会告诉您字符在字符串中的位置，或者指出字符不在字符串中。