尝试求出 的值,精确到小数点后 位 # 提示 可以由各种泰勒展开的公式求得: 求 的公式还有好多,感兴趣尝试查阅,上面三个公式已经足够解决本题了. 输入 读入一个整数 . 输出 输出 的值,四舍五入保留到小数点后 位. 样例输入 复制 100 样例输出 复制 3. 1415926535 8979323846 2643383279 5028841971 6939937510 5820974944 5923078164 0628620899 8628034825 3421170679 提示 50%的数据, . 100%的数据, 来源/分类

第一题：求 m 值 输入三个整数 a, b, c，计算 \[ m = \frac{a + b + c}{(\max(a, b, c))^2} \] 保留三位小数。 ```pascal program CalculateM; function max(x, y, z: real): real; var temp: real; begin temp := x; if y > temp then temp := y; if z > temp then temp := z; max := temp; end; procedure findMax(x, y, z: real; var result: real); var temp: real; begin temp := x; if y > temp then temp := y; if z > temp then temp := z; result := temp; end; var a, b, c, m, maxVal: real; begin readln(a, b, c); findMax(a, b, c, maxVal); m := (a + b + c) / (maxVal * maxVal); writeln(m:0:3); end. ``` 第二题：矩阵旋转 输入 n 和 n×n 矩阵，输出顺时针旋转 90°、180°、270° 的结果。 ```pascal program MatrixRotation; const MAXN = 100; type TMatrix = array[1..MAXN, 1..MAXN] of integer; var n: integer; mat: TMatrix; procedure readMatrix; var i, j: integer; begin readln(n); for i := 1 to n do for j := 1 to n do read(mat[i, j]); end; procedure rotate90(var src, dest: TMatrix); var i, j: integer; begin for i := 1 to n do for j := 1 to n do dest[j, n - i + 1] := src[i, j]; end; procedure printMatrix(var m: TMatrix); var i, j: integer; begin for i := 1 to n do begin for j := 1 to n do begin write(m[i, j]); if j < n then write(' '); end; writeln; end; end; var mat90, mat180, mat270: TMatrix; begin readMatrix; rotate90(mat, mat90); rotate90(mat90, mat180); rotate90(mat180, mat270); printMatrix(mat90); writeln; printMatrix(mat180); writeln; printMatrix(mat270); end. ``` 第三题：计算 π 值 使用提供的泰勒展开公式计算 π，保留 10 位小数。 公式： \[ \frac{\pi}{4} = 1 - \frac{1}{3} + \frac{1}{5} - \frac{1}{7} + \cdots \] \[ \frac{\pi^2}{6} = 1 + \frac{1}{2^2} + \frac{1}{3^2} + \frac{1}{4^2} + \cdots \] \[ \frac{\pi}{2} = \frac{2}{1} \cdot \frac{2}{3} \cdot \frac{4}{3} \cdot \frac{4}{5} \cdot \frac{6}{5} \cdot \frac{6}{7} \cdots \] 选择第一个公式（莱布尼茨级数）实现。 ```pascal program CalculatePi; var n, i: longint; pi, sign: real; begin readln(n); pi := 0; sign := 1; for i := 0 to n - 1 do begin pi := pi + sign / (2 * i + 1); sign := -sign; end; pi := pi * 4; writeln(pi:0:10); end. ``` 注意： - 第一题使用过程和函数分别求最大值，符合题目要求。 - 第二题通过三次 90° 旋转得到所需结果。 - 第三题使用莱布尼茨级数计算 π，n 越大精度越高，对于 n=100 可得到较高精度。 [2025-12-15 12:26:36 | AI问答 | 953点数解答]