home *** CD-ROM | disk | FTP | other *** search
/ Magic Disk 64 / Magic_Disk_64_89-02_1989_-_de_Side_B.d64 / zylinder (.txt) < prev   
Commodore BASIC  |  2023-02-26  |  384b  |  12 lines
  1. 10 print chr$(14);
  2. 20 print"[147]    [218]ylinderoberflaechenberechnung"
  3. 30 input"[210]adius ";r
  4. 40 input"[200]oehe ";h
  5. 50 o=2*r*(NULL)*(r+h)
  6. 60 print"[196]ie [207]berflaeche eines [218]ylinders mit"
  7. 70 print"der [200]oehe"h"und dem [210]adius"r
  8. 80 print"betraegt"o
  9. 90 input"[206]och eine [194]erechnung ";a$
  10. 100 if a$="j"thenrun
  11. 110 end
  12.