(6) More Loops & Arrays (Sina)

(6) More Loops & Arrays (Sina) - Loops and Arrays Sina...

Info iconThis preview shows pages 1–12. Sign up to view the full content.

View Full Document Right Arrow Icon
Loops and Arrays Sina Meraji Fall 2009
Background image of page 1

Info iconThis preview has intentionally blurred sections. Sign up to view the full version.

View Full DocumentRight Arrow Icon
Review Definite loop example ± Checking for a premier number ± A prime number is a positive integer bigger than one that is divisible only by itself and 1 ± One way to check if a number x is prime is to try dividing x by every number less than x and seeing if any have 0 remainder
Background image of page 2
! Verify if the input is a prime number PROGRAM IsPrime IMPLICIT NONE INTEGER :: X, count, num_factors = 0 WRITE (*,*) Enter your number please : READ (*,*) X DO count = 2, X-1, 1 IF (MOD(X,count) == 0)THEN ! is count a factor of X? num_factors = num_factors + 1 END IF END DO IF (num_factors == 0) THEN WRITE (*,*) X, is prime ELSE WRITE (*,*) X, is not prime END IF END PROGRAM IsPrime
Background image of page 3

Info iconThis preview has intentionally blurred sections. Sign up to view the full version.

View Full DocumentRight Arrow Icon
Review Indefinite loop example ! Indefinite loop PROGRAM NoTermination IMPLICIT NONE INTEGER :: I = 0 DO IF (I > 0) EXIT END DO END PROGRAM NoTermination
Background image of page 4
This session ± More on loops ± Introduction to Arrays
Background image of page 5

Info iconThis preview has intentionally blurred sections. Sign up to view the full version.

View Full DocumentRight Arrow Icon
DO WHILE DO WHILE (Logical expression) statement block END DO
Background image of page 6
Example ! Simple do while loop PROGRAM PrintNumber IMPLICIT NONE INTEGER :: I = 0 DO WHILE (I < 10) WRITE(*,*) I = , I I = I + 1 END DO END PROGRAM PrintNumbers
Background image of page 7

Info iconThis preview has intentionally blurred sections. Sign up to view the full version.

View Full DocumentRight Arrow Icon
Let’s code something serious …
Background image of page 8
Fibonacci Numbers 0, 1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 89, 144, 233, … F n = 0i f n = 0 1i f n = 1 F n-1 + F n-2 if n > 1
Background image of page 9

Info iconThis preview has intentionally blurred sections. Sign up to view the full version.

View Full DocumentRight Arrow Icon
Find a pattern 1 = 1 + 0 3 rd = 2 nd + 1 st 2 = 1 + 1 4 th = 3 rd + 2 nd 3 = 2 + 1 5 th = 4 th + 3 rd 5 = 3 + 2 6 th = 5 th + 4 th …. N th = (N-1) th + (N-2) th The current integer is the sum of the previous two integers : start a = 0, b = 1 Counter = 3, input N Counter > N C = a+b Output c a = b, b = c end No Yes Increment the Counter
Background image of page 10
! Returns the first N Fibonacci numbers PROGRAM
Background image of page 11

Info iconThis preview has intentionally blurred sections. Sign up to view the full version.

View Full DocumentRight Arrow Icon
Image of page 12
This is the end of the preview. Sign up to access the rest of the document.

Page1 / 27

(6) More Loops &amp; Arrays (Sina) - Loops and Arrays Sina...

This preview shows document pages 1 - 12. Sign up to view the full document.

View Full Document Right Arrow Icon
Ask a homework question - tutors are online