您所在位置：主题：主啊！来救救我吧！这是已知两点坐标，求解和两点垂直的单位向量的程序
mingyangwei
[专家分：0] 发布于 2011-05-26 17:15:00
PROGRAM TEST01
IMPLICIT NONE
REAL :: XA, YA, XB, YB
REAL :: X,Y,M,A,B
PRINT*,'输入片段端点的横纵坐标值:'
READ(*, *) XA YA XB YB
X=XB-XA
Y=YB-YA
WRITE(*,*) X,Y
PRINT*,'输出与X,Y坐标相垂直的坐标向量'
M=SQRT(X**2+Y**2)
A=-Y/M
B=X/M
WRITE(*,*) A,B
END PROGRAM TEST01
Error: Syntax error, found IDENTIFIER 'YA' when expecting one of: ( * :: , <END-OF-STATEMENT> ; : ) + . - % (/ [ ] /) . ** / > ...
READ(*, *) XA YA XB YB
----------------^
Error executing df.exe.
IMPLICIT NONE
REAL :: XA, YA, XB, YB
REAL :: X,Y,M,A,B
PRINT*,'输入片段端点的横纵坐标值:'
READ(*, *) XA YA XB YB
X=XB-XA
Y=YB-YA
WRITE(*,*) X,Y
PRINT*,'输出与X,Y坐标相垂直的坐标向量'
M=SQRT(X**2+Y**2)
A=-Y/M
B=X/M
WRITE(*,*) A,B
END PROGRAM TEST01
Error: Syntax error, found IDENTIFIER 'YA' when expecting one of: ( * :: , <END-OF-STATEMENT> ; : ) + . - % (/ [ ] /) . ** / > ...
READ(*, *) XA YA XB YB
----------------^
Error executing df.exe.