Fortran基础练习02--循环2

1.输入n个数，找出所有大于n个数的平均值的那些数及最小数

 1 program main
 2
 3     implicit none
 4     integer n,i,j,tn
 5     real :: mean,min
 6     real,allocatable :: a(:),b(:)
 7
 8     write(*,*) '请输入数字的个数n='
 9     read(*,*) n
10     allocate(a(n))
11
12     write(*,*) '请输入',n,'个数'
13     read(*,*) (a(i),i=1,n)
14
15     mean=real(sum(a))/n
16
17     tn=0
18     do i=1,n
19         if (a(i)>mean)  tn=tn+1
20     enddo
21
22     allocate(b(tn))
23
24     j=1
25     min=a(1)
26     do i=1,n
27         if (a(i)<min) min=a(i)
28         if (a(i)>mean) then
29             b(j)=a(i)
30             j=j+1
31         endif
32     enddo
33     write(*,*) '最小的数为',min
34     write(*,*) '大于平均数的数有：',b
35
36     pause
37
38 end

2.把一个数列中的所有相同的数删到只剩一个

 1 program main
 2
 3     implicit none
 4     integer n,i,j,k
 5     real :: mean,min
 6     real,allocatable :: a(:),b(:)
 7
 8     write(*,*) '请输入数字的个数n='
 9     read(*,*) n
10     allocate(a(n))
11
12     write(*,*) '请输入',n,'个数'
13     read(*,*) (a(i),i=1,n)
14
15     do i=1,n
16         do j=i+1,n
17             if (a(i)==a(j)) then
18                 do k=j,n-1
19                     a(k)=a(k+1)
20                 enddo
21                 n=n-1
22             endif
23         enddo
24     enddo
25
26     write(*,*) '删除重复数字后的数组为：'
27     write(*,*) (a(i),i=1,n)
28
29     pause
30
31 end

转载于:https://www.cnblogs.com/mathpro/p/9954584.html

Fortran基础练习02--循环2相关推荐

JavaScript基础第02天—运算符（操作符）—流程控制—循环—代码规范
JavaScript基础第02天 1 - 运算符(操作符) 1.1 运算符的分类运算符(operator)也被称为操作符,是用于实现赋值.比较和执行算数运算等功能的符号. JavaScript中常用 ...
python深浅拷贝面试_Python面试宝典之基础篇-02
原标题:Python面试宝典之基础篇-02 我觉得你如果正在找工作,我的Python面试宝典几期教程,你一定得花时间看完了! 题目006:说说Python中的浅拷贝和深拷贝. 点评:这个题目本身出现的 ...
Python基础------几种循环结构详解
Python基础------几种循环结构详解在所有的编程语言中,循环结构是必不可少了,Python也一样.在python主要有一下几种循环结构:for-in-.while.range()三种最为常见 ...
Python基础知识02
内容供自己学习使用,如有错误之处,请大佬们指正,谢谢! 作者:rookiequ python基础知识02 数据类型列表(list):可以存放多个元素,并且元素类型可以不同 #可以存放多种数据类型 l ...
Python基础——基础分支和循环
本周学习内容"基础分着和循环" 文章目录前言一.分支和循环的理解二.基础分支和循环的应用三,学习感悟总结前言在学习计算机语言的时候,总免不了要碰到分支和循环,今天我将 ...
java增强型for报错_Java基础——增强for循环
java1.5版本引入了一个增强for循环,基本原理和for循环类似. 语法声明:for(表达式:条件表达式) 举例:for (String str : set) 解释:set代表set集合,str代 ...
python教程循环语句,Python基础教程之循环语句（for、while和嵌套循环）
循环可以用来重复执行某条语句,直到某个条件得到满足或遍历所有元素. 1 for循环是for循环,可以把集合数据类型list.tuple.dict.set的元素遍历出来. (1)对list进行循环 c ...
python while循环if_详解python基础之while循环及if判断
wlile循环 while True表示永远为真,不管是什么条件都会向下执行,下面是写的一个例子. #!/usr/bin/env python age = 24 #给age赋一个值 while Tru ...
20190508——python基础(if...in...循环语句、while循环、两种循环对比)
二.python基础(if...in...循环语句.while循环.两种循环对比) 1.for...in...循环语句 1)for循环:空房间 # 空房间的学名叫[元素](item),因为英文是ite ...
【T-SQL基础】02.联接查询
概述: 本系列[T-SQL基础]主要是针对T-SQL基础的总结. [T-SQL基础]01.单表查询-几道sql查询题 [T-SQL基础]02.联接查询 [T-SQL基础]03.子查询 [T-SQL基础 ...

Fortran基础练习02--循环2

Fortran基础练习02--循环2相关推荐

最新文章

热门文章