文章分类 -  每周一歌

摘要：1 ． a+b+c SQRT R 2 2① n, i （或者 i, n） ② 'YES' ③ n = 1 (或者 n – 1 = 0) ④ n mod i = 0 3．① k=n （或n=k）② count mod 5=0 ③ perm(k+1)④ a[k]:=a[j];a[j]:=t ⑤ perm(1) 4．... 阅读全文

摘要：完善程序 1．三角形内切圆的面积 题目描述: 给出三角形三边的边长，求此三角形内切圆（如下图所示，三角形的内切圆是和三角形三边都相切的圆）的面积。 输入: 三个正实数a、b、c（满足a+b>c，b+c>a，c+a>b）, 表示三角形三边的边长。 输出: 三角形内切圆的面积，结果四舍五入到小数点后面2位。 输入样例: 3 4 5 输出样例: 3.14 程序： program ... 阅读全文

摘要：阅读程序作业5（from 12 届普及组 2008、12、3） 1. Program ex301; var u:array[0..3] of integer; i,a,b,x,y:integer; begin y:=10; for i:=0 to 3 do read(u[i]); a:=(u[0]+u[1]+u[2]+u[3]) div 7; b:=u[0] div ((u[1]-u[2... 阅读全文

摘要：三、阅读程序写结果 1、program j301; var i,a,b,c,x,y:integer; p:array[0..4] of integer; begin y:=20; for i:=0 to 4 do read(p); readln; a:=(p[0]+p[1])+(p[2]+p[3]+p[4]) div 7; b:=p[0]+p[1] div ((p[2]+p[3]) div p... 阅读全文

摘要：阅读程序写结果（（2008、11、4 from 普及组14届pascal） 1．VAR i,a,b,c,d:integer; f:array[0..3] of integer; BEGIN for i:=0 to 3 do read(f[i]); a:=f[0]+f[1]+f[2]+f[3]; a:=a div f[0]; b:=f[0]+f[2]+f[3]; b:=b di... 阅读全文

摘要：阅读程序作业2来自第11届（2008.10.28）普及组 1. var a,b : integer; begin read(a); b:=(a*(a*a))+1; if b mod 3 = 0 then b := b div 3; if b mod 5 = 0 then b := b div 5; if b mod 7 = 0 then b := b div 7; if b mod 9 = 0... 阅读全文

摘要：阅读程序 1．program program1; var a, b, c, d, e: integer; begin a := 79; b := 34; c := 57; d := 0; e := -1; if (a c) then d := d + e else if (d + 10 0 then write(i, ' ', s[i], ' '); end. 输入： 3... 阅读全文