1樓：網友
演算法分戚清析：
主要分兩步驟：一，按行優先儲存陣列a中的元素；二，按列優先給陣列b賦值。
var n, m, i, j, t: longint;
a: array[1.. 100, 1.. 100] of longint;
b: array[1.. 100, 1.. 100] of longint;
temp: array[1.. 10000] of longint;//定義乙個臨時陣列temp，儲存二維陣列a按行優先存放的一維序列。
beginreadln(n, m);/讀入行和列。
for i:= 1 to n do
for j:= 1 to m do
read(a[i, j]);讀入二維陣列a中的元素。
t:= 0;//t為二維陣列a中元素總數。
for i:= 1 to n do
for j:= 1 to m do
begininc(t, 1);
temp[t]:=a[i, j];
end;//將二維陣列a中的所有元素按行優先儲存到一維臨時陣列temp中。
for i:= 1 to t do
if i mod m = 0//按列優先存放，注意當存放在b數隱仔笑組最後一行時，i mod m是為0的，要單獨處理一下，即then後面的賦值，一般情況為else後面的賦值。
then b[m, i div m]:=temp[i]
else b[i mod m, i div m + 1]:=temp[i];
for i:= 1 to m do
beginfor j:= 1 to n - 1 do
write(b[i, j],writeln(b[i, n]);防止行末多輸出乙個空格。在機器測評時，灶含行末不能有空格，否則算錯。
end;//輸出二維陣列b中的元素。
end.
pascal陣列
2樓：網友
可以把題目描述的更清晰些麼，謝謝。
求pascal程式設計練習題
3樓：匿名使用者
基礎題：8．列印某年某月有幾天。
輸入：年、月；
輸出：天數。
每年這幾個月每月有30天。
2月分兩種情況：閏年29天，否則28天。
閏年的條件：年數能被4整除，且不能被100整除（除非可以被400整除）。
判斷乙個數是否能被另乙個數整除的方法：
用求餘函式求出餘數，若餘數為0則可整除。
11．求乙個四位整數的各位數字之和。
輸入：乙個整數（1000～9999）
輸出：各位數字之和。
提取這個數的各位數字：個位數——這個數除以10的餘數；
十位數——這個數除以100的餘數，再整除10；
12．輸入乙個正整數(longint)，將它倒置後輸出。
例如： 輸入 8431 ， 輸出 1348輸入 123456789 ， 輸出 98765432113．求兩個數的最小公倍數。
輸入：兩個正整數。
輸出：最小公倍數。
14．求兩個數的最大公約數。
輸入：兩個正整數。
輸出：最大公約數。
15．輸入乙個正整數n，若為質數，輸出『t』，否則輸出『f』。
判斷質數的方法：只要2到n－1都不能整除n，就可判定n為質數。
基礎題還推薦你去zerojudge
演算法題去vijos，刷了上百道就可以去usaco
pascal語言程式設計題
4樓：布同滿又夏
第二題你需要給輸入資料排序一下。
然後先把五個整數加起來。
減去最大的和最小的。
例題排序後。
a[1]=87
a[2]=85
a[3]=83
a[4]=82
a[5]=79
就是答案。
pascal程式設計題目
5樓：網友
1、 b、語句。
2、c、label-->const-->type-->var3、a、a23456
4、 c、3x
5、a、new
6、a、73e4
7、b、8、d、''''
9、c、const s=;
10、a、var a=real;
11、 b、ord(false)
12、b、ord(x)
13、c、round(x*100)/10014、 c、3
15、d、如果不懂可以看這個課件。
Pascal程式設計問題（送分題）
vara,b integer a 字母數，b 數字數 c char begin a 0 b 0 while c do begin read c if c 0 and i 9 then b b 1 if i a and i z then a a 1 if i a and i z then a a 1 ...
C語言二維陣列程式設計題，C語言二維陣列程式設計題
第一道 include stdio.h define n 4 int main int f1 1,f2 1 for int i 0 i n i int result f1 f2 printf d n result return 0 第二道 include define n 10 int main e...
pascal語言程式設計題求高手呀追加跪求進來看一看
答案不唯一，abc ab ac都是答案 vari1,i2,i3,j longint begin for i1 1 to 2 do for i2 1 to 2 do for i3 1 to 2 do if ord i1 1 ord i1 1 ord i3 2 and i2 2 2 then begin...