همفکری در مورد چند الگوریتم به ظاهر ساده

[Agha_Jo0n]

سلام

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

ممنون میشم اگه کسی میتونه کمکم کنه

مرسی



1 - الگوریتمی که مکمل 1 عددی را دریافت نماید و معادل مبنای 10 آنرا چاپ کند

2 الگوریتمی که یک عدد اعشاری دریافت نماید و تعداد ارقام صحیح و اعشاری آنرا بطور جداگانه در خروجی چاپ کند.

مثال :

235.43


خروجی : اعشار : 2 صحیح 3

 

[Agha_Jo0n]

بروزرسانی......

Sent from my HUAWEI Y300-0100 using Tapatalk

 

[Agha_Jo0n]

................................

 

[SerialDownload.IR]

................................

طبق فرمول برید جلو راحت میتونید حلش کنید..
اگر نتونستید براتون روی vb پیاده میکنم...

خواستید بگید حتما...

 

[Agha_Jo0n]

طبق فرمول برید جلو راحت میتونید حلش کنید..
اگر نتونستید براتون روی vb پیاده میکنم...

خواستید بگید حتما...

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

Sent from my HUAWEI Y300-0100 using Tapatalk

 

[goldboy1999]

سلام
می تونی ابتدا عدد رو از روی مکمل 1 بدست بیاری بعد به صورت بازگشتی مبنای 10 رو بنویسی اینطوری :

(inttobinary(n
If n<2
Print n
else
}
(intobinary(n/2
Print n%2
{​

 

[goldboy1999]

برای دومی هم می تونی
برای بدست آوردن عدد صحیح
عدد رو تقسیم به 10 کنی اگه بزرگتر مساوی 1 بود به کانتر تعداد اعداد صحیحت یکی اضافه کنی وگرنه تعداد حداکثر صحیح رو بدست آوردی
برای اعشاری هم عدد رو در 10 ضرب کنی باقیمانده عدد به 1 اگه صفر نبود به کانتر عدد اعشاریت یکی اضافه می کنی وگرنه اگر باقیمانده به 1 صفر شد حداکثر تعداد اعشار رو بدست آوردی

 

[razavix]

برای سوال دومی هم از روشی که دوستمون فرمودند می تونی استفاده کنی و هم اینکه بر اساس مکان نقطه (.) میشه اینکار رو با کتابخانه String انجام داد.

 

[CPU100]

الگوریتمش رو نمیدونم خواستی با VB برات بنویسم کاری نداره :general604: