初级编程入门题123_第1页
初级编程入门题123_第2页
初级编程入门题123_第3页
初级编程入门题123_第4页
初级编程入门题123_第5页
已阅读5页,还剩13页未读 继续免费阅读

下载本文档

版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领

文档简介

1、文档从网络中收集,已重新整理排版.word版本可编辑,欢迎下载支持.一、初级编程入门题顺序结构1、请编写一个程序,求一个正方的周长。Program exl;Var a,s:real;BeginReadln(a);S:=a*4;Writeln(s);End.2、请编写一个程序,求一个长方形的周长。Program ex2;Var afbfs:real;BeginReadln(a,b);S:=(a+b)*2;Writeln(s);End.3、请编写一个程序,求一个三角形的周长。Program ex3;Var afb,cfs:real;BeginRead!n(afbfc);S:=a+b+c;Write

2、ln(s);End.4、请编写一个程序,从键盘输入两个整数,要求求和然后输出和。例如:输入1 4输出5Program ex4;Var afbfs:real;BeginReadln(a,b);S:=a+b;Writeln(s);End.5、要求从键盘输入一个三位数,要求百位变十位,十位变个位,个位变百位:例如:输入123输出312Program ex5;Varx, a,bfcfdfs:real;BeginReadln(x);A:=x div 100;B:=x mod 100;C:=b div 10;D:=b mod 10;S:=d*100+c*10+a;Writeln(s);End.6、输入一个

3、四位数要求按如下交换输出:例如:输入1234 输出4321Program ex6;Varx, a,b,c,dfe,f,s:real;BeginReadln(x);A:=x div 1000;B:=x mod 1000;C:=b div 100;D:=b mod 100;E:=d div 10;F:=d mod 10;S:=ri000+ew100+cw10+a;Writeln(s);End.7、输入一个四位数要求输入各位数字的和。例如:输入4567输出22Program ex6;lOword版本可编辑.欢迎下载支持.文档从网络中收集,已重新整理排版.word版本可编辑.欢迎下载支持.Varx,

4、a,b,c,dfe,f,s:real;BeginReadln(x);A:=x div 1000;B:=x mod 1000;C:=b div 100;D:=b mod 100;E:=d div 10;F:=d mod 10;S:=f+e+c+a;Writeln(s);End.8、编一程序,键盘输入整数A , B的值,然后打印A除以B的商的整数部分及余数。Program ex2;Var a,b,c,d:real;BeginReadln(a,b);C:=a div b;D:=a modWriteln(c, d);End.9、输入一个时、分、秒,把它转换为一个秒数。例如输入2 3 4代表2小时3分钟

5、4# word版本可编辑.欢迎下载支持.文档从网络中收集,已重新整理排版.word版本可编辑,欢迎下载支持.输出7384代表一共有7384秒Program ex9;Var afbfc,s:integer;BeginReadln(a,b,c);S:=a*3600+b*60+c;Writeln(s);End.10、求三角形面积:给出三角形的三个边长为a,b,c,求三角形的面积。 提示:根据海伦公式来计算三角形的面积:a+ b + cs= -2 ; Area二 Js(S=Program exlO;Var a, bfc,s, area:real;BeginReadln(a,b,c);S:=(a+b+c

6、)2;Arer:=sqrt(s *(s-a) *(sb) *(s-c);Writeln(s);End.11、编一程序,从键盘输入整数A , B的值,然后把A , B的值交换后输出。Program exll;Var afbft:integer;BeginReadln(a,b);t:=afa:=b;b:=t;Writeln(afb);End.12、从键盘输入两个整数,打印出更小的那个数。Program ex3;Var a,b:integer;BeginReadln(a,b);Ifa>b then writeln(a)Else Writeln(b);End.选择结构13、读入三个整数,从小到大

7、输出。Program exl3;Var a,b,c,tinteger;BeginReadln(a,b,c);If a>b then t:=a;a:=b;b:=t;Ifb:c then t:=b;b:=c;c:=t;Ifc>a then t:=c;c:=a;a:=t;Write!n(afb,c);End.14、从键盘输入一个数,判断它的奇偶性,如果是奇数则输出yes,否则输出no.Program exl4;Var a:integer;BeginReadln(a);If s mod 2=1 then Writeln(yes9) elseWrite!nC no9);End.15、从键盘读

8、入一个数,判断它的正负。是正数,则输出,是负数,则输出Program exl5;Var a:integer;BeginReadln(a);If a>0 then WritelnC+')If a<0 thenWrite!nC-9);End.16、从键盘输入一个数,如果是两位数那么输入yes否则输入nooProgram exl6;Var x:integer;BeginRead!n(x);If (x div 10>0) then Writeln(yesf) else WritelnCno9);End.17、输入两个数a,b ,输出较大数的平方值。Program exll;V

9、ar afbft:integer;BeginReadln(a,b);If a<b then t:=a,a:=b;b:=t;Writeln(a *a);End.18、铁路托运行李规定:行李重不超过50公斤的,托运费按每公斤0.15元计费;如超 50公斤,超过部分每公斤加收0.10元。编一程序完成自动计费工作。Program exl8;Var wfa: real;BeginReadln(w);If w>50 then a:=500.19+(w-50)W.10lOword版本可编辑.欢迎下载支持.文档从网络中收集,已重新整理排版.word版本可编辑.欢迎下载支持.Else a:=w*0.

10、15;Writeln(wfa,);End.19、某超市为了促销,规定:购物不足60元的按原价付款,超过60不足200的按九折 付款,超过200元的,超过部分按八折付款。编一程序完成超市的自动计费的工作。Program exl6;Var a,b: real;BeginReadln(a);Ifa<60 then b:=aIfa>2OO then b : =a*0.8Else b:=a*0.9;Write!n(a, 9b=b);End.20、打印某年某月有多少天。(提示:A、闰年的计算方法:年数能被4整除,并且不能被 100整除;或者能被400整除的整数年份。B、利用MOD运算可以判断一

11、个数能否被另 一个数整除)。program day(lnput,output);var year, month, days: Integer;beginreadfyear, month);13 word版本可编辑.欢迎下载支持.case month of1,3,5,7,8,10,12: days:"31;4,6,9,11: days:-30;2 : If (year mod 4-0) and(year mod 100<>0) or (year mod 400 -0)then days:29else days:28;end;wrltelnfyear, 'year&#

12、39;,month, 'month:r, fdays,days);end.21、编写一个程序,功能是从键盘输入一个整数,判断它是否二位数,如果是,就打印它,然后结束程序,Program ex21;Var x:integer;BeginReadln(x);If (x div 10>0) then WritelnCxx)End.22、编写一个程序,功能是从键盘输入三个整数,打印出其中最大的一个值。Program ex22;Var afbfc,t:integer;BeginRead!n(a,b,c);文档从网络中收集,已重新整理排版.word版本可编辑.欢迎下载支持.If a<b

13、 tnen t:=a;a:=b:b:=t;If b<c then t:=b;b:=c;c:=t;Ifc<a then t:=c;c:=a;a:=t;Writeln(a z bfc,a);End.23、当前小学生的成绩单由以前的百分制改为优秀、良好、合格、不合格四个等级的等级 制。编一程序完成分数的自动转换工作。转换规则如下:60分以下的为不合格;60到69 分为合格;70到89分为良好;90分以上的为优秀。(提示:可以利用DIV运算来使程序 更简明)Program ex22;Var a, d:real;BeginReadln(a);D:=a div 10;If d<6 tne

14、n writelnCbuhege9)Ifd<7 and d>5 then writelnChege9)If d<9 and d>6 then writein ( "Hanghao9);Else wriyelnCyouxiu");End.循环结构分别用repeat, while循环做以下习题。24、计算1-1000之间能同时被3和5整除的整数的和。Program ex24;文档从网络中收集,已重新整理排版.word版本可编辑.欢迎下载支持.Var x,s:integer;Begins:=o;For x:=lto 1000 doIf (x mod 3=0

15、) and (x mod 5=0) then s:=s+x;Writeln(x z s);End.25、求所有的三位数中十位数能被个位数和百位数之和整除的数。Program ex25;Var x:integer;BeginFor x:=100 to 999 doIf a<b tnen t:=a;a:=b:b:=t;If b<c then t:=b;b:=c;c:=t;Ifc<a then t:=c;c:=a;a:=t;Writeln(a z bqa);End.26、求水仙花数。所谓水仙花数,是指一个三位数abc,如果满足a八3+b八3+c人3=abc, 则abc是水仙花数。P

16、rogram ex26;Var x, afbfcfd:integer;Begin Forx:=100 to 999 doA:=x div 100;D:=x mod 100;b:=d div 10;c:=d mod 10;If (a*A*a+b*b*b+c*c*c=a*100+b*10+c) thenWriteln(a*100+b*10+c);End.27、求所有满足条件的四位数:这四位数是11的倍数Program ex271;Var x:integer;Begin Forx:=1000 to 9999 doIf x mod 11=0 then Writeln(x);End.(2)b+c=a+d

17、;Program ex272;Var x:integer;BeginFor x:=1000 to 9999 doA:=x div 1000;E:=x mod 1000;B:=e div 100;F:=e mod 100;C:=f div 10;D:=f mod 10;If b+c=a+d thanWriteln(x);End.28、计算下列式子的值:(1) 1+3 + +99Program ex2811;Varl,s:integer;BeginS:=l;For i:=l to 33 doS:=s+i*3;Writeln(s);15word版本可编辑,欢迎下载支持.文档从网络中收集,已重新整理排

18、版.word版本可编辑,欢迎下载支持.End.Program ex2812;Varl,s:integer;BeginS:=l;For i:=l to 99 doIf I mod 3=0 thenS:=s+i*3;Writeln(s);End.(2) 1+2+4+8+.+102429、输入一个整数,计算它各位上数字的和。(注意:是任意位的整数)30、输入一整数A ,判断它是否质数。(提示:若从2到A的平方根的范围内,没有一个数能整除A ,则A是质数。)用for循环做以下习题31、1 + 3+5+99 二?32、1+1/2+1/3+1/4+.1/100=?33、1*2+2*3+3*4+ n*(n + l)=?34、1+1/2! + 1/3! +.l/n!=?35、求水仙花数。所谓水仙花数,是指一个三位数abc,如果满足a八3+b八3+c八3=abc,则abc是水仙花数。Program ex26;Var x f a,b,c

温馨提示

  • 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

评论

0/150

提交评论