PASCAL找馬鞍數,free pascal馬鞍數

2025-07-11 16:20:20 字數 2754 閱讀 6645

1樓:網友

我的程式戚碧局。希望慧簡。

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

x,y:array[1..100]of integer;

n,i,j:integer;

t:boolean;

begint:=false;

read(n);

for i:=1 to n do

beginx[i]:=maxint;

y[i]:=maxint;

end;for i:=1 to n do

for j:=1 to n do

beginread(a[i,j]);

if a[i,j]高讓y[j] then y[j]:=a[i,j];

for i:=1 to n do

for j:=1 to n do

if (a[i,j]=x[i])and(a[i,j]=y[j]) then

begint:=true;

writeln(i);

writeln(j);

end;if not(t) then writeln('no');

end.

pascal語言編寫程式求乙個n*n數陣中的馬鞍數,輸出他的位置

2樓:網友

馬鞍指的是什麼。

有沒有題目描述和輸入輸出。

free pascal馬鞍數

3樓:網友

我剛剛學過……

1. if c[n,i] c[s,i] 是不對的……

應該是 if (c[n,i] c[s,i])

兩個條件要用括號。

改後編譯通過……哪穗唯測試資料正確。

則1行1列上的數就是馬鞍數。

我也是菜鳥,李培呵呵。

對了,你頭上上了個var

free pascal 的馬鞍數的概念是什麼?請準確地說。(急用)

4樓:網友

求乙個n*n的數陣中的馬鞍數。馬鞍是指行上最小而在列上最大的數。

如下:5 6 7 8 9

則在一行一列上的數就是馬鞍數。

5樓:網友

所謂馬鞍數,是指在行上最小而在列上最大的數。

6樓:網友

在行上最小,列上最大的數。

幫忙看看我的pascal馬鞍數哪錯了吧

7樓:聽不清啊

你這個馬鞍數。

怎麼是行上最小、列上最大?

程式已經改好:

program mas;

vari,j,k,l,m,n,min,max,o:longint;

a:array[1..100,1..100]of longint; done:boolean;

beginmax:=-1000000;

min:=1000000;

readln(n,m);

while not done do

beginfor i:=1 to n do

beginfor j:=1 to m do

begin a[i,j]:=random(20); write(a[i][j]:4);end;

writeln;

end;for i:=1 to n do

beginfor j:=1 to m do

if a[i,j]max then max:=a[k,j];

if min=max then begin write(a[i,j],' ',l,' ',o); done:=true end;

max:=-maxlongint;

min:=maxlongint;

end;writeln;

end;end.

free pascal 馬鞍數

8樓:網友

前面應該加上var

if c[n,i] <= c[n,s] and c[n,i] >= c[s,i] 不對。

正確:if (c[n,i] <= c[n,s]) and (c[n,i] >= c[s,i]) 馬鞍數:

試過好使。1,1是馬鞍數。

正確過程:program maan;

var c:array[1..5,1..5] of integer;

i,n,y,s:integer;

beginy:=0;

for n:= 1 to 5 do

for i:= 1 to 5 do

read (c[n,i]);

for n:=1 to 5 do

for i:=1 to 5 do

beginfor s:= 1 to 5 dobeginif (c[n,i] <= c[n,s]) and (c[n,i] >= c[s,i])

then y:=y+1;

end;if y=5 then writeln(n,',',i);

y:=0;end;

readln;readln;

end.

9樓:紅se石

這個程式你執行一下,就知道問題在**了。

pascal尋找第k大的數

10樓:

剛剛才完乙個大傻瓜1234的的問題,我看你跟他差不多。

找規律填數,找規律填數1334962713。求大佬解答啊

1 3 3 4 9 6 27 9 81 13 找規律填數,1,3,7,13,21,怎樣算出的?1,3,7,13,21,31 43 解析 第一個數 0 2 0 1 第一個數 前一個數 即0 2 1 1 第二個數 1 2 1 3 第二個數 前一個數 即1 2 2 1 第三個數 3 2 2 7 第三個數 ...

找規律填數(),找規律填數0 1 1 2 3 5 8 ()

下一個數是13。規律是前兩個數相加得到第三個數。後面是 13,21,規律 等於前面兩個數的和。前兩位數字之和等於後一位數字,所以答案是13 數學 理工學科 學習 用逆推法 先去分母,兩邊同乘4 1 x 1 y 1 z 又因為x y z 1得4 12xzy 8zy 8xz 8xy 6 3zy 3xy ...

找規律填數,找規律填數 1 2 4 8 16 ()

1 2的0次方 2 2的1次方 4 2的2次方 8 2的3次方 16 2的4次方 因此 2的5次方 32 最簡單的方法 每項都乘以2 就等於它前面的數字,所以 第6個等於32 啦 希望能解決你的問題!2的n次方 等比數列 公比為2 1 2 4 8 16 32 1 2 4 8 16 32 後一項除以前...