DataMuseum.dk

Presents historical artifacts from the history of:

MIKADOS

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about MIKADOS

Excavated with: AutoArchaeologist - Free & Open Source Software.

top - metrics - download

⟦9aeabdba2⟧

    Length: 2528 (0x9e0)
    Notes: Mikados TextFile, Mikados_K
    Names: »PYTHAGOR«

Derivation

└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
    └─⟦this⟧ »PYTHAGOR« 
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
    └─⟦this⟧ »PYTHAGOR«

Text

0010 // -------------------- pyth_talsæt -------------------
0020 // Simpel bestemmelse af pythagoræiske talsæt
0030 // 
0035 INTEGER A,B,C,MAX
0040 CLEAR 
0045 PRINT 
0050 INPUT "Indtast øverste grænse for tallene:  ":MAX
0060 PRINT 
0070 PRINT "      A       B       C"
0080 PRINT 
0090 FOR C:=1 TO MAX DO 
0100 FOR B:=1 TO C DO 
0110 FOR A:=1 TO B DO 
0120 IF A*A+B*B=C*C THEN 
0130 PRINT USING "   ####    ####    #### ":A,B,C
0140 ENDIF 
0150 NEXT A
0160 NEXT B
0170 NEXT C