|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 1280 (0x500)
Names: »ERATOSTH.PAS«
└─⟦f983c2ef3⟧ Bits:30004681 Pascal opgaver (Butler)
└─⟦this⟧ »ERATOSTH.PAS«
0x000…020 (0,) e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0xf…]
0x200…220 (1,) 50 52 4f 47 52 41 4d 20 66 61 68 72 65 6e 68 65 3b 0d 0a 0d 0a 20 20 56 41 52 0d 0a 20 20 20 20 ┆PROGRAM fahrenhe; VAR ┆
0x220…240 63 65 6c 73 69 75 73 2c 20 66 61 68 72 65 6e 68 65 69 74 2c 20 72 65 61 6d 75 72 20 3a 20 52 45 ┆celsius, fahrenheit, reamur : RE┆
0x240…260 41 4c 3b 0d 0a 20 20 0d 0a 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 57 52 49 54 45 28 43 4c 52 48 ┆AL; BEGIN WRITE(CLRH┆
0x260…280 4f 4d 29 3b 0d 0a 20 20 20 20 57 52 49 54 45 4c 4e 28 27 50 72 6f 67 72 61 6d 6d 65 74 20 75 64 ┆OM); WRITELN('Programmet ud┆
0x280…2a0 73 6b 72 69 76 65 72 20 43 45 4c 53 49 55 53 2d 20 6f 67 20 52 45 41 55 4d 55 52 2d 67 72 61 64 ┆skriver CELSIUS- og REAUMUR-grad┆
0x2a0…2c0 74 61 6c 6c 65 6e 65 2c 27 29 3b 0d 0a 20 20 20 20 57 52 49 54 45 4c 4e 28 27 6e 7d 72 20 6d 61 ┆tallene,'); WRITELN('når ma┆
0x2c0…2e0 6e 20 69 6e 64 74 61 73 74 65 72 20 67 72 61 64 74 61 6c 6c 65 74 20 66 6f 72 20 46 41 48 52 45 ┆n indtaster gradtallet for FAHRE┆
0x2e0…300 4e 48 45 49 54 27 29 3b 0d 0a 20 20 20 20 57 52 49 54 45 4c 4e 3b 0d 0a 20 20 20 20 57 52 49 54 ┆NHEIT'); WRITELN; WRIT┆
0x300…320 45 28 27 49 6e 64 74 61 73 74 20 46 41 48 52 45 4e 48 45 49 54 3a 20 27 29 3b 20 52 45 41 44 4c ┆E('Indtast FAHRENHEIT: '); READL┆
0x320…340 4e 28 66 61 68 72 65 6e 68 65 69 74 29 3b 0d 0a 20 20 20 20 63 65 6c 73 69 75 73 20 3a 3d 20 28 ┆N(fahrenheit); celsius := (┆
0x340…360 66 61 68 72 65 6e 68 65 69 74 20 2d 20 33 32 29 20 2f 20 31 2e 38 3b 0d 0a 20 20 20 20 72 65 61 ┆fahrenheit - 32) / 1.8; rea┆
0x360…380 6d 75 72 20 3a 3d 20 63 65 6c 73 69 75 73 20 2a 20 30 2e 38 3b 0d 0a 20 20 20 20 57 52 49 54 45 ┆mur := celsius * 0.8; WRITE┆
0x380…3a0 4c 4e 3b 0d 0a 20 20 20 20 57 52 49 54 45 4c 4e 28 27 46 61 68 72 65 6e 68 65 69 74 3a 20 27 2c ┆LN; WRITELN('Fahrenheit: ',┆
0x3a0…3c0 20 66 61 68 72 65 6e 68 65 69 74 20 3a 20 37 20 3a 20 32 29 3b 0d 0a 20 20 20 20 57 52 49 54 45 ┆ fahrenheit : 7 : 2); WRITE┆
0x3c0…3e0 4c 4e 28 27 43 65 6c 73 69 75 73 3a 20 20 20 20 27 2c 20 63 65 6c 73 69 75 73 20 3a 20 37 20 3a ┆LN('Celsius: ', celsius : 7 :┆
0x3e0…400 20 32 29 3b 0d 0a 20 20 20 20 57 52 49 54 45 4c 4e 28 27 52 65 61 6d 75 72 3a 20 20 20 20 20 27 ┆ 2); WRITELN('Reamur: '┆
0x400…420 (2,) 2c 20 72 65 61 6d 75 72 20 3a 20 37 20 3a 20 32 29 3b 0d 0a 20 20 20 20 57 52 49 54 45 4c 4e 3b ┆, reamur : 7 : 2); WRITELN;┆
0x420…440 0d 0a 20 20 45 4e 44 2e 0d 0a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆ END. ┆
0x440…460 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a 1a ┆ ┆
[…0x1…]
0x480…4a0 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 e5 ┆ ┆
[…0x3…]