 |
АвтоАвтоматизацияАрхитектураАстрономияАудитБиологияБухгалтерияВоенное делоГенетикаГеографияГеологияГосударствоДомДругоеЖурналистика и СМИИзобретательствоИностранные языкиИнформатикаИскусствоИсторияКомпьютерыКулинарияКультураЛексикологияЛитератураЛогикаМаркетингМатематикаМашиностроениеМедицинаМенеджментМеталлы и СваркаМеханикаМузыкаНаселениеОбразованиеОхрана безопасности жизниОхрана ТрудаПедагогикаПолитикаПравоПриборостроениеПрограммированиеПроизводствоПромышленностьПсихологияРадиоРегилияСвязьСоциологияСпортСтандартизацияСтроительствоТехнологииТорговляТуризмФизикаФизиологияФилософияФинансыХимияХозяйствоЦеннообразованиеЧерчениеЭкологияЭконометрикаЭкономикаЭлектроникаЮриспунденкция
ПРИМЕР ОФОРМЛЕНИЯ ОТЧЕТА
Лабораторная работа № 9
ФУНКЦИИ
| Выполнил | ст. 211 гр. | Иванов А.П. | |
| Проверил | доцент каф. 304 | Скоб Ю.А. |
Цель работы – составление программ с использованием функций; усвоение принципа локализации имен.
Постановка задачи
1. Вычислить значение арифметического выражения Y, написав для его вычисления функцию.
2. Исходные данные ввести из текстового файла, который представить вместе с листингом программы и результатами счета.
3. Результаты расчета вывести в другой текстовый файл.
4. Весь обмен данными между основной программой и функцией организовать через список формальных/фактических параметров.
Вариант № 1
при x = 3.5; z = 10-5; b =4.
Содержание работы
1. Текст программы:
! Lab9_V1.f90
! FUNCTIONS:
! Lab9_V1 - Entry point of console application.
!****************************************************************************
! PROGRAM: Lab9_V1
! PURPOSE: Entry point for the console application.
!****************************************************************************
! ---- декларация функции -------------------------------
real function F(x,z,b)
! объявление перемнных функции
real x,z,b
real ch,zn! числитель, знаменатель дроби
! выполняемые операторы функции
ch=exp(x)+z**6-4.5E2*sqrt(x)! числитель дроби
zn=z**x+b**3.5! знаменатель
F=ch/zn! результат - значение дроби
end function F
! ---- главная программа --------------------------------
program Lab9_V1
implicit none
! --- Объявление необходимых переменных
real F! тип вызываемой функции
real x,z,b! исходные данные
real Rezult! результат
integer:: fi=1,fo=2! Номер устройства ввода и вывода
! --- выполняемые операторы главной программы
! Файловой переменной fi назначается файл File1.txt
open(fi,file='Lab9_V1.txt')! Текстовый файл открывается
read(fi,*) x,z,b! Чтение исходных данных
close(fi)! Закрывается прочитанный файл fi
Rezult=F(x,z,b);! вызов функции
! запись результата
open(fo,file='Lab9_V1.out')! Текстовый файл fo открывается
write(fo,'(a,f10.6)') ' Result: y=',Rezult! вывод результата
close(fo)! Закрывается файл fo,созданный программой
end program Lab9_V1
2. Файл исходных данных.
3. Файл с результатами расчета.
4. Выводы:
· составлена программа с использованием функции;
· усвоен принцип локализации имен.
Поиск по сайту: