[RaggiTech]

كاتب الموضوع : samerselo

أنشئ مشروعا جديدا من النوع F# Application وتأكد من اختيار الفريموورك 4 كالفريموورك الهدف ثم أعط للمشروع اسما ثم انقر OK
يمكننا استخدام Let للتصريح عن متغير وإسناد قيمة له. فمثلا أدخل الكود التالي في الملف program.fs الذي يقوم بتعريف عدة متغيرات كما نلاحظ استخدام الشرطة الأمامية المائلة مرتين من أجل التعليقات كما يجدر الانتباه إلى أن لغة F# حساسة لحالة الأحرف عكس لغة البيزيك

كود :

[color=#000000][COLOR=#0000bb][/color][COLOR=#ff8000]// التصريح عن مغير رقمي وآخر نصي مع إسناد قمية لهما
[/COLOR][color=#0000bb]let anInt [/color][color=#007700]= [/color][COLOR=#0000bb]5
let aString [/COLOR][color=#007700]= [/color][COLOR=#dd0000]"Hello"
[/COLOR][COLOR=#ff8000]// تنفيذ عملية حسابية وتضمين قيمتها في متغير
[/COLOR][color=#0000bb]let anIntSquared [/color][color=#007700]= [/color][color=#0000bb]anInt [/color][color=#007700]* [/color][COLOR=#0000bb]anInt  
[/COLOR][/COLOR]

ومن أجل رؤية نتائج الكود السابق اختر كامل الكود ثم اضغط ALT+Enter فتلاحظ ظهور النتائج في نافذة أسفل نافذة محرر الكود كما يلي

كود :

[color=#000000][COLOR=#0000bb]val anInt [/color][color=#007700]: [/color][color=#0000bb]int [/color][color=#007700]= [/color][COLOR=#0000bb]5
val aString [/COLOR][color=#007700]: [/color][color=#0000bb]string [/color][color=#007700]= [/color][COLOR=#dd0000]"Hello"
[/COLOR][color=#0000bb]val anIntSquared [/color][color=#007700]: [/color][color=#0000bb]int [/color][color=#007700]= [/color][COLOR=#0000bb]25  
[/COLOR][/COLOR]

ومن أجل رؤية النتائج في نافذة الكونسول أدخل الكود التالي مباشرة بعد الكود السابق ثم اضغط Ctrl+F5

كود :

[color=#000000][COLOR=#0000bb]System[/color][color=#007700].[/color][color=#0000bb]Console[/color][color=#007700].[/color][color=#0000bb]WriteLine[/color][color=#007700]([/color][color=#0000bb]anInt[/color][COLOR=#007700])
[/COLOR][color=#0000bb]System[/color][color=#007700].[/color][color=#0000bb]Console[/color][color=#007700].[/color][color=#0000bb]WriteLine[/color][color=#007700]([/color][color=#0000bb]aString[/color][COLOR=#007700])
[/COLOR][color=#0000bb]System[/color][color=#007700].[/color][color=#0000bb]Console[/color][color=#007700].[/color][color=#0000bb]WriteLine[/color][color=#007700]([/color][color=#0000bb]anIntSquared[/color][COLOR=#007700])  
[/COLOR][color=#0000bb][/color][/COLOR]

من أجل تعريف إجرائية بسيطة لحساب مربع عدد يمكننا كتابتها على الشكل

كود :

[color=#000000][COLOR=#0000bb]let square n [/color][color=#007700]= [/color][color=#0000bb]n [/color][color=#007700]* [/color][COLOR=#0000bb]n  
[/COLOR][/COLOR]

ومن أجل استخدام هذه الإجرائية
نكتب الكود التالي

كود :

[color=#000000][COLOR=#0000bb]let result [/color][color=#007700]= [/color][COLOR=#0000bb]square anInt
System[/COLOR][color=#007700].[/color][color=#0000bb]Console[/color][color=#007700].[/color][color=#0000bb]WriteLine[/color][color=#007700]([/color][color=#0000bb]result[/color][COLOR=#007700])  
[/COLOR][color=#0000bb][/color][/COLOR]

ومن أجل كتابة إجرائية تستدعي نفسها يمكن عمل ذلك كما في المثال التالي

كود :

[color=#000000][COLOR=#0000bb]let rec factorial n [/color][COLOR=#007700]=  
    if [/COLOR][color=#0000bb]n [/color][color=#007700]= [/color][COLOR=#0000bb]0  
    then 1  
    [/COLOR][color=#007700]else [/color][color=#0000bb]n [/color][color=#007700]* [/color][color=#0000bb]factorial [/color][color=#007700]([/color][color=#0000bb]n [/color][color=#007700]- [/color][color=#0000bb]1[/color][COLOR=#007700])
[/COLOR][color=#0000bb]System[/color][color=#007700].[/color][color=#0000bb]Console[/color][color=#007700].[/color][color=#0000bb]WriteLine[/color][color=#007700]([/color][color=#0000bb]factorial anInt[/color][COLOR=#007700])  
[/COLOR][color=#0000bb][/color][/COLOR]

مترجم بتصرف، وللموضوع بقية قريبا إن شاء الله