วันอังคารที่ 22 สิงหาคม พ.ศ. 2560

Small Basic ไม่รู้จัก Mod ?

หาอยู่นานกว่าจะรุูว่า Small Basic มันใช้ตัว Operation Mod ไม่ได้ ...จะเขียนโปรแกรมง่ายๆ ให้หาว่า ตัวเลขที่ป้อนลงไป หารด้วย 5 ลงตัวหรือไม่
เช่น ถ้าเราป้อน 10 มันจะแสดงข้อความว่า ...
Enter x: 10
10 is divisible by 5.

ตัวโปรแกรม คิดไว้ว่าจะเขียนแบบนี้
ให้รับข้อมูลตัวเลขจากคีย์บอร์ด
TextWindow.Write("Enter Number : ")
x = TextWindow.ReadNumber()
If ( x mod 5) = 0 Then แล้วตรวจสอบว่า
ถ้า x หาร(mod) 5 ได้เท่ากับ 0 แสดงว่ามันหาร 5 ลงตัว
  TextWindow.writeLine(x +" is divisible by 5") 
Else 
  TextWindow.writeLine(x +" is not divisible by 5")
แต่ถ้า ไม่ใช่ ก็แสดงว่ามันหาร 5 ไม่ลงตัว
EndIf

แต่ปรากฏว่า พยายามอยู่นาน แก้ก็แล้ว ก็รันไม่ผ่าน มันไม่รู้จัก mod! (แปลกดีแท้ ถ้าเป็นโปรแกรมอื่น คงจะได้ไปแล้ว) จนในที่สุด ต้องเปลี่ยนเป็นแบบนี้...

TextWindow.Write("Enter Number : ")
x = TextWindow.ReadNumber()
If ( Math.Remainder(x,5) = 0 ) Then ' divisible by 5 ใช้  Math.Remainder แทน
  TextWindow.writeLine(x +" is divisible by 5")
Else 
  TextWindow.writeLine(x +" is not divisible by 5") ' Not divisible by 5
EndIf
...

ไม่มีความคิดเห็น:

แสดงความคิดเห็น

โพสต์แนะนำ

ทดสอบบล็อกใหม่ D.I.Y.

Hello world! ยินดีต้อนรับครับ วันนี้เป็นวันดี ที่ได้สมัครทำบล็อก(Blog)ใหม่ ...อีกครั้ง Blog นี้ มีชื่อว่า D.I.Y. งานอิเล็กทรอนิกส์แบบ...