| ²é¿´: 808 | »Ø¸´: 8 | |||
| µ±Ç°Ö÷ÌâÒѾ´æµµ¡£ | |||
tpp001½ð³æ (ÖøÃûдÊÖ)
|
[½»Á÷]
¡¾ÇóÖú¡¿Ð´ÁËÒ»¸öС³ÌÐò³ö´í,Çë´ó¼Ò°ï桾Òѽâ¾ö¡¿
|
||
|
ÎÒÏë±àÒ»¸ö´ÓÒ»¸öÎļþz.txtÖжÁÈ¡Êý¾Ý,°ÑÕâ¸öÎļþÖеÄÊý¾Ý¶¼³ýÒÔÒ»¸ö³£Êý(changshu),°Ñ½á¹ûдÈëÒ»¸öÃû×ÖΪjieguoµÄÎļþÖÐ,ÎÒÊÇÐÂÊÖ,¸Õ¸Õ¿ªÊ¼Ñ§,Çë´ó¼Ò°ïæллÁË! program xiangchu integer i parameter (j=94240, chushu=1.375E-3) !¶¨ÒåÁËÎļþÖÐÓжàÉÙÐкͳýÊý. real Z(i), N(i) open (1,file="z.txt",status='old') !´ò¿ªÁËÒ»¸öz.txtÎļþ read (1,*)(Z(i),i=1,j) !¶ÁÈ¡ÎļþÖеÄÊý¾Ý close(1) do i=1,j,1 N(i)=Z(i)/chushu !¼ÆËãÎļþÖеÄÿһ¸öÊý³ýÒÔÒ»¸ö³£Êý end do write(jieguo)N(i) !°Ñ½á¹ûдÈëÒ»¸öÃû×ÖÊÇjieguoµÄÎļþÖÐ end [ Last edited by nono2009 on 2009-12-25 at 09:17 ] |
» ²ÂÄãϲ»¶
ÊýÒ»Ó¢Ò»271ר˶£¨085401£©Çóµ÷¼Á£¬¿É¿ç
ÒѾÓÐ8È˻ظ´
295Çóµ÷¼Á
ÒѾÓÐ4È˻ظ´
0856Çóµ÷¼Á
ÒѾÓÐ5È˻ظ´
²ÄÁÏѧ˶333Çóµ÷¼Á
ÒѾÓÐ10È˻ظ´
299Çóµ÷¼Á
ÒѾÓÐ6È˻ظ´
Ò»Ö¾Ô¸Ö£ÖÝ´óѧ£¬080500ѧ˶£¬×Ü·Ö317·ÖÇóµ÷¼Á
ÒѾÓÐ6È˻ظ´
289Çóµ÷¼Á
ÒѾÓÐ12È˻ظ´
070305¸ß·Ö×Ó»¯Ñ§ÓëÎïÀí 304·ÖÇóµ÷¼Á
ÒѾÓÐ6È˻ظ´
0703»¯Ñ§µ÷¼Á£¬Çóµ¼Ê¦ÊÕ
ÒѾÓÐ10È˻ظ´
¸÷λÀÏʦºÃ£¬ÎÒµÄһ־ԸΪ±±¾©¿Æ¼¼´óѧ085601²ÄÁÏר˶
ÒѾÓÐ5È˻ظ´

senlia
ľ³æ (СÓÐÃûÆø)
- Ó¦Öú: 2 (Ó×¶ùÔ°)
- ¹ó±ö: 3.521
- ½ð±Ò: 2178.1
- ºì»¨: 1
- Ìû×Ó: 223
- ÔÚÏß: 6.7Сʱ
- ³æºÅ: 849005
- ×¢²á: 2009-09-16
- ÐÔ±ð: GG
- רҵ: ¼ÆËãÊýѧÓë¿ÆÑ§¹¤³Ì¼ÆËã
¡ï ¡ï
Сľ³æ(½ð±Ò+0.5):¸ø¸öºì°ü£¬Ð»Ð»»ØÌû½»Á÷
ÓàÔó³É(½ð±Ò+1,VIP+0):ר¼Ò³öÂíÁË£¬ºÇºÇ£¬ÐÁ¿à£¡ 11-4 10:34
Сľ³æ(½ð±Ò+0.5):¸ø¸öºì°ü£¬Ð»Ð»»ØÌû½»Á÷
ÓàÔó³É(½ð±Ò+1,VIP+0):ר¼Ò³öÂíÁË£¬ºÇºÇ£¬ÐÁ¿à£¡ 11-4 10:34
|
open (1,file="z.txt",status='old') ÊÇË«ÒýºÅÂð£¿ÎÒÕâ¶ùûÓбàÒëÈí¼þ û·¨µ÷ÊÔ ÄãÏÈÊÔÊÔÕâÒ»¾äÓÐûÓгö´í Ã²ËÆ¸ÃÊǵ¥ÒýºÅ°É real Z(i), N(i)´íÁË ÄãÕâÀïµÄi»¹Ã»ÓÐֵĨ Ó¦¸ÃÊÇreal Z(j), N(j)°É£¿ write(jieguo)N(i)´íÁË Ê×ÏÈ writeº¯ÊýµÄ¸ñʽÊÇwrite(¶Ë¿ÚºÅ,Êä³ö¸ñʽ) ÄãÕâÀïÓ¦¸ÃÏÈ´ò¿ªÒ»¸öÃûΪjieguoµÄÎļþopen(1,file=¡¯jieguo¡®) µÚ¶þ ÄãÕâÀïµÄiÒѾ¹Ì¶¨Á˵ÈÓÚj ÄãÓ¦¸ÃÑ»·Êä³ö do i=1,j write(1,*) N(i) !ÒÔĬÈϸñʽ*Êä³öµ½¶Ë¿ÚºÅΪ1¶ÔÓ¦µÄÎļþÖÐ end do »òÕߺÃÏñÖ±½Óдwrite(1,*) NÒ²¿ÉÒ﵀ ÄãÊÔÊÔ°É |

2Â¥2009-11-04 10:29:43
tpp001
½ð³æ (ÖøÃûдÊÖ)
- Ó¦Öú: 0 (Ó×¶ùÔ°)
- ½ð±Ò: 749.3
- É¢½ð: 5
- ºì»¨: 1
- Ìû×Ó: 1040
- ÔÚÏß: 155.9Сʱ
- ³æºÅ: 423029
- ×¢²á: 2007-07-21
- ÐÔ±ð: GG
- רҵ: »¯Ñ§

3Â¥2009-11-04 12:41:34
senlia
ľ³æ (СÓÐÃûÆø)
- Ó¦Öú: 2 (Ó×¶ùÔ°)
- ¹ó±ö: 3.521
- ½ð±Ò: 2178.1
- ºì»¨: 1
- Ìû×Ó: 223
- ÔÚÏß: 6.7Сʱ
- ³æºÅ: 849005
- ×¢²á: 2009-09-16
- ÐÔ±ð: GG
- רҵ: ¼ÆËãÊýѧÓë¿ÆÑ§¹¤³Ì¼ÆËã
¡ï ¡ï
Сľ³æ(½ð±Ò+0.5):¸ø¸öºì°ü£¬Ð»Ð»»ØÌû½»Á÷
ÓàÔó³É(½ð±Ò+1,VIP+0):ллר¼ÒÉú¶¯µÄ½âÊÍ£¬ÈÏÕæµÄ̬¶È£¡ 11-4 14:25
Сľ³æ(½ð±Ò+0.5):¸ø¸öºì°ü£¬Ð»Ð»»ØÌû½»Á÷
ÓàÔó³É(½ð±Ò+1,VIP+0):ллר¼ÒÉú¶¯µÄ½âÊÍ£¬ÈÏÕæµÄ̬¶È£¡ 11-4 14:25
|
Ê×ÏÈ iÊDZäÁ¿ ²»Êdz£Êý(parameter) ÄãÏëÏë ÄãÈóÌÐò¸øÒ»¸öÊý×é[»òÕß¾ØÕó]·ÖÅäÄÚ´æ¿Õ¼äµÄʱºò Õâ¸ö¿Õ¼ä±äÀ´±äÈ¥µÄ ËÊܵÃÁË£¿ÄãÈÃÈ˼ÒҲΪÄÑѽ£¡ È»ºó ÄãÔÚÕâ¸ö³ÌÐòÖж¨ÒåZºÍNµÄʱºò Êý×é´óСi»¹Ã»¶¨Òå¹ý ¾ÍÏ൱ÓÚÊÇÀϰå¸úÄã˵:"È¥°É" È¥ÄĶùÄØ£¿Ëû²»¸úÄã˵ȥÄĶù ÄãÈ¥ÄĶù£¿ÄãҲΪÄÑѽ£¡ µ±È» ÔÚº¯Êý´«µÝµÄʱºò ±ÈÈ纯Êý[»òÕß×ÓÀý³Ì]subroutine func(n) ÔÚÕâ¸öº¯Êý[×ÓÀý³Ì]ÀïÃæÊÇ¿ÉÒÔÓñäÁ¿nÀ´¶¨ÒåÊý×éµÄ´óСµÄ ±ÈÈçÄãдreal Z(n)¾ÍÊǶ¨Òå´óСΪnµÄÊý×éZ ÐÞ¸ÄÒ»¸ö´íÎó µÚÒ»´ÎµÄ»Ø¸´ÖÐ Ó¦¸ÃÊÇ iÊǵÈÓÚj+1 ¶ø²»ÊÇiµÈÓÚj [ Last edited by senlia on 2009-11-4 at 13:18 ] |

4Â¥2009-11-04 13:00:39
zhangxx978
гæ (³õÈëÎÄ̳)
- Ó¦Öú: 0 (Ó×¶ùÔ°)
- ½ð±Ò: 51
- Ìû×Ó: 17
- ÔÚÏß: 13.8Сʱ
- ³æºÅ: 582909
- ×¢²á: 2008-07-25
- רҵ: »ù´¡ÎïÀíѧ
¡ï ¡ï
Сľ³æ(½ð±Ò+0.5):¸ø¸öºì°ü£¬Ð»Ð»»ØÌû½»Á÷
jjdg(½ð±Ò+0,VIP+0):±äÁ¿Ò²¿ÉÒԵİ¡£¡ 11-20 00:11
senlia(½ð±Ò+1,VIP+0):гæ¹ÄÀøÒ»¸ö 12-23 16:52
Сľ³æ(½ð±Ò+0.5):¸ø¸öºì°ü£¬Ð»Ð»»ØÌû½»Á÷
jjdg(½ð±Ò+0,VIP+0):±äÁ¿Ò²¿ÉÒԵİ¡£¡ 11-20 00:11
senlia(½ð±Ò+1,VIP+0):гæ¹ÄÀøÒ»¸ö 12-23 16:52
| ¶¨ÒåÊý×éÒ»¶¨Òª¼ÇµÃÓó£Á¿£¡ |
5Â¥2009-11-19 23:53:46
volley
Ìú³æ (³õÈëÎÄ̳)
- Ó¦Öú: 0 (Ó×¶ùÔ°)
- ½ð±Ò: 22.5
- Ìû×Ó: 28
- ÔÚÏß: 1.1Сʱ
- ³æºÅ: 444918
- ×¢²á: 2007-10-27
- ÐÔ±ð: GG
- רҵ: ·ÉÐÐÆ÷Éè¼Æ
¡ï ¡ï ¡ï
Сľ³æ(½ð±Ò+0.5):¸ø¸öºì°ü£¬Ð»Ð»»ØÌû½»Á÷
²¨²»¶¯(½ð±Ò+1,VIP+0):¸ÐлӦÖú£¡ 12-23 12:26
senlia(½ð±Ò+1,VIP+0):гæ¹ÄÀøÒ»¸ö 12-23 16:52
Сľ³æ(½ð±Ò+0.5):¸ø¸öºì°ü£¬Ð»Ð»»ØÌû½»Á÷
²¨²»¶¯(½ð±Ò+1,VIP+0):¸ÐлӦÖú£¡ 12-23 12:26
senlia(½ð±Ò+1,VIP+0):гæ¹ÄÀøÒ»¸ö 12-23 16:52
|
ÒªÓñäÁ¿¶¨ÒåÊý×éµÄ»°£¬±ØÐ뽫Êý×éÉùÃ÷Ϊ¿É±äÊý×é Óà allocatable |
6Â¥2009-12-23 12:00:14
gurong
Ìú³æ (ÕýʽдÊÖ)
- Ó¦Öú: 26 (СѧÉú)
- ½ð±Ò: 16.4
- É¢½ð: 674
- ºì»¨: 3
- Ìû×Ó: 482
- ÔÚÏß: 116.7Сʱ
- ³æºÅ: 800772
- ×¢²á: 2009-06-29
- ÐÔ±ð: GG
- רҵ: Óлú·ÖÎö
7Â¥2009-12-24 10:44:31
tpp001
½ð³æ (ÖøÃûдÊÖ)
- Ó¦Öú: 0 (Ó×¶ùÔ°)
- ½ð±Ò: 749.3
- É¢½ð: 5
- ºì»¨: 1
- Ìû×Ó: 1040
- ÔÚÏß: 155.9Сʱ
- ³æºÅ: 423029
- ×¢²á: 2007-07-21
- ÐÔ±ð: GG
- רҵ: »¯Ñ§

8Â¥2009-12-25 09:07:25
»ÆÅÖÅÖ
ľ³æ (ÕýʽдÊÖ)
- Ó¦Öú: 0 (Ó×¶ùÔ°)
- ½ð±Ò: 4895.8
- Ìû×Ó: 412
- ÔÚÏß: 77.3Сʱ
- ³æºÅ: 316449
- ×¢²á: 2007-03-03
- רҵ: ÊýÖµÔ¤±¨ÓëÊýֵģÄâ
9Â¥2009-12-25 09:28:10














»Ø¸´´ËÂ¥