Fortran2.doc

工程分析程序设计上机作业(二)
结构化编程——选择
上机目的:练****使用选择结构编制程序。
求y值,x由键盘输入。
解
PROGRAM MAIN
REAL X,Y
PRINT*,'please input x'
READ*,x
IF(X>=<10) THEN
Y=X
ELSE IF (X>=<20) THEN
Y=X*X+1
ELSE IF (X>=<30) THEN
Y=X**3+X*x+1
ELSE
Y="??"
END IF
PRINT*,'Y=',Y
STOP
END
输入4个数A,B,C,D,按由大到小的顺序打印出来。
解PROGRAM MAIN
REAL A,B,C,D,E,F,H
PRINT*,'please input A,B,C,D'
READ*,A,B,C,D
E=MAX(A,B,C)
F=MIN(A,B,C)
H=A+B+c-E-F
IF(D>E) THEN
WRITE(*,*) D,E,H,F
ELSE IF(D>H) THEN
WRITE(*,*) E,D,H,F
ELSE IF(D>F) THEN
WRITE(*,*) E,H,D,F
ELSE
WRITE(*,*) E,H,F,D
END IF
STOP
END
某电视台的晚上8点节目安排如下:
星期一、四:新闻
星期二、五:电视剧
星期三、六:卡通片
星期日:电影
请写一个程序,可以输入星期几来查询当天晚上的节目。
解:PROGRAM MAIN
INTEGER X
PRINT*,'please input x'
READ*,x
IF(X==1 .OR. X==4) THEN
WRITE(*,*)"新闻"
ELSE IF(X==2 .or. X==5) THEN
WRITE(*,*)"电视剧"
ELSE IF(X==3 .or. X==6) THEN
WRITE(*,*)"卡通片"
ELSE IF(X==7) THEN
WRITE(*,*)"电影"
ELSE
WRITE(*,*)"??"
END IF
STOP
END
假如所得税有三个等级,而且随年龄不同又有不同算法:
第一类:低年级(不满50岁)
月收入在1000元以下的税率为3%,在1000元至5000元之间的税率为10%,在5000元以上的税率为15%。
第二类:老年级(50岁以上)
月收入在1000元以下的税率为5%,在1000元至5000元之间的税率为7%,在5000元以上的税率为10%。
请写一个程序来输入一位上班族的年龄、年收入,并计算他(她)所应缴纳的税金。
解PROGRAM MAIN
REAL Y,B
INTEGER X
PRINT*,'please input "年龄","月收入"'
READ*,x,Y
IF(X<50 ) THEN
IF(Y<1000) THEN
B=Y*
ELSE IF(Y<5000