درخواست ارائه يك روش كلي براي حل چند مساله ساده..

با سلام...

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] ====>لطفا روشهايي رو(الگوريتم) براي حل اين مسائل بگيد كه فقط از ضرب و تقسم و باقيمانده و خارج قسمت استفاده شود(البته يك حالت كلي).<=======


=====>مسائل:

1-مشخص كردن اينكه يك عدد كامل است يا نه(عددي كامل است كه مجموع مقسوم عليه هاي آن برابر با خود عدد باشد...متال:عدد 6)

2-مشخص كردن اينكه يك عدد اول است يا نه؟

3-به توان رساندن يك عدد به توان عدد ديگر

a=2 ,b=3 ===>2^3=8
مثلا از روش ديگري به غير از اين روش براي حل اين مسئله استفاده كنيم كه البته در حالت كلي برقرار باشد.....

4-بدست آوردن مغلوب يك عدد...مثال:12===21

5-بخش پذيري يك عدد بر 3

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] با تشكر ....

من اینها را اول سال برای درس "مبانی علم رایانه" نوشتم . نمی دونم منظور شما همین ها بوده یا نه؟

1. مشخص کردن اینکه یک عدد کامل (تام) است یا نه
1- شروع
2- يك عدد را بگير (N)
3- P=0
4- T=1
5- اگر باقي مانده N/T برابر صفر بود ، سپس P=P+T
6- T=T+1
7- اگر T<N به مرحله 5 برو
8- اگر P=N بود ، چاپ كن «تام است» و برو به پایان
9- چاپ كن «تام نيست»
10- پايان

2. مشخص کردن اینکه یک عدد اول است یا نه
1- شروع
2- يك عدد را بگير (N)
3- I=2
4- اگر باقي مانده N/I برابر صفر بود چاپ كن « اول نيست» و به مرحله 9 برو
5- I=I+1
6- اگر I<N است به مرحله 4 برو
7- چاپ كن «اول است»
8- پايان

3. این الگوریتم مقدار M را به توان N می رساند .
1- شروع
2- M,N را بخوان
3- I=1 , S=1
4- S=S*M , N=N-1
5. اگر N=1 برو به مرحله 8
6- I=I+1 و برو به مرحله 4
7- S را چاپ کن
8- پایان

4. مقلوب یک عدد
برای این من کد VB نوشتم . باید خودت به الگوریتم تبدیل کنی . بدردت میخوره؟

5. بخش پذیری یک عدد بر 3
خوب از طریق باقی مانده می تونید این کار را انجام بدهید (Mod) . یعنی یک عدد را بگیرد ، اگر باقی مانده تقسیم این عدد بر 3 برابر صفر بود ، بر 3 بخش پذیر هست .

نقل قول:

---

نوشته شده توسط mehdi_7070 [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

من اینها را اول سال برای درس "مبانی علم رایانه" نوشتم . نمی دونم منظور شما همین ها بوده یا نه؟

4. مقلوب یک عدد
برای این من کد VB نوشتم . باید خودت به الگوریتم تبدیل کنی . بدردت میخوره؟

.

---

:10:ايول آقا مهدي گل كاشتي بله دقيقا منظورم همين بود...
در مورد مسئله 5 كد يا الگوريتم رو (فرقي نمي كنه ) براي زبان پاسكال ميخام...

:11::11:واقعا مرسي

:10:آقا مهدي اگه فلوچارتشون رو هم ميذاشتي عالي ميشد....(البته اگه امكانش هست)

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

4. چاپ مقلوب یک عدد
کد VB که گفتم . خودت دیگه باید به الگوریتم تبدیل بکنی .

Dim a As Double
Dim d As Integer
a = Val(Text1.Text)
While a <> 0
d = a Mod 10
Text2.Text = Text2.Text & d
a = (a - d) / 10
Wend

5. بخش پذیری بر 3
1- شروع
2- یک عدد را بگیر (N)
3- اگر باقی مانده تقسیم N بر 3 برابر 0 بود چاپ کن "بخش پذیر است" و برو به پایان
4- چاپ کن "بخش پذیر نیست"
5- پایان

در مورد فلوچارت هم که رسم اون از روی الگوریتم ساده هست :)

:41:اقا مهدي ميشه براي مسائل 1 و 2 و3 مثال عددي بزني آخه هر كاري كردم جور درنيومد...

:11:خواهش ميكنم راهنمايي كن واسه امروز لازم دارم....

الگوریتم های 1 و 2 را یک قسمتی اش را تصحیح کردم . با این تغییرات ببینید درست شده یا نه .
برای شماره 3 کد وی بی نوشتم .
برای شماره 4 هم یک الگوریتم گذاشتم ، ولی تست نکردم .

شماره 1 :
4- T=1

شماره 2 :
4- اگر باقي مانده N/I برابر صفر بود چاپ كن « اول نيست» و به مرحله 9 برو

شماره 3 :
من کد وی بی اش را براتون نوشتم . خودتون به الگوریتم تبدیل کنید .
m = InputBox("Enter M")
n = InputBox("Enter N")
s = 1
For i = 1 To n
s = m * s
Next i
Print s

این احتمالا برای چاپ مقلوب یک عدد جواب بده . یک امتحانی بکن :
1- شروع
2- یک عدد را بگیر (X)
3- I=X mod 10
4- I را چاپ کن
5- X=INT(X/10)
6- اگر P>0 بود به مرحله 2 برگرد
7- پایان

با اجازه آقا مهدی من برنامه ها رو به زبان پاسکال برای این دوستمون بنویسم ( اگه وقت کنم ! ) ،
این اولیش برای اینکه مشخص کنه عدد کامله یا نه :

کد:

---

program one;
uses wincrt;
var
  num,sum,i:longint;
begin
  write('Please enter a number:');
  readln(num);
  sum:=0;
  for i:=1 to (num-1) do
  begin
      if (num mod i)=0 then
      begin
        sum:=i+sum;
        write(i,' ');
      end;
  end;
  writeln('= ',sum);
  if (num=sum) then writeln('OK')
  else
  writeln('NOKEY !')
end.

---

اینم خود برنامه :

کد:

---

http://karimi.parsaspace.com/Other/one.exe

---

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

کد:

---

program two;
uses wincrt;
var
  num,i:longint;
label
  1;
begin
  write('Please enter a number:');
  readln(num);
  for i:=2 to (num-1) do
  begin
      if (num mod i)=0 then
      begin
        write('NOKEY !');
        goto 1;
      end;
  end;
  writeln('OK');
1:end.

---

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

کد:

---

http://karimi.parsaspace.com/Other/two.exe

---

اینم سومین برنامه به توان رسوندن 2 عدد :

کد:

---

program three;
uses wincrt;
var
  num1,num2,i,p:longint;
begin
  writeln('Please enter two number:');
  readln(num1,num2);
  p:=1;
  for i:=1 to num2 do
  p:=p*num1;
  writeln(num1,' ^ ',num2,' = ',p);
end.

---

کد:

---

http://karimi.parsaspace.com/Other/three.exe

---

چهرمین برنامه هم برای بخش پذیری یک عدد برای 3 :

کد:

---

program four;
uses wincrt;
var
  num,i:longint;
begin
  write('Please enter a number:');
  readln(num);
  if (num mod 3)=0 then
  writeln('OK')
  else
  writeln('NOKEY !');
end.

---

اینم خود برنامه :

کد:

---

http://karimi.parsaspace.com/Other/four.exe

---

اینم آخرین برنامه برای عوض کردن ارقام عدد و مغلوب کردن آن:

کد:

---

program five;
uses wincrt;
var
  num:longint;
begin
  write('Please enter a number:');
  readln(num);
  while num>0 do
  begin
    write(num mod 10);
    num:=num div 10;
  end;
end.

---

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

کد:

---

http://karimi.parsaspace.com/Other/five.exe

---

من الگوریتم ها را توی VB پیاده سازی کردم و درست بود (با آخرین تغییرات که براتون گذاشتم)

ظاهرا دیگه مشکلتون کاملا حل شد! چون [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ] عزیز براتون سورس پاسکال هم گذاشت .

مرسي كريمي جان...

فقط يه مشكلي هست اونم اينكه بايد مسائل فقط از طريق عمليات چهارگانه و باقي مانده و خارج قسمت حل شوند
يعني در نوشتن برنامه نبايد از حلقه هاي تكرار و توابع رياضي استفاده شود.

مثلا براي بخش پذيري يك عدد بر 3 بايد از روش مجموع ارقام (بايد مجموع ارقام بر سه بخش پذير باشد) استفاده كنيم
يعني اول بايد يه كاري كنيم كه ارقام رو از عدد اصلي جدا كنيم و بعد با هم جمع كنيم حال اگر حاصل بر 3 بخش پذير باشد اين عدد هم بر 3 بخش پذير است.

سلام
بهنام جان این حلقه ها برنامه رو کوچکتر و خوندنش رو راحت تر می کنند ، شما اگر به الگوی من نگاه کنید و با یکمی تلاش می تونید از دستور if,else به جای حلقه ها استفاده کنید که یه کم برنامه بزرگتر میشه و امکان خطا بیشتر ...
اون بخشپذیری بر 3 که من از حلقه استفاده نکردم ؟
فقط گفتم عدد رو بگیر
اگر باقیمانده تقسیمش بر 3 شد صفر
بنویس ok
وگرنه بنویس nokey
فقط از اعمال پهار گانه استفاده شده ...
این برنامه هم برای بخشپذیری بر 3 از روش جمع مجموع ارقام و بدون استفاده از حلقه ها که یه کم لقمه رو دور سرمون در حقیقت چرخوندیم ( اون تیکه آخرش رو که با قرمز مشخص کردم خودم برای زیبایی برنامه اضافه کردم که خودت میتونی حذفش کنی ...)

کد:

---

program divisiblethree;
uses wincrt;
var
  num,r,s:longint;
label
  1;
begin
  write('Please enter a number:');
  readln(num);
 1:if num>0 then
  begin
      r:=num mod 10;
      s:=s+r;
      num:=num div 10;
      goto 1;
  end;
  if (s mod 3)=0 then
  write('sum of numbers is ',s,' and this number is divisible')
  else
  write('sum of numbers is ',s,' and this number is not divisible');
end.

---

خوب تمام جوابهايي كه دوست خوبم K R I M I داد قبول اما ... اما .... اصلاً به تمان رسوندن 2 عددو درك مي كني ؟ اقا اگه b عدد طبيعي باشه a^bا يعني a رو b بار در خودش ضرب كن اگه b عدد گيا مثل m/n باشه به صورت ريشه nام a^m تعريف مي كنيم، بماند حالا ريشه Nام يعني چي امما شما چي تعريفي واسه توان غير گوياي يه عد حقيقي داري؟ واقعاً مي توني بدون احضار هيچ تايع از پيش تعريف شدهايي تو يه زبان برنامه نويسي صرفاً با 4 عمل اصلي ريشه غير گوياي يه عدد حقيقي رو حساب كني ؟ من كه خيلي مشطاقم نظرتو در اين باره بدونم.

من که با یه مثال کنترل کردم درست دراومد حالا تو مشکالت کجاست