Prgm
Local r
ClrIO
Input "Radius", r
ClrIO
Disp "Kreisberechnungen"
Disp ""
Disp "Radius: "&string(r)
Disp "Umfang: "&srting(2*r*p)
Disp "Fläche: "&string(r^2*p)
EndPrgm
| Programmcode | Bildschirmausgabe |
| kreis()
Prgm Local r ClrIO Input "Radius", r ClrIO Disp "Kreisberechnungen" Disp "" Disp "Radius: "&string(r) Disp "Umfang: "&srting(2*r*p) Disp "Fläche: "&string(r^2*p) EndPrgm |
|