Pythagorean table

[rasim]

Ok, just from curiosity, there is any (easy) way to creating the Pythagor table? My solution muttley

#include <Array.au3>

Global $aNumbers[10][10]

;Array filling
For $i = 1 To UBound($aNumbers) - 1
    $aNumbers[$i][0] = $i
    $aNumbers[0][$i] = $i
Next

;Multiplying
For $i = 1 To UBound($aNumbers) - 1
    For $j = 1 To UBound($aNumbers) - 1
        $aNumbers[$i][$j] = $aNumbers[$i][0] * $aNumbers[0][$j]
    Next
Next

_ArrayDisplay($aNumbers)

[Malkey]

Ok, just from curiosity, there is any (easy) way to creating the Pythagor table? My solution muttley

#include <Array.au3>

Global $aNumbers[10][10]

;Array filling
For $i = 1 To UBound($aNumbers) - 1
    $aNumbers[$i][0] = $i
    $aNumbers[0][$i] = $i
Next

;Multiplying
For $i = 1 To UBound($aNumbers) - 1
    For $j = 1 To UBound($aNumbers) - 1
        $aNumbers[$i][$j] = $aNumbers[$i][0] * $aNumbers[0][$j]
    Next
Next

_ArrayDisplay($aNumbers)oÝ÷ Ûú®¢×z·¢¶+"ÞÍ{e¢Sê.¶­$²Ø^±©j̨º»ºÚ"µÍÚ[ÛYH    Ð^K]LÉÝÂØØ[   ÌÍØS[XÖÌLVÌLNÓ][Z[ÂÜ   ÌÍÚHHHÈPÝ[
    ÌÍØS[XÊHHBÜ    ÌÍÚHHÈPÝ[
    ÌÍØS[XÊHHBBIÌÍØS[XÖÉÌÍÚWVÌHH   ÌÍÚBBIÌÍØS[XÖÌVÉÌÍÚHH   ÌÍÚ  ÌÍØS[XÖÉÌÍÚWVÉÌÍÚHH ÌÍÚJÌÍÚBB^^Ð^QÜ^J   ÌÍØS[XÊ

[rasim]

Malkey

Yea! Nice solution! Thank you! muttley

[rasim]

Corrected:

#include <Array.au3>

Local $aNumbers[10][10];Multiplying

For $i = 1 To UBound($aNumbers) - 1
    $aNumbers[$i][0] = $i
    $aNumbers[0][$i] = $i
    
    For $j = 1 To UBound($aNumbers) - 1
        $aNumbers[$i][$j] = $i * $j
    Next
Next

_ArrayDisplay($aNumbers)

[BrettF]

Corrected:

#include <Array.au3>

Local $aNumbers[10][10];Multiplying

For $i = 1 To UBound($aNumbers) - 1
    $aNumbers[$i][0] = $i
    $aNumbers[0][$i] = $i
    
    For $j = 1 To UBound($aNumbers) - 1
        $aNumbers[$i][$j] = $i * $j
    Next
Next

_ArrayDisplay($aNumbers)

Could have kept as:

#include <Array.au3>

Local $aNumbers[10][10];Multiplying
For $i = 1 To UBound($aNumbers) - 1
    For $j = 1 To UBound($aNumbers) - 1
        $aNumbers[$i][0] = $i
        $aNumbers[0][$i] = $i
        $aNumbers[$i][$j] = $i*$j     
    Next
Next

_ArrayDisplay($aNumbers)

Either all, it works the same muttley

[SmOke_N]

Could have kept as:

#include <Array.au3>

Local $aNumbers[10][10];Multiplying
For $i = 1 To UBound($aNumbers) - 1
    For $j = 1 To UBound($aNumbers) - 1
        $aNumbers[$i][0] = $i
        $aNumbers[0][$i] = $i
        $aNumbers[$i][$j] = $i*$j     
    Next
Next

_ArrayDisplay($aNumbers)

Either all, it works the same muttley

The output might be the same... but it certainly does Not work the same.

[rasim]

Bert

As say SmOke_N your example not work the same, also your example do slowed work. Why need to set same value into this array 9 time

$aNumbers[$i][0] = $i
$aNumbers[0][$i] = $i

muttley

[BrettF]

Ok muttley should have known....