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

⟦96a117166⟧ TextFile

    Length: 480 (0x1e0)
    Types: TextFile
    Notes: Mikados TextFile, Mikados_K
    Names: »KVADRATT«

Derivation

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

Text

0010 // --------------------- kvadrattal -------------------
0020 // Programmet undersøger, om et givet tal er et kvadrattal.
0025 // Fungerer ikke i denne COMAL-vers. p.g.a. funktionernes unøjagtighed

TextFile

<0010 // --------------------- kvadrattal -------------------<@0020 // Programmet undersøger, om et givet tal er et kvadrattal.@K0025 // Fungerer ikke i denne COMAL-vers. p.g.a. funktionernes unøjagtighedK▶00◀▶00◀030 CLEAR ▶0b◀▶0b◀0035 PRINT ▶0b◀*0040 INPUT "Indtast et positivt tal: ":TAL*▶0b◀0050 PRINT ▶0b◀$0060 IF SQR(TAL)=INT(SQR(TAL)) THEN $+0070 PRINT TAL," er kvadratet på ",SQR(TAL)+
0080 ELSE 
*0090 PRINT TAL," er ikke noget kvadrattal"*▶0b◀0100 ENDIF ▶0b◀▶00◀▶00◀cccccccccccccccccccccccccccccccccccccc