Author Topic: Floyd's triangle  (Read 107 times)

jj2007

  • Member
  • *****
  • Posts: 8826
  • Assembler is fun ;-)
    • MasmBasic
Floyd's triangle
« on: October 18, 2018, 07:49:56 AM »
https://rosettacode.org/wiki/Floyd%27s_triangle
Quote
Task
Write a program to generate and display here the first n lines of a Floyd triangle.
(Use n=5 and n=14 rows).
Ensure that when displayed in a mono-space font, the numbers line up in vertical columns as shown and that only one space separates numbers of the last row.

include \masm32\MasmBasic\MasmBasic.inc         ; download
  SetGlobals rows, columns, ct, maxrows=4
  Init
  .Repeat
        For_ rows=0 To maxrows
                For_ columns=0 To rows
                                inc ct
                                Print Str$("%__i", ct)
                                .if columns>6
                                        Print " "
                                .endif
                Next
                Print
        Next
        Print
        Clr ct
        add maxrows, 9          ; 4+9=13
  .Until maxrows>13
  Inkey
EndOfCode


Code: [Select]
  1
  2  3
  4  5  6
  7  8  9 10
 11 12 13 14 15

  1
  2  3
  4  5  6
  7  8  9 10
 11 12 13 14 15
 16 17 18 19 20 21
 22 23 24 25 26 27 28
 29 30 31 32 33 34 35 36
 37 38 39 40 41 42 43 44  45
 46 47 48 49 50 51 52 53  54  55
 56 57 58 59 60 61 62 63  64  65  66
 67 68 69 70 71 72 73 74  75  76  77  78
 79 80 81 82 83 84 85 86  87  88  89  90  91
 92 93 94 95 96 97 98 99 100 101 102 103 104 105