OpenEuphoria

Re: Sequence items to a single number ? How to achieve ?

• Posted by Selgor Feb 04, 2011
• 1367 views

Hello

Selgor here

I should have given you the code

Sorry

Where would you put your code in the following
I tried but no work
It is me NOT your code

Thank you for replying
Cheers

Anticipating your reply

programme:=

include get.e 
                    sequence  seq         seq = repeat(0,30) 
    object number,n1,times,w 
                   number = 0    times = 0  n1 =0 
 
  number = prompt_number("Type a number then enter  ",{}) 
                      n1 = number 
 
      while n1 != 0 do 
         times += 1 
 
         seq[times] = remainder(n1,2) 
 
         n1 = floor(n1/2) 
 
 
       end while 
       puts(1,"\n") 
 
       for i = 1 to times do 
       puts(1,"Seq =") 
        -- puts(1,"\n") 
           	printf(1,"%4d",seq[i]) 
           	puts(1,"\n") 
	end for 
 
 
                 w= wait_key()