سلام
کسانی که الگوریتم فلوچارت بلد هستند لطفا جواب بدهند
سال جاری و سال تولد فردی را می گیریم و میگوییم که چند سال و چند ماه و چند دقیقه اش می باشد.
عددی را از کاربر می گیریم و ان عددی که ا کاربر گرفتیم رو برعکسش می کنیم
-
حسین روشنایی
- برنامه‌نویسی و طراحی وب
- سه شنبه, 04 تیر 1392
My new site
http://www.schpc.ir
http://www.schnet.ir
http://www.acharpc.ir
http://www.aharit.it
http://www.acharweb.ir
به اوج رسیدن دشوار است ولی در اوج ماندن دشوارتر، چرا که نهایت اوج ناخوشترین مرحله ی سقوط است ...
http://www.schpc.ir
http://www.schnet.ir
http://www.acharpc.ir
http://www.aharit.it
http://www.acharweb.ir
به اوج رسیدن دشوار است ولی در اوج ماندن دشوارتر، چرا که نهایت اوج ناخوشترین مرحله ی سقوط است ...
حسین جان فک کنم منظور ایشون اینه که سال و ماه و روز تولد رو بگیره بعد بگه چند سالشه آخه فقط بخواد یکیو بگه که خب خیلی برنامه ساده ایه
در مورد دومیم باید بگم درست از همون نکته ایه که گفتم یه روش دیگه ام همین الان به ذهنم رسید مینویسمش
Dim a As Integer
a = InputBox("number"
b = Str(a)
Dim c(100) As String
For I = 1 To Len(b)
c(I) = Mid(b, I, 1)
Next I
For I = Len(b) To 1 Step -1
k = k + c(I)
Next I
Print k
شما با این کد میتونین هر رشته و عددی رو برعکس کنید فقط باید متغیر a رو از نوع مورد نظر تعریف کنید
تک تک کاراکتر هام توی یک آرایه ذخیره میشن و اینطوری میشه مانور بیشتری روشون داد
در مورد دومیم باید بگم درست از همون نکته ایه که گفتم یه روش دیگه ام همین الان به ذهنم رسید مینویسمش
Dim a As Integer
a = InputBox("number"
b = Str(a)
Dim c(100) As String
For I = 1 To Len(b)
c(I) = Mid(b, I, 1)
Next I
For I = Len(b) To 1 Step -1
k = k + c(I)
Next I
Print k
شما با این کد میتونین هر رشته و عددی رو برعکس کنید فقط باید متغیر a رو از نوع مورد نظر تعریف کنید
تک تک کاراکتر هام توی یک آرایه ذخیره میشن و اینطوری میشه مانور بیشتری روشون داد
- صفحه :
- 1
هنوز پاسخی به این پست ارسال نشده است.
البته از آنجایی که هنوز در سایت لاگین نکرده‌اید، اجازه‌ی پاسخ دادن به این پست را ندارید.
البته از آنجایی که هنوز در سایت لاگین نکرده‌اید، اجازه‌ی پاسخ دادن به این پست را ندارید.
