《初级编程入门题123》由会员分享，可在线阅读，更多相关《初级编程入门题123（16页珍藏版）》请在金锄头文库上搜索。
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);1百度文库S:=a+b+c;Writeln(s);End.4 、请编写一个程序，从键盘输入两
2、个整数，要求求和然后输出和。例如：输入1 4输出 5Programex4;Vara,b,s:real;BeginReadln(a,b);S:=a+b;Writeln(s);End.5 、要求从键盘输入一个三位数，要求百位变十位，十位变个位，个位变百位:例如：输入 123输出 312Programex5;Var x, a,b,c,d,s:real;BeginReadln(x);A:=xdiv100;B:=xmod100;2百度文库C:=b div10;D:=b mod10;S:=d*100+c*10+a;Writeln(s);End.6 、输入一个四位数要求按如下交换输出：例如 ：输入 1234
3、输出 4321Programex6;Var x, a,b,c,d,e,f,s:real;BeginReadln(x);A:=xdiv1000;B:=xmod1000;C:=b div100;D:=b mod100;E:=ddiv10;F:=d mod10;S:=f*1000+e*100+c*10+a;Writeln(s);End.7 、输入一个四位数要求输入各位数字的和。例如： 输入 4567输出 223百度文库Programex6;Var x, a,b,c,d,e,f,s:real;BeginReadln(x);A:=xdiv1000;B:=xmod1000;C:=b div100;D:=b
4、 mod100;E:=ddiv10;F:=d mod10;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:=amod b Writeln(c, d);End.9 、输入一个时、分、秒，把它转换为一个秒数。例如输入 2 3 4 代表 2 小时 3 分钟 44百度文库秒输出 7384代表一共有 7384秒Programex9;Vara,b,c,s:integer;BeginReadln(a,b,c)
5、;S:=a*3600+b*60+c;Writeln(s);End.10 、求三角形面积：给出三角形的三个边长为a，b ，c，求三角形的面积。提示：根据海伦公式来计算三角形的面积：abcS2；Area S( S a )( S b )( S c )Programex10;Vara,b,c,s,area:real;BeginReadln(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
6、;5百度文库BeginReadln(a,b);t:=a,a:=b;b:=t;Writeln(a,b);End.12 、从键盘输入两个整数，打印出更小的那个数。Programex3;Vara,b:integer;BeginReadln(a,b);If abthenwriteln(a)ElseWriteln(b);End.选择结构13 、读入三个整数，从小到大输出。Programex13;Vara,b,c,t:integer;BeginReadln(a,b,c);Ifabthent:=a;a:=b;b:=t;If b:cthent:=b;b:=c;c:=t;If cathent:=c;c:=a;a
7、:=t;6百度文库Writeln(a,b,c);End.14 、从键盘输入一个数 ,判断它的奇偶性 ,如果是奇数则输出yes,否则输出 no 。Programex14;Vara:integer;BeginReadln(a);Ifs mod 2=1then Writeln( yes )else Writeln( no);End.15 、从键盘读入一个数，判断它的正负。是正数，则输出+ ，是负数，则输出 - 。Programex15;Vara:integer;BeginReadln(a);Ifa0 then Writeln( +)Ifa0 ) then Writeln( yes )else Wri
8、teln( no );End.17 、输入两个数 a,b ，输出较大数的平方值。Programex11;Vara,b,t:integer;BeginReadln(a,b);Ifa50thena:=50*+(w-50)*Elsea:=w*;Writeln(w,a,);End.19 、某超市为了促销，规定：购物不足60 元的按原价付款，超过60 不足 200 的按九折付款，超过 200 元的，超过部分按八折付款。编一程序完成超市的自动计费的工作。Programex16;Vara,b: real;BeginReadln(a);If a200thenb ：=a*Elseb:=a*;Writeln(a,
9、b= ,b);End.20 、打印某年某月有多少天。（提示： A、闰年的计算方法：年数能被4 整除，并且不能被100 整除；或者能被400 整除的整数年份。 B、利用 MOD 运算可以判断一个数能否被另一个数整除）。program day(input,output);var year, month, days: integer;begin9百度文库read(year, month);casemonth of1,3,5,7,8,10,12: days:=31;4,6,9,11: days:=30;2: if (year mod 4=0)and(year mod 1000)or(year mod 400 =0)thendays:=29elsedays:=28;end;writeln(year, year ,month, month: , days= ,days);end.21 、编写一个程序， 功能是从键盘输入一个整数，判断它是否二位数， 如果是，就打印它，然后结束程序，Programex21;Varx:integer;BeginReadln(x);If ( xdiv 100 ) thenWriteln(x,x)End.22 、编写一个程序，功能是从键盘输入三个整数，打印出其中最大的一个值。Programex22;Vara,b,c,t:integer;10百度文库Begin
