pascal 奇数阶魔方阵 注意审题 要完整的代码
来源:学生作业帮 编辑:神马作文网作业帮 分类:综合作业 时间:2024/10/05 02:28:23
pascal 奇数阶魔方阵 注意审题 要完整的代码
魔阵是用自然数1,2,3…,n平方(n为奇数),填n阶方阵的各个元素位置,使方阵的每行的元素之和、每列元素之和及主对角线元素之和均相等.奇数阶魔阵的一个算法是将自然数数列从方阵的中间一行最后一个位置排起,每次总是向右上角排(即A[i,j]的下一个是A[i-1,j+1]).但若遇以下四种情形,则应修正排数法:
(1) 列排完(即j>n时),则转排第一列;
(2) 行排完(即I
魔阵是用自然数1,2,3…,n平方(n为奇数),填n阶方阵的各个元素位置,使方阵的每行的元素之和、每列元素之和及主对角线元素之和均相等.奇数阶魔阵的一个算法是将自然数数列从方阵的中间一行最后一个位置排起,每次总是向右上角排(即A[i,j]的下一个是A[i-1,j+1]).但若遇以下四种情形,则应修正排数法:
(1) 列排完(即j>n时),则转排第一列;
(2) 行排完(即I
要求好苛刻啊,你看看这个行不行
const
maxsize = 11;
type
sqrtype = array[1..maxsize,1..maxsize] of longint;
var
square :sqrtype;
size,row,sum :longint;
procedure makesquare(var sq :sqrtype;limit :longint);
var
num,r,c :longint;
begin
for r:=1 to limit do
for c:=1 to limit do
sq[r,c] := 0;
if (limit and 1)0 then
begin
r:=(limit+1) div 2;
c:=limit;
for num:=1 to limit*limit do
begin
if sq[r,c]0 then
begin
dec(r);
if rlimit then
dec(c,limit);
end;
end;
end;
procedure writesquare(var sq :sqrtype;limit :longint);
var
row,col :longint;
begin
for row:=1 to Limit do
begin
for col:=1 to (limit div 2) do
write(sq[row,2*col-1]:4,' ',sq[row,2*col]:4,' ');
writeln(sq[row,limit]:4);
end;
end;
begin
size:=3;
while (size
const
maxsize = 11;
type
sqrtype = array[1..maxsize,1..maxsize] of longint;
var
square :sqrtype;
size,row,sum :longint;
procedure makesquare(var sq :sqrtype;limit :longint);
var
num,r,c :longint;
begin
for r:=1 to limit do
for c:=1 to limit do
sq[r,c] := 0;
if (limit and 1)0 then
begin
r:=(limit+1) div 2;
c:=limit;
for num:=1 to limit*limit do
begin
if sq[r,c]0 then
begin
dec(r);
if rlimit then
dec(c,limit);
end;
end;
end;
procedure writesquare(var sq :sqrtype;limit :longint);
var
row,col :longint;
begin
for row:=1 to Limit do
begin
for col:=1 to (limit div 2) do
write(sq[row,2*col-1]:4,' ',sq[row,2*col]:4,' ');
writeln(sq[row,limit]:4);
end;
end;
begin
size:=3;
while (size
关于C语言编奇数阶魔方阵的问题
Pascal 矩阵乘法的完整过程?
pascal 奇数阶幻方
统计单词个数 pascal代码
形容时间不够了的词语咳咳。注意审题
看图写句子,用上加粗的词语。(注意审题哟)
填空要求;填写完整,注意不出错别字,注意审题,不提供错误答案,写明单位名称.①一只钟表的分针长30㎝,时针长20㎝,时针
三阶魔方层先法(入门解法)还可以用来解其他什么魔方?在解的时候要注意什么?
求c语言,输出魔方阵,所谓的魔方阵是指每一行每一列及对角线之和均相等(魔方阵阶数只能是奇数)
关于Pascal语言的编程问题 要求完整的
拼魔方的公式完整一点啊
100以内的奇数和偶数之和代码 VB