برنامه نویسی

[yaghout]

کسی میتونه مشکل منو حل کنه
ممنون میشم اگه کسی بنونه تو نوشتن این برنامه ها کمکم کنه:10:

با استفاده از حلقه ها

1* برنامه ای بنویسید که عدد N را بگیرد وحاصل عبارت زیر را چاپ کند
F=1*2*3*…….*N

2* برنامه ای را بنویسید که خروجی ها ی زیر را تولید کند
1
1 2
1 2 3
1 2 3 4

1
2 2
3 3 3
4 4 4 4

1 2 3 4 5 6 7
1 2 3 4 5
1 2 3
1

1
1 2 3
1 2 3 4 5
1 2 3 4 5 6 7
1 2 3 4 5
1 2 3
1
3*برنامه ای بنویسید که دو عدد صحیح a و b را از ورودی گرفته وبزرگترین مقسو علیه مشترک وکوچکترین مضرب مشترک بین آن دو عدد را محاسبه و چاپ کند

[behnam_tr]

1* برنامه ای بنویسید که عدد N را بگیرد وحاصل عبارت زیر را چاپ کند
F=1*2*3*…….*N

سلام..

البته من زياد تو قواعد ويژوال بيسيك وارد نيستم ولي ........

برنامه اول رو خيلي راحت ميشه با حلقه for نوشت.

خواندن عدد از ورودي
for i:=1 to a do
f=f*i
مقدار اوليه f هم بايد 1 تعريف شود.(f=1)

[sherwood]

درود
مسئله 3 :
Dim a, b As Currency
Dim bmm, kmm As Currency

Private Sub Command1_Click()
a = ta.Text
b = tb.Text

Do While (True)
DoEvents
If a Mod b = 0 Then
kmm = a
Exit Do
End If
a = a + CCur(ta.Text)
Loop

lk.Caption = kmm

a = ta.Text
b = tb.Text

a = a \ 2

Do While (True)
DoEvents
If b Mod a = 0 And CCur(ta.Text) Mod a = 0 Then
bmm = a
Exit Do
End If
a = a - 1
Loop

lb.Caption = bmm

End Sub

شاد زی

[atifazi]

n=val(inputbox( enter number) '' gereftane n
a=1
for i= 1 to n
a=a*i
next i
print a

[black_storm]

خواستي ماس بگير و سفارش بده ok !