±±¾©Ê¯ÓÍ»¯¹¤Ñ§Ôº2026ÄêÑо¿ÉúÕÐÉú½ÓÊÕµ÷¼Á¹«¸æ
²é¿´: 405  |  »Ø¸´: 1

zyj8119

ľ³æ (ÖøÃûдÊÖ)

[½»Á÷] ¡¾ÇóÖú¡¿FORTRAN 90³ÌÐòÎÊÌâ2¡¾Òѽâ¾ö¡¿ ÒÑÓÐ1È˲ÎÓë

PROGRAM rotate
INTEGER,DIMENSION(1:3,1:3)::a
INTEGER::i,j,temp,m
a=RESHAPE((/11,22,33,44,55,66,77,88,99/),(/3,3/))
PRINT'(3I3)',((a(i,j),j=1,3),i=1,3)
DO i=1,2
    m=4 - i
    temp=a(m,3)
    a(m,3)=a(3,i);    a(3,i)=a(i,1);   a(i,1)=a(1,m)
    a(1,m)=temp
END DO
PRINT'(3I3)',((a(i,j),j=1,3),i=1,3)
END PROGRAM rotate
´Ë³ÌÐòΪʲôµÚËÄÐÐÊÇ77 88 99
µÚÁùÐÐÊÇ11 22 33£¿

[ Last edited by jjdg on 2010-4-22 at 21:00 ]
»Ø¸´´ËÂ¥

» ²ÂÄãϲ»¶

» ±¾Ö÷ÌâÏà¹Ø¼ÛÖµÌùÍÆ¼ö£¬¶ÔÄúͬÑùÓаïÖú:

ºÃºÃѧϰ£¬ÌìÌìÏòÉÏ¡£
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

zyj8119

ľ³æ (ÖøÃûдÊÖ)

½â¾öÁË£¬ÎÒ¸ã´íÁËÂß¼­Ë³Ðò½á¹¹ºÍ´æ´¢Ë³Ðò½á¹¹µÄ²î±ð¡£
ºÃºÃѧϰ£¬ÌìÌìÏòÉÏ¡£
2Â¥2010-04-22 19:23:52
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
Ïà¹Ø°æ¿éÌø×ª ÎÒÒª¶©ÔÄÂ¥Ö÷ zyj8119 µÄÖ÷Ìâ¸üÐÂ
×î¾ßÈËÆøÈÈÌûÍÆ¼ö [²é¿´È«²¿] ×÷Õß »Ø/¿´ ×îºó·¢±í
[¿¼ÑÐ] 296²ÄÁÏר˶Çóµ÷¼Á +17 202451007219 2026-04-02 18/900 2026-04-02 23:14 by Âí¶ù¿ì¿ìµØÅÜ
[¿¼ÑÐ] ÇóÉúÎïѧµ÷¼Á +10 15172915737 2026-04-01 10/500 2026-04-02 18:53 by ŶŶàŹþ
[¿¼ÑÐ] 413Çóµ÷¼Á +3 ¿Âijij 2026-03-31 3/150 2026-04-02 16:59 by zzsw+
[¿¼ÑÐ] 282Çóµ÷¼Á +13 ºôÎü¶¼ÊǼõ·Ê 2026-04-01 13/650 2026-04-02 14:10 by baoball
[¿¼ÑÐ] ²ÄÁÏרҵÇóµ÷¼Á +10 ÔÂÔÂÄñľ 2026-04-01 10/500 2026-04-02 12:57 by wxiongid
[¿¼ÑÐ] ÖØÇì´óѧ²ÄÁÏÓ뻯¹¤085600£¬³õÊÔ370+£¬ÇóÇóµ÷¼Á½¨Òé +5 shzhou_ 2026-04-01 6/300 2026-04-02 10:05 by olim
[¿¼ÑÐ] 302Çóµ÷¼ÁÒ»Ö¾Ô¸±±º½070300£¬±¾¿ÆÖ£´ó»¯Ñ§ +8 Ê¥ÈÕ¶úÂüÌõ 2026-04-01 11/550 2026-04-02 07:40 by chemdavid
[¿¼ÑÐ] 0856£¬269·ÖÇóµ÷¼Á +8 ÓÐѧÉϾÍÐÐÇóÇóÁ 2026-03-30 11/550 2026-04-01 22:33 by 2026²ÄÁϵ÷¼Á
[¿¼ÑÐ] 279Çóµ÷¼Á +7 Īxiao 2026-04-01 7/350 2026-04-01 22:05 by ¿Í¶ûÃÀµÂ
[¿¼ÑÐ] 085601²ÄÁϹ¤³ÌÕÒµ÷¼Á +20 oatmealR 2026-03-29 21/1050 2026-04-01 21:00 by lijunpoly
[¿¼ÑÐ] 085600 Ò»Ö¾Ô¸9 ×Ü·Ö351 Çóµ÷¼ÁѧУ +7 czhcz 2026-03-31 9/450 2026-04-01 19:24 by Î޼ʵIJÝÔ­
[¿¼ÑÐ] 070300Çóµ÷¼Á306·Ö +5 26ÒªÉϰ¶ 2026-03-27 5/250 2026-04-01 11:09 by oooqiao
[¿¼ÑÐ] ¿¼ÑвÄÁϹ¤³Ì351·Öµ÷¼Á +5 Õû¸öºÃµÄ 2026-03-31 5/250 2026-04-01 09:36 by topgun2009
[¿¼ÑÐ] µ÷¼ÁÉêÇë +8 ÕÅÕÅÕÅÕÅzy 2026-03-31 9/450 2026-04-01 08:29 by zjbkx
[¿¼ÑÐ] 282Çóµ÷¼Á ²»Ìôרҵ ÇóÊÕÁô +4 Yam. 2026-03-30 5/250 2026-03-31 14:41 by ÍõÁÁ_´óÁ¬Ò½¿Æ´ó
[¿¼ÑÐ] ¹þ¶û±õ¹¤Òµ´óѧ²ÄÁÏÓ뻯¹¤×¨Ë¶378Çóµ÷¼Á +3 Ëþ±ÈÎÚ˹ 2026-03-30 3/150 2026-03-30 22:55 by Î޼ʵIJÝÔ­
[¿¼ÑÐ] ²ÄÁÏר˶ 085600Çóµ÷¼Á +7 BBQ233 2026-03-30 7/350 2026-03-30 17:44 by oooqiao
[¿¼ÑÐ] 303Çóµ÷¼Á +7 DLkz1314. 2026-03-30 7/350 2026-03-30 16:05 by shuang5186
[¿¼ÑÐ] 085602 »¯Ñ§¹¤³Ìר˶ 340·ÖÇóµ÷¼Á +4 qianbai11 2026-03-29 4/200 2026-03-30 11:34 by ÌÆãå¶ù
[¿¼ÑÐ] 352·Ö »¯¹¤Óë²ÄÁÏ +5 º£Äɰٴ¨Ly 2026-03-27 5/250 2026-03-28 03:39 by fmesaito
ÐÅÏ¢Ìáʾ
ÇëÌî´¦ÀíÒâ¼û