Loops/While: Difference between revisions
Content added Content deleted
No edit summary |
(added Fortran) |
||
Line 45: | Line 45: | ||
repeat drop ; |
repeat drop ; |
||
1024 halving |
1024 halving |
||
=={{header|Fortran}}== |
|||
{{works with|Fortran|90 and later}} |
|||
INTEGER :: i = 1024 |
|||
DO WHILE (i > 0) |
|||
WRITE(*,*) i |
|||
i = i / 2 |
|||
END DO |
|||
=={{header|Java}}== |
=={{header|Java}}== |