Prgm
Local summe, n, i
ClrIO
Request "natürliche Zahl: ", n
expr(n) ® n
0 ® summe
For i, 1, n
summe + i ® summe
EndFor
Disp "Summe von 1 bis "&string(n)&": " &string(summe)
EndPrgm
| Programmcode | Bildschirmausgabe |
| add()
Prgm Local summe, n, i ClrIO Request "natürliche Zahl: ", n expr(n) ® n 0 ® summe For i, 1, n summe + i ® summe EndFor Disp "Summe von 1 bis "&string(n)&": " &string(summe) EndPrgm |
|