• Paranoid - курс по анонимности и безопасности в сети от команды codeby. Защита персональных данных, анонимность в сети интернет, настройка виртуальных машин, безопасная передача данных, анти форензика и еще много всего полезного. Подробнее ...

  • Мобильный клиент нашего форума для Android гаджетов доступен в Google Play Market по этой ссылке. Клиент можно скачать с нашего форума по этой ссылке. Последняя версия МК в нашем телеграм канале вот здесь

Решение Выражений В Fortran

  • Автор темы Guest
  • Дата начала
G

Guest

#1
исходные данные: X=(23+SIN(A)*COS(D)+567*LOG10(С)+N**2+LOG10(78)+ACOS(С))/(SQRT(ATAN(A)+5+N*TAN(A)+C**4))
D - целая часть от А/В, С - дробная часть от В/А, N - случайное число от 0 до В.

на данный момент я написал этот текст, но он не идет. в чем проблема? или где ошибка?

PROGRAM LAB_2
READ *,A,B,N
PRINT *,'ЛАБОРАТОРНАЯ РАБОТА №2'
PRINT *,'ВЫПОЛНИЛ:СТУДЕНТ ЭЭ-21-11, СИЛАНОВ'
PRINT *,'ЗАДАНИЕ: РЕШЕНИЕ ВЫРАЖЕНИЯ С ПОМОЩЬЯ ФОРТРАН'
PRINT *,'ВЕДЕНИЕ ЧИСЛА A'
READ A
PRINT *,'ВЕДЕНИЕ ЧИСЛА B'
READ B
D=INTEGER(A/:)
C=REAL( B )/REAL(A)-INTEGER(B/A)
X=(23+SIN(A)*COS(D)+567*LOG10(С)+N**2+LOG10(78)+ACOS(С))/(SQRT(ATAN(A)+5+N*TAN(A)+C**4))
PRINT *,'X=
PRINT *,'КОНЕЦ РАБОТЫ'
END