Программа на FORTAN-77. Задание_Функция. Решение 3 Список литературы 9
 Скачать 436 Kb.
|
|
СОДЕРЖАНИЕ Задание 3Решение 3Список литературы 9Задание1. Разработать алгоритм решения поставленной задачи в следующих видах: постановка задачи, укрупненный словесный алгоритм, детализированный алгоритм в виде блок-схемы. 2. Разработать и отладить программу на Фортране-77. Ввод/вывод данных выполнять в стиле наглядного доброжелательного пользовательского интерфейса. 3. Программа должна позволять выполнять множество расчетов без возврата в операционную среду. 4. Отладить программу в текстовом режиме работы видеоадаптера. РешениеПостановка задачи Описать функцию целого типа, определяющую номер координатной четверти, в которой находится точка с ненулевыми вещественными координатами (x,y). C помощью программы, использующей эту функцию, найти номера координатных четвертей для трех точек с заданными ненулевыми координатами. Укрупненный словесный алгоритм На рисунке 1 показаны расположение и номера координатных четвертей. Запишем условия нахождения в них: I четверть – координаты x и y должны быть больше 0; II четверть – координата x должна быть меньше 0, а координата y должна быть больше 0; III четверть – координаты x и y должны быть меньше 0; IV четверть – координата x должна быть больше 0, а координата y должна быть меньше 0.
Укрупненный словесный алгоритм подпрограммы-функции KOOR Шаг 1. В подпрограмму передаются значение координат X и Y Шаг 2. Если X >0 и Y>0, тогда переменной KOOR присваивается значение 1. Шаг 3. Если X <0 и Y>0, тогда переменной KOOR присваивается значение 2. Шаг 4. Если X <0 и Y<0, тогда переменной KOOR присваивается значение 3. Шаг 5. Если X >0 и Y<0, тогда переменной KOOR присваивается значение 4. Шаг 6. Выход из подпрограммы Укрупненный словесный алгоритм главной программы Шаг 1. Запрос начала выполнения расчета. Если пользователь выбирает выполнение расчета, то переход на шаг 2. Если пользователь выбирает конец работы, то переход на шаг 10. Шаг 2. Ввод значений координат X и Y. Шаг 3. Проверка введенных значений. Если они равны 0, то выдача сообщений об ошибке и переход на шаг 1. Шаг 4. Вызов функции KOOR с параметрами X и Y. Шаг 5. Вывод полученного результата на экран Шаг 6. Переход на шаг 1. Шаг 7. Стоп. Конец работы. Блок схема алгоритма функции приведена на рис.1 Блок схема алгоритма программы приведена на рис.2
Текст функции
Текст программы
Результаты работы
Список литературыАшкрофт Дж. Программирование на Фортран 77 – М.: Радио и Связь, 1990. – 272 с. Немнюгин С., Стесик О. Фортран в задачах и примерах – СПб. : БХВ-Петербург, 2012. – 320 с. |
