pascal : 输入一个n行m列的矩阵A,输出它的转置AT.
来源:学生作业帮助网 编辑:作业帮 时间:2024/10/04 06:21:21
设置数组S(M,M),M>1,ssum=s(1,1)+s(M,M)+s(1,M)+s(M,1)ifM>2fori=2toM-1ssum=ssum+s(1,i)+s(i,1)+s(M,i)+s(i,M)
问一下:对于数据的顺序有没有什么要求?ForExample:Input: 1234
高精度与高精度乘法【问题描述】设高精度数a[1]a[2]...a[n-1]a[n]与高精度b[1]b[2]...b[n-1]b[n]的乘法可表示如下:a,b:array[1..n]of0..9;即:a
公约数公倍数vara,b,i,p,n,m:longint;beginread(a,b);ifa>bthenp:=aelsep:=b;whilei
varn,s:longint;beginread(n);s:=0;whilen0dobegins:=s+nmod10;n:=ndiv10;end;writeln(s);end.自创!
能够把题目描述得清楚一些,看不明白啊?或者加个输入输出的样列也好啊.如果你描述清楚,我直接给你源程序.
a[m,n]*b[n,h]=c[m,h];c中的第i,j个值等于a的第i行与b的第j列的数值分别相乘后相加的值,举例来说矩阵一是一个1*2的矩阵值为a,b矩阵二是2*1的矩阵,值为c,d,这两个矩阵相
你设置的是静态数组,静态数组的创建非常方便,使用完也无需释放,要引用也简单,但是创建后无法改变其大小是其致命弱点!就是说a[m][n],m,n不能是变量,你平常可能看到过a[m][n]定义数组的,但仔
varn,i,j,k:longint;t:boolean;beginreadln(n);ifn=1thenbeginwritelN('no');halt;end;t:=true;fori:=2totr
vari,j,n:longint;z:boolean;beginreadln(n);writeln(2);fori:=3tondobeginz:=true;forj:=2toi-1doifimodj=
vari,j,n,m:longint;procedureprint(c:char;a:integer);vari:longint;beginfori:=1toadowrite(c);end;begin
programProject1;varn,i,j,k,l:Longint;matrix:array[1..100,1..100]ofLongint;beginReadln(n);fori:=1tond
绝对没问题!programchange;vari,m,n,v,t:longint;ch:char;num:string;beginassign(input,'change.in');reset(inp
varm,n,i,j,t,k:longint;a:array[1..1000,1..1000]oflongint;beginreadln(m,n);fori:=1tomdoforj:=1tondore
数组a没有定义.再问:定义了,在第八行再答:错了,把数组a的定义放在最前面试一试。再问:这个前后不关紧要吧再答:还有第一个scanf中,改为&a[i][j]再答:如果你学的是纯C语言,不允许在代码中间
数据太大了吧……只好用高精度了.下面是高精度的代码:procedureReadData(vart:hp);vari,len:integer;st:string;beginreadln(st);fill
programex1;varj,m,n,m1,n1,a,b:integer;beginreadln(m,n);ifm再问:拜托,错了再答:programex1;varj,m,n,m1,n1,a,b:i
vars,n,a:longint;begins:=0;whilea0dobeginn:=amod10;s:=s+n;a:=adiv10;end;writeln(s);end.
一般设一个足够大的数组存就行了,这种方法是用空间换取时间,效率高.代码参考如下:intm,n;cin>>m>>n;inta[100000][100000];//足够大的数组inti,j;for(i=0