| 1.Variante | 2.Variante |
| letterx()
Prgm Local i, j, b ClrIO Request "Breite", b expr(b) ® b ClrIO For i, 0, 11 For j, 1, b Output i * 8, (i + j) * 7, "*" EndFor EndFor For i, 11, 0, -1 For j, 1, b Output i * 8, (11 - i + j) * 7, "*" EndFor EndFor EndPrgm |
letterx()
Prgm Local i, j, b ClrIO Request "Breite", b expr(b) ® b ClrIO For i, 0, 11 For j, 1, b Output i * 8, (i + j) * 7, "*" EndFor EndFor For i, 0, 11 For j, 1, b Output (11 - i) * 8, (i + j) * 7, "*" EndFor EndFor EndPrgm |