News:

Masm32 SDK description, downloads and other helpful links
Message to All Guests

Main Menu

Floyd's triangle

Started by jj2007, October 18, 2018, 07:49:56 AM

Previous topic - Next topic

jj2007

https://rosettacode.org/wiki/Floyd%27s_triangle
QuoteTask
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


  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