write(*,*) (' ',J=1,5-I),('@',k=1,

write(*,*) (' ',J=1,5-I),('@',k=1, Console.Write({0}*{1}={2} ,i,j, fortran中的一段程序write(*,*)kk ；read(1,*) ；read(1,*)( (eps1(i,j),i=1,ib2),j=jb2,1,-1) write(10,*具体的意思 fortran 中write(*,20)((x(i,j),j=1,3),i=1,3) 这句什么意思? 谢谢 pascal语言输出下列图形的问题,大家看看我为什么错了?编程输出下列图形 var i,j:integer;beginfor i:=1 to 9 dobegin write ('1':40-3*i);for j:=2 to i dobeginwrite (j:3);end;for j:=i-1 downto 1 beginwrite (j:3);end;writeln ;write fortran问题：INTEGER M(3,3) .WRITE(*,100) ((M(I,J),J=1,3),I = 1,3) FORMAT(1x,3I2)请问1x, var i,j:integer; begin for i:=1 to 5 do begin for j:=1 to i do write('*'); writeln; end; end.运算结果是多少 fortran WRITE(6,200) I,(NODE(J,I),J=1,4) 200 FORMAT(5X,'ELEMENT #',I4,3X,'NODES=',4I5) 一个简单的fortran问题,关于write的,help,tks一个简单的fortran问题,为什么执行语句 write(*,‘(1x,3i4)')(j,j=1,10) 后,生成的记录是4?help for(j=1;j for(j=1;j C# 斐波那契数列 兔子繁殖int x = 0,y = 1; for (int j = 1; j < 10; j++,y = x + y,x = y - x) Console.Write(y + )(int j = 1; j < 10; j++,y = x + y,x = y - x) for I:=1 to 9 do begin for j:=1 to 9 do begin write(j:1,’*’,i:1,’=’,I*j:2); end; writeln; end;能把这个程序的步骤,用文字说明吗 fortran程序求教program sjk01implicit noneinteger::a(5,5),b(5,5),i,jdo i=5do j=1,5a(i,j)=0b(i,j)=(i-j)+1enddoa(i,j)=1enddowrite (*,'(5x,5i6)' ((a(i,j),i=1,5),i=1,5)write (*,'(5x,5i6)') ((b(i,j),j=1,5),i=1,5)end一个数据库的题目 老是不对 Var a:array[1..10]of integer; j,i:integer; begin a[i]:=a[i]+i; for j:=1 to i do a[j]:=a[i]+j; .Var a:array[1..10]of integer; j,i:integer; begin a[i]:=a[i]+i;for j:=1 to i do a[j]:=a[i]+j;end;for i:=1 to 10 do write(a[i],' ');eod. main() { int j; for(j=1;j for(j=i+1;j fortran程序问题：k=1 DO 10 I=1,2 DO 10 J=1,2 10 K=K*I/J WRITE(*,*)K END 的结果为什么是0?