原创力文档- 1、本文档共13页，可阅读全部内容。
- 2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
查看更多
二中信息班第三课
看程序;数据输入;例1：从键盘输入A,B两个变量的值，然后交换两个变量的值并打印出来。;解法二：不利用中间变量。
Var
A,b:integer;
Begin
Writeln(‘enter a,b=’);
Readln(a,b);
A:=a+b;
B:=a-b;
A:=a-b;
Writeln(‘a=’,a,’b=’,b);
End.;例2：已知一个三位数，将其倒序输出。如：输入479，输出974。; var
a,b,c,d:integer;
begin
writeln(input a 3_bit number);
readln(d);
a:=d div 100;
c:=d mod 10;
b:=(d-a*100-c) div 10;
d:=c*100+b*10+a;
writeln(d=,d);
end.;条件语句;1、输入一个整数，判断它是否为偶数，如果是，则输出“yes”，否则输出“no”。;Var
a:integer;
Begin
write(‘enter a=‘);
if a mod 2=0 then writeln(‘yes’)
else writeln(‘no’);
End.;1、修改：既能被2整除又能被3整除;将读入的一个三位数字的正整数反向输出。如输入365，则输出653，请填空：
var
m,a,b,c,x:integer;
begin
readln(m);
a:= ;
b:= ;
c:=m div 100;
x:=a*100+b*10+c;
writeln(x);
end.;以下程序的运行结果为 ；
Var
A,b,c,n,s:integer;
Begin
n:=243;
a:=n div 100;
b:=(n-a*100) div 10;
c:=n-a*100-b*10;
s:=a+b+c;
writeln(＇s=＇,s:3);
End.;1、输入梯形的上底(a)、下底(b)和高(h)，求梯形的面积(s)。梯形面积公式为s=(a+b)*h/2
2、输入3个整数，输出它们的平均值，保留3位小数
3、输入3个整数，输出最大值
文档评论（0）