Lösung: Aufgabe 7

---

 

1. Variante	2. Variante	Bildschirmausgabe für Variante 2
schein() Prgm Local i, x, y ClrIO 0 ® x :0 ® y For i, 1, 45   If i < 10 Then     Output y * 10, 7 + 2 * x * 7, i   Else     Output y * 10, 2 *x * 7, i   EndIf   x + 1 ® x   If mod(x, 5)=0 Then     0 ® x     y + 1 ® y   EndIf EndFor EndPrgm	schein() Prgm Local i, s ClrIO "" ® s For i, 1, 45   If i < 10 Then     s&"  "&string(i) ® s   Else     s&" "&string(i) ® s   EndIf   If mod(i, 5) = 0 Then     Disp s     "" ® s   EndIf EndFor EndPrgm

---

zurück