Pythagorean Triples

Developer(s): Gene G. Buza
Date: November 1983
Type: Program
Platform(s): TS 1000

Appears on

Synchro-Sette November 1983
Cassette to accompany the November 1983 issue of Synchro-Sette.

Source Code

   0  % %W%R%I%T%T%E%N% %B%Y% %G%E%N%E% %B%U%Z%A%           % % %O%F% %T%H%E% %S% %A%N%D% %S% %C%O%.% % 
  10 LET A=0
  80 CLS 
  90 PRINT AT 20,4;"PYTHAGOREAN TRIPLES"
 100 SCROLL 
 110 FOR X=1 TO 75
 120 FOR Y=X TO 100
 130 LET H=(X*X+Y*Y)**.5+.00000004
 140 IF H-INT H>.0000001 THEN GOTO 190
 150 PRINT X;" ";Y;" ";H,
 160 LET A=A+1
 170 IF A/2=INT (A/2) THEN SCROLL 
 180 PAUSE 40000
 190 NEXT Y
 200 NEXT X
9997 STOP 
9998 SAVE "SIDE%S"
9999 GOTO 10

Tags

People

Scroll to Top