|
DataMuseum.dkPresents historical artifacts from the history of: Bogika Butler |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Bogika Butler Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 512 (0x200) Types: TextFile Names: »FIBOFORH.PAS«
└─⟦f983c2ef3⟧ Bits:30004681 Pascal opgaver (Butler) └─ ⟦this⟧ »FIBOFORH.PAS«
PROGRAM fiboforh; CONST antal = 50; VAR a, b, gem, forhold : REAL; i : INTEGER; BEGIN WRITE(CLRHOM); a := 1; b := 1; FOR i := 1 TO antal DO BEGIN gem := b; b := a + b; a := gem; forhold := b / a; WRITELN(a : 15 : 0, b : 15 : 0, forhold : 15 : 8, SQR(2 * forhold - 1) : 15 : 8); END; END. «eof»