pascal入门测试12（附答案）

本文格式为Word版，下载可任意编辑——pascal入门测试12（附答案）小猪上幼儿园的时候，报名参与了折纸兴趣小组。他表现出了极大的热心，折出了n件折纸作品。他的作品只有3种，分别是长方形、正方形和三角形。

小猪很想知道他的n件折纸的周长之和。

abab

aaa

ba

ac相邻边长度分别为a和b的长方形,周长为2a+2b

边长为a的正方形,周长为4a

三边长度分别为a,b,c的三角形,周长为a+b+c

输入文件folding.in的第一行只有一个整数n，表示共有n件作品。接下来n行，每行有若干个以空格分隔的整数，表示一件作品的状况。其中第一个整数k（k=1或2或3），表示小猪制作的这件作品的类型，1表示长方形，2表示正方形，3表示三角形。

假使k为1，后面会跟二个正整数a和b，表示长方形的二条相邻边的长度分别为a和b；

假使k为2，后面会跟一个正整数a，表示正方形的四条边的长度均为a。假使k为3，后面会跟三个正整数a、b和c，表示三角形三条边的长度分别为a、b和c（输入数据保证a,b,c能构成三角形，不需验证）。

输出文件folding.out中仅有一行，该行只有一个整数，表示所有作品的周长之和。

3123243678

47

共有3件作品：

第一件作品：二条相邻边长度分别为2和3的长方形；其次件作品：边长为4的正方形；

第三件作品：三条边长度分别为6、7、8的三角形。

这3件作品的周长分别为10、16、21，它们的周长之和为47。

50%的数据，1≤n≤50，所有边长为不超过100正整数。

100%的数据，1≤n≤100000，所有边长为不超过100000的正整数。varn,a,b,c,k,I,S:LONGint;

beginread(n);fori:=1tondobeginread(k);casekof

1:beginread(a,b);s:=s+2*（a+b）;end;2:beginread(a);s:=s+4*a;end;

3:beginread(a,b,c);s:=s+a+b+c;end;end;end;

write('s=',s);end.

输入6250

31001301401809013005003500600700290S=4670输入101900010000250000280000

38000900010000320000300004000013500045000330004000500025000001900095002678900S=5599600

数学家总是喜欢研究有关数字的一些奇怪的性质。例如，他们认为945就是一个

好玩儿的数字。由于它的所有比其小的因子的和比它本身大，而且945是具有这特性质的最小奇数。输入两个数L和U，中间用空格隔开。1DTHENBEGINP:=X;D:=N;END;

END;

WRITELN(P,'',D);END.

输入110000输出756064输入200500输出36024输入100200输出18018输入50006000输出504060

某种商品编码是一个由13位数字组成的可识别的编码。通过对这些编码数字使用一种计算方法可以检验输入的数字是否正确。

这种称为13位数字的“1-3和〞的计算方法是，从第一位开始乘1，每个数字交替乘以1和3，然后算出相加的和。例如，9780921418948的“1-3和〞的计算如下：9*1+7*3+8*1+0*3+9*1+2*3+1*1+4*3+1*1+8*3+9*1+4*3+8*1=120要求输入商品编码，计算对应的“1-3和〞。样例输入：9780921418948样例输出：120var

c:char;

s,i,n,m:integer;begins:=0;

fori:=1to13dobeginread(c);

ifodd(i)thenm:=1elsem:=3;s:=s+m*(ord(c)-48);end;

writeln(s);end.

输入9876543210987输出125输入1234567890123输出95

输入两个真分子的分子与分母（分子、分母的合法性不作检查），对这两个分数进行加法计算。若符合条件，则应将计算的结果化为带分数。例如：输入2523

输出1+1/15（带分数的表达形式）输入3818输出4/8（不作约分）输入1212输出1var

a,b,c,d,i,s:integer;begin

readln(a,b,c,d);fori:=btob*ddo

if(imodb=0)and(imodd=0)thenbreak;a:=(idivb)*a;

c:=(idivd)*c;s:=a+c;ifs0thenwrite(b)elsewrite('(',b,')');ify=1thenwrite('+')elsewrite('-');ifc>0thenwrite(c)elsewrite('(',c,')');ifz=1thenwrite('+')elsewrite('-');ifd>0thenwrite(d)elsewrite('(',d,')');writeln('=',s);t:=t+1;end;

end;

ift=0thenwriteln(’Impossible’);readln;end.

输入5↙610-34输出6+10-(-3)-4=15

6-10-(-3)-4=-5

输入7↙12030-6055输出120+30-(-60)-55=35输入9↙10268输出Impossible输入8↙5036-32-30

输出50+36+（-32）+（-30）=2450+36-（-32）+（-30）=8850-36+（-32）+（-30）=-4850-36-（-32）+（-30）=16

end;

ift=0thenwriteln(’Impossible’);readln;end.

输入5↙610-34输出6+10-(-3)-4=15

6-10-(-3)-4=-5

输入7↙12030-6055输出120+30-(-60)-55=35输入9