برنامج حساب العاملي ب delphi

[طيباوي ابو علي1]

برنامج العاملي

بسم الله الرحمن الرحيم
الصلاة والسلام على رسول الله وعلى آله وصحبه أجمعين

إجاد العاملي
الطريقة الرياضية

N! = 4

1 × 1 = 1
1 × 2 = 2
2 × 3 = 6
6 × 4 = 24

الطريقة البرمجية Delphi

http://www.djelfa.info/vb/attachment.php?attachmentid=103121&stc=1&d=1432810846

[طيباوي ابو علي1]

' لغة visual basic


Private Sub CommandButton1_Click()

Dim i As Integer
Dim Fact As Integer
Dim n As Integer

n = Val(TextBox1.Text)

Fact = 1
For i = 1 To n
Fact = Fact * i
Next i
TextBox2.Text = Str(Fact)

End Sub

'==========================='

أحببت أن أكتب هذا المثال لأنها كانت أول لغة تعلمتها
لغة basic



10 input " Entez counter ";n
20 f = 1
30 Fact = 1
40 For i = 1 To n
50 Fact = Fact * i
60 Next i
70 Print f
80 End

[طيباوي ابو علي1]

basic بازيك هي اللغة الام الى اللغة فيزيال بازيك visual basic
وهي لغة رائعة كدلفي

[mouaib]

بارك الله فيك اخي الكريم

[طيباوي ابو علي1]

بــــــــــارك الله فـــــــــــــيك

[Youssef XHaka]

بالتوفييييييييق

[طيباوي ابو علي1]

بارك الله فـــــــــــــــــيك

[MR_DZ]

شكرا جزيلا لك يا غالي

[بانجي]

شكرا لك اخي الكريم

[طيباوي ابو علي1]

ألف شكر وشكر

وبارك الله فــــــــــــــيكم

[haleeim]

جزاك الله خيرا

[bilel_milano]

مشكور اخيييييييييييييييييييي

[طيباوي ابو علي1]

بــــــــــارك الله فـــــــــيكـم

[Abdelmonaam]

هذا الكود بلغة الـ PHP

function fact($n){
$r=1;
for ($i=1;$i<=$n;$i++)
$r=$r*$i;
return $r;
}

[ldirahim]

مشكوور اخي

[طيباوي ابو علي1]

هذا الكود بلغة الـ php

function fact($n){
$r=1;
for ($i=1;$i<=$n;$i++)
$r=$r*$i;
return $r;
}



بــــــــــارك الله فـــــــــيك

و مشكور على الرد وعلى المثال الذي تكبته بي اش بي

[طيباوي ابو علي1]

مشكوور اخي



بــــــــــارك الله فـــــــــــــيك

.

[omariro05]

شكرا على الموضوع

[طيباوي ابو علي1]

بــــــــــارك الله فـــــــــــــيك

[zilo]

بارك الله فيك

[Monir MAKADIR]

بارك الله فيك أخي

[طيباوي ابو علي1]

بارك الله فيك أخي

[noriya]

merçi khouya

[zamch]

بارك الله فيك اخي الكريم

[طيباوي ابو علي1]

بارك الله فيـــــــــــــــــــــكم

[عبد العزيز 07]

بارك الله فيك

[MALEK TATARE]

ممكن ان تبرمج لي بادلفي

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


وكم سعر البرنامج ارجو التفاعل تحميل الاستمارة من الانترنت من اجل الاطلاع عليها

اكتب في قوقل

اﺴﺘﻤﺎرة طﻟب. ﺠواز اﻟﺴﻔر وﺒطﺎﻗﺔ اﻟﺘﻌرﻴف اﻟوطﻨﻴﺔ. اﻻﻟﮐﺘروﻨﻴ. ﻴن. و. اﻟﺒﻴوﻤﺘرﻴ. ﻴن. ﺠواز اﻟﺴﻔر. ﺒطﺎﻗﺔ اﻟﺘﻌرﻴف اﻟوطﻨﻴﺔ

[djaafar007]

مشكورييين شيء حلو

[طيباوي ابو علي1]

بارك الله فيكم