Multiplication tables: Difference between revisions

added Fortran
(Forth)
(added Fortran)
Line 225:
loop ;
</lang>
 
=={{header|Fortran}}==
{{works with|Fortran|90 and later}}
<lang fortran>program multtable
implicit none
 
integer :: i, j, k
 
write(*, "(a)") " x| 1 2 3 4 5 6 7 8 9 10 11 12"
write(*, "(a)") "--+------------------------------------------------"
do i = 1, 12
write(*, "(i2, a)", advance="no") i, "|"
do k = 2, i
write(*, "(a4)", advance="no") ""
end do
do j = i, 12
write(*, "(i4)", advance="no") i*j
end do
write(*, *)
end do
 
end program multtable</lang>
 
=={{header|Haskell}}==
179

edits