
- •1. Константы
- •2. Типы констант
- •3. Переменные
- •4. Типы переменных
- •5. Операторы описания
- •6. Арифметические операции
- •7. Расположение текста программы на экране дисплея
- •4 Write (*,*) ’ Введите значения сторон треугольника a, b, c ’
- •8. Технология прохождения фортран – программ на эвм
- •9. Арифметический оператор if
- •Оператор, следующий после if арифметического должен иметь метку;
- •If арифметический не может быть последним оператором в цикле do.
- •4 Write (*,*) ’ Введите значения сторон треугольника a, b, c ’
- •8 Write (*,*) ’ Площадь треугольника равна нулю ’
- •9 Write (*,*) ’ Такой треугольник не существует ’
- •10. If логический
- •11. Табулирование функции
- •12. Оператор цикла do
- •3 Write(6,*)’Введите переменные a,b,c’
- •13. Массивы
- •Работа с массивами
- •14. Ввод массивов
- •15. Вывод массивов
- •16. Конструкция if then–else – end if
- •17. Оператор data
- •По очерёдности следования;
- •По типу данных;
- •Количество переменных не должно превышать количество констант
- •19. Ввод двумерного массива
- •20. Оператор format
- •20.1. Спецификация X
- •20.2. Спецификация I
- •20.3 Разделители
- •20.4. Формат f
- •20.5 Использование повторителей в операторе format
- •20.6 Вывод по спецификации Fw.D
- •20.8. Вывод информации по спецификации Еw.D
- •20.8 Ввод и вывод информации по спецификации Gw.D
- •Подпрограммы
- •21. Оператор-функция
- •22. Подпрограмма-функция (function)
- •23. Подпрограмма subroutine.
- •24. Способы передачи данных в подпрограмму.
- •If (логическое выражение 1) return 1
- •If (логическое выражение 2) return 2
- •25. Передача данных посредством оператора common
7. Расположение текста программы на экране дисплея
В языке FORTRAN имеются определённые правила, которых следует придерживаться при наборе программы на компьютере.
Правила набора текста программ:
В одной строке на экране дисплея можно разместить 80 символов. Текст программы записывается с 7 позиции и по 72.
1 2 3 4 5 |6| 7………………………………………72|73
Текст, расположенный после 72 позиции, на экране будет виден, но транслятором восприниматься не будет.
1-5 позиции – располагаются метки операторов.
6 позиция – для размещения символа продолжения строки. Если в 6-ой позиции строки размещаются символы отличные от “пробела ” то эта строка является продолжением предыдущей . При этом в предыдущей строке никаких знаков переноса не ставится. Для указания строки продолжения чаще всего используется символ “*”. Всего может быть 19 строк продолжения.
Если в 1-й позиции строки размещается латинская буква C или символ “*” или “!”, то это строка комментариев. Она служит для внесения поясняющего текста в программу.
В качестве поясняющего текста может быть любая информация - она транслятором не воспринимается, а служит для читаемости программы при последующих просмотрах её текста. Все операторы в программе выполняются поочередно сверху вниз. Для изменения очередности применяются операторы управления.
Цифры, внесённые с 1 по 5 позицию, являются метками оператора.
Метка оператора – это число, содержащее до 5 символов, которые обозначают условный номер оператора. Метки ставят не на все операторы, а только на те, на которые будут ссылки в программе. Назначение меток: метки дают возможность обращаться к нужной строке программы из любого места этой программы.
Правило:
В одной программе не может быть две одинаковых метки.
Номера меток ставятся в произвольном порядке.
Обязательно должны быть метки после операторов GOTO и IF арифметического.
Задача:
Составить программу для вычисления площади треугольника по формуле Герона
, где
В качестве исходных данных служат значения сторон треугольника a, b, c которые при выполнении программы нужно будет ввести с экрана дисплея как три вещественных числа. При вводе данные отделяются друг от друга запятыми или символами пробел.
В процессе работы программы необходимо вычислить значение площади S и вывести это значение на экран.
При составлении и наборе программы следует не забывать про все правила языка FORTRAN, описанные выше.
C Программа № 1 – Вычисление площади треугольника
4 Write (*,*) ’ Введите значения сторон треугольника a, b, c ’
Оператор WRITE служит для вывода информации. В данном случае на экран дисплея (т.к. стоит цифра 6). Символ * означает, что вывод бесформатный (упрощённый)
При выполнении этого оператора на экране дисплея появится приглашение ко вводу информации: ‘Введите значения сторон треугольника A,B,C’ (желательно все программы снабжать такой строкой).
READ(*,*) A, B, C
READ служит для ввода информации. A,B,C – список имен переменных которые необходимо ввести. 5 – канал экрана дисплея. Символ “*” – бесформатный упрощенный вывод (ввод).
Данная строка расшифровывается так: ввести с экрана дисплея числовые данные для переменных A,B,C.
P=(A+B+C)/2.
Сложить значения переменных, хранящихся в переменных А, В,С, разделить на 2 и результат записать в переменную Р.
S=SQRT (P*(P-A)*(P-B)*(P-C))
Вычисляется значение переменной S.
WRITE (*,*) ’ Площадь треугольника со стороми ‘, A, B, C, ’ равна ’, S
Выводится информация, находящаяся в списке вывода за скобками оператора WRITE. На экране появися текст Площадь треугольника со стороми, затем численные значения переменных А,В,С, затем текст равна и численное значение переменной S.
GO TO 4
Этот оператор осуществляет переход на метку 4 в начале программы. Таким образом зацикливается ввод новых исходных данных и расчет площади другого треугольника.
6 STOP
END
Операторы STOP и END осуществляют стандартное завершение программы. Поскольку оператор STOP расположен после GO TO, то он должен иметь метку (хотя в программе на меку 6 и нет ссылки).