Math@Funny@Honey@Money

أسرة الموقع ترحب بك و نتمنى أن تكون بتمام الصحة و العافيه
Math@Funny@Honey@Money



    مفاجأة ... برامج الفورترن "حـصريــــا"

    شاطر

    Abdelrahman Taha
    مدرس جديد
    مدرس جديد

    ذكر
    عدد الرسائل : 9
    العمر : 29
    Location : Hadyeek El Kobba - Cairo - Egypt
    Job/hobbies : The Proied Of Applied
    Mood :
    تاريخ التسجيل : 07/04/2008

    مفاجأة ... برامج الفورترن "حـصريــــا"

    مُساهمة من طرف Abdelrahman Taha في الثلاثاء 29 أبريل 2008, 8:39 pm

    بسم الله الرحـمن الرحيم

    حرصا علي مصلــحة الآخــرين , وبناءا علي طلب الزملاء والأصحاب الجـدعــين ...
    قرر " العبد الفقير إلي الله " إهداء برامــــج الفورترن إليهم ,,, كل ما عليكم تعملوا Copy & Paste ... " عشان إمتحان المعمل يوم السبت"
    بس أستحلفكم بالله أن تفهموا هذه البرامــج علي قدر المستطاع ...
    ولكي لا أنسي فــضل الله عليا ... (وما توفيقي إلا بالله ) ..... أرسل شكر خــــاص جداجداجدا إلي الزميلة العزيزة الكريمة (أسماء محمود صابر )
    علي الجهد المبذول والصبر والعنـــــاء لإمـــدادي بكافة المعلومات اللازمــــة ,,, فشكر كل الشكر لـــــها .

    وإليكم البرامـــــــــج . ونسألكم الدعاء

    ******************************************************************************************

    I ) write a FORTRAN program that read four numbers and calculate the sum of first two numbers & the product of the second two numbers
    *****************************************************************************************

    write(*,*)'Insert the value of A,B,I,J'
    Read(*,*)A,b,I,j
    Sum=A +b
    Lprod=I*J
    write(*,*)A,B,I,J,sum,Lprod
    stop
    end

    -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------


    II)Write a program in the FORTRAN that read a, b, and c evaluates and prints the real roots of the equation ax2 bx c=0, and prints 0, if the roots is complex
    *****************************************************************************************

    write(*,*)'Insert the value of a,b,c'
    read(*,*)a,b,c
    d=b**2-4*a*c
    if(d.ge.0.0)then
    x1=(-b+ sqrt(d))/(2.0*a)
    x2=(-b-sqrt(d))/(2.0*a)
    else
    x1=0
    x2=0
    endif
    write(*,*)x1,x2
    stop
    end

    *****************************************************************************************

    III) - Re-write the above program using Arithematic If .....(H.W)oOO
    *****************************************************************************************


    write(*,*)'Please,Insert the value of a,b,c'
    read(*,*)a,b,c
    d=b**2-4*a*c
    If(d)3,1,1
    1 x1=0
    x2=0
    3 x1=(-b +sqrt(d))/(2.0*a)
    x2=(-b-sqrt(d))/(2.0*a)
    write(*,*)x1,x2
    stop
    end

    *****************************************************************************************

    IV ) Write a program in the FORTRAN that read and prints the number of its digits.

    *****************************************************************************************


    read(*,*)k
    i=0
    2 b=float(k)/10.0
    i=i 1
    m=int(b)
    if(m.eq.0.0)goto 1
    k=m
    goto 2
    1 write(*,*)'The number of Digits= ',I
    stop
    end

    *****************************************************************************************
    V ) Write a program in the FORTRAN that read a number and prints the SUM of its digits ...(H.W)OOOOWOO*****************************************************************************************

    . read(*,*)k
    i=0
    2 n=k-(k/10)*10
    i=i n
    k=k/10
    if(k.eq.0)goto 1
    goto 2
    1 write(*,*)'The Sum = ',i
    stop
    end
    *****************************************************************************************

    VI) - Write a program in the FORTRAN that read the two numbers A, B
    and calculate S =* A +rB.

    ****************************************************************************************

    write(*,*)'Input a,b'
    read(*,*)a,b
    s=0.0
    i=1
    2 s=s+a+float(i)*b
    if(i.eq.10)goto 1
    i=i+1
    goto 2
    1 write(*,*)a,b,s
    stop
    end
    *****************************************************************************************

    VII ) -أكتب برنامج بلغة الفوترن بحيث يقرأ x,n,a0,a1,.........,an ثم يحـسب قيمة كثيرة الحدود P مستخدما طريقة الضرب المتدخل مستخدما الصيغــــــة
    P=(.........(((an)x an-1)x an-2)x.......)x a0
    *****************************************************************************************

    dimension a(100)
    write(*,*)'please,insert the degree of polynomial& the value of x'
    read(*,*)n,x
    write(*,*)'Inter the coefficient'
    read(*,*)(A(i),i=1,n 1)
    p=a(n 1)
    do 4 j=n,1,-1
    4 p=p*x a(j)
    write(*,*)x,p
    stop
    end
    **************************************************************************

    لمزيــــــــــــــــــد من البرامــج أسأل ( أسماء ) ما حدش يسألني أنا ..... وشكرا

    Abdelrahman Taha

    Asmaa Mahmoud
    Site Administrator
    Site Administrator

    انثى
    عدد الرسائل : 982
    العمر : 29
    Location : egypt / Giza
    Job/hobbies : math teacher
    Skills/Courses : thinking
    Mood :
    الأوسمة :
    تاريخ التسجيل : 27/03/2008

    حبه برامج تانية

    مُساهمة من طرف Asmaa Mahmoud في الأربعاء 30 أبريل 2008, 12:40 am

    ربنا يخليك يا عبد الرحمن بس انا معملتش غير الواجب المفروض تجاه زملائي واصحابي ومش محتاجه شكر عليه يا عبدو
    والف شكر علي تقديرك ليا لو اني مستاهلش ده كله
    وليه دبستني في بقيت البرامج
    علي عموم حبه برامج تكملة عليك اهيه

    bisection method
    F(X)=EXP(X**2)
    FUNCTION F(X)
    READ(*,*)A,B
    IF(F(A)*F(B).LE.0.0)GO TO 1
    WRITE(*,*)'A and B ARE NO TSUITABLE'
    STOP
    1 WRITE(*,*)'INPUT MAX ERROR'
    READ(*,*)E
    4 IF(ABS(B-A).LT.E)GO TO 3
    C=(A+B)/2
    IF(F(A)*F(C).LT.E)GO TO 2
    A=C
    GO TO 4
    2 B=C
    GO TO 4
    3 WRITE(*,*)b
    STOP
    END

    ROMBERG INTEGRATIONC MAIN PROGRAM
    DIMENSION A(100)
    EXTERNAL FAY
    READ(*,*)A,B,M
    DO 1 I=1,M+1
    N=2**(I-1)
    CALL TRAP(FAY,A,B,N,T)
    1 A(I)=T
    DO 2 K=1,M
    DO 2 J=M+1,I+1,-1
    2 A(T)=(4.0**(I-1)*A(J)-A(J-1))/((4.0**(I-1))-1.0)
    WRITE(*,*)A(M+1)
    STOP
    END
    C SUBROUTINES FUNCTION
    FUNCTION FAY(X)
    FAY=X**3+SQRT(X)
    RETURN
    END
    C SUBPROGRAM
    SUBROUTINE TRAP(F,A,B,N,T)
    H=(B-A)/N
    T=0.0
    DO 1 I=1,N
    1 T=T+F(A+I*H)
    T=(T*2+F(A)+F(B))*(H/2.0)
    RETURN
    END


    DIVIDED DIFERENCE


    DIMENSION X(100),F(100)
    READ(*,*)N
    DO 1 I=1,N+1
    1 READ(*,*)X(I),F(I)
    DO 2 I=1,N
    DO 2 J=N+1,I+1,-1
    2 F(J)=(F(J)-F(J-1))/((X(J)-X(J-I))
    WRITE(*,*)'INSERT THE VALUE OF T'
    READ(*,*)T
    Z=F(1)
    C=1.0
    DO 3 I=2,N+1
    C=C*(I-X(I-1))
    3 Z=Z+C*F(I)
    WRITE(*,*)T,Z
    STOP
    END



    compimation program
    c main program
    write(*,*)'insert the value of n ,m '
    read(*,*)n,m
    c=float(ifact(n))/(ifact(m)*ifact(n-m))
    write(*,*)n,m,c
    stop
    end
    c subroutine function
    function ifact(k)
    ifact=1
    do 1 j=1,k
    1 ifact=ifact*j
    return
    end



    N-R method


    f(x)=x**2+3*x+2
    dF(x)=2*x+3
    E=0.000001
    write(*,*)'please insert the value of x0=x '
    read(*,*)x
    30 y=x-f(x)/df(x)
    if(abs(x-y).lt.E) goto 20
    x=y
    goto 30
    20 write(*,*)'the roots=',y
    stop
    end


    TRAPEZOIDAL


    F(X)=X**2
    READ(*,*)A,B,N
    H=(B-A)/N
    T=0.0
    DO 1 I=1,N-1
    1 T=T+2*F(A+T*H)
    T=(T+F(A)+F(B))*(H/2.0)
    WRITE(*,*)A,B,N,T
    STOP
    END


    SIMPSON'S METHOD
    F(X)=X**2
    READ(*,*)A,B,N
    IF(FLOAT(N/2).EQ.N/2.0) GOTO 1
    WRITE(*,*)'N MUST BE EVEN'
    STOP
    1 H=(B-A)/N
    S=0.0
    DO 2 I=1,N-1,2
    2 S=S+F(A+(I-1)*H)+4*F(A+(I*H))+F(A+(I+1)*H)
    S=S*H/3.0
    WRITE(*,*)H,S
    STOP
    END


    عدل سابقا من قبل Asmaa Mahmoud في الخميس 01 مايو 2008, 7:28 pm عدل 6 مرات (السبب : تدبيسة عبد الرحمن ليا)


    _________________
    ][/url]




    RANDA SAMY
    مدرس جديد
    مدرس جديد

    انثى
    عدد الرسائل : 2
    العمر : 30
    Location : cairo
    Job/hobbies : student
    Mood :
    تاريخ التسجيل : 28/04/2008

    رد: مفاجأة ... برامج الفورترن "حـصريــــا"

    مُساهمة من طرف RANDA SAMY في الخميس 01 مايو 2008, 11:12 am

    [b]جزاكم الله كل خير انتو الاتنين Laughing

    Mido125
    مدرس جديد
    مدرس جديد

    ذكر
    عدد الرسائل : 39
    العمر : 29
    Location : Cairo
    Job/hobbies : معلم إن شاء الله
    تاريخ التسجيل : 01/05/2008

    رد: مفاجأة ... برامج الفورترن "حـصريــــا"

    مُساهمة من طرف Mido125 في الخميس 01 مايو 2008, 1:13 pm

    حقيقى المنتدى فوق الوصف فى العمل الجماعى والمشترك بين زملاء دفعة واحده
    جزاكم الله خيرا على مجهوداتكم ومحبتكم لزملائكم وتقديركم لنا
    أتمنى من الله عز وجل أن يجزينا جميعا رضاه وحب نبيه الكريم عليه الصلاة والسلام
    اللهم أمين

    mustafa metawee
    مدرس جديد
    مدرس جديد

    ذكر
    عدد الرسائل : 26
    العمر : 29
    Location : betna
    Job/hobbies : 5oga
    Mood :
    تاريخ التسجيل : 21/04/2008

    رد: مفاجأة ... برامج الفورترن "حـصريــــا"

    مُساهمة من طرف mustafa metawee في الخميس 01 مايو 2008, 5:12 pm

    - ألف شكر يا جماعة بجد على الشغل الجامد ده
    بس اولا علامة الزائد مش موجودة عند برامج عبدو مش عارف هو نسيها ولا هى اللى مش بتظهر هنا
    تانى حاجة عايزين نعرف ايه نظام الامتحان يعنى انا لما هاعمل الحاجات دى على ديسك واقدمو خلاص كده ولا فى اسئلة هاتتسال ولا ايه انا لو اتسالت فى الكلام ده مش هانطق حرف
    وشكرا جدا جدا اوى خالص study Exclamation
    سلا باه اا داخل انام Sleep

    Asmaa Mahmoud
    Site Administrator
    Site Administrator

    انثى
    عدد الرسائل : 982
    العمر : 29
    Location : egypt / Giza
    Job/hobbies : math teacher
    Skills/Courses : thinking
    Mood :
    الأوسمة :
    تاريخ التسجيل : 27/03/2008

    رد: مفاجأة ... برامج الفورترن "حـصريــــا"

    مُساهمة من طرف Asmaa Mahmoud في الخميس 01 مايو 2008, 6:05 pm

    يا مصطفي انا عدلت في موضوع عبدو وحطيت + معرفش العيب كان منين بس انا حطيته
    يا مصطفي الامتحان هيجي يسالك في البرامج اللي انت عملتها ويسالك مثلا ليه هنا عملت امر
    GOTO ,WRITE , READ
    WHAT THE MEAN OF {READ(*,*)}
    ايه معني *و*
    معناها
    FREE FORMAT
    يعني هدخل بياناتي من
    KEYBOARD
    BUT
    IF WE WRITE {READ(N,M)}
    THE MEAN OF N ,M
    اني الربنامج هيالخذ بياناته من ملف فورتران
    هياخذ من السطر N الي في الملفM
    ونفس الكلام ده بيطبق علي امر WRITE(*,*)
    واسئله كتير علي مفهوم الاوامر وربنا يوفق الكل ان شاء الله
    ربنا يجزينا الخير كلنا يارندا الداعي و المدعو له وشكرا لردك علي الموضوع
    الف شكر Mido125
    ويارب دايما يكون المنتدي عند حسن ظنكم
    وربنا يجزيك كل خير باذن الله
    ويارب يكون الكل استفاد بالموضوع


    _________________
    ][/url]




    Asmaa Mahmoud
    Site Administrator
    Site Administrator

    انثى
    عدد الرسائل : 982
    العمر : 29
    Location : egypt / Giza
    Job/hobbies : math teacher
    Skills/Courses : thinking
    Mood :
    الأوسمة :
    تاريخ التسجيل : 27/03/2008

    رد: مفاجأة ... برامج الفورترن "حـصريــــا"

    مُساهمة من طرف Asmaa Mahmoud في الخميس 01 مايو 2008, 7:42 pm

    البرامج علشان الي مش عارفين ينقلوها من علي صفحه النت علشان اخطاء اللغه علي صفحه النت
    حمل ملفات الفورتران في ثانيه
    يلا حمل بقي
    اي خدمة
    يلا بقي انت هدوس بس علي اسم الملف و تدخل علي الموقع وتحمله وتحفظه عندك علي سي دي
    يلا نبدأ

    bisection.f
    compination.f
    DIVIDED DIFFERENCE.f
    NO OF DIGITS.f
    polynomials.f
    ROMBERG INTEGRATION.f
    polynomials.f
    sum+product.f
    the roots of eq of degree 2 by using block if.f
    the roots of eq of degree 2.f
    الواجب بقي يا جماعة
    يلا حملوة كمان
    يلا بقي انشالله حد ماحوش


    bisection.f

    N-R method.f
    sum of digits no.f
    the roots of eq of degree 2 by using block if.f



    _________________
    ][/url]




    mustafa metawee
    مدرس جديد
    مدرس جديد

    ذكر
    عدد الرسائل : 26
    العمر : 29
    Location : betna
    Job/hobbies : 5oga
    Mood :
    تاريخ التسجيل : 21/04/2008

    رد: مفاجأة ... برامج الفورترن "حـصريــــا"

    مُساهمة من طرف mustafa metawee في الخميس 01 مايو 2008, 9:21 pm

    ألف ألف شكر يا أستاذة سومة

    sara
    مدرس جديد
    مدرس جديد

    انثى
    عدد الرسائل : 1
    العمر : 29
    Location : nacer city egypt
    Job/hobbies : math teacher
    Mood :
    تاريخ التسجيل : 02/05/2008

    رد: مفاجأة ... برامج الفورترن "حـصريــــا"

    مُساهمة من طرف sara في السبت 03 مايو 2008, 12:22 am

    Sad انا عايزه اعرف اللى مش معاه سى دى يعمل ايه انا ؟

    the specialist
    مدرس نشيط
    مدرس نشيط

    ذكر
    عدد الرسائل : 50
    العمر : 30
    Location : egypt
    Job/hobbies : math teacher
    تاريخ التسجيل : 11/04/2008

    رد: مفاجأة ... برامج الفورترن "حـصريــــا"

    مُساهمة من طرف the specialist في الثلاثاء 06 مايو 2008, 4:00 pm

    thx soma yarab ye5alleke lena we tekammele ba2eet el wageb

    Asmaa Mahmoud
    Site Administrator
    Site Administrator

    انثى
    عدد الرسائل : 982
    العمر : 29
    Location : egypt / Giza
    Job/hobbies : math teacher
    Skills/Courses : thinking
    Mood :
    الأوسمة :
    تاريخ التسجيل : 27/03/2008

    رد: مفاجأة ... برامج الفورترن "حـصريــــا"

    مُساهمة من طرف Asmaa Mahmoud في الثلاثاء 06 مايو 2008, 5:04 pm

    حاضر يا ثروت عينيا


    _________________
    ][/url]




    هبه الله
    مدرس جديد
    مدرس جديد

    انثى
    عدد الرسائل : 1
    العمر : 29
    Location : mathfunny.activebb.net
    Job/hobbies : مدرسه مستقبل
    Mood :
    تاريخ التسجيل : 17/05/2008

    سؤال وياريت الرد بسرررررررعه

    مُساهمة من طرف هبه الله في السبت 17 مايو 2008, 1:26 am

    سؤال وياريت الرد بسرررررررعه
    البرامج الى مش )h.w) الدكتور هو الى حاللها بنفسه
    وبالاخص برنامج)n-r)

    Asmaa Mahmoud
    Site Administrator
    Site Administrator

    انثى
    عدد الرسائل : 982
    العمر : 29
    Location : egypt / Giza
    Job/hobbies : math teacher
    Skills/Courses : thinking
    Mood :
    الأوسمة :
    تاريخ التسجيل : 27/03/2008

    رد: مفاجأة ... برامج الفورترن "حـصريــــا"

    مُساهمة من طرف Asmaa Mahmoud في السبت 17 مايو 2008, 4:20 pm

    لا برنامج n-r كان واجب واحنا حليناه بس علي فكرة الحل صح
    واي برنامج محطوط هنا احنا متاكدين منه ان صح ان شاء الله


    _________________
    ][/url]




      الوقت/التاريخ الآن هو الأربعاء 07 ديسمبر 2016, 4:23 pm