Advertisement
Guest User

EEE

a guest
May 23rd, 2018
158
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
QBasic 0.28 KB | None | 0 0
  1. CLS
  2. SCREEN 9
  3. 1 PRINT "Kakoi risunok pokazat"
  4. 2 INPUT "1-KRUG/2-PRYMOUGOL/3-OVAL"; X
  5.  
  6. 3 IF X = 1 GOTO 6
  7. 4 IF X = 2 GOTO 8
  8. 5 IF X = 3 GOTO 10
  9. 6 CIRCLE (100, 90), 30, 9
  10. 7 END
  11. 8 LINE (200, 200)-(250, 250), 4, BF
  12. 9 END
  13. 10 CIRCLE (300, 300), 30, 14, , , 0.5
  14. 11 END
  15. 12
  16. 13
  17. 14
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement