Знакомство с Fortran. Знакомство с оболочкой Compaq Development Studio. Операторы IF. Логические операции, страница 5

Отредактированный Файл 1100.for будет ВАШИМ шаблоном  для решения следующих задач.

Теперь следует проверить правильно ли Ваше решения выполняется под компилятором GNU Fortran77 – т.е. под сетевой тестирующей системой.

Нажмите по ссылке  Тестирующая система по ИНФОРМАТИКЕ для 1 курса ___(НОЦ)

( Эта же ссылка доступна при открытии  файла  T:\Informatika\onlinelink.htm )

Выберите  Lab_F1.   Далее – Выберите ссылку     «На_занятие».

Зарегистрируйтесь.

Своё имя для входа в тестирующую систему найдите в файле:  T:\Informatika\ список_ejude.txt  .   Пароль  получите у преподавателя, сообщив своё имя и фамилию. (Запишите это имя и пароль).

Отправьте на проверку задачу 1100.

Возможно при  проверке  программа 1100.for будет выдана  ошибка, т.к. Вы не выполнили полностью редактирование файла. Часто  имена входного и выходного файла заданы в программе Input.txt и Output.txt , что не верно, т.к. по условию задачи  эти имена должны быть input.txt и output.txt , а ОС-Linux тестирующего сервера различает регистр символов и input.txt и Input.txt для Linux’а - совершенно разные файлы.

Задание:   Решите задачу 1101

Указание:

скопируйте файл 1100.FOR  в файл 1101.FOR :

В TotalCommander’е , выберите файл 1100.FOR, нажмите F5, сразу наберите 1101.*  , OK  ;

отредактируйте файл 1101.FOR.

При редактировании пользуйтесь операциями Копирование (Ctrl-C) и Вставка (Ctrl-V) 

Обязательно поменяйте всё в заголовке и выводе программы. Иначе, потом всё равно придётся это сделать, но время будет потеряно.

Обратите внимание на оформление (структурированность) написания программы (см далее). Учитесь делать это сразу. Хорошие привычки надо заводить СРАЗУ.

Как правильно структурировать (набирать) текст программ.

Задача – показать структурные элементы алгоритма

=============================

5. Условный оператор  IF

Условное выполнение блоков операторов (IF THEN ELSE)

В языке Фортран, аналогично другим языкам программирования, имеется конструкция IF THEN ELSE условного выполнения блоков операторов. Простейший вариант такой конструкции имеет вид:

          IF(<выражение>) THEN

                <Операторы -- тело блока>

          END IF

Здесь <выражение> - логическое выражение, а <тело блока> - последовательность выполняемых операторов (возможно, ни одного). Конструкция работает следующим образом. Если выражение истинно, операторы тела блока выполняются. В противном случае они пропускаются, и выполняется оператор, стоящий сразу за "закрывающей скобкой" ENDIF.

В качестве выражения часто используется     «Выражения отношения»

Выражение отношения устанавливает отношение типа "больше", "равно", "меньше" результатов вычисления двух арифметических выражений.

Оно имеет вид:    Е1 <операция> Е2

где Е1 и Е2 - арифметические выражения, а <операция> - один из следующих знаков операции:

    Знак операции                   Значение операции

F90     F77

==     .EQ.      (equal to) равно

/=      .NE.      (not equal to) не равно

>       .GT.      (greater than) больше чем

>=      .GE.      (greater than or equal to) больше или равно

<       .LT.      (less than) меньше чем

<=      .LE.      (less than or equal to) меньше или равно

Выражение отношения имеет значение "истина", если результаты вычисления арифметических выражений Е1 и Е2 удовлетворяют значению операции.

Пример. Если значение I больше J   то,  переменные меняются значениями:

            IF( I .GT. J ) THEN

               TEMP = I

               I = J

               J = TEMP

            END IF