1樓：網友
for i:=1 to n do
for j:=1 to m do read(gz[j,i]);
錯了。應該還有個回車。
for i:=1 to n do beginfor j:=1 to m do read(gz[j,i]);
readln;
end;
2樓：網友
我幫你修改了一下，程式如下：
var i,j,m,n,totel:integer;
gz:array[1..100,1..100]of char;
beginreadln(m,n);
for i:=1 to n do
beginfor j:=1 to m do read(gz[i,j]);
readln;
end;totel:=0;
for i:=1 to n do
beginfor j:=1 to m dobeginwrite(totel,':gz[i,j],'
inc(totel);
end;writeln;
end;end.
pascal矩陣
3樓：
帕斯卡矩陣。
帕斯卡矩陣：由楊輝三角形表組成的矩陣稱為帕斯卡(pascal)矩陣。
楊輝三角形表是二次項 (x+y)^n 後的係數隨自然數 n 的增大組成的乙個三角形表。
如4階帕斯卡矩陣為：
pascal(4)=
pascal(n)是矩陣實驗室（matrix laboratory）matlab中的命令，利用pascal（）命令可以在矩陣實驗室中方便的得到任意階帕斯卡矩陣。設a為帕斯卡矩陣，則在matlab命令視窗中輸入a=pascal(n)，n為正整數，可得到階數為n的帕斯卡矩陣。
free pascal 輸出如下矩陣
4樓：小乖曉曉乖
看不出是個什麼矩陣，請補充一下題目。
[free pascal]矩陣
5樓：pascal學員
varn,i,j:longint;
a:array [1..10000,1..10000] of integer;
beginread(n);
for i:=1 to n do
for j:=1 to n do
if (i<>j)and(i+j<>n+1) then a[i,j]:=1;
for i:=1 to n do
beginfor j:=1 to n do write(a[i,j],' ');
writeln;
end;end.
每個輸出間加了 空格 如果不要就刪去 我用的是lazarus 聽說free pascal 對格式有要求 細微之處請自行修改。
pascal語言蛇形矩陣程式 如下 ： 求大神詳細解釋
6樓：網友
program ex9;
vara:array[1..10,1..10]of integer;【矩陣10*10】
d【判別符號】,n【矩陣大小】,i【橫座標】,j【縱座標】,m【次數，賦衫螞值大小】,x【不好意思，我沒看見】:integer;
beginreadln(n);
i:=1;j:=1;d:=1;m:=1;
repeat a[i,j]:=m【賦值a[i,j]】;
case d of
1:begin i:=i+1;【向右移動1個單位】
if j=1 then d:=2
else d:=4;
end;2:begin i:=i-1;j:=j+1;【或雀埋向左下移動】
if j=n then d:=1
else if i=1 then d:=3;
end;3: begin j:=j+1;【向下移動乙個個單歲數位】
if i=n then d:=2
else d:=4;
end;4: begin i:=i+1;j:=j-1;【向右上移動】
if i=n then d:=3
else if j=1 then d:=1;
end;end;
m:=m+1;
until m>n*n;
for i:=1 to n do【輸出n行】
beginfor j:=1 to n do write(a[i,j]:4);【輸出a[i,j]，佔4個單位】
writeln;【換行】
end;readln;【等待使用者反應】
end.
pascal 矩陣的轉置
7樓：聽不清啊
假如矩陣已在a陣列中，通過以下迴圈即可將其轉置到b陣列中。
for i:=1 to 3 do
for j:=1 to 4 do
b[j,i]:=a[i,j];
完成後即可列印。
Pascal高精度，pascal的高精度演算法
開個陣列 每個元素存10進位制的若干位，連起來表示整個數字 要寫得好的話得用高效的演算法，同時控制好記憶體的分配 自己拿幾個三位數 四位數 五位數 模擬一下就ok了 想法就是把這些n位數拆成n位慢慢看 高精度數的定義 type hp array 0.maxlen of integer 1 高精度加法...
pascal程式設計
你提的問題很多，題目能否講究一下，比如將 狐狸和兔子 放在標題中，以便別人查詢 這不就是狼追兔子的翻版嗎？將1234567890這閉合的十個洞想象成 由這十個數字串一個接一個接起來的無限長的直線vari,j longint k array 0.9 of longint sum longint beg...
pascal 符串的處理，PASCAL 字串的處理
好啊，我是oier哦，這個顯然很簡單。const fuhao kuohao varst,s1 string function ji ch char integer begin case ch of ji 1 ji 1 ji 2 ji 2 ji 3 end end function geti st s...