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

Страницы работы

5 страниц (Word-файл)

Содержание работы

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

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

ИНФОРМАТИКА

Лабораторная работа № 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

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

Проверка секторов 1 и 3  

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

Проверка секторов 2 и 4

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


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

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

Похожие материалы

Информация о работе

Предмет:
Информатика
Тип:
Отчеты по лабораторным работам
Размер файла:
28 Kb
Скачали:
0