Guest User

Untitled

a guest
Jul 16th, 2021
11
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.87 KB | None | 0 0
  1. بسم الله الحكيم الخبير
  2. (۩۩ 80 100 ۩۩)
  3. (۩۩ | | ۩۩)
  4. (۩۩................................................................................ ................... ۩۩)
  5.  
  6. استعمل الخوارزم.وسائط.شاشة؛
  7. استعمل الخوارزم.نظام.ذاكرة؛
  8.  
  9. الدالة إلى_رقم (رقم_نصي حرف) صحيح {
  10. المتغير أرقام [10] حرف := ['0'، '1'، '2'، '3'، '4'، '5'،' 6'، '7'، '8'، '9']؛
  11. المتغير ف صحيح؛
  12. المتغير رقم صحيح؛
  13. لاجل ف := 0؛ ف كما صحيح طبيعي < طول(أرقام)؛ ف++ {
  14. اذا أرقام[ف] = رقم_نصي {
  15. رقم := ف؛
  16. }
  17. }
  18. ارجع رقم؛
  19. }
  20.  
  21. الدالة إلى_عدد(العدد_النصي ۢحرف، طول_العدد صحيح طبيعي) صحيح {
  22. (۩ المتغيرات التي سوف نستخدمها ۩)
  23. المتغير العدد صحيح := 0؛
  24. المتغير المضروب صحيح := 1؛
  25. المتغير ف صحيح طبيعي؛
  26.  
  27. (۩ التأكد إذا الطول أكبر أو يساوي الصفر ۩)
  28. اذا طول_العدد <= 0 {
  29. ارجع 0؛
  30. }
  31.  
  32. (۩ إبدأ من نهاية النص (إي من الآحاد) ۩)
  33. لاجل ف := طول_العدد - 1_ط؛ ف >= 0؛ ف-- {
  34. العدد +:= إلى_رقم(العدد_النصي[ف]) × المضروب؛
  35. اكتب("قيمة ف: ")
  36. اكتب(ف)؛
  37. اكتب('/س')؛
  38. المضروب ×:= 10؛
  39. }
  40. ارجع العدد؛
  41. }
  42.  
  43. الدالة الاصل() {
  44. المتغير العدد_النصي ۢحرف := "200"؛
  45. المتغير العدد_الصحيح صحيح := إلى_عدد(العدد_النصي، 3)؛
  46. اكتب(العدد_الصحيح)؛
  47. }
Advertisement
Add Comment
Please, Sign In to add comment