1樓：匿名使用者
pascal程式如下：
program noname3;
var i,p:integer;
ten:array[1..10,1..10]of integer;
begin
for i:=1 to 10 do beginten[i,i]:=1;
ten[i,11-i]:=1;
end;
for i:=1 to 10 do beginfor p:=1 to 10 do
write (ten[i,p]:3);
writeln;
end;
readln;
end.
2樓：匿名使用者
program djx;
vari,j:integer;
a[1..10,1..10]:array of integer;
begin
for i:=1 to 10 do
begin
for j:=1 to 10 do
begin
if i=j
then a[i,j]:=1
else if (i+j)=11
then a[i,j]:=1
else
a[i][j]:=0;
write(a[i,j]);
end;
writeln;
end;
end.
vb編寫程式，建立並輸出一個10*10的矩陣，該矩陣兩條對角線元素為1，其餘元素均為0
3樓：匿名使用者
矩陣對角線有兩條一條是元素的兩下標相等另一條是兩下標的和對 11 取餘為 0
4樓：匿名使用者
private sub form_click()dim a(1 to 10, 1 to 10) as integerfor i = 1 to 10
for j = 1 to 10
a(i, j) = 0
if i = j then a(i, j) = 1if i + j = 11 then a(i, j) = 1print a(i, j); " ";
next j
next i
end sub
5樓：匿名使用者
private sub form_click()for i = 1 to 10
for j = 1 to 10
print iif(i = j or i + j = 11, 1, 0);
next j
next i
end sub
vb、編寫程式，建立並輸出一個10×10的矩陣，該矩陣對角線元素為1，其餘元素均為0。
6樓：
很簡單的二維陣列問題 先宣告一個0-10，0-10的陣列然後 for i=1 to 10 do
for j=1 to 10 do
if i=j then a(i,j)=1 else a(i,j)=0應為我不是搞vb的 所以只能提供思路 就是這樣 剩下的自己完善賦值完了輸出 別告訴我你不會輸出 二維陣列的輸出也是雙層迴圈 不過在內層迴圈結束後要加換行
vb 編寫一個矩陣，建立並輸出一個10*10的矩陣，該矩陣對角線元素為1，其餘元素均為0 20
7樓：
private sub command_click()dim a(10,10)
for i=1 to 10
for j=1 to 10
a(i,j)=0
next j,i
for i=1 to 10
a(i,i)=1
a(i,11-i)=1
next i
for i=1 to 10
for j=1 to 10
print a(i,j);
next j
next i
end sub
編寫程式，輸入貨物的數量及單價，求總價並輸出。如何編寫程
price int input 請輸入單價 numbet int input 請輸入數量 sum price number print sum 你是要用什麼語言編的？1.新建一個名為form1的窗體，設定caption屬性為 售貨機 2.單擊工具箱中的label控制元件圖示，在窗體上拖拉出兩個個標籤...
編寫程式，從鍵盤輸入實數x,用下式計算並輸出y的值 精確到小數點後2位
include include int main 編寫程式，從鍵盤輸入x的值，計算並輸出分段函式y的值y 1 x 0 include int main include int sign int x int main int sign int x include using namespace std...
VB編寫程式，計算並輸出下面級數前n項中 n 50 奇數項的和。1 2 3 2 3 4 3 4 5n n 1n
private sub mand1 click dim i as long,sum as longfor i 1 to 50 step 2sum sum i i 1 i 2 next msgbox 級數 bai前du50項奇 zhi數項 dao和為專 屬 sum end sub 編寫程式，計算並輸出...