资源描述：
《初级编程入门题123》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、.....一、初级编程入门题顺序结构1、请编写一个程序，求一个正方的周长。Programex1;Vara,s:real;BeginReadln(a);S:=a*4;Writeln(s);End.2、请编写一个程序，求一个长方形的周长。Programex2;Vara,b,s:real;BeginReadln(a,b);S:=(a+b)*2;Writeln(s);End.3、请编写一个程序，求一个三角形的周长。Programex3;Vara,b,c,s:real;BeginReadln(a,b,c);S:=a+b+c
2、;Writeln(s);学习参考.....End.4、请编写一个程序，从键盘输入两个整数，要求求和然后输出和。例如：输入14输出5Programex4;Vara,b,s:real;BeginReadln(a,b);S:=a+b;Writeln(s);End.5、要求从键盘输入一个三位数，要求百位变十位，十位变个位，个位变百位:例如：输入123输出312Programex5;Varx,a,b,c,d,s:real;BeginReadln(x);A:=xdiv100;B:=xmod100;C:=bdiv10;D:=b
3、mod10;S:=d*100+c*10+a;Writeln(s);End.6、输入一个四位数要求按如下交换输出：例如：输入1234输出4321学习参考.....Programex6;Varx,a,b,c,d,e,f,s:real;BeginReadln(x);A:=xdiv1000;B:=xmod1000;C:=bdiv100;D:=bmod100;E:=ddiv10;F:=dmod10;S:=f*1000+e*100+c*10+a;Writeln(s);End.7、输入一个四位数要求输入各位数字的和。例如：输入
4、4567输出22Programex6;Varx,a,b,c,d,e,f,s:real;BeginReadln(x);A:=xdiv1000;B:=xmod1000;C:=bdiv100;D:=bmod100;学习参考.....E:=ddiv10;F:=dmod10;S:=f+e+c+a;Writeln(s);End.8、编一程序，键盘输入整数A，B的值，然后打印A除以B的商的整数部分及余数。Programex2;Vara,b,c,d:real;BeginReadln(a,b);C:=adivb;D:=amodb’
5、Writeln(c,d);End.9、输入一个时、分、秒，把它转换为一个秒数。例如输入234代表2小时3分钟4秒输出7384代表一共有7384秒Programex9;Vara,b,c,s:integer;BeginReadln(a,b,c);S:=a*3600+b*60+c;Writeln(s);End.10、求三角形面积：给出三角形的三个边长为a，b，c，求三角形的面积。提示：根据海伦公式来计算三角形的面积：学习参考.....S＝；Area＝Programex10;Vara,b,c,s,area:real;Be
6、ginReadln(a,b,c);S:=(a+b+c)2;Arer:=sqrt(s*(s-a)*(s-b)*(s-c));Writeln(s);End.11、编一程序，从键盘输入整数A，B的值，然后把A，B的值交换后输出。Programex11;Vara,b,t:integer;BeginReadln(a,b);t:=a,a:=b;b:=t;Writeln(a,b);End.12、从键盘输入两个整数，打印出更小的那个数。Programex3;Vara,b:integer;BeginReadln(a,b);Ifa>
7、bthenwriteln(a)ElseWriteln(b);学习参考.....End.选择结构13、读入三个整数，从小到大输出。Programex13;Vara,b,c,t:integer;BeginReadln(a,b,c);Ifa>bthent:=a;a:=b;b:=t;Ifb:cthent:=b;b:=c;c:=t;Ifc>athent:=c;c:=a;a:=t;Writeln(a,b,c);End.14、从键盘输入一个数,判断它的奇偶性,如果是奇数则输出yes,否则输出no。Programex14;Var
8、a:integer;BeginReadln(a);Ifsmod2=1thenWriteln(‘yes’)elseWriteln(‘no’);End.15、从键盘读入一个数，判断它的正负。是正数，则输出"+"，是负数，则输出"-"。学习参考.....Programex15;Vara:integer;BeginReadln(a);Ifa>0thenWriteln(‘+’)If
