سؤال تحدي

    • سؤال تحدي

      الموضوع متعلق بالفورترن وما أعتقد فيه فرق كبير بين الفورترن وال c أو ال c++ لذلك أرجو الإجابة على السؤال:
      السؤال

      when a beam is loaded at various points it has a tendency to vibrate. According to the vibration theory, a good estimation of the fundamental (lowest) frequency f at the beam vibrates is calculated by the following formulas:
      S1=F1V1+F2V2+F3V3+...+FnVn
      S2=F1(V1 square)+F2(V2 square)+F3(V3 square)+...+Fn(Vn square) and
      f=1/2(3.14)square386S1/S2
      Your program that reads the data stored in a disk file and calculates the frequency of vibration.All records in the file contain exactly two fields, F in 1b and deflection V.The file ends with an EOF(End Of File) record.The file that contain the data that your program will read from is:
      F V(inches
      0.00032 500
      0.00072 300
      0.00107 400
      0.00097 100
      0.000346 750


      The program prints the results as shown below:

      FUNDAMENTAL FREQUENCY OF S.S.BEAM
      ----------------------------------------------------------
      Force Number F(1b) V(inches
      one xxx y.yyy
      two xxx y.yyy
      - - -
      ----------------------------------------------------------
      FUNDAMENTAL FRQUENCY IS zzz.zz

    • شكله مشروع دراسي ... شد حيلك فيه والله يوفقك...

      تحياتي ..


      ¨°o.O ( على كف القدر نمشي ولا ندري عن المكتوب ) O.o°¨
      ---
      أتمنى لكم إقامة طيبة في الساحة العمانية
      وأدعوكم للإستفادة بمقالات متقدمة في مجال التقنية والأمن الإلكتروني
       رابط مباشر للمقالات هنا. ومن لديه الرغبة بتعلم البرمجة بلغات مختلفة أعرض لكم بعض
       المشاريع التي برمجتها مفتوحة المصدر ومجانا للجميع من هنا. تجدون أيضا بعض البرامج المجانية التي قمت بتطويرها بذات الموقع ..
       والكثير من أسرار التقنية في عالمي الثاني       Eagle Eye Digital Solutions

    • بعد ما تحفظ الفايل اللي عملته اللي راح يقرأ منه البرنامج في نفس المكان اللي راح تحفظ فيه البرنامج شغل البرنامج :

      Brainfuck كود المصدر

      1. program frequency
      2. implicit none
      3. integer::ios,&
      4. F,&
      5. Count,&
      6. Err
      7. Real::V,&
      8. S1,&
      9. S2,&
      10. Frequncy
      11. Print*,” “
      12. Print*,”fundamental frequency of s.s beam:”
      13. Print*,”------------------------------------------------: “
      14. Print*,”force number”,” “,”F(lb)”,” “,”V(inches)”
      15. Print*,”------------------------------------------------“
      16. Open(unit=1,file=”beam.txt”,status=”old”,action=”read”,iostat=ios)
      17. If (ios/=0) then
      18. Print*,”file cannot opened”
      19. Print*,”good bye”
      20. Stop
      21. End if
      22. Count=0
      23. S1=0
      24. S2=0
      25. Do
      26. Read (1,*,iostat=err)F,V
      27. If (err/=0)then
      28. Exit
      29. End if
      30. Count=count+1
      31. S1=s1+(F*V)
      32. S2=s2+(F*(V*V)
      33. Print*,” “,count,” “,F,” “,V
      34. End
      35. Frequncy=(1/(2*(3.14)))*sqrt(386*s1/s2)
      36. Print*,”-------------------------------------------“
      37. Print*,”fundamental frequency is”,frequncy
      38. End program frequency
      عرض الكل