编写程序,建立并输出一个10*10的矩阵,矩阵两条对角线元素为1,其余元素为0.

1000000001010000001000100001000001001000000011000000001100000001001000001000010001000... 1 0 0 0 0 0 0 0 0 1
0 1 0 0 0 0 0 0 1 0
0 0 1 0 0 0 0 1 0 0
0 0 0 1 0 0 1 0 0 0
0 0 0 0 1 1 0 0 0 0
0 0 0 0 1 1 0 0 0 0
0 0 0 1 0 0 1 0 0 0
0 0 1 0 0 0 0 1 0 0
0 1 0 0 0 0 0 0 1 0
1 0 0 0 0 0 0 0 0 1这是题目的实图
展开
 我来答
百度网友d0b5968
推荐于2016-02-18 · 超过50用户采纳过TA的回答
知道小有建树答主
回答量:183
采纳率:0%
帮助的人:138万
展开全部
#include <stdio.h>
int main()
{
int i ,j;
int a[10][10];
for(i=0;i<10;i++)
for(j=0;j<10;j++)
{
a[i][j]=0;
if(i==(9-j)&&j==(9-i))a[i][j]=1;
if(i==j)a[i][j]=1;
}
for(i=0;i<10;i++)
{
for(j=0;j<10;j++)
{
printf("%i ",a[i][j]);
}
printf("\n");
}
getch();
}
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
zhys2412
2006-06-26 · 超过26用户采纳过TA的回答
知道答主
回答量:235
采纳率:0%
帮助的人:86.7万
展开全部
program djx;
var
i,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.
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
WXD110114dccd8
2006-06-26 · TA获得超过2.9万个赞
知道大有可为答主
回答量:1.6万
采纳率:43%
帮助的人:7943万
展开全部
PASCAL程序如下:

program Noname3;
var i,p:integer;
ten:array[1..10,1..10]of integer;
begin
for i:=1 to 10 do begin
ten[i,i]:=1;
ten[i,11-i]:=1;
end;
for i:=1 to 10 do begin
for p:=1 to 10 do
write (ten[i,p]:3);
writeln;
end;
readln;
end.
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
feldspar
2006-06-27 · TA获得超过384个赞
知道小有建树答主
回答量:564
采纳率:0%
帮助的人:0
展开全部
#include <stdio.h>
void main()
{
int i ,j;
int a[100];

for(i=0;i<100;i++) {a[i]=0;}
for(i=0;i<10;i++) {a[i*11]=1;}

for(i=0;i<10;i++)
{
for(j=0;j<10;j++)
{
printf("%2d",a[i*10+j]);
}
printf("\n");
}
getch();
}
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(2)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式