A-M baby

2013-04-10 21:29:02 -07:00 · 2013-04-10 21:29:02 -07:00 · db842d013d
commit db842d013d
parent 764da6cbbb
19005 changed files with 197040 additions and 7 deletions
--- a/Task/Multiplication-tables/Fortran/multiplication-tables.f
+++ b/Task/Multiplication-tables/Fortran/multiplication-tables.f
@ -0,0 +1,19 @@
+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