当前位置: 首页 > news >正文

猜数游戏(Fortran)

背景

学了两个月Fortran还没来一次正式练习

于是——

代码

program gessnum! implicit none 不取消IN规则。integer::num,areal::Ncall random_seed()call random_number(N)a=int(N*10)print*,"请输入您猜的数字:"read(*,*)numdo i=1,3if (num==a)thenprint*,"恭喜你,猜对了!"exitelse if (num>a)thenif (i==3)thenprint*,"最后一次都猜错了,fw!"exitend ifprint*,"不好意思,您猜的数字大了一点!您还有",3-i,"次机会:"read(*,*)numelse if (i==3)thenprint*,"最后一次都猜错了,fw!"exitend ifprint*,"不好意思,您猜的数字小了一点!您还有",3-i,"次机会:"read(*,*)numend ifend do
end program gessnum

玩一把

http://www.lryc.cn/news/467590.html

相关文章:

  • 代码随想录 -- 贪心 -- 单调递增的数字
  • 【小洛的VLOG】Web 服务器高并发压力测试(Reactor模型测试)
  • Window:下载与安装triton==2.0.0
  • 零,报错日志 2002-Can‘t connect to server on‘106.54.209.77‘(1006x)
  • R语言笔记(一)
  • MusePose模型部署指南
  • 又一次升级:字节在用大模型在做推荐啦!
  • 无线领夹麦克风怎么挑选,麦克风行业常见踩坑点,避雷不专业产品
  • OJ-1017中文分词模拟器
  • Unity 关于UGUI动静分离面试题详解
  • HarmonyNext保存Base64文件到Download下
  • 069_基于springboot的OA管理系统
  • hive数据库,表操作
  • openpnp - 在顶部相机/底部相机高级校正完成后,需要设置裁剪所有无效像素
  • Vue+TypeScript+SpringBoot的WebSocket基础教学
  • 大话网络协议:HTTPS协议和HTTP协议有何不同?为什么HTTPS更安全
  • 13图书归还-云图书管理系统(Vue3+Spring Boot+element plus)
  • 中航资本:“女人的茅台”重挫!超7700亿元英伟达概念业绩爆发
  • day7:软件包管理
  • 探索Konko AI:快速集成大语言模型的最佳实践
  • 网络地址和本地网络地址
  • 【closerAI ComfyUI】AI绘画界新技术RF Inversion图像编辑和风格迁移!能跟ipadapter争高低吗?
  • 【Spring篇】Spring的Aop详解
  • Spring与其他框架的比较
  • 论当前的云计算
  • Spring Boot 整合 RocketMQ 之消息消费手动提交 ACK 实战【案例分享】
  • 胃癌数据集(不定期更新)
  • zh/FAQ/CentOSStream-CentOS Stream 常见问题
  • 多台西门子PLC与多台三菱PLC之间实时通讯的方案(PLC内不用编程)
  • C++ [项目] 恶魔轮盘赌