الجذر التربيعي للاالة الحاسبة وندوز 7

[APRO 1]

السلام عليكم 

احتاج معرفة كيف تتم برمجة الالة الحاسبة في windows 7 بدقة 128 بت كما في المثال التالي

الجذر في الالة الحاسبة windows 7
33.605310763588368370214239942248
الجذر في vb.net
33.6053107635883684
 حيث ان الالة الحاسبة في الوندوز تعطي درجة دقة تصل الى 30 رقم يمين الفاصلة  وهل يمكن ايجاد متغيير يقبل هذا العدد؟
 

[VB Helper 751]

اولا ممكن ذكر الرقم للتحقق من جذره التربيعي, ثانيا هل هنا سببا للوصول للنتيجه المطلوبه

[APRO 1]

اريد برمجة الة حاسبة بنفس دقة حاسبة الوندوز حيث ان دالة sqrt تعطي دقة 15 رقم يمين الفاصلة والحاسبة في الوندوز تعطي تقريبا 30 رقم  هل استخدمو متغير خاص ام متغير decimal وشكرا اخي على الرد

[VB Helper 751]

جربت

Dim pi = 22 / 7
        Console.WriteLine(pi.ToString())

واعطاني القيمه 3.14285714285714

و جربت

Dim pi As Decimal = Convert.ToDecimal(22) / Convert.ToDecimal(7)
        Console.WriteLine(pi.ToString())

واعطاني القيمه 3.1428571428571428571428571429

تم تعديل 16 Feb 2016 بواسطه VB Helper

[APRO 1]

شكرا اخي الكريم على تواصلك معي وان شاء الله في ميزان حسناتك التوضيح يلي قمت به اخي الكريم واضح في عملية القسمة بس راح اعطيك مثال اخر على القصة وتابع الخطواة  لتكتشف اللغز المحيير  .

X=18368

الان الجذر في الفيجول نت يعطيك 135.528594768779 

لكن اذا وضعت الرقم في الة الحاسبة للوندوز 7 يعطيك ناتج كسوره طويلة مثل هالرقم 135.52859476877933009833460536585

كيف تمت القصة حيرتني وخلتني اشعر اني لست مبرمج

[VB Helper 751]

النظام المنصب عندي هو Windows 10 ولاحظت ان الفرق بين الخانات بين الاله الحاسبه وما يتم توليده من الدونت متقارب, لذا هل يمكنك رؤية الرابط التالي

[APRO 1]

شكرا اخي على جهدك معي  الرابط الذي اعطيته هو خاص بلغة السي وانا ابحث عن vb.net ومع هذا الله يجعل جهدك في ميزان حسناتك

\

[APRO 1]

بحثت عن  BigDecimal  ولم اجد شي  مماثل في لغة vb.net  معظمها عن الجافا والسي شارب  

[VB Helper 751]

يمكنك استخدام اي اداه لتحويل كود السي شارب الى فيجول بيسك, لكن سؤال الاخير هل هناك ضروره للوصول لدرجة الدقه هذه في الرقم؟!!

[APRO 1]

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

Public Shared Function Sqrt(ByVal x As Decimal, Optional ByVal epsilon As Decimal = 0D) As Decimal
        If x < 0 Then
            Throw New OverflowException("Cannot calculate square root from a negative number")
        End If

        Dim current As Decimal = CDec(Math.Sqrt(CDbl(x))), previous As Decimal
        Do
            previous = current
            If previous = 0D Then
                Return 0
            End If
            current = (previous + x / previous) / 2
        Loop While Math.Abs(previous - current) > epsilon
        Return current
    End Function

[VB Helper 751]

لكن مازلت محتار اذا كان هناك سبب للوصول لهذه الدقه, لكن بالتوفيق بما انك وصلت للمطلوب

[APRO 1]

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

تم تعديل 27 Feb 2016 بواسطه APRO

[VB Helper 751]

اعتقد لا علاقه للموضوع بعملاقة البرمجه :) لكن هي محاوله جيده, لكن اريد منك تجربه حساب الجذر التربيعي في الآلة الحاسبه الموجوده في اصدارات الويندوز الجديده ولاحظ النتيجة

[APRO 1]

اشكرك على المتابعة واتمنى اناصبح مبرمج متمرس جدا في كل خفايا البرمجة

[النبهاني 22]

قد لا يكون هناك داع لهذه الدقه في الحساب في التطبيقات العاديه٫ ولكن الجانب الايجابي في الموضوع هو تعلم حيله جديده.