fortran循环结构例题

fortran

fortran

fortran

fortran

fortran

fortran

fortran

fortran

fortran

fortran

fortran

fortran

fortran

fortran

fortran

fortran

fortran

fortran

fortran

1．Fibonacci数列定义如下： F1=1 F2=1

Fn=Fn-1+Fn-2 (n>2)

求Fibonacci数列的前30项。 integer f(30),i f(1)=1 f(2)=2 do i=3,30

f(i)=f(i-1)+f(i-2) enddo print*,f end

2．输入10个学生的总分，求每个学生的名次 integer s(10),a(10),i,j do i=1,10 read*,s(i) enddo do i=1,10 a(i)=1 do j=1,10

if(s(i)

1

3．给定一组数，按照从小到大的顺序输出。 integer a(10) integer p do i=1,10 read *,a(i) enddo do j=1,9 p=j

do i=j+1,10

if (a(i)

if (p/=j) then

t=a(p);a(p)=a(j);a(j)=t endif enddo

print *,(a(i),i=1,10) end

2

4．输入

1．Fibonacci数列定义如下： F1=1 F2=1

Fn=Fn-1+Fn-2 (n>2)

求Fibonacci数列的前30项。 integer f(30),i f(1)=1 f(2)=2 do i=3,30

f(i)=f(i-1)+f(i-2) enddo print*,f end

2．输入10个学生的总分，求每个学生的名次 integer s(10),a(10),i,j do i=1,10 read*,s(i) enddo do i=1,10 a(i)=1 do j=1,10

if(s(i)

1

3．给定一组数，按照从小到大的顺序输出。 integer a(10) integer p do i=1,10 read *,a(i) enddo do j=1,9 p=j

do i=j+1,10

if (a(i)

if (p/=j) then

t=a(p);a(p)=a(j);a(j)=t endif enddo

print *,(a(i),i=1,10) end

2

4．输入

选择结构程序设计作业

前面学习了比较简单的顺序结构程序设计，在顺序结构程序中每条语句都是按书写顺序依次顺序执行。使用顺序结构编写程序，只能求解逻辑关系非常简单的问题，可是许多实际问题，往往具有复杂的逻辑关系，仅使用顺序结构难以编写程序，需要使用更复杂的程序结构，如选择结构(分支结构)。选择结构是求解复杂问题和体现程序智能化的重要程序结构。

FORTRAN90提供了多种用于实现选择结构的语句，如：逻辑IF语句、块IF语句、多支块IF语句和SELECT语句，其中SELECT语句是FORTRAN90新引入的用于实现块CASE结构的语句，它与多支块IF语句在功能上非常相似，但在某些情况下，使用SELECT语句比使用多支块IF语句更简洁和高效。

本实验是学习和掌握关系表达式、逻辑表达式、选择结构语句、选择结构程序设计方法的一次系统实验活动。通过本次实验，能设计和编写简单的具有选择结构的程序，为学习和掌握更复杂的程序结构和程序设计方法奠定基础。

一． 实验内容1

1．问题描述

某高校实行学分制，学分制规定：成绩大于等于60分可获得3个学分和3个绩点，否则不能获得学分和绩点，同时成绩大于等于80分可增加2个绩点。输入学生成绩，计算并输出学生获得的学分和绩点

彭 帅 1201120224

一、 实验目的与要求：

1. 练习并掌握利用while语句、for语句、do-while语句实现循环结构的方法。 2. 掌握循环结构和选择结构的嵌套设计方法，以及多重循环的设计方法。 3. 掌握控制语句break、continue、gato语句的使用方法。

二、 实验内容：

1、调试以下程序，分别输入5和6，以单步跟踪的方式运行程序，观察循环中命令的执行以及转向情况，并记录程序的运行结果。

程序运行结果

2、下面程序实现如下功能：输入一行字母，将字母加密输出（如‘a’变成‘c’，‘b’变成‘d’，…，‘z’变成‘b’）。阅读并分析该程序，填空使其完整。

3、利用for程序循环编写程序，输出如下图形：

* * * * * *

* *

* *

* * * * * *

4.使用循环语句编程，输出如下三角形状的九九乘法表：

5.用while语句或do-while语句编写程序，计算e≈1+1 /1！+1/2！+…+1/n！。 要求：(1)用单循环编写程序；

（2）使最后

实验 2

循环结构 程序填空 1.

本题分值： 10

题目描述：

马克思曾经出过这样一道趣味数学题：有 30

个人在一家小饭馆里用餐，其中有男人、女人和小 孩。每个男人花了 3

先今，每个女人花了 2

先令，每个小孩花了 1

先令，一共花去 50

先令。问男人、女人

以及小孩各有几个人。以下是完成此项工作的程序，请将未完成的部分填入，实现其功能，并在计算机上

调试程序，以测试填入的部分是否正确。

代码：

#include using namespace std; int main() {

int n; //n

记录解的个数

int a,b,c; //

分别记录男、女、小孩的人数

n=__(1)__; // 初始化 n 的值

for(a=1;a<=30;a++) {

for(b=1;b<=30;b++) {

c=__(2)__; if( __(3)__ ) {

cout<<\男人有 :\个； \女人有： \个； \小孩有： \个。 \ n++; } } }

cout<<\共有 \种方案 \ return 0; } 2.

本题分值： 10

题目描述：

下面程序的功能是输出 1 至 100

之间每位数的乘积大于每位

VB基础教程

循环结构在Visual Basic程序的三种结构中,循环结构是 一种重要结构。 循环的本质：不断地重复某种动作。 循环的本质对计算机程序而言，循环必须具备两个重要因素： 对计算机程序而言，循环必须具备两个重要因素：教 学 课 件

1. 在一定的条件下，重复执行一组语句 2. 必然出现不满足条件的情况，使循环终止

VB基础教程

思考题编写程序实现计算：0+1+2+3+4+…+n的值 前后两项之差都 为1,是一个等 差数列 Sum=0 Sum=sum+1 Sum=sum+2 Sum=sum+3 … Sum=sum+n i是从1到n递增 1的数列 重复执 行n次教 学 课 件

Sum=sum+i i=i+1

VB基础教程

一、循环程序设计结构VB中提供了两种类型的循环语句：一种是计数循环语 句；另一种是条件循环语句。Visual Basic 支持的循环结 构有：教 学 课 件

重点掌握： Do…Loop、 For.Next、 While…Wend等前三 种循环

☆ For...Next结构 ☆ Do…Loop 结构 ☆ While…Wend ☆ goto

VB基础教程

1、For…Next循环结构 For…Next循环结构语法格式：For 循环变量 = 初

<<C语言程序设计基础>>

循环结构项目设计 钱新杰

宜宾职业技术学院电气自动化技术专业

<<C语言程序设计基础>>

本次课学习目标 掌握基本算法的设计 掌握选择结构的基本应用 掌握循环结构的基本应用

宜宾职业技术学院电气自动化技术专业

<<C语言程序设计基础>>

项目设计知识要点1、选择结构 expr =0 非0 statement1

if (expression) statementif (expression) statement1 else statement2

expr

=0 statement2

非0 statement

if ( expr1 ) statement1 else if (expr2 ) statement2 else if (expr3 ) statement3 …... [ else statementn ]

expr1 非0

=0

expr2 非0statemnt2

=0expr3 非0 statemnt3

=0statemntn

statemnt1

宜宾职业技术学院电气自动化技术专业

<<C语言程序设计基础>>

switch( 表达式) { ca

<<C语言程序设计基础>>

循环结构项目设计 钱新杰

宜宾职业技术学院电气自动化技术专业

<<C语言程序设计基础>>

本次课学习目标 掌握基本算法的设计 掌握选择结构的基本应用 掌握循环结构的基本应用

宜宾职业技术学院电气自动化技术专业

<<C语言程序设计基础>>

项目设计知识要点1、选择结构 expr =0 非0 statement1

if (expression) statementif (expression) statement1 else statement2

expr

=0 statement2

非0 statement

if ( expr1 ) statement1 else if (expr2 ) statement2 else if (expr3 ) statement3 …... [ else statementn ]

expr1 非0

=0

expr2 非0statemnt2

=0expr3 非0 statemnt3

=0statemntn

statemnt1

宜宾职业技术学院电气自动化技术专业

<<C语言程序设计基础>>

switch( 表达式) { ca

彭 帅 1201120224

一、 实验目的与要求：

1. 练习并掌握利用while语句、for语句、do-while语句实现循环结构的方法。 2. 掌握循环结构和选择结构的嵌套设计方法，以及多重循环的设计方法。 3. 掌握控制语句break、continue、gato语句的使用方法。

二、 实验内容：

1、调试以下程序，分别输入5和6，以单步跟踪的方式运行程序，观察循环中命令的执行以及转向情况，并记录程序的运行结果。

程序运行结果

2、下面程序实现如下功能：输入一行字母，将字母加密输出（如‘a’变成‘c’，‘b’变成‘d’，…，‘z’变成‘b’）。阅读并分析该程序，填空使其完整。

3、利用for程序循环编写程序，输出如下图形：

* * * * * *

* *

* *

* * * * * *

4.使用循环语句编程，输出如下三角形状的九九乘法表：

5.用while语句或do-while语句编写程序，计算e≈1+1 /1！+1/2！+…+1/n！。 要求：(1)用单循环编写程序；

（2）使最后