Enf 102 Temel Bilgisayar Bilimleri Ve Fortran Programlama Dili problem seti-2




Yüklə 19.43 Kb.
tarix28.02.2016
ölçüsü19.43 Kb.

powerpluswatermarkobject3


ENF 102 Temel Bilgisayar Bilimleri Ve Fortran Programlama Dili
PROBLEM SETİ-2


  1. I

    1. IF (K + I .GT. I*J) THEN

    Blok-1

    ELSE IF (J * I .LT. 10) THEN

    Blok-2

    ELSE IF (I + J .NE. 7) THEN



    Blok-3

    ELSE


    Blok-4

    END IF


    =2, J=5 ve K=6 değerini aldığında aşağıdaki IF deyimleri sonucunda hangi bloğun işleneceğini bulunuz.




  1. IF (I .LT. J / 2) THEN

Blok-1

END IF


Blok-2


  1. IF (J / 2 .EQ. J / 2*2) THEN

Blok-1

END IF


  1. A

    1. IF (I .EQ. J) THEN

    I = J + 3

    ELSE IF (.NOT. K .LT. J) THEN

    IF (I – J .NE. K) THEN

    I = I – J + K

    ELSE

    I = 10


    END IF

    END IF



    1. IF (I – 1) 10, 20, 30

    1. I = K + 5

    1. I = K + 2

    30 I = K + 1
    şağıdaki program parçalarının sonuçlarını I=4, J=3 ve K=2 olduğunu varsayarak bulunuz.

  1. IF (K – J / 2 .GT. K / 2) THEN

K = K + 3

ELSE


K = K – 1

END IF



  1. IF ( .NOT.( I. .LT. K) )THEN

I = K

ELSE IF (20 .NE. 25) THEN

I = I + K

ELSE


I = 25

END IF


  1. İstenildiği kadar (N adet) tam sayı giren ve bu sayılar içinde sadece pozitif olanların ortalamasını alan bir fortran bilgisayar programının blok diyagramını oluşturunuz ve bu programı kodlayınız.


  1. İkinci dereceden iki bilinmeyenli bir (quadratik denklemin) köklerini bulan programın blok diyagramını oluşturunuz ve bu programı blok if deyimi kullanarak kodlayınız.



  1. Aşağıda verilen IF yapılarını DO ile yeniden yazınız.


  1. I = 10

J = 2

10 IF (I .GT. 5) THEN

15 IF (J .LT. 5) THEN

K = I + J

PRINT*, K

J = J + 1

GO TO 15

END IF


I = I – 1

GO TO 10


END IF




  1. I = 0

J = 0

10 IF (I .LE. 5) THEN

15 IF (J .LT. 10) THEN

PRINT*, J

J = J + 2

GO TO 15


END IF

I = I + 1

PRINT*, I

GO TO 10


END IF



  1. Aşağıdaki döngü yapıları işlendiğinde elde edilecek çıktı değerlerini bulunuz.




  1. I
    b) IS = 5

    5 IF (IS .GT. 0) THEN

    IS = IS – 1

    PRINT *, IS

    GO TO 5

    END IF



    S = 0

5 IF (IS .LE. 10) THEN

IS = IS + 2

PRINT *, IS

GO TO 5


END IF


  1. Aşağıda verilen program parçasının çıktıda vereceği değerleri tablo oluştururarak bulunuz.

I = 2


J = 4

K = 0


10 IF (K .NE. 5) THEN

I = I + 1

IF (I .EQ. 4) THEN

K = K + 1

ELSE

15 IF (J .NE. 6) THEN



K = K + (I + J) / 2

PRINT *, K

J = J + 1

GO TO 15


END IF

J = J – 1

PRINT *, K

GO TO 10


END IF


  1. A = 5.25, I = 2, X = -2.3 değerlerini alıyorsa aşağıdaki format yapısına göre çıktı değerini çizgili olan kısımda yazınız.

WRITE (* , 10) A, I, X

10 FORMAT (1X, ‘ A=’, F5.2, ‘I=’, I2, ‘X=’, F4.1)

Çıktı Değeri

_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _


  1. Bir kütükten aşağıdaki değerleri programdaki okuma formatına göre okuyup yine program devamındaki yazma formatına göre elde edilecek çıktı değerini çizgili kısımda doldurunuz.


Girdi Değerleri

1 2 3 4 5 6 7 8 9 0 1 2



- - - - - - - - - - - -
5 FORMAT (F3.1,2X, I3)

READ (* , 5) I , J

20 FORMAT (1X, ‘************’, F3.1,4X, I3)

WRITE (* , 20)


Çıktı Değerleri

_ _ _ _ _ _ _ _ _ _ _ _ _





Verilənlər bazası müəlliflik hüququ ilə müdafiə olunur ©azrefs.org 2016
rəhbərliyinə müraciət

    Ana səhifə