大家都知道一些办公软件有自动将字母转换为大写的功能。输入一个长度不超过 100 且不包括空格的字符串。要求将该字符串中的所有小写字母变成大写字母并输出。 样例输入 复制 Program! 样例输出 复制 PROGRAM! 用PASCAL

```pascal program ConvertToUpper; var inputStr: string; i: integer; begin // 读取输入的字符串 readln(inputStr); // 遍历字符串中的每个字符 for i := 1 to length(inputStr) do begin // 判断字符是否为小写字母 if (inputStr[i] >= 'a') and (inputStr[i] <= 'z') then // 将小写字母转换为大写字母 inputStr[i] := chr(ord(inputStr[i]) - ord('a') + ord('A')); end; // 输出转换后的字符串 writeln(inputStr); end. ``` 代码解释： 1. 变量声明： - `inputStr`：用于存储输入的字符串。 - `i`：作为循环变量，用于遍历字符串中的每个字符。 2. 读取输入：使用 `readln` 函数读取用户输入的字符串。 3. 字符转换： - 通过 `for` 循环遍历字符串中的每个字符。 - 对于每个字符，使用 `if` 语句判断它是否为小写字母（ASCII 码范围在 `'a'` 到 `'z'` 之间）。 - 如果是小写字母，通过 `chr(ord(inputStr[i]) - ord('a') + ord('A'))` 将其转换为对应的大写字母。`ord` 函数用于获取字符的 ASCII 码值，`chr` 函数用于将 ASCII 码值转换为字符。 4. 输出结果：使用 `writeln` 函数输出转换后的字符串。 [2025-12-07 17:34:42 | AI问答 | 376点数解答]