Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program PrimZahlen
- implicit none
- integer :: obereGrenze
- integer :: counter
- logical :: jawohl
- integer :: i,j, at
- real :: secnds,t0,t1
- integer, allocatable, dimension(:) :: prime
- print *, "Wie viele Zahlen sollen es denn berechnet werden ? "
- read (*,*) obereGrenze
- allocate(prime(obereGrenze))
- prime(1) = 2
- at = 2
- counter =1
- t0 = secnds(0.0)
- do
- jawohl = .true.
- do i = 1, counter
- if (modulo(at, prime(i)) == 0) then
- jawohl = .false.
- at = at + 1
- continue
- end if
- end do ! i
- counter = counter + 1
- prime(counter) = at
- !print *, at
- at = at + 1
- if (counter == obereGrenze) then
- exit
- endif
- end do
- t1 = secnds(t0)
- write(*,"(A20,1X,I8)") "Anzahl Primzahlen = ", counter
- write(*,"(A,1X,I10)") "Die groesste Primzahl = ", at - 1
- write (*,"(A,F12.9,A)") "Man hat ", t1, "s gebraucht"
- 99 format(I,A)
- print*, "Zum Schliessen beliebige Taste druecken ..."
- read(*,*)
- end program PrimZahlen
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement