最难的pascal!!!!!!

王朝知道·作者佚名  2009-05-13
窄屏简体版  字體: |||超大  
 
分類: 電腦/網絡 >> 程序設計 >> 其他編程語言
 
問題描述:

1.求一个n*n数阵中的马鞍数,输出它的位置。所谓马鞍数,是指在行上最小而在列上最大的数。如下:(n=5)5 6 7 8 94 5 6 7 83 4 5 2 12 3 4 9 01 2 5 4 82.做一个加法器。完成30000以内的加法,两个加数间用+连接,可以连加,回车表示式子输入完成;#表示结束运算,退出加法器。

參考答案:

1.program x1;

const n=5;

var a:array[1..n,1..n] of integer;

h,l:array[1..n] of integer;

min max,i,j:integer;

begin

writeln(‘input’,n,’*’,n,’ju zhen:’);

for i:=1 to n do

for j:=1 to n do

read(a[i,j]);

for i:=1 to n do

begin

min:=a[i,l];

for j:=2 to n do

if a[i,j]<min then min:=a[i,j];

h[i]:=min;

end;

for j:=1 to n do

begin

max:=a[l,j];

for i:=2 to n do

if a[I,j]>max then max:=a[a,j];

end;

writeln;

end.

就会这一道啊!!

小贴士:① 若网友所发内容与教科书相悖,请以教科书为准;② 若网友所发内容与科学常识、官方权威机构相悖,请以后者为准;③ 若网友所发内容不正确或者违背公序良俗,右下举报/纠错。
 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航