| 查看: 1078 | 回复: 2 | ||
chenshuai000金虫 (正式写手)
|
[求助]
foran 程序，请问错误是为什么
|
|
program exam integer ::p=0,n print*,"请输入一个数n" read*,n do i=1,100 if(panduanjiou(n)==0) then p=oushu(n) else p=jishu(n) endif n=p enddo print*,p end ！************************ function oushu(b) oushu=int(b/2) end ！************************ function jishu(a) jishu=a*3+1 end ！**************************** function panduanjiou(a) integer a if(mod(a,2)==0) then panduanjiou=0 else pqnduanjiou=1 endif end 错误 1 error #6633: The type of the actual argument differs from the type of the dummy argument. [N] d:\chenshuai\Console9\Console9\Source1.f90 8 错误 2 error #6633: The type of the actual argument differs from the type of the dummy argument. [N] d:\chenshuai\Console9\Console9\Source1.f90 10 错误 3 Compilation Aborted (code 1) d:\chenshuai\Console9\Console9\Source1.f90 1 |
回复此楼» 猜你喜欢
2026年面上项目中了，2A+B, 会评顺利通过
已经有9人回复
-
今年E04面上
已经有16人回复
-
大龄残疾硕士的一点执念
已经有16人回复
-
刑法学论文投稿求助
已经有5人回复
-
Journal of Environmental Chemical Engineering
已经有3人回复
-
最后一年，祈求好运
已经有3人回复
-
风电环氧领域
已经有3人回复
-
售T0P一区SCI文章，我:8O5.51.O.54,科目齐全,可＋急
已经有4人回复
-
售T0P一区SCI文章，我:8O5.51.O.54,科目齐全,可＋急
已经有4人回复
-
植酸TLC薄层色谱爬板
已经有6人回复
wxws.2008
木虫 (正式写手)
- 应助: 5 (幼儿园)
- 金币: 5015.5
- 散金: 256
- 红花: 9
- 帖子: 354
- 在线: 147.9小时
- 虫号: 639701
- 注册: 2008-10-29
- 性别: GG
- 专业: 荒漠化与水土保持
2楼2016-01-10 10:32:26
chenshuai000
金虫 (正式写手)
- 应助: 0 (幼儿园)
- 金币: 377.6
- 散金: 31
- 红花: 2
- 帖子: 397
- 在线: 174.7小时
- 虫号: 3644225
- 注册: 2015-01-14
- 性别: GG
- 专业: 控制理论与方法
3楼2016-01-10 10:46:43