home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Educational / PYTHAGOREAN-TRIP (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  384 b   |  19 lines
  1. 5 PRINT"[147]":POKE 53281,0:POKE53280,0
  2. 10 PRINT"INPUT THE DESIRED NUMBER";
  3. 20 INPUTN
  4. 30 IF N*(N-1)*(N-2)<>0THEN60
  5. 40 PRINT"THERE IS NO SUCH TRIPLE."
  6. 50 GOTO 150
  7. 60 IF INT (N/2)<>N/2 THEN 120
  8. 70 IF N=4THEN110
  9. 80 LETN=N/2
  10. 90 LETC=C+1
  11. 100 GOTO 60
  12. 110 LETN=3
  13. 120 PRINT"A PYTHAGOREAN TRIPLE IS:"
  14. 130 LET B=INT(N^2/2)
  15. 140 PRINT 2 ^ C * N,2 ^ C * B,2 ^ C * (B+1)
  16. 150 PRINT"ANOTHER [Y/N]";V$
  17. 160 INPUT V$
  18. 170 IF V$="Y" THEN GOTO 5
  19.