Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
SIUM(3.7)
PROGRAM SIUM1 IMPLICIT NONE INTEGER::X=3,Y=4,F IF(X>=0 .AND. Y>=0)THEN F=X+Y WRITE(*,20)F 20 FORMAT('F(X,Y) IS =',1I6.2) ELSEIF(X>=0 .AND. Y<0)THEN F=X+Y**2 WRITE(*,21)F 21 FORMAT('F(X,Y) IS =',1I6.2) ELSEIF(X<0 .AND. Y>=0)THEN F=X**2+Y WRITE(*,22)F 22 FORMAT('F(X,Y) IS =',1I6.2) ELSE F=X**2+Y**2 WRITE(*,23)F 23 FORMAT('F(X,Y) IS =',1I6.2) END IF END PROGRAM
run
|
edit
|
history
|
help
0
Fibonacci 500
A_02 THE GUASS SEIDEL METHOD
A_01 FIXED_POINT_IM(I)
Practice 2(I)
Practice 3
Check identity matrix or not?
A_01 QN:1(I)
LU gauss
Y
Find HM