Фортран: відмінності між версіями

Матеріал з Вікіпедії — вільної енциклопедії.
Перейти до навігації Перейти до пошуку
Інтерактивний перегляд історії
(Переглянути усі неперевірені зміни)
[неперевірена версія][неперевірена версія]
← Попереднє редагуванняНаступне редагування →
Вилучено вміст Додано вміст
ВізуальнийВікірозмітка
Zmi007 (обговорення | внесок)
4191 редагування
Zmi007 (обговорення | внесок)
4191 редагування
Рядок 196: Рядок 196:


== Література ==
== Література ==
* {{Citation
| last1 = Metcalf
| first1 = M.
| last2 = Reid
| first2 = J.
| last3 = Cohen
| first3 =M.
| title = Modern Fortran Explained
| publisher = Oxford University Press
| series = Numerical Mathematics and Scientific Computation
| edition = 4
| year= 2011
| pages = 512
| language = en
| url = http://books.google.ua/books?id=MmOIFEgsDLwC
| isbn = 9780199601417 }}

* {{Citation
| last1 = Clerman
| first1 = Norman S.
| last2 = Spector
| first2 = Walter
| title = Modern Fortran: Style and Usage
| publisher = Cambridge University Press
| year = 2011
| edition = 1
| pages = 352
| language = en
| url = http://books.google.ua/books?id=5Qj2DieTHsYC
| isbn = 9780521730525}}

* {{Citation
| last1 = Markus
| first1 = Arjen
| title = Modern Fortran in Practice
| publisher = Cambridge University Press
| year = 2012
| edition = 1
| pages = 272
| language = en
| url = http://books.google.ua/books?id=UXcPuQAACAAJ
| isbn = 9781107603479}}

* {{Citation
| last1 = Chapman
| first1 = Stephen J.
| title = Fortran 95/2003 for Scientists and Engineers
| publisher = McGraw-Hill
| year = 2007
| edition = 3
| pages = 974
| language = en
| url = http://books.google.ua/books?id=YZIISgAACAAJ
| isbn = 9780073191577}}

* {{Citation
| last1 =Adams
| first1 =Jeanne C.
| last2 =Brainerd
| first2 =Walter S.
| last3 =Hendrickson
| first3 =Richard A.
| last4 =Maine
| first4 =Richard E.
| last5 =Martin
| first5 =Jeanne T.
| title = The Fortran 2003 Handbook: The Complete Syntax, Features and Procedures
| publisher = Springer
| year = 2008
| edition = 1
| pages = 712
| language = en
| url = http://books.google.ua/books?id=40UkLNQuAeoC
| isbn = 9781846283789}}

* {{Citation
| last1 = Chivers
| first1 = Ian
| last2 = Sleightholme
| first2 = Jane
| title = Introduction to Programming With Fortran: With Coverage of Fortran 90, 95, 2003, 2008 and 77
| publisher = Springer
| year = 2012
| edition = 2
| pages = 619
| language = en
| url = http://books.google.ua/books?id=FWAGULJjZQUC
| isbn = 9780857292322}}


{{Compu-lang-stub}}
{{Compu-lang-stub}}

Версія за 00:49, 27 липня 2012

Fortran
Парадигма декілька: структурна, імперативна (процедурна, об’єктно-орієнтована), узагальнена
Дата появи 1957
Творці Джон Бекус
Розробник Джон Бекус & IBM
Система типізації сильна, статична, маніфест
Основні реалізації Absoft, Cray, GFortran, G95, IBM, Intel, Lahey/Fujitsu, Open Watcom, Pathscale, PGI, Silverfrost, Oracle, XL Fortran, Visual Fortran, та інші
Під впливом від Speedcoding
Вплинула на ALGOL 58, BASIC, C, PL/I, PACT I, MUMPS, Ratfor
Ліцензія MIT
Звичайні розширення файлів ..f, .for, .f90, .f95
Репозиторій вихідного коду github.com/fortran-lang
Вебсайт fortran-lang.org

Фортран (Fortran) (раніше FORTRAN - скорочення від "The IBM Mathematical Formula Translating System", тобто "Система трансляції математичних формул IBM")  — це імперативна мова програмування загального призначення, яка особливо підходить для інтенсивних чисельних та наукових обчислень. Розроблена корпорацією IBM в 1950-х роках в університетському містечку на півдні Сан-Хосе, штат Каліфорнія для потреб наукових та інженерних проектів. Досить швидко Fortran став домінувати в цій галузі програмування і ось вже як понад півстоліття знаходиться в постійній експлуатації в області обчислень чисельного прогнозу погоди, аналізу методом скінченних елементів, обчислювальної гідродинаміки, обчислювальної фізики та хімії. Це одна з найбільш популярних мов в області високопродуктивних обчислень, і яка використовується для тестування швидкодії найпотужніших у світі суперкомп'ютерів.

Фортран як мова розвивався стабільно і навіть консервативно. Кожен новий стандарт створювався в результаті довготривалої дискусії між виробниками компіляторів та зацікавлених експертів. Завдяки цьому кожна з версій, що розвивалася, зазвичай додавала розширення мови одночасно зберігаючи при цьому сумісність з попередніми версіями. Версія Fortran 77 додала підтримку для обробки символьних даних; операції з масивами і модульне програмування з'явилися в Fortran 90; функціональне програмування в Fortran 95, об'єктно-орієнтоване програмування та узагальнене програмування в Fortran 2003. І нарешті узагальнене паралельне програмування з допомогою co-arrays, що використовує архітектурно-незалежний та близький для фортрану синтаксис для паралельної декомпозиції даних та виконання інструкцій, було стандартизовано в Fortran 2008.

Історія розвитку

FORTRAN

Особливістю мови Fortran є вже те, що з розвитком вона змінила навіть свою назву відображаючи той факт, що до версії Fortran 90 всі ключові слова повинні були бути написані великими літерами. Це змінилось в Fortran 90 і починаючи з цієї версії мову FORTRAN офіційно стали називати Fortran.

В кінці 1953 року Джон В. Бeкус вніс пропозицію своєму начальству в IBM щодо розробки більш практичної альтернативи мови програмування для їх IBM 704 ЕОМ. В історичну команду по створенню мови FORTRAN увійшли також програмісти Richard Goldberg, Sheldon F. Best, Harlan Herrick, Peter Sheridan, Roy Nutt, Robert Nelson, Irving Ziller, Lois Haibt, and David Sayre. Проект специфікації системи було завершено до середини 1954 року. Перший посібник для FORTRAN з'явився в жовтні 1956 року, а перший компілятор FORTRAN - в квітні 1957 року. Це був перший в світі оптимізуючий компілятор, тому що клієнти погоджувалися використовувати мови програмування високого рівня тільки тоді, коли компілятор зможе генерувати код, продуктивність котрого буде близькою до коду, який може записати досвідчений програміст безпосередньо на асемблері. Незважаючи на скепсис та сумніви спільноти, компілятор швидко завоював визнання. Мова була широко прийнята вченими для написання програм, котрі в свою чергу створили необхідні умови та ринок для створення компіляторів, які можуть генерувати більш швидкий і ефективний код. Включення комплексних чисел в фортран зробив цю мову особливо зручною також для технічних та інженерних програм, таких як електротехніка. До 1960 року версії FORTRAN були доступні для 709, 650, 1620, і 7090 IBM комп'ютерів. Зростання популярності FORTRAN спонукало виробників комп'ютерів забезпечити компіляторами FORTRAN свої машини, так що до 1963 року існувало вже понад 40 FORTRAN-компіляторів. З цих причин, FORTRAN вважається першою широко використовуваною мовою програмування котра підтримувала найрізноманітніші комп'ютерні архітектури. Розвиток FORTRAN відбувався паралельно ранній еволюції технології компіляторів, і багато досягнень в галузі теорії та розробки компіляторів були спеціально мотивовані необхідністю створення ефективного коду для програм на FORTRAN.

До появи дисків та файлів, текстових редакторів та терміналів, програми найчастіше програмували з допомогою перфокарт на клавіатурі перфоратора на 80 знаків. В результаті колода карт подавалася в “кард-рідер” для компіляції. Тому оригінальний код ФОРТРАНу був в фіксованому форматі довжиною в 80 символів (стовпчиків). Не підтримувалась рекурсія та підпрограми.

FORTRAN II

IBM, FORTRAN II з'явився в 1958 році. Основними поліпшеннями були підтримка процедурного програмування, тобто підпрограми і функцій з параметрами, що передавалися за посиланням (by reference). Надавалась можливість для підпрограм доступу до глобальних змінних.

IBM також розробила FORTRAN III в 1958 році, що дозволяла писати на асемблері в функцій, однак ця версія так і не була випущена в якості продукту.

Для машини IBM 1401 було створено інноваційний на той час 63-прохідний компілятор Фортрану, який поміщався в 8-кілобайт. Він зберігав код програми в пам'яті та одночасно поступово транслював її на машинну мову - тобто це був перший в світі інтерпретатор мови програмування. Наступний інтерпретатор (мови Pascal) появився тільки через 2 десятиліття.

FORTRAN IV

Починаючи з 1961 року, в результаті потреби клієнтів, компанія IBM почала розробку версії FORTRAN IV, в якому було видалені машинно-залежні особливості FORTRAN II (такі як READ INPUT TAPE), а додано багато нових елементів, таких як логічний тип даних, логічні операції та логічний IF в якості альтернативи арифметичному IF. FORTRAN IV було випущено в 1962 році, спочатку для комп'ютерів IBM 7030 ("Stretch"), а потім і для IBM 7090 та IBM 7094. До 1965 року, FORTRAN IV був "стандартом" відповідно до American Standards Association X3.4.3 FORTRAN Working Group[1] .

FORTRAN 66

Мабуть, найбільш значною подією в ранній історії FORTRAN стало рішення Американської асоціації стандартів (ANSI зараз) сформувати комітет для розробки "американського стандарту Фортрану". Fortran 66 в березні 1966 року фактично став першою "стандартною для індустрії" версією FORTRAN. В Fortran 66 входили дуже багато удосконалень: main program, SUBROUTINE, FUNCTION, та BLOCK DATA програмні одниниці; типи INTEGER, REAL, DOUBLE PRECISION, COMPLEX та LOGICAL; COMMON, DIMENSION, and EQUIVALENCE інструкції; DATA для специфікації початкових значень змінних; INTRINSIC та EXTERNAL (тобто бібліотечних, зовнішніх) функцій; GOTO, визначений GOTO, та обчислюваний GOTO; логічний та арифметичний IF; DO цикли; READ, WRITE, BACKSPACE, REWIND, та ENDFILE ключові слова для послідовних операцій вводу-виводу; FORMAT для форматованого вводу-виводу; CALL, RETURN, PAUSE, та STOP; холеричні константи в DATA та FORMAT виразах, а також як аргументи для процедур; ідентифікатори з довжиною до 6 символів а також можливість задання коментарів в коді

FORTRAN 77

Після виходу стандарту FORTRAN 66, виробники компіляторів продовжували вносити на прохання користувачів ряд розширень, що змусило ANSI в 1969 році розпочати роботу з перегляду прийнятого в 1966 році стандарту. Остаточні проекти цього нового стандарту були завершені в 1977 році, і офіційне затвердження нового стандарту FORTRAN 77 відбулося в квітні 1978 року. Новий стандарт FORTRAN 77 додавав ряд істотних особливостей для вирішення багатьох недоліків FORTRAN 66: блоки IF ... END IF, з опціональними ELSE ... ELSE IF, що значно полегшував структурне програмування; розширення DO циклів з параметричними виразами, негативним інкрементом та нульовим циклом; OPEN, CLOSE, та INQUIRE для роботи з файлами а також прямий доступ до файлів; IMPLICIT вираз та символьний тип даних CHARACTER з великою кількістю функцій для нього; PARAMETER для декларування констант; SAVE для постійних в пам'яті локальних змінних; загальні імена для вбудованих функцій та ін. У цій версії стандарту ряд особливостей були вилучені або оголошені застарілими (тобто такими котрі будуть вилучені в наступних версіях мови Fortran).

Fortran 90

З значним запізненням як наступник FORTRAN 77 відомий зараз як Fortran 90 (а до цього, Fortran 8X) був випущений в якості стандарту ISO 1991 і стандарту ANSI в 1992 році. Це був дуже серйозний перегляд стандарту, котрий враховував нові тенденції та розвиток інших мов. Було додано безліч нових функцій, щоб відобразити значні зміни в практиці програмування: не фіксована форма запису джерельного коду а також запис ключових слів малими літерами; ідентифікатори довжиною до 31 символу; вбудовані однорядкові коментарі; операції над масивами як ціле, та над вибірками масивів, що значно спрощувало математичні та інженерні обчислення; рекурсивні процедури; модулі для групування пов'язаних процедур і даних, щоб зробити їх доступними для інших частин програми, включаючи можливість обмежувати доступ тільки до певних частин модуля; значно покращився механізм передачі аргументів, що дозволяє перевіряти інтерфейси функцій та процедур під час компіляції; передбачена створення інтерфейсів користувачем для загальних процедур; перевантаження операторів; похідні/абстрактні типи даних; новий тип синтаксису для декларації типу даних та інших атрибутів змінних та констант; динамічне виділення пам'яті за допомогою ALLOCATATE/ DEALLOCATE та ALLOCATABLE атрибутів; POINTER для полегшення створення та обробки динамічних структур даних; структуровані циклічні конструкції з END DO для завершення циклу, і CYCLE та EXIT для контролю та виходу з ітерацій циклу; SELECT ... CASE для багатоходового вибору; специфікації точності обчислень під контролем користувача; нові та вдосконалені вбудовані процедури. На відміну від попередніх версій, в Фортран 90 не був видалений жоден елемент але значна їх кількість була оголошена застарілими.

Fortran 95

Fortran 95 був незначною ревізією, в основному, щоб вирішити деякі невирішені питання з стандарту Fortran 90. Тим не менш, в Fortran 95 також було додано ряд розширень, зокрема, з високими технічними характеристиками так званого високопродуктивного фортрану: FORALL і вкладені конструкції WHERE, щоб допомогти векторизації; PURE і елементарні ELEMENTAL процедури; ініціалізація за замовчуванням компонентів похідних типів; розширені можливості використання виразів ініціалізації; явне визначення того, що пам'ять зайнята ALLOCATABLE масивами автоматично звільняється, коли вони виходять з області видимості; розширене число вбудованих функцій. Деякі особливості відзначені в Fortran 90 як застарілі були видалені з Fortran 95: цикли з дійсними лічильниками, PAUSE та ін.

Важливим доповненням до Fortran 95 була доповідь ISO TR-15581. У цій специфікації визначено розширене використання ALLOCATABLE масивів, ще до наявності повністю Fortran 2003 сумісних компіляторів. Такі застосування включають ALLOCATABLE масиви як компоненти похідних типів, в списках формальних параметрів процедур, а також як значення, що повертаються функцією. Ще одним важливим доповненням до Fortran 95 була технічна доповідь ISO TR-15580: з обробкою винятків роботи з плаваючою комою, неофіційно відомий як IEEE TR. В цій специфікації визначено підтримку IEEE арифметики з плаваючою комою. Fortran 95 також включає в себе два додаткових модулі для підтримки рядків змінної довжини (Varying character strings (ISO/IEC 1539-2 : 2000)) та умовної компіляції Conditional compilation (ISO/IEC 1539-3 : 1998).

Fortran 2003

Fortran 2003 є однією з основних ревізій котра впроваджує в мову багато нових можливостей. Всеохоплюючий огляд нових можливостей Fortran 2003 доступний на офіційному сайті робочої групи Фортран[2]. З цієї статті, основні поліпшення для цієї версії включають: поліпшення для для похідних типів- параметризовані похідні типи, покращений контроль доступності, поліпшення структури конструкторів та деструкторів; об'єктно-орієнтоване програмування - розширення типу і успадкування, поліморфізм, динамічне виділення пам'яті для типів та прив'язаних до типу процедур; покращення маніпуляцій з даними - динамічне виділення пам'яті для компонент, VOLATILE атрибут, явні специфікації типу в конструкторах масивів, удосконалення POINTER, розширені вирази для ініціалізації, і покращення вбудованих процедур; операції читання/запису - асинхронна передача, потоковий доступ, визначені користувачем операції для похідних типів, контроль за округленням в специфікації FORMAT, іменовані константи для відкритих файлових потоків, FLUSH інструкція, регуляризація ключових слів та доступ до повідомлень про помилки; POINTER для процедур; Підтримка IEEE із плаваючою комою і обробка винятків (включаючи TR 15580); Взаємодія з мовою програмування C; підтримка інтернаціоналізації: доступ до ISO 10646 4-байтових символів і вибір десяткової знаку чисел під час форматного читання/запису; розширена інтеграція з основною операційною системою - доступ до аргументів командного рядка, змінні оточення, та повідомлення про помилки процесора. Важливим доповненням до Fortran 2003 стала доповідь ISO TR-19767: про розширення модулів в Fortran. Ця доповідь впроваджує SUBMODULE. Це дозволяє специфікацію і реалізацію модулів, які будуть описані частинами в окремих блоках програми, що дозволяє покращити архітектуру великих бібліотек, полегшує публікацію інтерфейсів, а також запобігає каскадній компіляції.

Fortran 2008

Останній стандарт ISO / IEC 1539-1:2010, неофіційно відомий як Fortran 2008 був затверджений у вересні 2010 року [3]. Як і Fortran 95, це незначне оновлення, включає роз'яснення та поправки до Fortran 2003, а також вводить декілька нових можливостей. Нові можливості включають в себе: підмодулі - замінює ISO / IEC TR 19767:2005; Coarray Fortran - синтаксис для паралельних обчислень; DO CONCURRENT конструкцію для циклів без взаємозалежностей; атрибут CONTIGUOUS; BLOCK конструкцію; рекурсивні динамічні компоненти похідних типів. Остаточний проект міжнародного стандарту ( Final Draft international Standard - FDIS) наводиться в документі N1830 [4]. Важливим доповненням до Fortran 2008 є ISO Technical Specification (TS) 29113 по подальшій взаємодії в Fortran з мовою C [5][6], який був представлений в ISO в травні 2012 на затвердження. Специфікація додає підтримку доступу до дескриптора масиву з мови C і дозволяє не звертати уваги на тип і ранг аргументів.

Особливості та можливості сучасного фортрану

Можливості та переваги фортрану беруть своє походження з області застосування цієї мови (наука, бізнес логіка та високошвидкісні і паралельні обчислення). В загальному сучасний фортран:

  • добре підготовлений для складних математичних обчислень:
    • вбудована підтримка операцій з багатомірними масивами як ціле, так і з вибірками,
    • операції з комплексними числами та числами підвищеної точності
    • велика кількість вбудованих функцій з автоматичним вибором точності та типу(такі функції дуже добре оптимізуються)
    • індекси масивів можуть бути будь-які цілі числа (негативні також)
    • дуже добра підтримка операцій читання/запису (форматованого, асинхронного та ін)
    • спеціальний синтаксис для автоматичного розпаралелювання обчислень за допомогою coarrays
    • стандартна (найшвидша) передача змінних за посиланням (by reference) як параметрів в функціях та підпрограмах
    • краща (в загальному) оптимізація коду, що позитивно впливає на швидкодію програм та більш оптимізовані математичні обчислення
    • порядок математичних операцій визначено абсолютно точно і також контролюється дужками
    • нечутливість до регістру дозволяє уникати багів при неправильному записі "КоНстаНт" та "ЗміНниХ"
    • в фортрані всі слова мови є ключові, але не зарезервовані, що додає деякий додатковий простір вибору назв змінних
    • принцип "один оператор на рядок коду" в загальному додає стабільності програмам
  • дуже велика кількість наявного сумісного і перевіреного спеціалізованого коду:
    • загальні математичні бібліотеки як комерційні (NAG, MKL, IMSL) так і з публічними ліцензіями (всі в netlib.org, TOMS алгоритми, ATLAS, BLAS, LAPACK, ScaLAPACK, SLATEC та ін.)
    • спеціалізований код з усіх галузей науки та техніки
  • дуже низький рівень входження для початківців:
    • інтуїтивно простa в використанні, небагатослівнa, стандартизованa мова (граматика і синтаксис сучасного фортрану наближені до англійської мови та математичних формул)
    • багато загальних операцій організовано на вищому рівні, ніж це зроблено в C чи C++, і це дає можливість писати коротший і зрозуміліший код
    • рядки символів в сучасному фортрані це об'єкти першого класу і операції з рядками символів є надзвичайно простими і зрозумілими
    • операції введення/виведення простіші і організовані переважно як інструкції а не як процедури чи функції
    • використання модулів та інтерфейсів дозволяє кращу діагностику на етапі компіляції
    • менші потреби в використанні вказівників в коді на фортрані роблять код безпечнішим
    • дуже мало "винятків з правил" чи непередбачуваної поведінки компіляторів відповідно до стандарту
    • в середньому краща діагностика від компіляторів, тому початківець отримує більше підказок

Перші можливості об'єктно-орієнтованого програмування додали ще в Fortran 90 стандарт. Починаючи з стандарту Fortran 2003, він отримав повний набір можливостей що дозволяють класифікувати його як об'єктно-орієнтовану мову програмування:

Компілятори

Існує величезна кількість компіляторів мови фортран, однак в наступному списку подані тільки основні, широковідомі компілятори та такі що розвиваються:

Всі названі компілятори значно відрізняються між собою рівнем підтримки сучасних стандартів фортрану. Деякі з них зупинилися на Fortran 90, чи Fortran 95, а деякі завершують імплементацію нововведень останніх стандартів Fortran 2003/2008 (GNU gfortran, INTEL ifort, PGI pgfortran). Більшість з цих компіляторів є комерційними, однак GNU gfortran, g95 та Open64 випускаються під публічними відкритими ліцензіями.

Бібліотеки

Критика

Всю критику можна поділити на кілька видів

  • Критика пов'язана з незнанням сучасних стандартів фортрану
Дуже часто фортран критикують спеціалісти, котрі стикалися з ним кілька десятків років назад, тобто щонайбільше з стандартом Fortran 77. Їх уявлення про фортран зводиться до того, що це код у фіксованому форматі з скороченими (чи обрізаними) іменами змінних, з неявною типізацією, статичним виділенням пам'яті та надзвичайно перевантаженим використанням оператора GOTO. Незважаючи на те, що такий код дійсно підтримується майже всіма компіляторами, в сучасному фортрані він є архаїзмом і більше не використовується в нових проектах.
  • Критика та суперечки щодо того, яка мова програмування (точніше компілятор) дає більш оптимізований по швидкодії код
Внаслідок довготривалого розвитку компіляторів та орієнтації мови на чисельне математичне програмування дуже небагато мов чи точніше компіляторів можуть позмагатися в якості оптимізації з компіляторами фортрану. Тому дана дискусія зводиться переважно до суперечки: C чи Fortran - що швидше. Дехто звичайно додає що і C++ з використанням шаблонів та метапрограмування може змагатися у швидкодії з фортраном (однак вони забувають згадати про те багатоповерхове пекло повідомлень компілятора про помилку в коді що використовує шаблони). В загальному швидкодія Фортрану та коду на C повинна бути однакова, однак досить часто компілятору все-таки вдається краще оптимізувати програми на фортрані. Також код на фортрані в середньому компактніший порівняно з C.
  • Критика пов'язана з неправильною інтерпретацією області застосування
Оскільки фортран - це мова з достатньо вузькою нішею застосування, то це часто використовується критиками при порівнянні її з іншими мовами широкого профілю такими як C чи C++. Однак фортран не є мовою для системного чи низькорівневого програмування.
  • Критика (справедлива) про деякі недоліки мови Фортран та компіляторів
    • В фортрані насправді немає бібліотек з універсальними алгоритмами для роботи з складними структурами даних на кшалт STL чи Boost в C++
    • Існує все ще недостатня підтримка основними компіляторами останнього стандарту
    • Узагальнене програмування для похідних типів хоча і є в стандарті, але на практиці реалізація виявляється складною
    • Компілятори фортрану в загальному не є ABI-сумісними (англ. Application Binary Interface) тобто на рівні двійкового коду, а це ускладнює поширення готових бібліотек на фортрані
    • В фортрані немає звичного вбудованого механізму обробки винятків, як в інших мовах і тому неможливо реагувати програмно на виняткові ситуації. Існує підтримка винятків для IEEE арифметики з плаваючою комою та для READ і WRITE інструкцій.

Приклади

Наступна програма ілюструє динамічне виділення пам'яті та операції з масивами; необхідно відзначити відсутність явних циклів та математичні операції з масивами як ціле. Цей приклад обчислює середнє арифметичне з даних котрі вводяться інтерактивно 

  program average

  ! обчислення середнього арифметичного для заданих чисел
  ! якщо немає вводу, повертаємо нуль
  ! така поведінка вибрана для спрощення коду

  implicit none

  real, dimension(:), allocatable :: points
  integer                         :: number_of_points
  real                            :: average_points=0., positive_average=0., negative_average=0.

  write (*,*) "Input number of points to average:"
  read  (*,*) number_of_points

  allocate (points(number_of_points))

  write (*,*) "Enter the points to average:"
  read  (*,*) points

  ! Обчислити середнє
  if (number_of_points > 0) average_points = sum(points) / number_of_points

  ! Зараз середнє для додатніх чи від'ємних чисел
  if (count(points > 0.) > 0) then
     positive_average = sum(points, points > 0.) / count(points > 0.)
  end if

  if (count(points < 0.) > 0) then
     negative_average = sum(points, points < 0.) / count(points < 0.)
  end if

  deallocate (points)

  ! вивести результат в терміналі
  write (*,'(a,g12.4)') 'Average = ', average_points
  write (*,'(a,g12.4)') 'Average of positive points = ', positive_average
  write (*,'(a,g12.4)') 'Average of negative points = ', negative_average

  end program average


Гумор

Див. також

Примітки

  1. ↑ McCracken, Daniel D. (1965). Preface. A Guide to FORTRAN IV Programming. New York: Wiley. с. v. ISBN 0-471-58281-6.
  2. ↑ Fortran Working Group (WG5). Також можна завантажити як PDF file чи gzipped PostScript file, FTP.nag.co.uk
  3. ↑ N1836, Summary of Voting/Table of Replies on ISO/IEC FDIS 1539-1, Information technology - Programming languages - Fortran - Part 1: Base language ftp://ftp.nag.co.uk/sc22wg5/N1801-N1850/N1836.pdfPDF ( 101 KiB)
  4. ↑ N1830, Information technology — Programming languages — Fortran — Part 1: Base language ftp://ftp.nag.co.uk/sc22wg5/N1801-N1850/N1830.pdfPDF ( 7.9 MiB)
  5. ↑ ISO page to ISO/IEC DTS 29113, Further Interoperability of Fortran with C
  6. ↑ Draft of the Technical Specification (TS) 29113 ftp://ftp.nag.co.uk/sc22wg5/N1901-N1950/N1917.pdfPDF ( 312 kiB)

Література


Мова програмування Це незавершена стаття про мови програмування.
Ви можете допомогти проєкту, виправивши або дописавши її.
Отримано з https://uk.wikipedia.org/w/index.php?title=Фортран&oldid=10038035