ایده در مورد نوشتن یک کد نسبتا ساده

[tabandokht]

سلام. ممنون میشم چند روش برای حل این برنامه نام ببرید

یه رشته 30تایی داریم مثلا "123456789012345678901234567890"
حالا میخوایم یه برنامه بنویسیم که کاراکترهای زوج رو جدا کنه و به هم بچسبونه و در نهایت یه رشته 15 تایی درست کنه
کاراکترهای زوج یعنی کاراکتر دومی و چهارمی و ششمی .... تا سی امی که در نهایت میشه "246802468024680"

بهترین روش چی هست. درضمن من از کمپایلر BASCOM استفاده میکنم

ممنونم.

[کاکو]

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

سلام. ممنون میشم چند روش برای حل این برنامه نام ببرید

یه رشته 30تایی داریم مثلا "123456789012345678901234567890"
حالا میخوایم یه برنامه بنویسیم که کاراکترهای زوج رو جدا کنه و به هم بچسبونه و در نهایت یه رشته 15 تایی درست کنه
کاراکترهای زوج یعنی کاراکتر دومی و چهارمی و ششمی .... تا سی امی که در نهایت میشه "246802468024680"

بهترین روش چی هست. درضمن من از کمپایلر BASCOM استفاده میکنم

ممنونم.

با درود
باور کن اسم برنامه میاد تنم میلرزه
از اول شروع کن و یکی یکی اون ها رو تقسیم بر دو کن و اگر باقیمانده داشت که فرد بریزش تو گروه فرد ها و اگر باقی مانده نداشت بریز تو گروه زوجین

من بسکام کار نکردم ولی دو تا ارایه 15 تایی میخوای و یه چرخه که هر بار کانترش یه شماره اضافه بشه و از صفر شروع میکنه و تو خانه شماره صفر چک میکنی و ادامه ماجرا تا 30

[evergreen]

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

سلام. ممنون میشم چند روش برای حل این برنامه نام ببرید

یه رشته 30تایی داریم مثلا "123456789012345678901234567890"
حالا میخوایم یه برنامه بنویسیم که کاراکترهای زوج رو جدا کنه و به هم بچسبونه و در نهایت یه رشته 15 تایی درست کنه
کاراکترهای زوج یعنی کاراکتر دومی و چهارمی و ششمی .... تا سی امی که در نهایت میشه "246802468024680"

بهترین روش چی هست. درضمن من از کمپایلر BASCOM استفاده میکنم

ممنونم.

با سلام و احترام

Dim S As String* 30 , Z As String* 15, C As Integer
"S ="123456789012345678901234567890
""=Z
For C = 2 To 30 Step 2
Z = Z + Mid(S, C , 1)
Next
End

[tabandokht]

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

با سلام و احترام

Dim S As String* 30 , Z As String* 15, C As Integer
"S ="123456789012345678901234567890
""=Z
For C = 2 To 30 Step 2
Z = Z + Mid(S, C , 1)
Next
End

ممنونم واقعا

[saeiddiod]

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

با سلام و احترام

Dim S As String* 30 , Z As String* 15, C As Integer
"S ="123456789012345678901234567890
""=Z
For C = 2 To 30 Step 2
Z = Z + Mid(S, C , 1)
Next
End

با درود
من بیسیک بلد نیستم ولی تو حلقه for شما گام حلقه رو +2 گرفتین.حالا ممکنه اعداد به ترتیب زوج و فرد نباشن و مثلا 4 تا عدد زوج پشت سر هم باشن.این دستور مشکلی ایجاد نمیکنه؟؟
اگه اشتباه متوجه شدم بگید چون بیسیک کار نمیکنم ولی برام سوال بود این دستور.
با تشکر

[evergreen]

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

با درود
من بیسیک بلد نیستم ولی تو حلقه for شما گام حلقه رو +2 گرفتین.حالا ممکنه اعداد به ترتیب زوج و فرد نباشن و مثلا 4 تا عدد زوج پشت سر هم باشن.این دستور مشکلی ایجاد نمیکنه؟؟
اگه اشتباه متوجه شدم بگید چون بیسیک کار نمیکنم ولی برام سوال بود این دستور.
با تشکر

با سلام و احترام
فرض درخواستی ایشان این نبوده که اعداد زوج و فرد جدا بشه بلکه میخواستن مقادیری که شماره کاراکترشون در رشته سی تایی زوجه در کنار هم قرار بگیرند.
موفق باشید.

[Matin_Mirzadeh]

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

سلام. من زبان بیسیک کار نمی کنم ولی طبق دانسته های خودم باید اول هر کدوم از کاراکتر های رشته رو بر 2 تقسیم کنی. اگر باقی مانده نداشت اونها رو در یک رشته دیگه بنویسی

[evergreen]

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

سلام. من زبان بیسیک کار نمی کنم ولی طبق دانسته های خودم باید اول هر کدوم از کاراکتر های رشته رو بر 2 تقسیم کنی. اگر باقی مانده نداشت اونها رو در یک رشته دیگه بنویسی

با سلام و احترام
اونکه شما میگید وقتی درسته که بخواهید اعداد زوج موجود در رشته رو جدا کنید ولی یکبار با دقت به خط دوم درخواست که مجددا در زیر آوردم دقت کنید، خودتون متوجه میشید. شاید یکی از دلایلی که این برداشت رو ایجاد میکنه اینه که در رشته مثال دقت نشده و تمام اعداد زوج افتادن در محل کاراکترهایی که موقعیتشون هم زوجه.

' حالا میخوایم یه برنامه بنویسیم که کاراکترهای زوج رو جدا کنه و به هم بچسبونه و در نهایت یه رشته 15 تایی درست کنه
کاراکترهای زوج یعنی کاراکتر دومی و چهارمی و ششمی .... تا سی امی که در نهایت میشه "246802468024680" '

موفق باشید