mra_chavoshi
یک شنبه 19 دی 1389, 04:47 صبح
سلام دوستان
سوال میگه برنامه ای برای معرفی اعداد اول 3 رقمی در مد win 32
البته من این آخرشو اصلا نگرفتمومگه سی شارپ هم وین 32 داره؟
تا اینجا رفتم ولی نمیدونم اشکالش کجاست
من تو کنسول نوشتم
int i, j;
bool t=true;
for (i = 100; i < 100; i++)
t = true;
for (j = 2; j < i / 2; j++) ;
if(i-(j*(i/j))==0)
{
t = false;
}
در ضمن یه زحمت دگه ام داشتم،میخواستم بدونم ترجمه این به زبان سی شارپ چی میشه
سوالش اینه:تابع !x البته تو این جواب !n این برنامه برای وی بی هست
Private Sub Command1_Click()
Dim a As Double
a = Val(Txt1.Text)
Print fact(a)
End Sub
Private Function fact(x As Double) As Double
If x <= 1 Then
fact = 1
Else
fact = x * fact(x - 1)
End If
End Function
سوال میگه برنامه ای برای معرفی اعداد اول 3 رقمی در مد win 32
البته من این آخرشو اصلا نگرفتمومگه سی شارپ هم وین 32 داره؟
تا اینجا رفتم ولی نمیدونم اشکالش کجاست
من تو کنسول نوشتم
int i, j;
bool t=true;
for (i = 100; i < 100; i++)
t = true;
for (j = 2; j < i / 2; j++) ;
if(i-(j*(i/j))==0)
{
t = false;
}
در ضمن یه زحمت دگه ام داشتم،میخواستم بدونم ترجمه این به زبان سی شارپ چی میشه
سوالش اینه:تابع !x البته تو این جواب !n این برنامه برای وی بی هست
Private Sub Command1_Click()
Dim a As Double
a = Val(Txt1.Text)
Print fact(a)
End Sub
Private Function fact(x As Double) As Double
If x <= 1 Then
fact = 1
Else
fact = x * fact(x - 1)
End If
End Function