信息学奥赛读程序写结果题目.doc

《信息学奥赛读程序写结果题目.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、一、大小比较排序问题例题：读入三个数，输出最大数programmax;vara,b,c,max:integer;beginread(a,b,c);if（a>b）and（a>c）thenwrite(a);{有多个条件时，每个条件要加小括号，否则出错}if（b>c）and（b>a）thenwrite(b);if（c>a）and（c>b）thenwrite(c);end.方法二programmax;vara,b,c,max:integer;beginread(a,b,c);max:=a;ifb>maxthen

2、max:=b;ifc>maxthenmax:=c;write(max);end.例题：读入三个数，输出最小数programmin;vara,b,c,min:integer;beginread(a,b,c);if（ac）and（b>a）thenwrite(b);if（c>a）and（c>b）thenwrite(c);end.方法二programmin;vara,b,c,min:integer;begin

3、read(a,b,c);min:=a;ifb>maxthenmax:=b;ifcb）

4、and（a>c）thenwrite(a);if（b>c）and（b>a）thenwrite(b);if（c>a）and（c>b）thenwrite(c);end.输入259010结果：程序2programmin2;vara,b,c,min:integer;beginread(a,b,c);if（a

5、mmax3;vara,b,c,max:integer;beginread(a,b,c);max:=a;ifb>maxthenmax:=b;ifc>maxthenmax:=c;write(max);end.输入9162110结果：程序4programmin4;５第５页共5页vara,b,c,min:integer;beginread(a,b,c);min:=a;ifb>minthenmin:=b;ifc

6、abts;Vara,b,t:integer;Beginread(a,b);ifa

7、i:2);end.结果：程序8Programabts;Vari,j:integer;BeginFori:=1to3doForj:=1to2doWrite(i:3,j:3);end.结果：程序9Programabts;Vari,j:integer;BeginFori:=1to2doForj:=1to3dobeginWrite(i:3,j:3);Ifj=3thenwriteln;end;end.结果：程序10Programabts;Vari,j,t:integer;BeginFori:=1to3doWrit

8、e(i:3);Writeln;Writeln(i:3);Fori:=1to3doForj:=ito4dobeginWrite(i:3,j:3);Ifj=4thenwriteln;５第５页共5页end;end.结果：程序11Programabts;ConstA:array[1..5]ofinteger=(24,55,3,11,689);Vari,j,t:integer;BeginFori:=1to5doWrite(a[i]:8);Writel