|
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 - download
Length: 2432 (0x980)
Names: »PANT.PAS«
└─⟦f983c2ef3⟧ Bits:30004681 Pascal opgaver (Butler)
└─⟦this⟧ »PANT.PAS«
0x000…020 (0,) 50 52 4f 47 52 41 4d 20 70 61 6e 74 3b 0d 0a 0d 0a 20 20 56 41 52 0d 0a 20 20 20 20 64 61 67 65 ┆PROGRAM pant; VAR dage┆
0x020…040 2c 20 61 61 72 20 3a 20 49 4e 54 45 47 45 52 3b 0d 0a 20 20 20 20 72 65 73 74 2c 20 79 64 65 6c ┆, aar : INTEGER; rest, ydel┆
0x040…060 73 65 2c 20 64 65 6c 79 64 65 6c 73 65 2c 20 72 2c 20 72 65 6e 74 65 2c 20 61 66 64 72 61 67 20 ┆se, delydelse, r, rente, afdrag ┆
0x060…080 3a 20 52 45 41 4c 3b 0d 0a 20 20 20 20 6d 61 61 6e 65 64 20 3a 20 53 54 52 49 4e 47 28 2e 33 2e ┆: REAL; maaned : STRING(.3.┆
0x080…0a0 29 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 4f ┆); BEGIN WRITE(CLRHO┆
0x0a0…0c0 4d 29 3b 0d 0a 20 20 20 20 57 52 49 54 45 4c 4e 28 27 50 41 4e 54 45 42 52 45 56 27 29 3b 0d 0a ┆M); WRITELN('PANTEBREV'); ┆
0x0c0…0e0 20 20 20 20 57 52 49 54 45 4c 4e 28 27 2d 2d 2d 2d 2d 2d 2d 2d 2d 27 29 3b 0d 0a 20 20 20 20 57 ┆ WRITELN('---------'); W┆
0x0e0…100 52 49 54 45 4c 4e 3b 0d 0a 20 20 20 20 57 52 49 54 45 28 27 54 61 73 74 20 68 6f 76 65 64 73 74 ┆RITELN; WRITE('Tast hovedst┆
0x100…120 6f 6c 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 29 3b 20 52 45 41 44 4c 4e 28 72 65 ┆ol: '); READLN(re┆
0x120…140 73 74 29 3b 0d 0a 20 20 20 20 57 52 49 54 45 28 27 54 61 73 74 20 79 64 65 6c 73 65 20 70 72 2e ┆st); WRITE('Tast ydelse pr.┆
0x140…160 20 74 65 72 6d 69 6e 3a 20 20 20 20 20 20 20 20 27 29 3b 20 52 45 41 44 4c 4e 28 79 64 65 6c 73 ┆ termin: '); READLN(ydels┆
0x160…180 65 29 3b 0d 0a 20 20 20 20 57 52 49 54 45 28 27 54 61 73 74 20 72 65 6e 74 65 6e 20 69 20 25 20 ┆e); WRITE('Tast renten i % ┆
0x180…1a0 70 72 2e 20 74 65 72 6d 69 6e 3a 20 20 20 20 27 29 3b 20 52 45 41 44 4c 4e 28 72 29 3b 0d 0a 20 ┆pr. termin: '); READLN(r); ┆
0x1a0…1c0 20 20 20 57 52 49 54 45 28 27 54 61 73 74 20 61 6e 74 61 6c 20 64 61 67 65 20 69 20 31 2e 20 74 ┆ WRITE('Tast antal dage i 1. t┆
0x1c0…1e0 65 72 6d 69 6e 3a 20 20 20 27 29 3b 20 52 45 41 44 4c 4e 28 64 61 67 65 29 3b 0d 0a 20 20 20 20 ┆ermin: '); READLN(dage); ┆
0x1e0…200 52 45 50 45 41 54 0d 0a 20 20 20 20 20 20 57 52 49 54 45 28 27 54 61 73 74 20 74 65 72 6d 69 6e ┆REPEAT WRITE('Tast termin┆
0x200…220 (1,) 73 6d 7d 6e 65 64 65 6e 20 66 6f 72 20 31 2e 20 74 65 72 6d 69 6e 20 28 6a 75 6e 2f 64 65 63 29 ┆småneden for 1. termin (jun/dec)┆
0x220…240 3a 20 27 29 3b 0d 0a 20 20 20 20 20 20 52 45 41 44 4c 4e 28 6d 61 61 6e 65 64 29 3b 0d 0a 20 20 ┆: '); READLN(maaned); ┆
0x240…260 20 20 55 4e 54 49 4c 20 28 6d 61 61 6e 65 64 20 3d 20 27 6a 75 6e 27 29 20 4f 52 20 28 6d 61 61 ┆ UNTIL (maaned = 'jun') OR (maa┆
0x260…280 6e 65 64 20 3d 20 27 64 65 63 27 29 3b 0d 0a 20 20 20 20 57 52 49 54 45 28 27 54 61 73 74 20 7d ┆ned = 'dec'); WRITE('Tast å┆
0x280…2a0 72 73 74 61 6c 6c 65 74 20 66 6f 72 20 31 2e 20 74 65 72 6d 69 6e 3a 20 20 20 20 20 20 20 20 20 ┆rstallet for 1. termin: ┆
0x2a0…2c0 20 20 20 20 20 20 20 27 29 3b 20 52 45 41 44 4c 4e 28 61 61 72 29 3b 0d 0a 20 20 20 20 49 46 20 ┆ '); READLN(aar); IF ┆
0x2c0…2e0 6d 61 61 6e 65 64 20 3d 20 27 6a 75 6e 27 0d 0a 20 20 20 20 20 20 54 48 45 4e 20 6d 61 61 6e 65 ┆maaned = 'jun' THEN maane┆
0x2e0…300 64 20 3a 3d 20 27 4a 55 4e 27 0d 0a 20 20 20 20 20 20 45 4c 53 45 20 6d 61 61 6e 65 64 20 3a 3d ┆d := 'JUN' ELSE maaned :=┆
0x300…320 20 27 44 45 43 27 3b 0d 0a 20 20 20 20 57 52 49 54 45 28 43 4c 52 48 4f 4d 29 3b 0d 0a 20 20 20 ┆ 'DEC'; WRITE(CLRHOM); ┆
0x320…340 20 57 52 49 54 45 4c 4e 28 27 20 27 20 3a 20 32 35 2c 20 27 48 6f 76 65 64 73 74 6f 6c 3a 20 20 ┆ WRITELN(' ' : 25, 'Hovedstol: ┆
0x340…360 20 20 20 20 20 20 20 20 20 27 2c 20 72 65 73 74 20 3a 20 31 32 20 3a 20 32 29 3b 0d 0a 20 20 20 ┆ ', rest : 12 : 2); ┆
0x360…380 20 57 52 49 54 45 4c 4e 28 27 20 27 20 3a 20 32 35 2c 20 27 59 64 65 6c 73 65 20 70 72 2e 20 74 ┆ WRITELN(' ' : 25, 'Ydelse pr. t┆
0x380…3a0 65 72 6d 69 6e 3a 20 20 20 27 2c 20 79 64 65 6c 73 65 20 3a 20 31 32 20 3a 20 32 29 3b 0d 0a 20 ┆ermin: ', ydelse : 12 : 2); ┆
0x3a0…3c0 20 20 20 57 52 49 54 45 4c 4e 28 27 20 27 20 3a 20 32 35 2c 20 27 52 65 6e 74 65 20 70 72 2e 20 ┆ WRITELN(' ' : 25, 'Rente pr. ┆
0x3c0…3e0 74 65 72 6d 69 6e 3a 20 20 20 20 27 2c 20 72 20 3a 20 31 32 20 3a 20 32 2c 20 27 25 27 29 3b 0d ┆termin: ', r : 12 : 2, '%'); ┆
0x3e0…400 0a 20 20 20 20 57 52 49 54 45 4c 4e 28 27 20 27 20 3a 20 32 35 2c 20 27 44 61 67 65 20 69 20 31 ┆ WRITELN(' ' : 25, 'Dage i 1┆
0x400…420 (2,) 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 ┆ ┆
[…0x2b…]