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

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

Гость
#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