e)read(*,*)guessif(abs(guess-weight) e)read(*,*)guessif(abs(guess-weight)
登录
首页 » Fortran » Desktop

Desktop

于 2020-01-10 发布
0 189
下载积分: 1 下载次数: 0

代码说明:

说明:  program example3 implicit none real,parameter::weight=50.0 real,parameter::e=0.1 real guess write (*,*) " weight is" do while(abs(guess-weight)>e) read(*,*) guess if(abs(guess-weight)

下载说明:请别用迅雷下载,失败请重下,重下不扣分!

发表评论

0 个回复

  • 696516资源总数
  • 106562会员总数
  • 4今日下载