| ²é¿´: 1102 | »Ø¸´: 6 | ||
| µ±Ç°Ö»ÏÔʾÂú×ãÖ¸¶¨Ìõ¼þµÄ»ØÌû£¬µã»÷ÕâÀï²é¿´±¾»°ÌâµÄËùÓлØÌû | ||
836449366½ð³æ (СÓÐÃûÆø)
|
[ÇóÖú]
¼ÆËãÔ²ÖÜÂʵÄС³ÌÐò³ö´í ÒÑÓÐ1È˲ÎÓë
|
|
|
ÎҵijÌÐòÊǼÆËãÔ²ÖÜÂÊ£¬ÔÀíÊÇ£ºÔÚÒ»¸ö1*1µÄÕý·½Ðμ°ÆäÄÚÇÐÔ²£¨Ô²ÐÄΪ£¨0.5,0.5£©£©ÖУ¬Ëæ»úÊýxºÍËæ»úÊýy×é³ÉµÄµãλÓÚÕý·½ÐÎÄÚ£¬µ«ÒªÅжÏÕâ¸öµãÊÇ·ñÒ²ÔÚÔ²ÄÚ£¬µ±µãÊýºÜ¶àʱ£¬Ô²ÄڵĵãÊý³ýÒÔ×ÜÊýÔÙ³ËÒÔ4¾ÍµÈÓÚÔ²ÖÜÂÊÁË£¨¼´Ãæ»ýÖ®±È£©£¬ÎÒËù±àдµÄ³ÌÐòÈçÏ£º program main implicit none integer*4 :: i,j,n,ii common i real*4 :: r call random_number(x) call random_number(y) real*4,dimension(i):: x,y r=sqrt((x-0.5)**2+(y-0.5)**2) ii=0 do n=2,8,1 i=10**n do j=1,i if ( r .le. 0.5 ) then ii=ii+1 endif enddo enddo write(*,"(a,3F6.3)" "pai=",4*ii/i,x,yend Çó³æÓѰï°ï棬лл |
» ²ÂÄãϲ»¶
±¾¿ÆÖ£ÖÝ´óѧÎïÀíѧԺ£¬Ò»Ö¾Ô¸»ª¿Æ070200ѧ˶£¬346Çóµ÷¼Á
ÒѾÓÐ3È˻ظ´
ÄÜÔ´²ÄÁÏ»¯Ñ§¿ÎÌâ×éÕÐÊÕ˶ʿÑо¿Éú8-10Ãû
ÒѾÓÐ11È˻ظ´
Çó²ÄÁϵ÷¼Á
ÒѾÓÐ9È˻ظ´
²ÄÁÏר˶ӢһÊý¶þ306
ÒѾÓÐ5È˻ظ´
085600²ÄÁÏÓ뻯¹¤µ÷¼Á 324·Ö
ÒѾÓÐ9È˻ظ´
0703»¯Ñ§µ÷¼Á
ÒѾÓÐ12È˻ظ´
0703»¯Ñ§ 305Çóµ÷¼Á
ÒѾÓÐ4È˻ظ´
0703»¯Ñ§µ÷¼Á£¬Çó¸÷λÀÏʦÊÕÁô
ÒѾÓÐ10È˻ظ´
271²ÄÁϹ¤³ÌÇóµ÷¼Á
ÒѾÓÐ5È˻ظ´
281Çóµ÷¼Á£¨0805£©
ÒѾÓÐ16È˻ظ´
» ±¾Ö÷ÌâÏà¹Ø¼ÛÖµÌùÍÆ¼ö£¬¶ÔÄúͬÑùÓаïÖú:
Çë½ÌÒ»¸öfortranС³ÌÐò±àÒë³ö´íµÄÎÊÌ⣬лл
ÒѾÓÐ9È˻ظ´
fish.yfyh
ͳæ (СÓÐÃûÆø)
- Ó¦Öú: 42 (СѧÉú)
- ½ð±Ò: 607.9
- ºì»¨: 4
- Ìû×Ó: 108
- ÔÚÏß: 35.9Сʱ
- ³æºÅ: 2867094
- ×¢²á: 2013-12-12
- רҵ: »¯Ñ§ÉúÎïѧÓëÉúÎïÓлú»¯Ñ§
4Â¥2013-12-13 11:21:49
fish.yfyh
ͳæ (СÓÐÃûÆø)
- Ó¦Öú: 42 (СѧÉú)
- ½ð±Ò: 607.9
- ºì»¨: 4
- Ìû×Ó: 108
- ÔÚÏß: 35.9Сʱ
- ³æºÅ: 2867094
- ×¢²á: 2013-12-12
- רҵ: »¯Ñ§ÉúÎïѧÓëÉúÎïÓлú»¯Ñ§
¡¾´ð°¸¡¿Ó¦Öú»ØÌû
¸Ðл²ÎÓ룬ӦÖúÖ¸Êý +1
|
¸Ð¾õÄã´úÂëµÄ´íÎóÂù¶à£¬È»ºóÎÒ¸ÄдÁËһϡ£ program main implicit none integer*4 :: num,i,j,ii real*4 :: r real*4,allocatable :: x( ,y(![]() num = 100000 allocate(x(num)) allocate(y(num)) call random_seed() call random_number(x) call random_number(y) ii = 0 do i = 1,num r = sqrt((x(i)-0.5)**2 + (y(i)-0.5)**2) if(r .le. 0.5) then ii = ii+1 end if end do write(*,"(a,F6.3)" "pai=",4.0*ii/numdeallocate(x,y) stop end program |
» ±¾ÌûÒÑ»ñµÃµÄºì»¨£¨×îÐÂ10¶ä£©
2Â¥2013-12-12 20:30:56
836449366
½ð³æ (СÓÐÃûÆø)
- Ó¦Öú: 1 (Ó×¶ùÔ°)
- ½ð±Ò: 3039.8
- É¢½ð: 62
- ºì»¨: 4
- Ìû×Ó: 270
- ÔÚÏß: 356.3Сʱ
- ³æºÅ: 1478273
- ×¢²á: 2011-11-05
- רҵ: ÀíÂۺͼÆË㻯ѧ
Ëͺ컨һ¶ä |
·Ç³£¸ÐлÄãµÄ»Ø´ð£¬ÔËÐÐÒ²ÕýÈ·£¬µ«µ±ÎÒÔÚwriteºó¼ÓÒ»¸öÒ»¸ö±äÁ¿Êä³öʱ£¬¸ÄΪ ¡± write(*,"(a,F6.3,E10.2)" "pai=",4.0*ii/num,num ¡°£¬ÕâÑùÊä³öµÄ½á¹ûΪ " pai= 3.141 0.14E-39 " ÕâÑùµÄÊä³öµÄ½á¹ûÊÇ´íÎóµÄ£¬numÊä³öµÄֵӦΪ1.00E+05 ÎÊÌâ³öÔÚÄÄ£¿Çó³æÓÑÔٴνâ»óÏ£¿ ÎÒµÄÄ¿µÄÊÇ×ö¸öÑ»·£¬¿´¿´ÊäÈëµÄÖµÔ½´ó£¬µÃµ½µÄÔ²ÖÜÂʵĽá¹ûԽ׼ȷ¡£ |
3Â¥2013-12-13 11:05:12
836449366
½ð³æ (СÓÐÃûÆø)
- Ó¦Öú: 1 (Ó×¶ùÔ°)
- ½ð±Ò: 3039.8
- É¢½ð: 62
- ºì»¨: 4
- Ìû×Ó: 270
- ÔÚÏß: 356.3Сʱ
- ³æºÅ: 1478273
- ×¢²á: 2011-11-05
- רҵ: ÀíÂۺͼÆË㻯ѧ
5Â¥2013-12-13 15:06:17













"pai=",4*ii/i,x,y
»Ø¸´´ËÂ¥
,y(
50