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, (11 + i + j) * 7, "*"
EndFor
EndFor
EndPrgm
| Programmcode | Bildschirmausgabe für b = 7 |
| letterv()
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, (11 + i + j) * 7, "*" EndFor EndFor EndPrgm |
|