Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
IF GO TO
program IF_GO_TO real :: Q, DP Q = 750 DP = 1500 WRITE(*,*)" Q : HP" WRITE(*,*)"" 20 HP = (DP*Q)/1714 WRITE(*,*) Q, HP Q = Q-150 IF (Q>=0) GOTO 20 END PROGRAM
run
|
edit
|
history
|
help
0
A_04 SHOOTING METHOD
Q5
Characteristics polynomial
finitos
A_04 TRAPEZOIDAL RULE (3(II))
recursive factorial
fortran-genetic-algo
evaluation
hello world
55