Instructions

Kapitel 17: Anwendungsbeispiele 518
Nach der Ausführung des Programms können Sie die Abbildung mit dem Befehl
RecallPic 6 abrufen und anzeigen.
:If 1à3<N and N2à3
:Then
:.5(.5+X)!X
:.5(1+Y)!Y
:End
If/Then Gruppe.
:If 2à3<N
:Then
:.5(1+X)!X
:.5Y!Y
:End
If/Then Gruppe.
:Pt-On(X,Y)
:End
:StorePic 6
Zeichnen eines Punktes.
Ende der For Gruppe.
Abbildung speichern.