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

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

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

ИНФОРМАТИКА

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

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

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

Группа: ГС-71

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

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

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

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

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

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

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

Вариант 18

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

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

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

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

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