Prgm
Local i, j, z
ClrIO
Request "Zeilen", z
expr(z) ® z
ClrIO
For i, 0, z - 1
For j, z - i, z + i
Output i * 8, j * 7, "*"
EndFor
EndFor
EndPrgm
| Programmcode | Bildschirmausgabe für z = 11 |
| dreieck()
Prgm Local i, j, z ClrIO Request "Zeilen", z expr(z) ® z ClrIO For i, 0, z - 1 For j, z - i, z + i Output i * 8, j * 7, "*" EndFor EndFor EndPrgm |
|