magies vierkanten

Geef hier je beste Liberty BASIC tips door. (Hier geen hulp vragen)

Moderators: anthonio, Abcott

magies vierkanten

Berichtdoor bluatigro » zo aug 14, 2011 6:32 pm

voor t maken van magiese vierkanten van ELKE grootte
helaas weet het guines book of records ook dat deze truk bestaat
Code: Selecteer alles
input "number = [ must be odd ]" ; nr$
n = val( nr$ )
dim p( n , n )
x = int( n / 2 - 1 )
y = int( n / 2 - 1 ) + 1
for a = 0 to n - 1
  for b = 0 to n - 1
    x = ( x + 1 ) mod n
    y = ( y + 1 ) mod n
    p( x , y ) = a + b * n + 1
  next b
  x = ( x - 1 ) mod n
  y = ( y + 1 ) mod n
next a
for x = 0 to n-1
  for y = 0 to n-1
    print right$( "    " ; p( y , x ) , 4 ) ;
  next y
  print
next x
bluatigro
 
Berichten: 306
Geregistreerd: za sep 27, 2008 6:01 pm

Keer terug naar Tips en informatie

Wie is er online

Gebruikers op dit forum: Geen geregistreerde gebruikers. en 1 gast

cron