|
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: 3968 (0xf80)
Names: »OVERF_1.PAS«
└─⟦f983c2ef3⟧ Bits:30004681 Pascal opgaver (Butler)
└─⟦this⟧ »OVERF_1.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 ┆ ┆
[…0x1f…]
0x400…420 (2,) 6f 65 6a 64 65 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 6f 76 65 72 66 6c 61 64 65 20 3a 3d 20 32 ┆oejde; overflade := 2┆
0x420…440 20 2a 20 6f 76 65 72 66 6c 61 64 65 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4c 4e ┆ * overflade; WRITELN┆
0x440…460 28 27 4b 61 73 73 65 6e 73 20 6f 76 65 72 66 6c 61 64 65 3a 20 27 2c 20 6f 76 65 72 66 6c 61 64 ┆('Kassens overflade: ', overflad┆
0x460…480 65 20 3a 20 31 30 20 3a 20 32 2c 20 27 20 63 6d 32 27 29 3b 0d 0a 20 20 20 20 20 20 20 20 45 4e ┆e : 10 : 2, ' cm2'); EN┆
0x480…4a0 44 0d 0a 20 20 20 20 0d 0a 20 20 20 20 45 4c 53 45 20 49 46 20 6f 65 6e 73 6b 65 20 3d 20 32 0d ┆D ELSE IF oenske = 2 ┆
0x4a0…4c0 0a 20 20 20 20 20 20 54 48 45 4e 0d 0a 20 20 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 ┆ THEN BEGIN ┆
0x4c0…4e0 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 27 4f 56 45 52 46 4c 41 44 45 20 41 46 20 45 4e 20 43 ┆ WRITELN('OVERFLADE AF EN C┆
0x4e0…500 59 4c 49 4e 44 45 52 3a 27 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 27 ┆YLINDER:'); WRITELN('┆
0x500…520 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 27 29 3b 0d 0a 20 20 ┆-------------------------'); ┆
0x520…540 20 20 20 20 20 20 20 20 57 52 49 54 45 4c 4e 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 57 52 49 54 ┆ WRITELN; WRIT┆
0x540…560 45 28 27 49 6e 64 74 61 73 74 20 63 79 6c 69 6e 64 65 72 65 6e 73 20 68 7c 6a 64 65 3a 20 20 27 ┆E('Indtast cylinderens højde: '┆
0x560…580 29 3b 20 52 45 41 44 4c 4e 28 68 6f 65 6a 64 65 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 57 52 ┆); READLN(hoejde); WR┆
0x580…5a0 49 54 45 28 27 49 6e 64 74 61 73 74 20 63 79 6c 69 6e 64 65 72 65 6e 73 20 72 61 64 69 75 73 3a ┆ITE('Indtast cylinderens radius:┆
0x5a0…5c0 20 27 29 3b 20 52 45 41 44 4c 4e 28 72 61 64 69 75 73 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 ┆ '); READLN(radius); ┆
0x5c0…5e0 57 52 49 54 45 4c 4e 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 6f 76 65 72 66 6c 61 64 65 20 3a 3d ┆WRITELN; overflade :=┆
0x5e0…600 20 32 20 2a 20 50 49 20 2a 20 72 61 64 69 75 73 20 2a 20 68 6f 65 6a 64 65 3b 0d 0a 20 20 20 20 ┆ 2 * PI * radius * hoejde; ┆
0x600…620 (3,) 20 20 20 20 20 20 74 6f 74 61 6c 6f 76 65 72 66 6c 61 64 65 20 3a 3d 20 6f 76 65 72 66 6c 61 64 ┆ totaloverflade := overflad┆
0x620…640 65 20 2b 20 32 20 2a 20 50 49 20 2a 20 53 51 52 28 72 61 64 69 75 73 29 3b 0d 0a 20 20 20 20 20 ┆e + 2 * PI * SQR(radius); ┆
0x640…660 20 20 20 20 20 57 52 49 54 45 4c 4e 28 27 43 79 6c 69 6e 64 65 72 65 6e 73 20 6b 72 75 6d 6d 65 ┆ WRITELN('Cylinderens krumme┆
0x660…680 20 6f 76 65 72 66 6c 61 64 65 3a 20 27 2c 20 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ overflade: ', ┆
0x680…6a0 20 20 20 6f 76 65 72 66 6c 61 64 65 20 3a 20 31 30 20 3a 20 32 2c 20 27 20 63 6d 32 27 29 3b 0d ┆ overflade : 10 : 2, ' cm2'); ┆
0x6a0…6c0 0a 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 27 43 79 6c 69 6e 64 65 72 65 6e 73 20 ┆ WRITELN('Cylinderens ┆
0x6c0…6e0 74 6f 74 61 6c 6f 76 65 72 66 6c 61 64 65 3a 20 20 20 27 2c 0d 0a 20 20 20 20 20 20 20 20 20 20 ┆totaloverflade: ', ┆
0x6e0…700 20 20 20 20 20 20 20 20 74 6f 74 61 6c 6f 76 65 72 66 6c 61 64 65 20 3a 20 31 30 20 3a 20 32 2c ┆ totaloverflade : 10 : 2,┆
0x700…720 20 27 20 63 6d 32 27 29 3b 0d 0a 20 20 20 20 20 20 20 20 45 4e 44 0d 0a 20 20 20 20 0d 0a 20 20 ┆ ' cm2'); END ┆
0x720…740 20 20 45 4c 53 45 20 49 46 20 6f 65 6e 73 6b 65 20 3d 20 33 0d 0a 20 20 20 20 20 20 54 48 45 4e ┆ ELSE IF oenske = 3 THEN┆
0x740…760 0d 0a 20 20 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 ┆ BEGIN WRITE┆
0x760…780 4c 4e 28 27 4f 56 45 52 46 4c 41 44 45 20 41 46 20 45 4e 20 4b 45 47 4c 45 3a 27 29 3b 0d 0a 20 ┆LN('OVERFLADE AF EN KEGLE:'); ┆
0x780…7a0 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 27 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ WRITELN('--------------┆
0x7a0…7c0 2d 2d 2d 2d 2d 2d 2d 2d 27 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4c 4e 3b 0d ┆--------'); WRITELN; ┆
0x7c0…7e0 0a 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 28 27 49 6e 64 74 61 73 74 20 6b 65 67 6c 65 6e ┆ WRITE('Indtast keglen┆
0x7e0…800 73 20 68 7c 6a 64 65 3a 20 20 27 29 3b 20 52 45 41 44 4c 4e 28 68 6f 65 6a 64 65 29 3b 0d 0a 20 ┆s højde: '); READLN(hoejde); ┆
0x800…820 (4,) 20 20 20 20 20 20 20 20 20 57 52 49 54 45 28 27 49 6e 64 74 61 73 74 20 6b 65 67 6c 65 6e 73 20 ┆ WRITE('Indtast keglens ┆
0x820…840 72 61 64 69 75 73 3a 20 27 29 3b 20 52 45 41 44 4c 4e 28 72 61 64 69 75 73 29 3b 0d 0a 20 20 20 ┆radius: '); READLN(radius); ┆
0x840…860 20 20 20 20 20 20 20 57 52 49 54 45 4c 4e 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 73 69 64 65 20 ┆ WRITELN; side ┆
0x860…880 3a 3d 20 53 51 52 54 28 53 51 52 28 68 6f 65 6a 64 65 29 20 2b 20 53 51 52 28 72 61 64 69 75 73 ┆:= SQRT(SQR(hoejde) + SQR(radius┆
0x880…8a0 29 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 6f 76 65 72 66 6c 61 64 65 20 3a 3d 20 50 49 20 2a ┆)); overflade := PI *┆
0x8a0…8c0 20 72 61 64 69 75 73 20 2a 20 73 69 64 65 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 74 6f 74 61 6c ┆ radius * side; total┆
0x8c0…8e0 6f 76 65 72 66 6c 61 64 65 20 3a 3d 20 6f 76 65 72 66 6c 61 64 65 20 2b 20 50 49 20 2a 20 53 51 ┆overflade := overflade + PI * SQ┆
0x8e0…900 52 28 72 61 64 69 75 73 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 27 4b ┆R(radius); WRITELN('K┆
0x900…920 65 67 6c 65 6e 73 20 6b 72 75 6d 6d 65 20 6f 76 65 72 66 6c 61 64 65 3a 20 27 2c 20 0d 0a 20 20 ┆eglens krumme overflade: ', ┆
0x920…940 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6f 76 65 72 66 6c 61 64 65 20 3a 20 31 30 20 3a ┆ overflade : 10 :┆
0x940…960 20 32 2c 20 27 20 63 6d 32 27 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 ┆ 2, ' cm2'); WRITELN(┆
0x960…980 27 4b 65 67 6c 65 6e 73 20 74 6f 74 61 6c 65 20 6f 76 65 72 66 6c 61 64 65 3a 20 27 2c 0d 0a 20 ┆'Keglens totale overflade: ', ┆
0x980…9a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 6f 74 61 6c 6f 76 65 72 66 6c 61 64 65 20 ┆ totaloverflade ┆
0x9a0…9c0 3a 20 31 30 20 3a 20 32 2c 20 27 20 63 6d 32 27 29 3b 0d 0a 20 20 20 20 20 20 20 20 45 4e 44 0d ┆: 10 : 2, ' cm2'); END ┆
0x9c0…9e0 0a 20 20 20 20 0d 0a 20 20 20 20 45 4c 53 45 20 49 46 20 6f 65 6e 73 6b 65 20 3d 20 34 0d 0a 20 ┆ ELSE IF oenske = 4 ┆
0x9e0…a00 20 20 20 20 20 54 48 45 4e 0d 0a 20 20 20 20 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 ┆ THEN BEGIN ┆
0xa00…a20 (5,) 20 20 20 20 57 52 49 54 45 4c 4e 28 27 4f 56 45 52 46 4c 41 44 45 20 41 46 20 45 4e 20 4b 45 47 ┆ WRITELN('OVERFLADE AF EN KEG┆
0xa20…a40 4c 45 53 54 55 42 3a 27 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 27 2d ┆LESTUB:'); WRITELN('-┆
0xa40…a60 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 27 29 3b 0d 0a 20 20 ┆-------------------------'); ┆
0xa60…a80 20 20 20 20 20 20 20 20 57 52 49 54 45 4c 4e 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 57 52 49 54 ┆ WRITELN; WRIT┆
0xa80…aa0 45 28 27 49 6e 64 74 61 73 74 20 72 61 64 69 75 73 20 69 20 64 65 6e 20 7c 76 65 72 73 74 65 20 ┆E('Indtast radius i den øverste ┆
0xaa0…ac0 63 69 72 6b 65 6c 3a 20 20 27 29 3b 20 52 45 41 44 4c 4e 28 72 31 29 3b 0d 0a 20 20 20 20 20 20 ┆cirkel: '); READLN(r1); ┆
0xac0…ae0 20 20 20 20 57 52 49 54 45 28 27 49 6e 64 74 61 73 74 20 72 61 64 69 75 73 20 69 20 64 65 6e 20 ┆ WRITE('Indtast radius i den ┆
0xae0…b00 6e 65 64 65 72 73 74 65 20 63 69 72 6b 65 6c 3a 20 27 29 3b 20 52 45 41 44 4c 4e 28 72 32 29 3b ┆nederste cirkel: '); READLN(r2);┆
0xb00…b20 0d 0a 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 28 27 49 6e 64 74 61 73 74 20 6b 65 67 6c 65 ┆ WRITE('Indtast kegle┆
0xb20…b40 73 74 75 62 62 65 6e 73 20 68 7c 6a 64 65 3a 20 20 20 20 20 20 20 20 20 20 27 29 3b 20 52 45 41 ┆stubbens højde: '); REA┆
0xb40…b60 44 4c 4e 28 68 6f 65 6a 64 65 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4c 4e 3b ┆DLN(hoejde); WRITELN;┆
0xb60…b80 0d 0a 20 20 20 20 20 20 20 20 20 20 73 69 64 65 20 3a 3d 20 53 51 52 54 28 53 51 52 28 72 32 20 ┆ side := SQRT(SQR(r2 ┆
0xb80…ba0 2d 20 72 31 29 20 2b 20 53 51 52 28 68 6f 65 6a 64 65 29 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 ┆- r1) + SQR(hoejde)); ┆
0xba0…bc0 20 6f 76 65 72 66 6c 61 64 65 20 3a 3d 20 50 49 20 2a 20 73 69 64 65 20 2a 20 28 72 31 20 2b 20 ┆ overflade := PI * side * (r1 + ┆
0xbc0…be0 72 32 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 74 6f 74 61 6c 6f 76 65 72 66 6c 61 64 65 20 3a ┆r2); totaloverflade :┆
0xbe0…c00 3d 20 6f 76 65 72 66 6c 61 64 65 20 2b 20 50 49 20 2a 20 53 51 52 28 72 31 29 20 2b 20 50 49 20 ┆= overflade + PI * SQR(r1) + PI ┆
0xc00…c20 (6,) 3b 0d 0a 20 20 20 20 57 52 49 54 45 28 27 49 6e 64 74 61 73 74 20 7c 6e 73 6b 65 3a 20 27 29 3b ┆; WRITE('Indtast ønske: ');┆
0xc20…c40 20 52 45 41 44 4c 4e 28 6f 65 6e 73 6b 65 29 3b 0d 0a 20 20 20 20 57 52 49 54 45 28 43 4c 52 48 ┆ READLN(oenske); WRITE(CLRH┆
0xc40…c60 4f 4d 29 3b 0d 0a 20 20 20 20 0d 0a 20 20 20 20 43 41 53 45 20 6f 65 6e 73 6b 65 20 4f 46 0d 0a ┆OM); CASE oenske OF ┆
0xc60…c80 20 20 20 20 0d 0a 20 20 20 20 20 20 31 3a 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 ┆ 1: BEGIN ┆
0xc80…ca0 20 57 52 49 54 45 4c 4e 28 27 4f 56 45 52 46 4c 41 44 45 20 41 46 20 45 4e 20 4b 41 53 53 45 3a ┆ WRITELN('OVERFLADE AF EN KASSE:┆
0xca0…cc0 27 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 27 2d 2d 2d 2d 2d 2d 2d ┆'); WRITELN('-------┆
0xcc0…ce0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 27 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 57 ┆---------------'); W┆
0xce0…d00 52 49 54 45 4c 4e 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 28 27 49 6e 64 74 61 ┆RITELN; WRITE('Indta┆
0xd00…d20 73 74 20 6b 61 73 73 65 6e 73 20 62 72 65 64 64 65 3a 20 27 29 3b 20 52 45 41 44 4c 4e 28 62 72 ┆st kassens bredde: '); READLN(br┆
0xd20…d40 65 64 64 65 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 28 27 49 6e 64 74 61 73 ┆edde); WRITE('Indtas┆
0xd40…d60 74 20 6b 61 73 73 65 6e 73 20 6c 7b 6e 67 64 65 3a 20 27 29 3b 20 52 45 41 44 4c 4e 28 6c 61 65 ┆t kassens længde: '); READLN(lae┆
0xd60…d80 6e 67 64 65 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 28 27 49 6e 64 74 61 73 ┆ngde); WRITE('Indtas┆
0xd80…da0 74 20 6b 61 73 73 65 6e 73 20 68 7c 6a 64 65 3a 20 20 27 29 3b 20 52 45 41 44 4c 4e 28 68 6f 65 ┆t kassens højde: '); READLN(hoe┆
0xda0…dc0 6a 64 65 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4c 4e 3b 0d 0a 20 20 20 20 ┆jde); WRITELN; ┆
0xdc0…de0 20 20 20 20 20 20 20 6f 76 65 72 66 6c 61 64 65 20 3a 3d 20 6c 61 65 6e 67 64 65 20 2a 20 62 72 ┆ overflade := laengde * br┆
0xde0…e00 65 64 64 65 20 2b 20 62 72 65 64 64 65 20 2a 20 68 6f 65 6a 64 65 20 2b 20 6c 61 65 6e 67 64 65 ┆edde + bredde * hoejde + laengde┆
0xe00…e20 (7,) 20 2a 20 68 6f 65 6a 64 65 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 6f 76 65 72 66 6c 61 64 65 ┆ * hoejde; overflade┆
0xe20…e40 20 3a 3d 20 32 20 2a 20 6f 76 65 72 66 6c 61 64 65 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 57 ┆ := 2 * overflade; W┆
0xe40…e60 52 49 54 45 4c 4e 28 27 4b 61 73 73 65 6e 73 20 6f 76 65 72 66 6c 61 64 65 3a 20 27 2c 20 6f 76 ┆RITELN('Kassens overflade: ', ov┆
0xe60…e80 65 72 66 6c 61 64 65 20 3a 20 31 30 20 3a 20 32 2c 20 27 20 63 6d 32 27 29 3b 0d 0a 20 20 20 20 ┆erflade : 10 : 2, ' cm2'); ┆
0xe80…ea0 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 20 20 20 0d 0a 20 20 20 20 20 20 32 3a 20 42 45 47 ┆ END; 2: BEG┆
0xea0…ec0 49 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 27 4f 56 45 52 46 4c 41 44 ┆IN WRITELN('OVERFLAD┆
0xec0…ee0 45 20 41 46 20 45 4e 20 43 59 4c 49 4e 44 45 52 3a 27 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 ┆E AF EN CYLINDER:'); ┆
0xee0…f00 20 57 52 49 54 45 4c 4e 28 27 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ WRITELN('----------------------┆
0xf00…f20 2d 2d 2d 27 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4c 4e 3b 0d 0a 20 20 20 ┆---'); WRITELN; ┆
0xf20…f40 20 20 20 20 20 20 20 20 57 52 49 54 45 28 27 49 6e 64 74 61 73 74 20 63 79 6c 69 6e 64 65 72 65 ┆ WRITE('Indtast cylindere┆
0xf40…f60 6e 73 20 68 7c 6a 64 65 3a 20 20 27 29 3b 20 52 45 41 44 4c 4e 28 68 6f 65 6a 64 65 29 3b 0d 0a ┆ns højde: '); READLN(hoejde); ┆
0xf60…f80 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 28 27 49 6e 64 74 61 73 74 20 63 79 6c 69 6e 64 ┆ WRITE('Indtast cylind┆