初级编程入门题123.docx
- 文档编号:16054809
- 上传时间:2023-07-10
- 格式:DOCX
- 页数:14
- 大小:20.57KB
初级编程入门题123.docx
《初级编程入门题123.docx》由会员分享,可在线阅读,更多相关《初级编程入门题123.docx(14页珍藏版)》请在冰点文库上搜索。
初级编程入门题123
一、初级编程入门题顺序结构
1、请编写一个程序,求一个正方的周长。
Programex1;
Vara,s:
real;
Begin
Readln(a);
S:
=a*4;
Writeln(s);
End.
2、请编写一个程序,求一个长方形的周长。
Programex2;
Vara,b,s:
real;
Begin
Readln(a,b);
S:
=(a+b)*2;
Writeln(s);
End.
3、请编写一个程序,求一个三角形的周长。
Programex3;
Vara,b,c,s:
real;
Begin
Readln(a,b,c);
S:
=a+b+c;
Writeln(s);
End.
4、请编写一个程序,从键盘输入两个整数,要求求和然后输出和。
例如:
输入14
输出5
Programex4;
Vara,b,s:
real;
Begin
Readln(a,b);
S:
=a+b;
Writeln(s);
End.
5、要求从键盘输入一个三位数,要求百位变十位,十位变个位,个位变百位:
例如:
输入123
输出312
Programex5;
Varx,a,b,c,d,s:
real;
Begin
Readln(x);
A:
=xdiv100;
B:
=xmod100;
C:
=bdiv10;
D:
=bmod10;
S:
=d*100+c*10+a;
Writeln(s);
End.
6、输入一个四位数要求按如下交换输出:
例如:
输入1234输出4321
Programex6;
Varx,a,b,c,d,e,f,s:
real;
Begin
Readln(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、输入一个四位数要求输入各位数字的和。
例如:
输入4567
输出22
Programex6;
Varx,a,b,c,d,e,f,s:
real;
Begin
Readln(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;
Begin
Readln(a,b);
C:
=adivb;
D:
=amodb’
Writeln(c,d);
End.
9、输入一个时、分、秒,把它转换为一个秒数。
例如输入234代表2小时3分钟4秒
输出7384代表一共有7384秒
Programex9;
Vara,b,c,s:
integer;
Begin
Readln(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;
Begin
Readln(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;
Begin
Readln(a,b);
t:
=a,a:
=b;b:
=t;
Writeln(a,b);
End.
12、从键盘输入两个整数,打印出更小的那个数。
Programex3;
Vara,b:
integer;
Begin
Readln(a,b);
Ifa>bthenwriteln(a)
ElseWriteln(b);
End.
选择结构
13、读入三个整数,从小到大输出。
Programex13;
Vara,b,c,t:
integer;
Begin
Readln(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;
Vara:
integer;
Begin
Readln(a);
Ifsmod2=1thenWriteln(‘yes’)
elseWriteln(‘no’);
End.
15、从键盘读入一个数,判断它的正负。
是正数,则输出"+",是负数,则输出"-"。
Programex15;
Vara:
integer;
Begin
Readln(a);
Ifa>0thenWriteln(‘+’)
Ifa<0thenWriteln(‘-’);
End.
16、从键盘输入一个数,如果是两位数那么输入yes否则输入no。
Programex16;
Varx:
integer;
Begin
Readln(x);
If(xdiv10>0)thenWriteln(‘yes’)
elseWriteln(‘no’);
End.
17、输入两个数a,b,输出较大数的平方值。
Programex11;
Vara,b,t:
integer;
Begin
Readln(a,b);
Ifa t: =a,a: =b;b: =t; Writeln(a*a); End. 18、铁路托运行李规定: 行李重不超过50公斤的,托运费按每公斤元计费;如超50公斤,超过部分每公斤加收元。 编一程序完成自动计费工作。 Programex18; Varw,a: real; Begin Readln(w); Ifw>50thena: =50*+(w-50)* Elsea: =w*; Writeln(w,a,); End. 19、某超市为了促销,规定: 购物不足60元的按原价付款,超过60不足200的按九折付款,超过200元的,超过部分按八折付款。 编一程序完成超市的自动计费的工作。 Programex16; Vara,b: real; Begin Readln(a); Ifa<60thenb: =a Ifa>200thenb: =a* Elseb: =a*; Writeln(a,’b=’,b); End. 20、打印某年某月有多少天。 (提示: A、闰年的计算方法: 年数能被4整除,并且不能被100整除;或者能被400整除的整数年份。 B、利用MOD运算可以判断一个数能否被另一个数整除)。 programday(input,output); varyear,month,days: integer; begin read(year,month); casemonthof 1,3,5,7,8,10,12: days: =31; 4,6,9,11: days: =30; 2: if(yearmod4=0)and (yearmod100<>0)or(yearmod400=0) thendays: =29 elsedays: =28; end; writeln(year,’year’,month,’month: ’,’days=’,days); end. 21、编写一个程序,功能是从键盘输入一个整数,判断它是否二位数,如果是,就打印它,然后结束程序, Programex21; Varx: integer; Begin Readln(x); If(xdiv10>0)thenWriteln(‘x’,x) End. 22、编写一个程序,功能是从键盘输入三个整数,打印出其中最大的一个值。 Programex22; Vara,b,c,t: integer; Begin Readln(a,b,c); Ifa =a;a: =b: b: =t; Ifb =b;b: =c;c: =t; Ifc =c;c: =a;a: =t; Writeln(a,b,c,a); End. 23、当前小学生的成绩单由以前的百分制改为优秀、良好、合格、不合格四个等级的等级制。 编一程序完成分数的自动转换工作。 转换规则如下: 60分以下的为不合格;60到69分为合格;70到89分为良好;90分以上的为优秀。 (提示: 可以利用DIV运算来使程序更简明) Programex22; Vara,d: real; Begin Readln(a); D: =adiv10; Ifd<6tnenwriteln(‘buhege’) Ifd<7andd>5thenwriteln(‘hege’) Ifd<9andd>6thenwriteln(‘lianghao’); Elsewriyeln(‘youxiu’); End. 循环结构 分别用repeat,while循环做以下习题。 24、计算1—1000之间能同时被3和5整除的整数的和。 Programex24; Varx,s: integer; Begin S: =0; Forx: =1to1000do If(xmod3=0)and(xmod5=0)then s: =s+x; Writeln(x,s); End. 25、求所有的三位数中十位数能被个位数和百位数之和整除的数。 Programex25; Varx: integer; Begin Forx: =100to999do Ifa =a;a: =b: b: =t; Ifb =b;b: =c;c: =t; Ifc =c;c: =a;a: =t; Writeln(a,b,c,a); End. 26、求水仙花数。 所谓水仙花数,是指一个三位数abc,如果满足a^3+b^3+c^3=abc,则abc是水仙花数。 Programex26; Varx,a,b,c,d: integer; Begin Forx: =100to999do A: =xdiv100; D: =xmod100; b: =ddiv10; c: =dmod10; If(a*A*a+b*b*b+c*c*c=a*100+b*10+c)then Writeln(a*100+b*10+c); End. 27、求所有满足条件的四位数: (1)这四位数是11的倍数; Programex271; Varx: integer; Begin Forx: =1000to9999do Ifxmod11=0then Writeln(x); End. (2)b+c=a+d; Programex272; Varx: integer; Begin Forx: =1000to9999do A: =xdiv1000; E: =xmod1000; B: =ediv100; F: =emod100; C: =fdiv10; D: =fmod10; Ifb+c=a+dthan Writeln(x); End. 28、计算下列式子的值: (1)1+3+……+99 Programex2811; VarI,s: integer; Begin S: =1; Fori: =1to33do S: =s+i*3; Writeln(s); End. Programex2812; VarI,s: integer; Begin S: =1; Fori: =1to99do IfImod3=0then S: =s+i*3; Writeln(s); End. (2)1+2+4+8+…+1024 29、输入一个整数,计算它各位上数字的和。 (注意: 是任意位的整数) 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+1)=? 34、1+1/2! +1/3! +…..1/n! =? 35、求水仙花数。 所谓水仙花数,是指一个三位数abc,如果满足a^3+b^3+c^3=abc,则abc是水仙花数。 Programex26; Varx,a,b,c,d: integer; Begin Forx: =100to999do A: =xdiv100; D: =xmod100; b: =ddiv10; c: =dmod10; If(a*A*a+b*b*b+c*c*c=a*100+b*10+c)then Writeln(a*100+b*10+c); End. 36、输入一整数A,判断它是否质数。 (提示: 若从2到A的平方根的范围内,没有一个数能整除A,则A是质数。 ) 37、1+(1+3)+(1+3+5)+……(1+3+5+……+n)=? n为奇数。 38、s=-1+3-5+7-9+……nn为奇数。
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 初级 编程 入门 123