Условные операторы. Написание текста программы на языке Фортрана, используя условные логические операторы

МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ РОССИЙСКОЙ ФЕДЕРАЦИИ

НОВОСИБИРСКИЙ ГОСУДАРСТВЕННЫЙ ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ

ИНФОРМАТИКА

Лабораторная работа № 3

Условные операторы

Факультет: ЛА

Группа: ГС-71

Студент: Брусенцев С.Г.

Преподаватель: Фомичева И.В.

Новосибирск 2007

Условные операторы

Цель работы- разработать алгоритм программы, написать на языке  Фортрана  текст программы, используя условные логические операторы. Приобрести опыт построения  разветвленного многокаскадного  алгоритма  действий при заданных исходных данных.

Задания к работе- 1) ознакомиться с описанием работы; 2) составить программу, моделирующую разветвленный  вычислительный процесс;3) набрать текст  программы  на компьютере  ( файл ); 4) отредактировать программу  и создать  исполняемый модуль ( файл) ; 5) просчитать программу  и получить результат  ( файл) ; 6) построить графики и оформить отчет.

Исходные данные

Вариант 18

№	a	b	c 1	c 2	d	k
18	5	3	-3	-4	2	4

Текст программы

program lr_3

c        создание файла результатов

Open (10, file='lr.rez')

N=20

XN=(-5)

XK=5

DX= (XK-XN)/N

c        проверка секторов 1 и 3

PRINT 1

WRITE(10,1)

1       FORMAT(' ЛАБОРОТОРНАЯ РАБОТА № 3'/

*'ПРОВЕРКА СЕКТОРОВ 1. И 3'/

*' I X Y Z')

DO 100 I=1, N+1

X=XN+DX*(I-1)

Y=X

CALL PR (I, X, Y, Z)

100  CONTINUE

C       ПРОВЕРКА СЕКТОРОВ 2И 4

PRINT 2

WRITE(10,2)

2      FORMAT(' ЛАБОРАТОРНАЯ РАБОТА №3'/

*' ПРОВЕРКА СЕКТОРОВ 2И 5'/

*' I X Y Z') 

DO 200 I=1, N+1

X=XN+DX*(I-1)

Y= (-X)

CALL PR (I, X, Y, Z)

200    CONTINUE

STOP

END

SUBROUTINE                           PR (I, X, Y, Z)

LOGICAL LV1, LV2,    LV3, LV4,   LV5,    LV6,            LV7,             LV8

A=5

B=3

C1=-3

C2=-4

D=2

K=4

LV1=X.GE.0.AND.Y.GE.0.AND.X**2+Y**2.LE.A

LV2=X.GE.0.AND.Y.GE.0.AND.X**2+Y**2.GE.A

LV3=X.LE.0.AND.Y.GE.0.AND.Y.LE.K*X+B

LV4=X.LE.0.AND.Y.GE.0.AND.X.GE.K*X+B

LV5=X.LE.0.AND.Y.LE.0.AND.        Y.GE.C1.AND.x.GE.C2

LV6=X.LE.0.AND.Y.LE.0.AND. Y.LE.C1.AND.x.LE.C2

LV7=X.GE.0.AND.Y.LE.0.AND. X+Y**2/2.LE.D

LV8=X.GE.0.AND.Y.LE.0.AND.X+Y**2/2.GE.D

IF (LV1) Z=1

IF (LV2) Z= (-1)

IF (LV3) Z=2

IF (LV4) Z= (-2)

IF (LV5) Z=3

IF (LV6) Z= (-3)

IF (LV7) Z=4

IF (LV8) Z= (-4)

IF (X.EQ.0) Z=0

Print 1, I, X, Y, Z

WRITE (10,1)       I,X,Y,Z

1        Format (      I3, 2f7.3, f10.5)

Return

End

                Таблица результатов вычислений              

	X	Y	Z
1	-5	-5	-3
2	-4,5	-4,5	-3
3	-4	-4	-3
4	-3,5	-3,5	-3
5	-3	-3	3
6	-2,5	-2,5	3
7	-2	-2	3
8	-1,5	-1,5	3
9	-1	-1	3
10	-0,5	-0,5	3
11	0	0	0
12	0,5	0,5	1
13	1	1	1
14	1,5	1,5	1
15	2	2	-1
16	2,5	2,5	-1
17	3	3	-1
18	3,5	3,5	-1
19	4	4	-1
20	4,5	4,5	-1
21	5	5	-1
	X	Y	Z
1	-5	5	-2
2	-4,5	4,5	-2
3	-4	4	-2
4	-3,5	3,5	-2
5	-3	3	-2
6	-2,5	2,5	-2
7	-2	2	-2
8	-1,5	1,5	-2
9	-1	1	-2
10	-0,5	0,5	2
11	0	0	0
12	0,5	-0,5	4
13	1	-1	4
14	1,5	-1,5	-4
15	2	-2	-4
16	2,5	-2,5	-4
17	3	-3	-4
18	3,5	-3,5	-4
19	4	-4	-4
20	4,5	-4,5	-4
21	5	-5	-4

Графики функций

Вывод: В результате проделанной роботы мной был разработан алгоритм программы.  Изучив  условные логические операторы  я написала на языке Фортрана текст программы . Приобрела опыт построения разветвленного многокаскадного алгоритма действий при заданных исходных данных.