DataMuseum.dk

Presents historical artifacts from the history of:

RegneCentralen RC3600/RC7000

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

See our Wiki for more about RegneCentralen RC3600/RC7000

Excavated with: AutoArchaeologist - Free & Open Source Software.

top - download

⟦341ea76e0⟧ TextFile

    Length: 383 (0x17f)
    Types: TextFile
    Names: »SIMPS «

Derivation

└─⟦3d9d2c4f1⟧ Bits:30001780 SG0000 Floppy
    └─⟦this⟧

TextFile

«ff»
  0010 PRINT "FUNKTIONSFORSKRIFTEN INDFØRES SOM FNF(X) I LINJE 20"
  0020 DEF FNF(X)=X^2+2*X+1
  0030 INPUT "STARTVÆRDI:",A
  0040 INPUT "SLUTVÆRDI:",B
  0050 INPUT "STEPVÆRDI:",D
  0060 LET S=0; W=FNF(A)
  0070 FOR I=A+D TO B STEP D
  0080   LET V=W
  0090   LET W=FNF(I)
  0100   LET S=S+D*(V+4*FNF(I-D/2)+W)/6
  0110 NEXT I
  0120 PRINT "INTEGRALE =";S
  0130 STOP