отчет лабы 2

Федеральное государственное бюджетное образовательное учреждение высшего профессионального образования

Новосибирский государственный технический университет

Факультет летательных аппаратов

«Кафедра инжинерных проблем экологии»

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

Основы работы в Compaq Visual Fortran

Студент :Лукоянов Иван, Слободян Андрей

Преподаватель:Голубева А.О

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

Задача №1

Найти максимальное значение из 3

`

a>b

y=a

y=b

c>y

да

да

нет

нет

y

y=c

program z1!имя программы

real a, b, c, y !описание переменных

a = 5!присвоение значения

b = 4

c = 19

if (a > b) then !опертаро условия2

y = a

else

y = b

endif!конец условия1

if (c > y) then

y = c

endif!конец условия2

print *,’y=’,y!вывод на экран

end program z1!конец программы

a>b

да

нет

нет

нет

да

да

a>c

y=c

b>c

y=c

y=a

y=b

program z2!имя программы

real a, b, c, y!описание переменных

a = 5!присвоение значения

b = 4

c = 19

if (a>b) then!оператор условия1

if (a>c) then!опертаро условия2

y = a!присвоение значения

else

y = c



endif!конец условия2

else

if (b>c) then!условие3

y = b

else

y = c

endif!конец условия3



endif!конец условия1

print *,’y=’,y!вывод на экран

end program z2!конец программы

Введем название программы, тип и сами переменные, потом их значения. Начнем сравнения заданных чисел. Если а>b и a>c, то y=a, иначе y=c. Если b>a и b>c, то y=b,иначе y=c. Конец цикла и программы.

Задача №2

Определить в какую из областей первую или вторую попадает точка с заданными координатами, принимаем что точка не поподает на границу областей, организовать вывод результата в файл. Точка А(2;5).

Х=4

Х=1

I

II

program z3!имя программы

integer x, y!описание переменных

x = 5!присвоение значения

y = 5

open(5,file=’oblast.txt’)!создание файла

if (x

write(5,*)’oblast1′!вывод в файл

else

write(5,*)’oblast2′!вывод в файл

endif!конец условия

end program z3!конец программы

Сперва введем название программы, потом тип переменных и сами переменные присутствующие в задачи. Далее значение этих переменных. Потом командной OPEN создаем файл oblast куда мы и будем выводить результат. Далее с помощью функции if, then, else определяем в какой из областей лежит точка. Вывод результата в файл, конец функции и конец программы.