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

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

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

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

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

N! = 4

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

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

[طيباوي ابو علي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

كود PHP:

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


[ldirahim]

مشكوور اخي