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

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

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

جربت

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

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

X=18368

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

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

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

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

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

\

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

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

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

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

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

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

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

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

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