PDA

نسخه کامل مشاهده نسخه کامل : برنامه نویسی



yaghout
12-05-2008, 14:46
کسی میتونه مشکل منو حل کنه
ممنون میشم اگه کسی بنونه تو نوشتن این برنامه ها کمکم کنه: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
12-05-2008, 17:12
1* برنامه ای بنویسید که عدد N را بگیرد وحاصل عبارت زیر را چاپ کند
F=1*2*3*…….*N

سلام..

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

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

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

sherwood
16-05-2008, 12:52
درود
مسئله 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
25-05-2008, 08:38
n=val(inputbox( enter number) '' gereftane n
a=1
for i= 1 to n
a=a*i
next i
print a

black_storm
28-05-2008, 18:28
خواستي ماس بگير و سفارش بده ok !