-----------------------------------

uberwalla

Sat Dec 16, 2006 1:18 am


Adding digits in a number

-----------------------------------

i do no have a big problem but i just wanted to see if there was a way i could make this code better. i made this for an assignment in tech. it is supposed to add the digits of a number together. u was just wondering if there is an easier way to make this? without using all the instr and strint's and stuff :P lol

here is my code:

%The "AddDigits" Program
%By: Mike Lanthier
%November 29, 2006
var num : int
var YesOrNo : string
var winID := Window.Open ("nobuttonbar")
fcn AddNumber (number : int) : int
    var n1, n2, n3, t : int
    var IntToString, IntToString1, IntToString2, IntToString3 : string
    IntToString := intstr (number)
    IntToString1 := IntToString (1)
    IntToString2 := IntToString (2)
    IntToString3 := IntToString (3)
    n1 := strint (IntToString1)
    n2 := strint (IntToString2)
    n3 := strint (IntToString3)
    t := n1 + n2 + n3
    result t
end AddNumber
loop
    put "Please Enter A Three Digit Number And I Will Add The Seperate Digits Together."
    get num
    if num >= 1000 or num