Prgm
Local i, anf, ende
ClrIO
Dialog
Title "Eingabe von zwei Jahreszahlen"
Request "von ", anf
Request "bis ", ende
EndDlog
expr(anf) ® anf
expr(ende) ® ende
For i, anf, ende
If isschalt(i)
Disp i
EndFor
EndPrgm
| Programmcode | Bildschirmausgabe |
| sjliste()
Prgm Local i, anf, ende ClrIO Dialog Title "Eingabe von zwei Jahreszahlen" Request "von ", anf Request "bis ", ende EndDlog expr(anf) ® anf expr(ende) ® ende For i, anf, ende If isschalt(i) Disp i EndFor EndPrgm |
|