±±¾©Ê¯ÓÍ»¯¹¤Ñ§Ôº2026ÄêÑо¿ÉúÕÐÉú½ÓÊÕµ÷¼Á¹«¸æ
²é¿´: 404  |  »Ø¸´: 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 µÄÖ÷Ìâ¸üÐÂ
×î¾ßÈËÆøÈÈÌûÍÆ¼ö [²é¿´È«²¿] ×÷Õß »Ø/¿´ ×îºó·¢±í
[¿¼ÑÐ] Ò»Ö¾Ô¸¸´µ©²ÄÁÏ£¬Ó¢Ò»×¨Ë¶£¬×Ü·Ö357µ÷¼Á +4 1050389037 2026-04-02 5/250 2026-04-02 21:40 by dongzh2009
[¿¼ÑÐ] 070305¸ß·Ö×Ó»¯Ñ§ÓëÎïÀí 304·ÖÇóµ÷¼Á +16 c297914 2026-03-28 16/800 2026-04-02 20:50 by dongzh2009
[¿¼ÑÐ] 298Çóµ÷¼Á +4 zzz£¬£¬r 2026-04-02 7/350 2026-04-02 18:57 by 1939136013¹·×³
[¿¼ÑÐ] Çóµ÷¼Á 302·Ö³õÊÔ 0854 +5 Áæ¿ÉÀÖ 2026-04-02 5/250 2026-04-02 17:53 by ±ÊÂä½õÖÝ
[¿¼ÑÐ] 318Çóµ÷¼Á£¬¼ÆËã²ÄÁÏ·½Ïò +10 Îüß÷Óк¦óÏÃü 2026-04-01 11/550 2026-04-02 16:29 by oooqiao
[¿¼ÑÐ] 081200-11408-276ѧ˶Çóµ÷¼Á +3 ´Þwj 2026-04-02 3/150 2026-04-02 15:06 by cal0306
[¿¼ÑÐ] ÄÜÔ´¶¯Á¦ µ÷¼Á +3 ²»ÆÆ²»Á¢0 2026-04-02 3/150 2026-04-02 12:46 by ffffjjjj
[¿¼ÑÐ] Ò»Ö¾Ô¸±±¾©Àí¹¤´óѧ±¾¿Æ211²ÄÁϹ¤³Ì294Çóµ÷¼Á +8 mikasaµÄΧ½í 2026-03-28 9/450 2026-04-02 12:09 by ms629
[¿¼ÑÐ] ²ÄÁϹ¤³Ì322·Ö +8 ¹þ¹þ¹þºðºðºð¹þ 2026-04-01 8/400 2026-04-02 11:53 by 3041
[¿¼ÑÐ] 270µ÷¼Á +7 maxjxbsk 2026-04-02 7/350 2026-04-02 09:50 by yulian1987
[¿¼ÑÐ] 08ÉúÎïÓëҽҩר˶³õÊÔ346ÕÒµ÷¼Á +6 dianeeee 2026-04-01 7/350 2026-04-02 08:23 by guoweigw
[¿¼ÑÐ] 285Çóµ÷¼Á +11 AZMK 2026-04-01 11/550 2026-04-01 22:40 by peike
[¿¼ÑÐ] °²È«¹¤³Ì 285 Çóµ÷¼Á +3 Xinyu56 2026-04-01 4/200 2026-04-01 21:50 by ¾²¾²¾²¾²¾²¾²¾²¾
[¿¼ÑÐ] ²ÄÁϵ÷¼Á +14 Ò»ÑùYWY 2026-04-01 14/700 2026-04-01 21:07 by lijunpoly
[¿¼ÑÐ] 285Çóµ÷¼Á +5 FZAC123 2026-03-30 5/250 2026-04-01 15:50 by º«Ó꺭
[¿¼ÑÐ] Çóµ÷¼Á£¬Ò»Ö¾Ô¸±±ÁÖʳƷÓëÓªÑø095500£¬301·Ö£¬ÒѹýÁù¼¶£¬ÓпÆÑо­Àú +4 ¿ìÀÖ´¢Ðî¹Þ 2026-03-31 4/200 2026-04-01 09:26 by JourneyLucky
[¿¼ÑÐ] ¿¼ÑÐÉúÎïÓëÒ½Ò©µ÷¼Á +7 Ìúº©º©123425 2026-03-31 7/350 2026-04-01 08:45 by JourneyLucky
[¿¼ÑÐ] 282Çóµ÷¼Á ²»Ìôרҵ ÇóÊÕÁô +4 Yam. 2026-03-30 5/250 2026-03-31 14:41 by ÍõÁÁ_´óÁ¬Ò½¿Æ´ó
[¿¼ÑÐ] Ò»Ö¾Ô¸»ªÖÐʦ·¶»¯Ñ§332·ÖÇóµ÷¼Á +3 Lyy930824@ 2026-03-29 3/150 2026-03-30 20:15 by DHUSHUAI
[¿¼ÑÐ] һ־Ը˫һÁ÷»úе285·ÖÇóµ÷¼Á +4 ÐÒÔ˵ÄÈýľ 2026-03-29 5/250 2026-03-29 14:49 by Miko19
ÐÅÏ¢Ìáʾ
ÇëÌî´¦ÀíÒâ¼û