题库1-30题.doc

d001: 问候 内容：问候人类！输入说明：输入一行，一个名字，如human（字符串类型，定义为string）输出说明：一行 ，输出 Hello human！（注意行尾的感叹号,且前面没有空格）；输入样例： kitty 输出样例 ：Hello kitty！例程：var s:string;begin read(s); writeln(Hello ,s,!);end.d002: 加法 内容：两数之和输入说明：一行两个整数，长整型以内输出说明：一行一个整数输入样例：2000 9 输出样例 ：2009 例程：var a,b:longint;begin read(a,b); writeln(a+b);end.d003: 计算矩形的周长和面积 内容：求矩形的周长 和 面积输入说明：一行 两个 整数输出说明：一行 两个 整数周长 和 面积输入样例：1 2 输出样例 ：6 2 例程：var a,b,l,s:longint; begin read(a,b); l:=2*(a+b); s:=a*b;write(l,s);end. d004: 求两数中的较大者 内容：求两数中的较大者输入说明：一行两个数输出说明：一行 一个 数字输入样例：若题目没有特别说明，则应该以多组测试数据方式读取，或者参考a001。3 5 输出样例 ：5 例程：var a,b:longint;begin read(a,b); if ab then writeln(a) else writeln(b);end.d005: 求圆的周长 和 面积 内容：求圆的周长 和 面积输入说明：一行 ，半径值 ，实型输出说明：pi=3.1415 情况 下 的 周长 和 面积 （保留2位小数），分两行输出输入样例：10.0 输出样例 ：62.83 314.15 例程：varl,s,r:real;beginread(r);s:=3.1415*r*r;l:=2*3.1415*r;writeln(l:0:2);writeln(s:0:2);end. d006: 交换两数值 内容：交换两数值输入说明：一行两个数输出说明：一行 两个数输入样例：若题目没有特别说明，则应该以多组测试数据方式读取，或者参考a001。3 4 输出样例 ：4 3 例程：varc,a,b:integer;beginread(a,b);c:=a;a:=b;b:=c;writeln(a,b);end. d007: 求两数的整数商 和 余数 内容：求两数的整数商 和 余数输入说明：一行两个整数输出说明：一行两个整数输入样例：若题目没有特别说明，则应该以多组测试数据方式读取，或者参考a001。18 4 输出样例 ：4 2 例程：var a,b:integer;begin read(a,b); writeln(a div b, ,a mod b);end.d008: 求两数的整数商 和 商内容：求两数的整数商 和 商 ，商保留两位小数 输入说明：一行 两个整数 输出说明：一行，一个整数，一个实数（两位小数）输入样例： 12 8输出样例 ：1 1.50例程：var a,b:integer;begin read(a,b); writeln(a div b, ,(a/b):0:2);end.d009: 求梯形的面积内容：已知上底、下底和高，求梯形的面积输入说明：一行三个数 输出说明：一行一个数（保留2位小数）输入样例： 3 5 4输出样例 ：16.00例程：var s,a,b,h:real;begin read(a,b,h); s:=(a+b)*h/2; writeln(s:0:2);end.d010: 分离自然数内容：一个三位自然数，分离出它的百位、十位与个位上的数字输入说明：一行一个三位整数输出说明：一行三个数字 ， 空格隔开。分别是百 十 个位数字输入样例： 256输出样例 ：2 5 6例程：var a,bai,shi,ge:integer;begin read(a); bai:=a div 100; shi:=a div 10 mod 10; ge:=a mod 10; writeln(bai, ,shi, ,ge);end.d011: 输入一个数 ，输出其绝对值内容：输入一个数 ，输出其绝对值。输入说明：一行一个整数输出说明：一行一个整数输入样例： -3输出样例 ：3程序：var a:integer;begin read(a); writeln(abs(a);end.Pascal常用的算术标准函数有19个: (1) abs(x) 求x的绝对值(|x|)； (2) exp(x) 求ex的值； （e为无理数2.71828） (3) frac(x)求x的小数部分； (4) int(x) 求x的整数部分(不舍入，函数值为实型)； (5) ln(x) 求以e为底的x的对数（log ex )； (6) odd(x) 判断x的奇偶数(当x为奇数时odd(x)值为true，否则为false)； (7) ord(x) 求x的序号，结果为整型(x为有序类型量)； (8) pi 值(3.1415926535897932)； (9) pred (x) 求x(有序类型)的前趋值； (10) succ(x) 求x(有序类型)的后继值； (11) random 随机函数，产生01的随机值； (12) random(n)产生0n的随机数(n为word类型，先执行randomize， 才能得到随机整数)； (13) round(x) 求x的四舍五入整数； (14) trunc(x) 求x的整数部分(截掉小数部分，结果为整型)； (15) sqr(x) 求x的平方值(x2 )； (16) sqrt(x) 求x的开平方根值( )；(17) sin(x) 求x的正弦函数(x为弧度)；(18) cox(x) 求x的余弦函数(x为弧度)；(19) arctan(x) 正切的反三角函数(x为数值)；d012: 优惠购物内容：节日期间，某超市举行优惠购物活动，规定：所购物品不超过1000元(含）时，按9.5折付款，如超过1000元，则超过部分按9折收费输入说明：一行 ，一个数，购物总额 输出说明：一行 需付购物款（保留一位小数）输入样例： 若题目没有特别说明，则应该以多组测试数据方式读取，或者参考a001。1200.58输出样例 ：1160.52程序：varm,m1:real;beginread(m);if m1000 then m1:=(m-1000)*0.9+950 else m1:=m*0.95;writeln(m1:0:2);end.d013: 符号函数内容：计算下列函数（符号函数）： 1 (x0)y= 0 (x=0)-1 (x0 then y:=1 else if x=0 then y:=0 else y:=-1; writeln(y);end.d014: 判断直角三角形内容：输入三角形的三边，判断它是否是直角三角形，是输出Yes，不是输出No，连三角形都不是，输出Error输入说明：一行，输入3个整数输出说明：Yes！ 或者 No！或者 Error！ （注意大小写，标点前无空格）输入样例：3 4 5输出样例 ：Yes！程序：var a,b,c:longint;begin read(a,b,c); if (a+bc) and (a+cb) and (b+ca) then if (a*a+b*b=c*c) or (b*b+c*c=a*a) or (c*c+a*a=b*b) then writeln(Yes!) else writeln(No!) else writeln(Error!);end.d015: 算术运算内容：输入两个数值(均不为零)及一个算术运算符，输出其运算的结果(保留两位小数）。输入说明：一行，2个数字，一字符（+，-，*，/，分别代表加、减、乘、除输出说明：一行，一个数字（保留两位小数）输入样例： 100 2 -输出样例 ：98.00程序：var a,b,zhi:real; c,d:char;begin read(a,b); read(d); read(c); case c of +:zhi:=a+b; -:zhi:=a-b; *:zhi:=a*b; /:zhi:=a/b; end; writeln(zhi:0:2);end.d016: 一元二次方程的实数根内容：求一元二次方程（二次项系统不为0）ax2+bx+c=0（a0）的实数根输入说明：一行三个系数（用空格隔开）输出说明：先输出（-b+sqrt()/2/a的根，一行一个，如果是相等实根，则输出一个（均保留两位小数）。若无实根输出No answer！ 输入样例：1 1 2输出样例 ：例程：No answer！vara,b,c,x1,x2,dt:real;beginread(a,b,c);dt:=b*b-4*a*c;if dt0 then writeln(No answer!) else if dt=0 then writeln(-b/(2*a):0:2) else begin writeln(-b+sqrt(dt)/(2*a):0:2); writeln(-b-sqrt(dt)/(2*a):0:2); end;end.d017: 打印某年某月有几天内容：打印某年某月有几天输入说明：一行两个整数，前面是年份 后面是月份输出说明：一个整数输入样例：2009 6输出样例 ：30例程：varyear,month,day:integer;beginread(year,month);case month of 1,3,5,7,8,10,12:day:=31; 4,6,9,11:day:=30; 2: if (year mod 400=0) or (year mod 4=0) and (year mod 1000) then day:=29 else day:=28; end; writeln(day);end.d018: 三数排序内容：任意输入三个数 a、b、c，按由大到小的顺序打印出来输入说明：一行 三个整数 输出说明：一行三个整数，由大到小输入样例：2 3 1输出样例：3 2 1例程：vara:array1.3 of integer;i,j,temp:integer;beginfor i:=1 to 3 do read(ai);for i:=1 to 2 do for j:=i+1 to 3 do if aiaj then begin temp:=ai;ai:=aj;aj:=temp;end;for i:=1 to 3 do write(ai, );end.d019: 计算1+2+3+4.+n之和内容：计算1+2+3+4.+n之和输入说明：一个整数n输出说明：和例程：varn,i,s:longint;beginread(n);for i:=1 to n do s:=s+i; writeln(s);end.d020: 约数之和内容：键入一个自然数 ，求这个自然数的所有约数之和输入说明：一个整数输出说明：一个整数输入样例：6输出样例 ：12例程：varn,i,s:longint;beginread(n);for i:=1 to n do if n mod i=0 then s:=s+i;writeln(s);end.d021: 四位整数内容：编程找出四位整数 abcd 中满足下述关系的数：( ab + cd )( ab + cd ) = abcd 输入说明：没有输入输出说明：输出abcd，从小到大，一行一个。var i:longint;begin for i:=1000 to 9999 do if (i div 100)+(i mod 100)* (i div 100)+(i mod 100)=i then writeln(i);end.d022: 统计字符内容：输入若干个字符（以#作为结束），计算输入的字符中字母a或A出现的次数。输入说明：一行若干个字符。输出说明：一个整数，为a或者A字符出现次数和。输入样例： abcdefABCDEFaaAA#输出样例 ：6var i,n:longint; c:char;begin read(c); while c# do begin if (c=a) or (c=A) then n:=n+1; read(c); end; writeln(n);end.d023: 各位数字之和内容：求输入的一个整数的各位数字之和输入说明：一行一个整数输出说明：一个整数输入样例：输出样例 ：45VAR a,s:longint;begin read(a); while a0 do begin s:=s+a mod 10; a:=a div 10; end; writeln(s);end.d024: 最小公倍数内容：求两个自然数的最小公倍数输入说明：输出说明：输入样例： 2 4输出样例 ：4Vara,b,c:integer;beginread(a,b);if ab then begin c:=a;a:=b;b:=c;end;c:=a;while a mod b0 do a:=a+c;writeln(a);end.d025: 从 n 个数中挑选出最大的数内容：从 n 个数中挑选出最大的数输入说明：两行第一行一个数n，表示总的个数第二行共n个数字，用空格隔开。 输出说明：一行，最大数输入样例： 41 2 3 4输出样例 ：4var a:array1.10000 of integer; i,n,max:longint;begin read(n); max:=-32767; for i:=1 to n do begin read(ai); if aimax then max:=ai; end; writeln(max);end.d026: 从 n 个数中挑选出最大的数（改）内容：从 n 个数中挑选出最大的数输入说明：一行，若干个整数，用空格隔开输出说明：两个整数，第一个是总数字个数 ，第二个是最大数。用空格隔开输入样例： 1 2 3 4 5 9 6输出样例 ：7 9var n,a,max:integer;begin max:=-32767; while not eoln do begin read(a); if amax then max:=a; n:=n+1; end; writeln(n, ,max);end.d027: 水仙花数内容：求100999中的水仙花数，（若三位数abc，abca3+b3+c3， 则称abc为水仙花数。如153，13+53+33=1+125+27=153，则153是水仙花数）输入说明：无输出说明：每行一个整数var a,b,c:integer;begin for a:=1 t