تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
طلبين , صغار ,
#1
السلام عليكم اخواني ,
---------------------------------------------------
و الله يا اخواني احتاج ان اعمل برنامج لعمل
sin tan Cos و العكس يعني الدخل ال جا(جيب) يطلع لي الزاوية
لكن للأسف يطلع معي كل شئ خطاء ,
فمثلاً استعملت ال ,
Math.sin
Math.cos
Math.tan
وو ايضا ضرب الناتج با "باي" (PI)
3.14/180
و الأسف الرقم ما يطلع صحيح يطلع قرريب من الصحيح ,
---------------------------------------------------
الطلب الثاني و هو الأهم ,
عمل برنامج يرتيب تصاعدي و تنازلي
يعني المستخدم يعطيه مثلاُ 12,33,15,20,54,39,40
و يعطي هذه الأجابتني وحدة تصاعدي و الثاني تنازلي
12,15,20,33,39,40,54
54,40,39,33,20,15,12

وشكراً يا اخوي
الرد }}}}
تم الشكر بواسطة:
#2
من ناحية المشكلة الأولى أنا لم استخدم قط في البرمجة المعادلات sin و cos و tan يعني ما أقدر أفيدك فيها
ولاكن عندي ملاحظة بسيطة هل استدعيت الوظيفة Math إذا لا ممكن يكون المشكلة منها

كود الإستدعاء

PHP كود :
Imports System.Math 

أما المشكلة الثانية

لنفرض أن المستخدم يدخل 4 إعداد فقوم بإنشاء مصفوفتين من 4 اسطر أو مصفوفه واحده من عمودين و 4 اسطر
ومن ثم قم بإنشاء إجراء يقوم بالمقارنه بإصغر عدد من الأعداد الموجوده في Text وإضافته في المصفوفه الأولى
ومن ثم إنشئ إجراء آخر يقوم بالمفارنه ما بداخل Text بأكبر عدد و إضافته في المصفوفه الثانيه
والآن قم بعرض البيانات التي بداخل المصفوفه الأولى في حقل وبيانات المصفوفه الثانيه بحقل آخر

أنتظر دقائق وسوف أصمم لك برنامج صغير لتوضيح ما قمت بشرحه
الرد }}}}
تم الشكر بواسطة:
#3

السلام عليكم ورحمة الله وبركاته





dr.salah كتب :
برنامج لعمل
sin tan cos و العكس يعني الدخل ال جا(جيب) يطلع لي الزاوية
لكن للأسف يطلع معي كل شئ خطاء ,
فمثلاً استعملت ال ,
math.sin
math.cos
math.tan
وو ايضا ضرب الناتج با "باي" (pi)
3.14/180
و الأسف الرقم ما يطلع صحيح يطلع قرريب من الصحيح ,

هناك فرق في الناتج عند استخدام pi القيمة الكاملة (3.14159265358979) وعند استخدام القيمة المختصرة (3.14)






dr.salah كتب :
عمل برنامج يرتيب تصاعدي و تنازلي
يعني المستخدم يعطيه مثلاُ 12,33,15,20,54,39,40
و يعطي هذه الأجابتني وحدة تصاعدي و الثاني تنازلي
12,15,20,33,39,40,54
54,40,39,33,20,15,12
PHP كود :
Private Sub Button1_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button1.Click

    Dim a
() As Integer = {12331520543940}

    Array.
Sort(a)

    For 
Each i As Integer In a
        MsgBox
(i)
    
Next

End Sub


Private Sub Button2_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button2.Click

    Dim a
() As Integer = {12331520543940}

    Array.
Sort(a)
    Array.
Reverse(a)

    For 
Each i As Integer In a
        MsgBox
(i)
    
Next

End Sub 






السلام عليكم ورحمة الله وبركاته
الرد }}}}
تم الشكر بواسطة:
#4
الله يبارك فيكم , جاري التجريب السؤال الثاني
بس اخواني اانا كنت استخدم قيمة الباي الكاملة يعني كنت اعمل كذا
Math.PI/180
و الى الأن المشكلة هذه قائمة ,
و الله اسف تعبتكم معي
الرد }}}}
تم الشكر بواسطة:
#5

السلام عليكم ورحمة الله وبركاته


dr.salah كتب :الله يبارك فيكم , جاري التجريب السؤال الثاني
بس اخواني اانا كنت استخدم قيمة الباي الكاملة يعني كنت اعمل كذا
Math.PI/180
و الى الأن المشكلة هذه قائمة ,
و الله اسف تعبتكم معي




يجب أن نرى الكود الذي استخدمته كاملا، والناتج الذي تتوقع أن يكون صحيحاً، لنتأكد من نوع بيانات المتغيرات التي استخدمتها، قد تكون استخدمت Integer التي تتجاهل الكسر فيختلف الناتج.





السلام عليكم ورحمة الله وبركاته
الرد }}}}
تم الشكر بواسطة:
#6
.. المثال بالمرفق ..


الملفات المرفقة
.zip   L_And_S.zip (الحجم : 69.72 ك ب / التحميلات : 18)
الرد }}}}
تم الشكر بواسطة:
#7
الله يبارك فيكم , و الله اسف تعبتكم معي
شكراً اخوي
@@أبورائد@@ , كنت استعمل integer و خيرتها الى single و طلع كلو تمام
تفضل اخواني هذه تعطيه الزاوية و يعطيك الظل و تنفع مع الجيب و الجتا
و طلع معي الناتج صحيح , تمام ,
لكن بقي اني اضع الظل و هو يخرج لي الزاوية

كود :
Sub Main()
        Console.WriteLine("Enter any num")
        Dim num As Short = Console.ReadLine
        Dim tan As Single = (Math.PI / 180) * num
        Console.WriteLine(Math.Tan(tan))
        Console.ReadLine()
    End Sub
الرد }}}}
تم الشكر بواسطة:
#8

السلام عليكم ورحمة الله وبركاته


dr.salah كتب :الله يبارك فيكم , و الله اسف تعبتكم معي
شكراً اخوي
@@أبورائد@@ , كنت استعمل integer و خيرتها الى single و طلع كلو تمام
تفضل اخواني هذه تعطيه الزاوية و يعطيك الظل و تنفع مع الجيب و الجتا
و طلع معي الناتج صحيح , تمام ,
لكن بقي اني اضع الظل و هو يخرج لي الزاوية

كود :
Sub Main()
        Console.WriteLine("Enter any num")
        Dim num As [color=#FF0000][b][SIZE=4]Short [/SIZE][/b][/color]= Console.ReadLine
        Dim tan As Single = (Math.PI / 180) * num
        Console.WriteLine(Math.Tan(tan))
        Console.ReadLine()
    End Sub






للمعلومية:
Integer هو Int32
Short هو Int16 كما يظهر انك استخدمته في المثال المرفق (ولا ينبغي استخدامة للأرقام العشرية)


استخدم دائما Single






السلام عليكم ورحمة الله وبركاته
الرد }}}}
تم الشكر بواسطة:
#9
هلا اخوي , انت لاحظ الذي تحت ال short مباشرتاً سوف تجد single
انا استخدمت short لن لا اريد ان يدخل المستخدم زاوية اكثر من 900
فقط هذه هي و شكرا على اهتمامك
لكن ممكن تساعدني في العكس يعني يدخل الجيب و انا اعطيه الزاوية
و شكراً تعبتك معي
الرد }}}}
تم الشكر بواسطة:


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم