شباب تكفون مساعدة ف الفورتران ,,:,

الموضوع في 'علوم الحاسب الآلي' بواسطة Euler, بتاريخ ‏17 ديسمبر 2010.

  1. Euler

    Euler عضو

    انضم:
    ‏10 سبتمبر 2009
    المشاركات:
    1,480
    التخصص:
    Electrical Engineer
    الجامعة:
    KFUPM
    سنة التخرج:
    2015
    نقاط الجائزة:
    0
    الوظيفة:
    not yet
    الإقامة:
    Jedd_Dhah
    التقييمات:
    +18 / 0 / -0
    لاهنتو شبااااااب مساعدة ف ال ICS101 ,,,

    fortran 77 - while loop

    Exercise 1

    A small ball is dropped from a height of 200 centimeters. Given that each time the ball bounces it reaches 0.75 of its previous height. Write a program which will count the number of bounces before the height of the ball is less than 0.1 centimeter.

    Your output should be:

    NUMBER OF BOUNCES = 27


    Exercise 2

    The rate of drilling a well is 20 meters per hour for the first hour. For each subsequent hour the depth drilled is 8 % less than in the previous hour. Write a program to tabulate the depth drilled and the depth reached at the end of each
    hour as long as the depth drilled in a particular hour is greater than 9 meters. The output of your program should be:

    HOUR DEPTH DRILLED DEPTH REACHED
    1 20.000000 20.000000
    2 18.400000 38.400000
    3 16.928000 55.328000
    4 15.573760 70.901760
    5 14.327860 85.229620
    6 13.181630 98.411250
    7 12.127100 110.538400
    8 11.156930 121.695300
    9 10.264380 131.959700
    10 9.443228 141.402900

    حاولت فيهم بس نو ريزولت ,,! :/:
     
  2. الأدميرال

    انضم:
    ‏9 أكتوبر 2008
    المشاركات:
    1,274
    التخصص:
    CHE
    الجامعة:
    KFUPM
    سنة التخرج:
    2014
    نقاط الجائزة:
    0
    التقييمات:
    +16 / 0 / -0
    شوف جرب هذا للأول إن شاء الله صح
    real h
    integer nb
    h=200
    nb=0
    do while(h.ge.0.1) n
    nb=nb+1
    h=h*0.75
    enddo
    print*,'number of bounces =',nb
    end
     
  3. الأدميرال

    انضم:
    ‏9 أكتوبر 2008
    المشاركات:
    1,274
    التخصص:
    CHE
    الجامعة:
    KFUPM
    سنة التخرج:
    2014
    نقاط الجائزة:
    0
    التقييمات:
    +16 / 0 / -0
    نحاول في الثاني .....
     
  4. الأدميرال

    انضم:
    ‏9 أكتوبر 2008
    المشاركات:
    1,274
    التخصص:
    CHE
    الجامعة:
    KFUPM
    سنة التخرج:
    2014
    نقاط الجائزة:
    0
    التقييمات:
    +16 / 0 / -0
    REAL DR,DD
    INTEGER H
    DD= 20
    DR=20
    H=1
    PRINT*,' HOUR DEPTH DRILLID DEPTH REACHED' h
    DO WHILE(DD.GE.9.0) h
    PRINT*, H , DD , DR
    DD=DD-(0.08*DD) b
    H=H+1
    D R= DD+DR
    ENDDO
    END
    ما أدري أنت تبغى output من اليمين ومن اليسار . أنا سويتها من اليسار بحكم الانجليزية , وإذا أردت التغيير ماعليك إلا تعكسهم في البرنامج نفسه.
    إذا أردت أن تزبطها بعد المسافات علشان تنشلف وتنفهم

    PRINT*,' HOURdddddd DEPTH DRILLIDddddddd DEPTH REACHED' h
    :ابتسامة:
     
جاري تحميل الصفحة...
مواضيع شبيهة - شباب تكفون مساعدة الفورتران
  1. ابو عبدالاله
    الردود:
    2
    المشاهدات:
    541
  2. Euler
    الردود:
    3
    المشاهدات:
    955
  3. ارميا
    الردود:
    0
    المشاهدات:
    1,485
  4. Nawall
    الردود:
    11
    المشاهدات:
    1,310
  5. lux
    الردود:
    5
    المشاهدات:
    3,063
  6. Hamd00ni
    الردود:
    8
    المشاهدات:
    795
  7. تدارك خطاك
    الردود:
    4
    المشاهدات:
    663
  8. خالد الشمري 000
    الردود:
    9
    المشاهدات:
    1,012
  9. خالد الشمري 000
    الردود:
    2
    المشاهدات:
    758
  10. خالد الشمري 000
    الردود:
    1
    المشاهدات:
    1,105

مشاركة هذه الصفحة