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

با سلام...

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


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

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 بخش پذير است.