UC知道最难的pascal!!!!!!
来源：百度知道 编辑：UC知道 时间：2024/06/20 14:14:06
1.求一个n*n数阵中的马鞍数，输出它的位置。所谓马鞍数，是指在行上最小而在列上最大的数。如下：（n=5）
5 6 7 8 9
4 5 6 7 8
3 4 5 2 1
2 3 4 9 0
1 2 5 4 8
2.做一个加法器。完成30000以内的加法，两个加数间用+连接，可以连加，回车表示式子输入完成；#表示结束运算，退出加法器。
1.求一个n*n数阵中的马鞍数，输出它的位置。所谓马鞍数，是指在行上最小而在列上最大的数。如下：（n=5）
5 6 7 8 9
4 5 6 7 8
3 4 5 2 1
2 3 4 9 0
1 2 5 4 8
2.做一个加法器。完成30000以内的加法，两个加数间用+连接，可以连加，回车表示式子输入完成；#表示结束运算，退出加法器。
2楼的做错了！！！第一题做错了！！！！！
5 6 7 8 9
4 5 6 7 8
3 4 5 2 1
2 3 4 9 0
1 2 5 4 8
2.做一个加法器。完成30000以内的加法，两个加数间用+连接，可以连加，回车表示式子输入完成；#表示结束运算，退出加法器。
1.求一个n*n数阵中的马鞍数，输出它的位置。所谓马鞍数，是指在行上最小而在列上最大的数。如下：（n=5）
5 6 7 8 9
4 5 6 7 8
3 4 5 2 1
2 3 4 9 0
1 2 5 4 8
2.做一个加法器。完成30000以内的加法，两个加数间用+连接，可以连加，回车表示式子输入完成；#表示结束运算，退出加法器。
2楼的做错了！！！第一题做错了！！！！！
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.
就会这一道啊！！
.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