|
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: 3840 (0xf00)
Names: »OVERF_2.PAS«
└─⟦f983c2ef3⟧ Bits:30004681 Pascal opgaver (Butler)
└─⟦this⟧ »OVERF_2.PAS«
0x000…020 (0,) 6c 61 64 65 20 3a 3d 20 6f 76 65 72 66 6c 61 64 65 20 2b 20 32 20 2a 20 50 49 20 2a 20 53 51 52 ┆lade := overflade + 2 * PI * SQR┆
0x020…040 28 72 61 64 69 75 73 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 27 43 ┆(radius); WRITELN('C┆
0x040…060 79 6c 69 6e 64 65 72 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 ┆ylinderens krumme overflade: ', ┆
0x060…080 0d 0a 20 20 20 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 ┆ overflade :┆
0x080…0a0 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 20 20 20 57 52 ┆ 10 : 2, ' cm2'); WR┆
0x0a0…0c0 49 54 45 4c 4e 28 27 43 79 6c 69 6e 64 65 72 65 6e 73 20 74 6f 74 61 6c 6f 76 65 72 66 6c 61 64 ┆ITELN('Cylinderens totaloverflad┆
0x0c0…0e0 65 3a 20 20 20 27 2c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 6f 74 61 ┆e: ', tota┆
0x0e0…100 6c 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 0a 20 ┆loverflade : 10 : 2, ' cm2'); ┆
0x100…120 20 20 20 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 33 3a 20 ┆ END; 3: ┆
0x120…140 42 45 47 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 ┆BEGIN WRITELN('OVERF┆
0x140…160 4c 41 44 45 20 41 46 20 45 4e 20 4b 45 47 4c 45 3a 27 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 ┆LADE AF EN KEGLE:'); ┆
0x160…180 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('----------------------┆
0x180…1a0 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 20 20 20 ┆'); WRITELN; ┆
0x1a0…1c0 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 68 7c 6a 64 ┆ WRITE('Indtast keglens højd┆
0x1c0…1e0 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 20 20 20 20 20 20 ┆e: '); READLN(hoejde); ┆
0x1e0…200 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 72 61 64 69 75 ┆ WRITE('Indtast keglens radiu┆
0x200…220 (1,) 2a 20 53 51 52 28 72 32 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 27 4b ┆* SQR(r2); WRITELN('K┆
0x220…240 65 67 6c 65 73 74 75 62 62 65 6e 73 20 6b 72 75 6d 6d 65 20 6f 76 65 72 66 6c 61 64 65 3a 20 27 ┆eglestubbens krumme overflade: '┆
0x240…260 2c 0d 0a 20 20 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 ┆, overflade :┆
0x260…280 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 20 20 57 52 49 ┆ 10 : 2, ' cm2'); WRI┆
0x280…2a0 54 45 4c 4e 28 27 4b 65 67 6c 65 73 74 75 62 62 65 6e 73 20 74 6f 74 61 6c 65 20 6f 76 65 72 66 ┆TELN('Keglestubbens totale overf┆
0x2a0…2c0 6c 61 64 65 3a 20 27 2c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 74 6f 74 61 ┆lade: ', tota┆
0x2c0…2e0 6c 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 0a 20 ┆loverflade : 10 : 2, ' cm2'); ┆
0x2e0…300 20 20 20 20 20 20 20 45 4e 44 0d 0a 20 20 20 20 0d 0a 20 20 20 20 45 4c 53 45 20 49 46 20 6f 65 ┆ END ELSE IF oe┆
0x300…320 6e 73 6b 65 20 3d 20 35 0d 0a 20 20 20 20 20 20 54 48 45 4e 0d 0a 20 20 20 20 20 20 20 20 42 45 ┆nske = 5 THEN BE┆
0x320…340 47 49 4e 0d 0a 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 ┆GIN WRITELN('OVERFLAD┆
0x340…360 45 20 41 46 20 45 4e 20 4b 55 47 4c 45 3a 27 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 57 52 49 ┆E AF EN KUGLE:'); WRI┆
0x360…380 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 27 29 3b 0d ┆TELN('----------------------'); ┆
0x380…3a0 0a 20 20 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 ┆ WRITELN; W┆
0x3a0…3c0 52 49 54 45 28 27 49 6e 64 74 61 73 74 20 6b 75 67 6c 65 6e 73 20 72 61 64 69 75 73 3a 20 27 29 ┆RITE('Indtast kuglens radius: ')┆
0x3c0…3e0 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 57 52 49 ┆; READLN(radius); WRI┆
0x3e0…400 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 20 34 20 ┆TELN; overflade := 4 ┆
0x400…420 (2,) 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 20 20 20 20 20 57 ┆* PI * SQR(radius); W┆
0x420…440 52 49 54 45 4c 4e 28 27 4b 75 67 6c 65 6e 73 20 6f 76 65 72 66 6c 61 64 65 3a 20 27 2c 20 6f 76 ┆RITELN('Kuglens overflade: ', ov┆
0x440…460 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'); ┆
0x460…480 20 20 20 20 45 4e 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 ┆ END ELSE IF oensk┆
0x480…4a0 65 20 3e 3d 20 36 0d 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 ┆e >= 6 THEN BEGI┆
0x4a0…4c0 4e 0d 0a 20 20 20 20 20 20 20 20 20 20 47 4f 54 4f 58 59 28 33 38 2c 20 31 32 29 3b 20 57 52 49 ┆N GOTOXY(38, 12); WRI┆
0x4c0…4e0 54 45 28 27 53 4c 55 54 27 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 47 4f 54 4f 58 59 28 30 2c ┆TE('SLUT'); GOTOXY(0,┆
0x4e0…500 20 32 30 29 3b 0d 0a 20 20 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 20 20 0d 0a 20 20 20 20 57 ┆ 20); END; W┆
0x500…520 52 49 54 45 4c 4e 3b 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 ┆RITELN; END. ┆
0x520…540 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 ┆ ┆
[…0x2…]
0x580…5a0 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…]
0x600…620 (3,) 50 52 4f 47 52 41 4d 20 6f 76 65 72 66 5f 32 3b 0d 0a 0d 0a 20 20 56 41 52 0d 0a 20 20 20 20 6f ┆PROGRAM overf_2; VAR o┆
0x620…640 65 6e 73 6b 65 20 3a 20 49 4e 54 45 47 45 52 3b 0d 0a 20 20 20 20 6c 61 65 6e 67 64 65 2c 20 62 ┆enske : INTEGER; laengde, b┆
0x640…660 72 65 64 64 65 2c 20 68 6f 65 6a 64 65 2c 20 6f 76 65 72 66 6c 61 64 65 2c 20 74 6f 74 61 6c 6f ┆redde, hoejde, overflade, totalo┆
0x660…680 76 65 72 66 6c 61 64 65 20 3a 20 52 45 41 4c 3b 0d 0a 20 20 20 20 72 61 64 69 75 73 2c 20 73 69 ┆verflade : REAL; radius, si┆
0x680…6a0 64 65 2c 20 72 31 2c 20 72 32 20 3a 20 52 45 41 4c 3b 0d 0a 20 20 0d 0a 20 20 42 45 47 49 4e 0d ┆de, r1, r2 : REAL; BEGIN ┆
0x6a0…6c0 0a 20 20 20 20 57 52 49 54 45 28 43 4c 52 48 4f 4d 29 3b 0d 0a 20 20 20 20 57 52 49 54 45 4c 4e ┆ WRITE(CLRHOM); WRITELN┆
0x6c0…6e0 28 27 4f 20 56 20 45 20 52 20 46 20 4c 20 41 20 44 20 45 20 20 20 41 20 46 20 3a 27 29 3b 0d 0a ┆('O V E R F L A D E A F :'); ┆
0x6e0…700 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 2d 2d 2d 2d 2d ┆ WRITELN('-------------------┆
0x700…720 2d 2d 2d 2d 2d 2d 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 ┆------'); WRITELN; WRI┆
0x720…740 54 45 4c 4e 28 27 4b 41 53 53 45 20 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 20 74 61 73 74 20 31 ┆TELN('KASSE ............. tast 1┆
0x740…760 27 29 3b 0d 0a 20 20 20 20 57 52 49 54 45 4c 4e 28 27 43 59 4c 49 4e 44 45 52 20 2e 2e 2e 2e 2e ┆'); WRITELN('CYLINDER .....┆
0x760…780 2e 2e 2e 2e 2e 20 74 61 73 74 20 32 27 29 3b 0d 0a 20 20 20 20 57 52 49 54 45 4c 4e 28 27 4b 45 ┆..... tast 2'); WRITELN('KE┆
0x780…7a0 47 4c 45 20 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 20 74 61 73 74 20 33 27 29 3b 0d 0a 20 20 20 ┆GLE ............. tast 3'); ┆
0x7a0…7c0 20 57 52 49 54 45 4c 4e 28 27 4b 45 47 4c 45 53 54 55 42 20 2e 2e 2e 2e 2e 2e 2e 2e 2e 20 74 61 ┆ WRITELN('KEGLESTUB ......... ta┆
0x7c0…7e0 73 74 20 34 27 29 3b 0d 0a 20 20 20 20 57 52 49 54 45 4c 4e 28 27 4b 55 47 4c 45 20 2e 2e 2e 2e ┆st 4'); WRITELN('KUGLE ....┆
0x7e0…800 2e 2e 2e 2e 2e 2e 2e 2e 2e 20 74 61 73 74 20 35 27 29 3b 0d 0a 20 20 20 20 57 52 49 54 45 4c 4e ┆......... tast 5'); WRITELN┆
0x800…820 (4,) 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 20 20 20 20 20 ┆s: '); READLN(radius); ┆
0x820…840 20 20 20 57 52 49 54 45 4c 4e 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 73 69 64 65 20 3a 3d 20 ┆ WRITELN; side := ┆
0x840…860 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 29 29 3b ┆SQRT(SQR(hoejde) + SQR(radius));┆
0x860…880 0d 0a 20 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 20 72 ┆ overflade := PI * r┆
0x880…8a0 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 20 74 6f 74 61 6c 6f ┆adius * side; totalo┆
0x8a0…8c0 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 52 ┆verflade := overflade + PI * SQR┆
0x8c0…8e0 28 72 61 64 69 75 73 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 27 4b ┆(radius); WRITELN('K┆
0x8e0…900 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: ', ┆
0x900…920 20 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 ┆ overflade : 10 ┆
0x920…940 3a 20 32 2c 20 27 20 63 6d 32 27 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4c ┆: 2, ' cm2'); WRITEL┆
0x940…960 4e 28 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 ┆N('Keglens totale overflade: ', ┆
0x960…980 0a 20 20 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 ┆ totaloverfla┆
0x980…9a0 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 20 20 20 20 20 ┆de : 10 : 2, ' cm2'); ┆
0x9a0…9c0 45 4e 44 3b 0d 0a 20 20 20 20 20 20 20 0d 0a 20 20 20 20 20 20 34 3a 20 42 45 47 49 4e 0d 0a 20 ┆END; 4: BEGIN ┆
0x9c0…9e0 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 45 20 41 46 20 ┆ WRITELN('OVERFLADE AF ┆
0x9e0…a00 45 4e 20 4b 45 47 4c 45 53 54 55 42 3a 27 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 57 52 49 ┆EN KEGLESTUB:'); WRI┆
0xa00…a20 (5,) 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 2d 2d 2d 2d ┆TELN('--------------------------┆
0xa20…a40 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 20 20 20 ┆'); WRITELN; ┆
0xa40…a60 20 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 ┆ WRITE('Indtast radius i den┆
0xa60…a80 20 7c 76 65 72 73 74 65 20 63 69 72 6b 65 6c 3a 20 20 27 29 3b 20 52 45 41 44 4c 4e 28 72 31 29 ┆ øverste cirkel: '); READLN(r1)┆
0xa80…aa0 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 74 20 72 61 64 ┆; WRITE('Indtast rad┆
0xaa0…ac0 69 75 73 20 69 20 64 65 6e 20 6e 65 64 65 72 73 74 65 20 63 69 72 6b 65 6c 3a 20 27 29 3b 20 52 ┆ius i den nederste cirkel: '); R┆
0xac0…ae0 45 41 44 4c 4e 28 72 32 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 28 27 49 6e ┆EADLN(r2); WRITE('In┆
0xae0…b00 64 74 61 73 74 20 6b 65 67 6c 65 73 74 75 62 62 65 6e 73 20 68 7c 6a 64 65 3a 20 20 20 20 20 20 ┆dtast keglestubbens højde: ┆
0xb00…b20 20 20 20 20 27 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 ┆ '); READLN(hoejde); ┆
0xb20…b40 20 20 20 20 57 52 49 54 45 4c 4e 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 73 69 64 65 20 3a 3d ┆ WRITELN; side :=┆
0xb40…b60 20 53 51 52 54 28 53 51 52 28 72 32 20 2d 20 72 31 29 20 2b 20 53 51 52 28 68 6f 65 6a 64 65 29 ┆ SQRT(SQR(r2 - r1) + SQR(hoejde)┆
0xb60…b80 29 3b 0d 0a 20 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 *┆
0xb80…ba0 20 73 69 64 65 20 2a 20 28 72 31 20 2b 20 72 32 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 74 ┆ side * (r1 + r2); t┆
0xba0…bc0 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 65 20 2b 20 50 49 20 ┆otaloverflade := overflade + PI ┆
0xbc0…be0 2a 20 53 51 52 28 72 31 29 20 2b 20 50 49 20 2a 20 53 51 52 28 72 32 29 3b 0d 0a 20 20 20 20 20 ┆* SQR(r1) + PI * SQR(r2); ┆
0xbe0…c00 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 27 4b 65 67 6c 65 73 74 75 62 62 65 6e 73 20 6b 72 75 ┆ WRITELN('Keglestubbens kru┆
0xc00…c20 (6,) 6d 6d 65 20 6f 76 65 72 66 6c 61 64 65 3a 20 27 2c 0d 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆mme overflade: ', ┆
0xc20…c40 20 20 20 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 ┆ overflade : 10 : 2, ' cm2'┆
0xc40…c60 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4c 4e 28 27 4b 65 67 6c 65 73 74 75 ┆); WRITELN('Keglestu┆
0xc60…c80 62 62 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 20 20 20 ┆bbens totale overflade: ', ┆
0xc80…ca0 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 3a 20 ┆ totaloverflade : ┆
0xca0…cc0 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 20 45 4e 44 3b 0d ┆10 : 2, ' cm2'); END; ┆
0xcc0…ce0 0a 20 20 20 20 20 20 20 0d 0a 20 20 20 20 20 20 35 3a 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 ┆ 5: BEGIN ┆
0xce0…d00 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 4b 55 ┆ WRITELN('OVERFLADE AF EN KU┆
0xd00…d20 47 4c 45 3a 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 ┆GLE:'); WRITELN('---┆
0xd20…d40 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 20 20 20 20 20 20 ┆-------------------'); ┆
0xd40…d60 20 20 20 57 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 ┆ WRITELN; WRITE('I┆
0xd60…d80 6e 64 74 61 73 74 20 6b 75 67 6c 65 6e 73 20 72 61 64 69 75 73 3a 20 27 29 3b 20 52 45 41 44 4c ┆ndtast kuglens radius: '); READL┆
0xd80…da0 4e 28 72 61 64 69 75 73 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 4c 4e 3b 0d ┆N(radius); WRITELN; ┆
0xda0…dc0 0a 20 20 20 20 20 20 20 20 20 20 20 6f 76 65 72 66 6c 61 64 65 20 3a 3d 20 34 20 2a 20 50 49 20 ┆ overflade := 4 * PI ┆
0xdc0…de0 2a 20 53 51 52 28 72 61 64 69 75 73 29 3b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 57 52 49 54 45 ┆* SQR(radius); WRITE┆
0xde0…e00 4c 4e 28 27 4b 75 67 6c 65 6e 73 20 6f 76 65 72 66 6c 61 64 65 3a 20 27 2c 20 6f 76 65 72 66 6c ┆LN('Kuglens overflade: ', overfl┆
0xe00…e20 (7,) 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 20 20 20 20 ┆ade : 10 : 2, ' cm2'); ┆
0xe20…e40 20 45 4e 44 3b 0d 0a 20 20 20 20 20 20 0d 0a 20 20 20 20 4f 54 48 45 52 57 49 53 45 0d 0a 20 20 ┆ END; OTHERWISE ┆
0xe40…e60 20 20 20 20 42 45 47 49 4e 0d 0a 20 20 20 20 20 20 20 20 47 4f 54 4f 58 59 28 33 38 2c 20 31 32 ┆ BEGIN GOTOXY(38, 12┆
0xe60…e80 29 3b 20 57 52 49 54 45 28 27 53 4c 55 54 27 29 3b 0d 0a 20 20 20 20 20 20 20 20 47 4f 54 4f 58 ┆); WRITE('SLUT'); GOTOX┆
0xe80…ea0 59 28 30 2c 20 32 30 29 3b 0d 0a 20 20 20 20 20 20 45 4e 44 3b 0d 0a 20 20 0d 0a 20 20 20 20 45 ┆Y(0, 20); END; E┆
0xea0…ec0 4e 44 3b 0d 0a 20 20 20 20 57 52 49 54 45 4c 4e 3b 0d 0a 20 20 45 4e 44 2e 0d 0a 1a 1a 1a 1a 1a ┆ND; WRITELN; END. ┆
0xec0…ee0 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…]