در مورد یک الگوریتم

[megatron]

سلام.

خوب هستید؟
یه سوال داشتم.

می خواستم یه برنامه بنویسم که از عدد یک تا 999 رو بخونه.

بعد که خوند حالا بهش بگی که عدد بیستو پنجم کودومه بگه

مثلا اینجوری اعدادو بگیره
12345678910111213141516171819202122232425

و بگه عدد بیستو پنجم چنده
که اینجا میشه عدد 7
یا عدد بیستو ششم میشه 1

خیلی ممنون میشم اگه راهنمایی کنید.

[Di Di]

دوست عزیز

راه های زیادی برای انجام این کار وجود داره ،

در ساده ترین حالت کل 999 عدد رو می شه به وسیله یک Loop داخل یک آرایه ریخت و سپس هر کدوم از آرایه ها رو که

خواستید بر طبق شماره اون بخونید.

کد php:

start

10 : i=i+1
input a(i)
if i<999 then goto 10

print "Input Your place Number"
input PNum
Print a(PNum)

end 


راه دیگه اینه که اعداد رو به صورت یک رشته ذخیره کنید و با یک دستور Left و Right کاراکتر مورد نظرت رو بخونی

کد php:

Start

Input A

Print "Input Place Number"
Input PNum
A=Left (A,PNum)
A=Right(A,1)

Print A

End 


[megatron]

سلام.
ببخشید میشه ببینید مشکل برنامه من کجاست؟
آخه من یک سال و نیمه که با vb کار نکردم....
اگه میشه یه چندین راه حلشو واسم بنوسید ممنون میشم....
چطور میشه تمام اعدادو تو تکست کنار هم قرار داد؟

کد:

Dim a As Integer
Private Sub Command1_Click()
  For i = 1 To 30
   Print i
  Next i
  a(i) = InputBox("enter")
    If a(i) = i Then
      Print a(i)
    End If
End Sub

[megatron]

ببخشید کسی نیست جواب بده؟

[Di Di]

ای بابا

من که همش رو گفتم ، الان دیگه کجا مشکل داری؟؟

برای نمایش همه اعداد یکجا داخل یک باکس کافیه همش رو پشت سر هم بخونی و داخل باکس نمایش بدی

کد php:

for i=1 to 999
Text1=Text1 & A(i)
next i