Pascalsches Dreieck
Programm zur Berechnung der ersten n Zeilen des Pascalschen Dreiecks.
program Pascal
use kinds
implicit none
integer, dimension(:), allocatable :: a
integer :: i, j, n
integer :: status
write (*,*) 'Berechnung eines Pascalschen Dreiecks.'
write (*,*)
write (*,*) 'Bis zur wievielten Zeile soll das Dreieck berechnet werden?'
read (*,*) n
allocate(a(n), stat=status)
if (status /= 0) then
write (*,*) 'Das ist mir zu hoch...:-)'
stop
end if
do i=1, n
a(i) = 1
do j=i-1, 2, -1
a(j) = a(j) + a(j-1)
end do
do j=1, i
write (*, '(I4,A)', advance='no') a(j), ' '
end do
write (*,*)
end do
deallocate(a)
stop
end program Pascal
