K k2536 Unregistered / Unconfirmed GUEST, unregistred user! 2005-06-26 #1 1. 声明一个二维数组，给其赋值成为一个对角线为1，其它元素为0的n阶矩阵，并将其各元素显示出来。 2. 定义一个复数类，并定义它与复数、实数相乘除的方法。利用该类实现：输入两个复数，得到它们的积与商。
1. 声明一个二维数组，给其赋值成为一个对角线为1，其它元素为0的n阶矩阵，并将其各元素显示出来。 2. 定义一个复数类，并定义它与复数、实数相乘除的方法。利用该类实现：输入两个复数，得到它们的积与商。
K k2536 Unregistered / Unconfirmed GUEST, unregistred user! 2005-06-26 #2 1. 声明一个二维数组，给其赋值成为一个对角线为1，其它元素为0的n阶矩阵，并将其各元素显示出来。 2. 定义一个复数类，并定义它与复数、实数相乘除的方法。利用该类实现：输入两个复数，得到它们的积与商。
1. 声明一个二维数组，给其赋值成为一个对角线为1，其它元素为0的n阶矩阵，并将其各元素显示出来。 2. 定义一个复数类，并定义它与复数、实数相乘除的方法。利用该类实现：输入两个复数，得到它们的积与商。
黑 黑洞007 Unregistered / Unconfirmed GUEST, unregistred user! 2005-06-26 #4 var a:array[1..n,1..n] of integer; i,j:=integer; begin a:=0; for i:=1 to n do begin for j:=1 to n do begin if ((i=j) or ((i+j)=(n+1)) then a[i,j]:=1; inc(j); end; inc(i); end;
var a:array[1..n,1..n] of integer; i,j:=integer; begin a:=0; for i:=1 to n do begin for j:=1 to n do begin if ((i=j) or ((i+j)=(n+1)) then a[i,j]:=1; inc(j); end; inc(i); end;
