Table of Squares

[illu45]

Hey guys,

I'm trying to make a table that lists a number, makes a space and then lists a sqaure. What I have so far is this:

code:

put "Number", "      ", "Sqaure" for i : 1 .. 50     if i**2 < 100 then         put i, "              ", i ** 2         delay (100)     elsif i ** 2 >= 100 then         put i, "             ", i ** 2         delay (100)     end if end for

The only problem with this is that I want it to move over to the right instead of scrolling. After numerous failed attempts with the locate command, I decided to scrap it adn try to only use the " ", as you can see above, unfortunately, I can't seem to get it to wrap around that way.

Any ideas would be greatly appretiated,
illu45

[person]

can u explain wat u mean by "wrap"?

[ssr]

use something like this

code:

put "x":3

8)

[ssr]

code:

for i:1..16 put i:5.. end for for i:1..16 put i**2:5.. end for for i:1..maxcol put"_".. end for for i:17..32 put i:5.. end for for i:17..32 put i**2:5.. end for for i:1..maxcol put"_".. end for for i:33..48 put i:5.. end for for i:33..48 put i**2:5.. end for for i:1..maxcol put"_".. end for for i:49..50 put i:5.. end for put " " for i:49..50 put i**2:5.. end for

These r such shameful codes
soo long
ppl probably do it in 5 lines
but this just shows the format ...... I think 8)

[Cervantes]

How about this?

Turing:

var output : string var row := 2 var col := 1 put "Number", "      ", "Sqaure" for i : 1 .. 50     output := intstr (i) + "**2 = " + intstr (i ** 2)     if col + length (output) < maxcol then         if col + length (output) + length (" ~~ ") < maxcol then             output += " ~~ "         end if         locate (row, col)         put output ..         col += length (output)     else         row += 1         col := 1     end if     delay (100) end for

[illu45]

That works pretty well, except that the Numbe/Square headings and the numbers don't line up to well... I finished it up at school today, but don't have it on me (at home now), I'll post it on Monday.

[illu45]

Here's the code, as promised:

code:

%Question 6 var row, col : int row := 3 col := 1 put "Number", "      ", "Sqaure" for i : 1 .. 50     if i ** 2 < 100 then         locate (row, col)         row := row + 1         put i, "              ", i ** 2         if row = 25 then             row := 3             col := col + 30             locate (row, col)             put "Number", "      ", "Sqaure"         end if         delay (100)     elsif i ** 2 >= 100 then         locate (row, col)         put i, "             ", i ** 2                row := row + 1         if row = 25 then             row := 3             col := col + 30             locate (1, col)             put "Number", "      ", "Sqaure"         end if         delay (100)     end if end for

[ssr]

illu45 wrote:

Here's the code, as promised:

code:

%Question 6 var row, col : int row := 3 col := 1 put "Number", "      ", "Sqaure" for i : 1 .. 50     if i ** 2 < 100 then         locate (row, col)         row := row + 1         put i, "              ", i ** 2         if row = 25 then             row := 3             col := col + 30             locate (row, col)             put "Number", "      ", "Sqaure"         end if         delay (100)     elsif i ** 2 >= 100 then         locate (row, col)         put i, "             ", i ** 2                row := row + 1         if row = 25 then             row := 3             col := col + 30             locate (1, col)             put "Number", "      ", "Sqaure"         end if         delay (100)     end if end for

lol thats what u wanted...

[ssr]

another code

code:

var c:=1 var r:=1 for i:1..50 r+=1 locate (r,c) put i:2, "  ----->",i**2:4," |" if r =23 then c+=16 r:=1 end if end for

[Flikerator]

ssr wrote:

another code

code:

var c:=1 var r:=1 for i:1..50 r+=1 locate (r,c) put i:2, "  ----->",i**2:4," |" if r =23 then c+=16 r:=1 end if end for

You knocked the shiz outa that code lolz