初级编程入门题123Word格式.docx
- 文档编号:20238512
- 上传时间:2023-01-21
- 格式:DOCX
- 页数:12
- 大小:20.65KB
初级编程入门题123Word格式.docx
《初级编程入门题123Word格式.docx》由会员分享,可在线阅读,更多相关《初级编程入门题123Word格式.docx(12页珍藏版)》请在冰豆网上搜索。
5、要求从键盘输入一个三位数,要求百位变十位,十位变个位,个位变百位:
输入123
输出312
Programex5;
Varx,a,b,c,d,s:
Readln(x);
A:
=xdiv100;
B:
=xmod100;
C:
=bdiv10;
D:
=bmod10;
S:
=d*100+c*10+a;
6、输入一个四位数要求按如下交换输出:
例如:
输入1234输出4321
Programex6;
Varx,a,b,c,d,e,f,s:
=xdiv1000;
=xmod1000;
=bdiv100;
=bmod100;
E:
=ddiv10;
F:
=dmod10;
=f*1000+e*100+c*10+a;
7、输入一个四位数要求输入各位数字的和。
输入4567
输出22
=f+e+c+a;
8、编一程序,键盘输入整数A,B的值,然后打印A除以B的商的整数部分及余数。
Vara,b,c,d:
C:
=adivb;
D:
=amodb’
Writeln(c,d);
9、输入一个时、分、秒,把它转换为一个秒数。
例如输入234代表2小时3分钟4秒
输出7384代表一共有7384秒
Programex9;
integer;
=a*3600+b*60+c;
10、求三角形面积:
给出三角形的三个边长为a,b,c,求三角形的面积。
提示:
根据海伦公式来计算三角形的面积:
S=
;
Area=
Programex10;
Vara,b,c,s,area:
=(a+b+c)2;
Arer:
=sqrt(s*(s-a)*(s-b)*(s-c));
11、编一程序,从键盘输入整数A,B的值,然后把A,B的值交换后输出。
Programex11;
Vara,b,t:
t:
=a,a:
=b;
b:
=t;
Writeln(a,b);
12、从键盘输入两个整数,打印出更小的那个数。
Programex3;
Vara,b:
Ifa>
bthenwriteln(a)
ElseWriteln(b);
选择结构
13、读入三个整数,从小到大输出。
Programex13;
Vara,b,c,t:
bthent:
=a;
a:
Ifb:
cthent:
=c;
c:
Ifc>
athent:
Writeln(a,b,c);
14、从键盘输入一个数,判断它的奇偶性,如果是奇数则输出yes,否则输出no。
Programex14;
Vara:
Ifsmod2=1thenWriteln(‘yes’)
elseWriteln(‘no’);
15、从键盘读入一个数,判断它的正负。
是正数,则输出"
+"
,是负数,则输出"
-"
。
Programex15;
Ifa>
0thenWriteln(‘+’)
Ifa<
0thenWriteln(‘-’);
16、从键盘输入一个数,如果是两位数那么输入yes否则输入no。
Programex16;
Varx:
If(xdiv10>
0)thenWriteln(‘yes’)
17、输入两个数a,b,输出较大数的平方值。
Ifa<
bthen
t:
Writeln(a*a);
18、铁路托运行李规定:
行李重不超过50公斤的,托运费按每公斤0.15元计费;
如超50公斤,超过部分每公斤加收0.10元。
编一程序完成自动计费工作。
Programex18;
Varw,a:
real;
Readln(w);
Ifw>
50thena:
=50*0.19+(w-50)*0.10
Elsea:
=w*0.15;
Writeln(w,a,);
19、某超市为了促销,规定:
购物不足60元的按原价付款,超过60不足200的按九折付款,超过200元的,超过部分按八折付款。
编一程序完成超市的自动计费的工作。
60thenb:
=a
Ifa>
200thenb:
=a*0.8
Elseb:
=a*0.9;
Writeln(a,’b=’,b);
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:
=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;
0)thenWriteln(‘x’,x)
22、编写一个程序,功能是从键盘输入三个整数,打印出其中最大的一个值。
Programex22;
btnent:
=b:
Ifb<
Ifc<
Writeln(a,b,c,a);
23、当前小学生的成绩单由以前的百分制改为优秀、良好、合格、不合格四个等级的等级制。
编一程序完成分数的自动转换工作。
转换规则如下:
60分以下的为不合格;
60到69分为合格;
70到89分为良好;
90分以上的为优秀。
可以利用DIV运算来使程序更简明)
Vara,d:
=adiv10;
Ifd<
6tnenwriteln(‘buhege’)
7andd>
5thenwriteln(‘hege’)
9andd>
6thenwriteln(‘lianghao’);
Elsewriyeln(‘youxiu’);
End.
循环结构
分别用repeat,while循环做以下习题。
24、计算1—1000之间能同时被3和5整除的整数的和。
Programex24;
Varx,s:
=0;
Forx:
=1to1000do
If(xmod3=0)and(xmod5=0)then
s:
=s+x;
Writeln(x,s);
25、求所有的三位数中十位数能被个位数和百位数之和整除的数。
Programex25;
=100to999do
26、求水仙花数。
所谓水仙花数,是指一个三位数abc,如果满足a^3+b^3+c^3=abc,则abc是水仙花数。
Programex26;
Varx,a,b,c,d:
b:
c:
If(a*A*a+b*b*b+c*c*c=a*100+b*10+c)then
Writeln(a*100+b*10+c);
27、求所有满足条件的四位数:
(1)这四位数是11的倍数;
Programex271;
=1000to9999do
Ifxmod11=0then
Writeln(x);
End.
(2)b+c=a+d;
Programex272;
E:
B:
=ediv100;
F:
=emod100;
=fdiv10;
=fmod10;
Ifb+c=a+dthan
28、计算下列式子的值:
(1)1+3+……+99
Programex2811;
VarI,s:
=1;
Fori:
=1to33do
=s+i*3;
Programex2812;
=1to99do
IfImod3=0then
(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、求水仙花数。
36、输入一整数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