29 - سلسلة تبسيط البرمجة – برنامج المتغير والثابت

عبد الرحمن أحمد
2014-04-18T06:27:57+00:00

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

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

سبق وعرفنا في الدرس الفرق بين المتغير أو المتحول وبين الثابت

12 - سلسلة تبسيط البرمجة – المتغيرات و الثوابت

وتطبيقه بشكل عملي من خلال البرنامج التالي :

Module Module1

    Sub Main()
        Dim R As Double
        Const PI As Single = 3.14159
        Dim Space As Double
        Dim Circumference As Double
        Dim Key As Char

        Do
            Console.Clear()
            Console.WriteLine("Enter radius of circle ?")
            R = Console.ReadLine()
            Space = PI * R * R
            Console.WriteLine("Space = " + Space.ToString() + vbNewLine)
            Circumference = 2 * PI * R
            Console.WriteLine(String.Format("Circumference = {0}{1}", Circumference, vbNewLine))
            Console.WriteLine("Run again ? y/n")
            Key = Console.ReadLine(0)
        Loop Until Key = "n"

    End Sub

End Module

وأظن أنه لا يحتاج شرح مفصل فمعظمه أصبحتم تدركونه

الجديد هو أننا استخدمنا كلمة Const بدلا من Dim لتعريف ثابت وهو الثابت الرياضياتي بي

المستخدم في التعامل مع زوايا الرادايان وحساب محيط ومساحة الدائرة

و كلمة Const اختصار لكلمة Constant أي شيء ثابت غير قابل للتعديل

ولو جربتم إعطاء قيمة للثابت PI أثناء سير البرنامج فسيتولد خطأ أثناء الترجمة

بينما R وبقية المتغيرات نستطيع وضع أي قيم وتتغير أثناء البرنامج

كما أننا استخدمنا نوع المعطيات Single وهو رقم كسري ولكن تمثيله يكون ب 4 بايتات

أي نصف ما يحتاجه النوع Double

كما أننا نلاحظ أننا استخدمنا ثابت معرف مسبقا ضمن مكتبات النظام وهو vbNewLine وهو ثابت رمزي يمثل الانتقال إلى سطر جديد أي يحاكي الضغط على زر Enter للنزول إلى سطر جديد وذلك بدلا أن نستخدم تعليمة WriteLine() فارغة لكتابة سطر فارغ

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

الواجب :

كتابة برنامج يعرف ثوابت مختلفة من أنواع المعطيات المختلفة التي مرت علينا في الدروس السابقة

ثم إظهارها على الشاشة

يرجى الدخول لحسابك أو تسجيل حساب لتستطيع إضافة تعليق

حساب جديد دخول

Module Module1

Sub Main()
    Dim One As Integer
    Dim PHI As Double
    Dim My_name As String
    Dim birthday As Date

    One = 6
    PHI = 1.618
    My_name = "yousser"
    birthday = "04/04/2014"


    Console.WriteLine("# " & One)
    Console.WriteLine("# " & PHI)
    Console.WriteLine("# " & My_name)
    Console.WriteLine("# " & birthday)

    Console.ReadKey()
End Sub

End Module

عبد الرحمن أحمد أضف ردا

نعم هو ذا

وأرنا مثله بالبايثون

yousser أضف ردا

لك ذلك

from datetime import date

one=6                        # type int
phi=1.618                    # type float
my_name="yousser"            # type str
birthday=date(2014,4,4)      # type date

print(one)
print(phi)
print(my_name)
print(birthday)

الرمز # للتعليقات