Revision: 67730
Initial Code
Initial URL
Initial Description
Initial Title
Initial Tags
Initial Language
at October 22, 2014 18:02 by chema_ar
Initial Code
program divisor_pattern integer :: n = 10; integer :: i = 1; integer :: j = 1; do while (i<=n) j = 1; do while (j<=n) if (mod(i,j)==0 .OR. mod(j,i)==0) then write(*,"(A)",advance="no") " *" else write(*,"(A)",advance="no") " " end if j = j + 1; end do print *,"" i = i + 1; end do read *, end program divisor_pattern
Initial URL
Initial Description
This is a piece of code to print out a divisor pattern given a number n. It is a basic exercise of programming. It should be improved protecting the code.
Initial Title
Divisor pattern
Initial Tags
Initial Language
Fortran