000000: 45 58 54 45 4E 44 45 44 20 43 50 43 20 44 53 4B EXTENDED CPC DSK
000010: 20 46 69 6C 65 0D 0A 44 69 73 6B 2D 49 6E 66 6F File..Disk-Info
000020: 0D 0A 53 41 4D 64 69 73 6B 31 30 30 36 32 30 00 ..SAMdisk100620.
000030: 28 01 00 00 13 13 13 13 13 13 13 13 13 13 13 13 (...............
000040: 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 13 ................
000050: 13 13 13 13 13 13 13 13 13 13 13 13 00 00 00 00 ................
000060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0000F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000100: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
000110: 00 00 00 00 02 09 4E E5 00 00 41 02 00 00 00 02 ......N...A.....
000120: 00 00 42 02 00 00 00 02 00 00 43 02 00 00 00 02 ..B.......C.....
000130: 00 00 44 02 00 00 00 02 00 00 45 02 00 00 00 02 ..D.......E.....
000140: 00 00 46 02 00 00 00 02 00 00 47 02 00 00 00 02 ..F.......G.....
000150: 00 00 48 02 00 00 00 02 00 00 49 02 00 00 00 02 ..H.......I.....
000160: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000170: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000180: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000190: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0001F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
000200: 11 00 03 21 00 00 06 04 CD 01 02 30 34 10 F9 CD ...!.......04...
000210: C5 01 20 64 11 00 0C 06 10 7E B7 28 1A E5 C5 6F .. d.....~.(...o
000220: 26 00 CD FC 01 30 1A C1 E1 23 10 ED 21 2A 02 34 &....0...#..!*.4
000230: D5 CD C5 01 D1 28 E0 21 00 0C 0E FF CD 9B BE 16 .....(.!........
000240: BD 21 46 01 18 6B 0D 0A 44 69 73 63 65 74 74 65 .!F..k..Discette
000250: 20 72 65 61 64 20 66 61 69 6C 75 72 65 0D 0A 50 read failure..P
000260: 72 65 73 73 20 61 6E 79 20 6B 65 79 20 74 6F 20 ress any key to
000270: 72 65 73 74 61 72 74 FF 21 7D 01 18 34 0D 0A 43 restart.!}..4..C
000280: 61 6E 6E 6F 74 20 66 69 6E 64 20 22 2E 45 4D 53 annot find ".EMS
000290: 22 20 66 69 6C 65 0D 0A 50 72 65 73 73 20 61 6E " file..Press an
0002A0: 79 20 6B 65 79 20 74 6F 20 72 65 73 74 61 72 74 y key to restart
0002B0: FF 7E 23 FE FF C4 5A BB 20 F7 CD 1B BB 38 FB CD .~#...Z. ....8..
0002C0: 18 BB CF 00 00 21 00 03 06 40 7E E6 F0 20 22 C5 .....!...@~.. ".
0002D0: E5 11 0D 00 19 11 2B 02 01 FF 0C 1B 1A 2B AE A1 ......+......+..
0002E0: 28 09 1A FE 3F 20 08 7E A1 12 AF 0E 7F 10 EC E1 (...? .~........
0002F0: C1 11 10 00 19 C8 19 10 D1 F6 FF C9 29 CD 01 02 ............)...
000300: D0 C5 E5 01 F7 FF 3E 01 3C 09 38 FC 67 7D C6 4A ......>.<.8.g}.J
000310: 4F 2E 00 EB CD 89 BE EB E1 C1 D0 14 14 23 C9 3F O............#.?
000320: 3F 3F 3F 3F 3F 3F 3F 45 4D 53 00 CF CF CF CF CF ???????EMS......
000330: CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF ................
000340: CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF ................
000350: CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF ................
000360: CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF ................
000370: CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF ................
000380: CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF ................
000390: CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF ................
0003A0: CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF ................
0003B0: CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF ................
0003C0: CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF ................
0003D0: CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF ................
0003E0: CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF ................
0003F0: CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF CF ................
000400: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000410: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000420: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000430: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000440: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000450: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000460: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000470: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000480: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000490: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0004A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0004B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0004C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0004D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0004E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0004F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000500: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000510: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000520: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0005A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0005B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0005C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0005D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0005E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0005F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000600: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000610: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000620: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000630: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000640: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000650: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000660: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000670: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000680: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000690: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0006A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0006B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0006C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0006D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0006E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0006F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000700: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000710: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000720: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000730: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000740: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000750: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0007A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0007B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0007C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0007D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0007E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0007F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000800: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000810: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000820: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0008A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0008B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0008C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0008D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0008E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0008F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000900: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000910: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000920: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000930: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000940: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000950: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000960: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000970: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000980: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000990: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0009A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0009B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0009C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0009D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0009E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0009F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000A00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000A10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000A20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000A30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000A40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000A50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000A60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000A70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000A80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000A90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000AA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000AB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000AC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000AD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000AE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000AF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000B00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000B10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000B20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000B30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000B40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000B50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000B60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000B70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000B80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000B90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000BA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000BB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000BC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000BD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000BE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000BF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000C00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000C10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000C20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000C30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000C40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000C50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000C60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000C70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000C80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000C90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000CA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000CB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000CC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000CD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000CE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000CF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000D00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000D10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000D20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000D30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000D40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000D50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000D60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000D70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000D80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000D90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000DA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000DB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000DC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000DD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000DE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000DF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000E00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000E10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000E20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000E30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000E40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000E50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000E60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000E70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000E80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000E90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000EA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000EB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000EC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000ED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000EE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000EF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000F00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000F10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000F20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000F30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000F40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000F50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000F60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000F70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000F80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000F90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000FA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000FB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000FC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000FD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000FE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
000FF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0010A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0010B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0010C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0010D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0010E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0010F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0011A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0011B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0011C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0011D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0011E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0011F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001200: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001210: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001220: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001230: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001240: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001250: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001260: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001270: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001280: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001290: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0012A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0012B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0012C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0012D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0012E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0012F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001300: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001310: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001320: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001330: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001340: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001350: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001360: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001370: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001380: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001390: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0013A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0013B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0013C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0013D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0013E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0013F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001400: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
001410: 01 00 00 00 02 09 4E E5 01 00 41 02 00 00 00 02 ......N...A.....
001420: 01 00 42 02 00 00 00 02 01 00 43 02 00 00 00 02 ..B.......C.....
001430: 01 00 44 02 00 00 00 02 01 00 45 02 00 00 00 02 ..D.......E.....
001440: 01 00 46 02 00 00 00 02 01 00 47 02 00 00 00 02 ..F.......G.....
001450: 01 00 48 02 00 00 00 02 01 00 49 02 00 00 00 02 ..H.......I.....
001460: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001470: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001480: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001490: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0014A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0014B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0014C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0014D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0014E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0014F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
001500: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001510: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001520: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0015A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0015B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0015C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0015D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0015E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0015F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001600: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001610: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001620: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001630: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001640: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001650: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001660: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001670: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001680: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001690: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0016A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0016B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0016C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0016D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0016E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0016F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001700: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001710: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001720: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001730: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001740: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001750: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0017A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0017B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0017C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0017D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0017E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0017F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001800: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001810: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001820: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0018A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0018B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0018C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0018D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0018E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0018F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001900: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001910: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001920: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001930: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001940: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001950: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001960: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001970: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001980: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001990: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0019A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0019B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0019C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0019D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0019E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0019F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001A00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001A10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001A20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001A30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001A40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001A50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001A60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001A70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001A80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001A90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001AA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001AB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001AC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001AD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001AE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001AF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001B00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001B10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001B20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001B30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001B40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001B50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001B60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001B70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001B80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001B90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001BA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001BB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001BC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001BD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001BE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001BF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001C00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001C10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001C20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001C30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001C40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001C50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001C60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001C70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001C80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001C90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001CA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001CB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001CC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001CD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001CE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001CF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001D00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001D10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001D20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001D30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001D40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001D50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001D60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001D70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001D80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001D90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001DA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001DB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001DC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001DD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001DE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001DF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001E00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001E10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001E20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001E30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001E40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001E50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001E60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001E70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001E80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001E90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001EA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001EB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001EC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001ED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001EE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001EF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001F00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001F10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001F20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001F30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001F40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001F50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001F60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001F70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001F80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001F90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001FA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001FB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001FC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001FD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001FE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
001FF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002000: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002010: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002020: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002030: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002040: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002050: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002060: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002070: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002080: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002090: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0020A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0020B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0020C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0020D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0020E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0020F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002100: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002110: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002120: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002130: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002140: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002150: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002160: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002170: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002180: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002190: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0021A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0021B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0021C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0021D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0021E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0021F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002200: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002210: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002220: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002230: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002240: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002250: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002260: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002270: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002280: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002290: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0022A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0022B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0022C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0022D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0022E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0022F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002300: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002310: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002320: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002330: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002340: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002350: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002360: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002370: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002380: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002390: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0023A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0023B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0023C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0023D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0023E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0023F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002400: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002410: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002420: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002430: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002440: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002450: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002460: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002470: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002480: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002490: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0024A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0024B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0024C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0024D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0024E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0024F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002500: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002510: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002520: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0025A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0025B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0025C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0025D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0025E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0025F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002600: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002610: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002620: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002630: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002640: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002650: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002660: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002670: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002680: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002690: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0026A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0026B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0026C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0026D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0026E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0026F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002700: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
002710: 02 00 00 00 02 09 4E E5 02 00 41 02 00 00 00 02 ......N...A.....
002720: 02 00 42 02 00 00 00 02 02 00 43 02 00 00 00 02 ..B.......C.....
002730: 02 00 44 02 00 00 00 02 02 00 45 02 00 00 00 02 ..D.......E.....
002740: 02 00 46 02 00 00 00 02 02 00 47 02 00 00 00 02 ..F.......G.....
002750: 02 00 48 02 00 00 00 02 02 00 49 02 00 00 00 02 ..H.......I.....
002760: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002770: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002780: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002790: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0027A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0027B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0027C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0027D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0027E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0027F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002800: 00 4C 49 52 45 46 4F 4E 43 50 41 53 00 00 00 23 .LIREFONCPAS...#
002810: 02 03 04 05 06 00 00 00 00 00 00 00 00 00 00 00 ................
002820: 00 53 4F 55 52 43 45 53 20 44 4F 43 00 00 00 24 .SOURCES DOC...$
002830: 07 08 09 0A 0C 00 00 00 00 00 00 00 00 00 00 00 ................
002840: 00 47 52 41 46 49 4B 33 20 49 4E 43 00 00 00 0B .GRAFIK3 INC....
002850: 12 13 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002860: 00 43 4F 55 52 42 45 20 20 43 4F 4D 00 00 00 80 .COURBE COM....
002870: 14 15 16 17 18 19 1A 1B 3C 3D 3E 3F 40 41 42 45 ........<=>?@ABE
002880: 00 44 45 52 49 56 45 45 20 50 41 53 00 00 00 3A .DERIVEE PAS...:
002890: 1C 1D 1E 1F 20 21 22 23 00 00 00 00 00 00 00 00 .... !"#........
0028A0: E5 43 41 4C 43 55 4C 46 20 42 41 4B 00 00 00 60 .CALCULF BAK...`
0028B0: 0D 0E 0F 10 11 2C 2D 2E 2F 4C 4D 7D 00 00 00 00 .....,-./LM}....
0028C0: 00 46 4F 4E 43 54 49 4F 4E 43 4F 4D 00 00 00 80 .FONCTIONCOM....
0028D0: 24 25 26 27 28 29 2A 2B 30 31 32 33 34 36 37 38 $%&'()*+01234678
0028E0: 00 45 43 52 49 46 20 20 20 50 41 53 00 00 00 0A .ECRIF PAS....
0028F0: 0B 35 00 00 00 00 00 00 00 00 00 00 00 00 00 00 .5..............
002900: 00 47 52 41 50 48 45 46 20 50 41 53 00 00 00 2D .GRAPHEF PAS...-
002910: 43 67 68 69 6A 76 00 00 00 00 00 00 00 00 00 00 Cghijv..........
002920: 00 46 4F 4E 43 54 49 4F 4E 50 41 53 00 00 00 06 .FONCTIONPAS....
002930: 44 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 D...............
002940: 00 46 4F 4E 43 54 49 4F 4E 43 4F 4D 01 00 00 80 .FONCTIONCOM....
002950: 39 59 5A 5B 5C 5D 5E 5F 60 61 62 63 7E 7F 80 81 9YZ[\]^_`abc~...
002960: 00 43 4F 55 52 42 45 20 20 43 4F 4D 01 00 00 46 .COURBE COM...F
002970: 46 47 48 49 4A 4B 64 65 66 00 00 00 00 00 00 00 FGHIJKdef.......
002980: 00 43 41 4C 43 55 4C 46 20 50 41 53 00 00 00 60 .CALCULF PAS...`
002990: 3A 3B 4F 50 51 52 53 54 55 56 57 58 00 00 00 00 :;OPQRSTUVWX....
0029A0: 00 46 4F 4E 43 54 49 4F 4E 43 4F 4D 02 00 00 41 .FONCTIONCOM...A
0029B0: 82 83 84 85 86 87 88 89 8A 00 00 00 00 00 00 00 ................
0029C0: 00 41 4C 47 45 42 52 45 20 50 41 53 00 00 00 55 .ALGEBRE PAS...U
0029D0: 6B 6C 6D 6E 6F 70 71 72 73 74 75 00 00 00 00 00 klmnopqrstu.....
0029E0: 00 4D 45 4E 55 20 20 20 20 50 41 53 00 00 00 26 .MENU PAS...&
0029F0: 77 79 7A 7B 7C 00 00 00 00 00 00 00 00 00 00 00 wyz{|...........
002A00: 00 43 4F 55 52 42 45 20 20 50 41 53 00 00 00 06 .COURBE PAS....
002A10: 78 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 x...............
002A20: E5 43 41 4C 43 55 4C 46 20 42 41 4B 00 00 00 5F .CALCULF BAK..._
002A30: 84 85 86 87 88 89 8A 8B 8C 8D 8E 8F 00 00 00 00 ................
002A40: E5 4D 45 4E 55 20 20 20 20 43 4F 4D 00 00 00 43 .MENU COM...C
002A50: 90 91 92 93 94 95 96 97 98 00 00 00 00 00 00 00 ................
002A60: E5 45 43 52 49 46 20 20 20 42 41 4B 00 00 00 0A .ECRIF BAK....
002A70: 99 9A 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
002A80: E5 47 52 41 50 48 45 46 20 42 41 4B 00 00 00 2B .GRAPHEF BAK...+
002A90: 9B 9C 9D 9E 9F A7 00 00 00 00 00 00 00 00 00 00 ................
002AA0: 00 41 2D 4C 49 52 45 20 20 44 4F 43 00 00 00 3A .A-LIRE DOC...:
002AB0: 4E A0 A1 A2 A3 A4 A5 A6 00 00 00 00 00 00 00 00 N...£...........
002AC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002AD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002AE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002AF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002B00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002B10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002B20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002B30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002B40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002B50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002B60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002B70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002B80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002B90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002BA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002BB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002BC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002BD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002BE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002BF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002C00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002C10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002C20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002C30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002C40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002C50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002C60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002C70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002C80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002C90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002CA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002CB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002CC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002CD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002CE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002CF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002D00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002D10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002D20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002D30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002D40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002D50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002D60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002D70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002D80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002D90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002DA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002DB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002DC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002DD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002DE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002DF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002E00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002E10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002E20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002E30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002E40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002E50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002E60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002E70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002E80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002E90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002EA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002EB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002EC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002ED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002EE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002EF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002F00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002F10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002F20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002F30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002F40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002F50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002F60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002F70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002F80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002F90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002FA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002FB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002FC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002FD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002FE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
002FF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
003000: 0D 0A 70 72 6F 63 65 64 75 72 65 20 20 6C 69 72 ..procedure lir
003010: 66 6F 6E 63 74 69 6F 6E 28 76 61 72 20 66 3A 66 fonction(var f:f
003020: 6F 6E 63 74 69 6F 6E 29 3B 0D 0A 66 6F 72 77 61 onction);..forwa
003030: 72 64 3B 0D 0A 70 72 6F 63 65 64 75 72 65 20 20 rd;..procedure
003040: 72 65 6C 61 63 68 65 28 76 61 72 20 66 3A 66 6F relache(var f:fo
003050: 6E 63 74 69 6F 6E 29 3B 0D 0A 62 65 67 69 6E 0D nction);..begin.
003060: 0A 20 69 66 20 66 3C 3E 6E 69 6C 20 74 68 65 6E . if f<>nil then
003070: 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 begin..
003080: 20 20 20 20 20 20 20 20 20 20 20 20 20 64 69 73 dis
003090: 70 6F 73 65 28 66 29 3B 66 3A 3D 6E 69 6C 3B 6D pose(f);f:=nil;m
0030A0: 5B 69 5D 3A 3D 30 3B 0D 0A 20 20 20 20 20 20 20 [i]:=0;..
0030B0: 20 20 20 20 20 20 20 20 20 20 65 6E 64 3B 0D 0A end;..
0030C0: 65 6E 64 3B 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 end;....procedur
0030D0: 65 20 65 72 72 65 75 72 28 6E 6F 65 3A 69 6E 74 e erreur(noe:int
0030E0: 65 67 65 72 29 3B 0D 0A 0D 0A 20 62 65 67 69 6E eger);.... begin
0030F0: 0D 0A 20 77 72 69 74 65 6C 6E 3B 77 72 69 74 65 .. writeln;write
003100: 28 27 45 72 72 65 75 72 20 64 65 20 73 79 6E 74 ('Erreur de synt
003110: 61 78 65 20 61 20 6C 27 27 65 6E 74 72 65 65 20 axe a l''entree
003120: 6E 2E 27 29 3B 77 72 69 74 65 6C 6E 28 6E 6F 65 n.');writeln(noe
003130: 29 3B 0D 0A 20 72 65 6C 61 63 68 65 28 66 5B 69 );.. relache(f[i
003140: 5D 29 3B 0D 0A 20 6C 69 72 66 6F 6E 63 74 69 6F ]);.. lirfonctio
003150: 6E 28 66 5B 69 5D 29 3B 0D 0A 20 65 6E 64 3B 0D n(f[i]);.. end;.
003160: 0A 0D 0A 70 72 6F 63 65 64 75 72 65 20 20 6C 69 ...procedure li
003170: 72 63 61 72 3B 0D 0A 20 20 62 65 67 69 6E 0D 0A rcar;.. begin..
003180: 20 20 72 65 70 65 61 74 0D 0A 20 20 20 20 72 65 repeat.. re
003190: 61 64 28 6B 62 64 2C 63 61 72 29 3B 0D 0A 20 20 ad(kbd,car);..
0031A0: 75 6E 74 69 6C 20 28 28 63 61 72 20 69 6E 20 66 until ((car in f
0031B0: 69 6C 74 72 65 29 20 6F 72 20 28 63 61 72 3D 63 iltre) or (car=c
0031C0: 68 72 28 31 33 29 29 29 3B 0D 0A 20 20 77 72 69 hr(13)));.. wri
0031D0: 74 65 20 28 63 61 72 29 3B 0D 0A 20 20 65 6E 64 te (car);.. end
0031E0: 3B 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 20 6C ;....procedure l
0031F0: 69 72 6E 61 74 75 72 65 6C 3B 0D 0A 20 62 65 67 irnaturel;.. beg
003200: 69 6E 0D 0A 20 6C 69 72 63 61 72 3B 0D 0A 20 69 in.. lircar;.. i
003210: 64 66 3A 3D 63 61 72 3B 0D 0A 20 77 68 69 6C 65 df:=car;.. while
003220: 20 28 28 63 61 72 20 69 6E 20 5B 27 30 27 2E 2E ((car in ['0'..
003230: 27 39 27 5D 29 20 61 6E 64 20 28 6C 65 6E 67 74 '9']) and (lengt
003240: 68 28 69 64 66 29 3C 36 29 29 20 64 6F 0D 0A 20 h(idf)<6)) do..
003250: 20 20 62 65 67 69 6E 0D 0A 20 20 20 6C 69 72 63 begin.. lirc
003260: 61 72 3B 0D 0A 20 20 20 69 64 66 3A 3D 69 64 66 ar;.. idf:=idf
003270: 2B 63 61 72 3B 0D 0A 20 20 20 65 6E 64 3B 0D 0A +car;.. end;..
003280: 20 69 64 66 3A 3D 63 6F 70 79 28 69 64 66 2C 31 idf:=copy(idf,1
003290: 2C 6C 65 6E 67 74 68 28 69 64 66 29 2D 31 29 3B ,length(idf)-1);
0032A0: 0D 0A 20 65 6E 64 3B 0D 0A 0D 0A 70 72 6F 63 65 .. end;....proce
0032B0: 64 75 72 65 20 6C 69 72 70 61 72 61 28 76 61 72 dure lirpara(var
0032C0: 20 66 3A 66 6F 6E 63 74 69 6F 6E 29 3B 0D 0A 76 f:fonction);..v
0032D0: 61 72 20 69 6E 64 78 3A 69 6E 74 65 67 65 72 3B ar indx:integer;
0032E0: 0D 0A 20 62 65 67 69 6E 0D 0A 20 6C 69 72 63 61 .. begin.. lirca
0032F0: 72 3B 0D 0A 20 69 66 20 63 61 72 20 3C 3E 27 28 r;.. if car <>'(
003300: 27 20 74 68 65 6E 20 65 72 72 65 75 72 28 31 29 ' then erreur(1)
003310: 0D 0A 20 20 20 65 6C 73 65 0D 0A 20 20 20 62 65 .. else.. be
003320: 67 69 6E 0D 0A 20 20 20 20 20 6C 69 72 6E 61 74 gin.. lirnat
003330: 75 72 65 6C 3B 0D 0A 20 20 20 20 20 69 66 20 63 urel;.. if c
003340: 61 72 3C 3E 27 29 27 20 74 68 65 6E 20 65 72 72 ar<>')' then err
003350: 65 75 72 28 32 29 0D 0A 20 20 20 20 20 65 6C 73 eur(2).. els
003360: 65 0D 0A 20 20 20 20 20 20 62 65 67 69 6E 0D 0A e.. begin..
003370: 20 20 20 20 20 20 20 66 5E 2E 6E 61 74 75 72 65 f^.nature
003380: 3A 3D 27 70 61 72 61 6D 27 3B 0D 0A 20 20 20 20 :='param';..
003390: 20 20 20 66 5E 2E 76 61 6C 65 75 72 3A 3D 69 64 f^.valeur:=id
0033A0: 66 3B 0D 0A 20 20 20 20 20 20 20 66 5E 2E 64 3A f;.. f^.d:
0033B0: 3D 6E 69 6C 3B 0D 0A 20 20 20 20 20 20 20 66 5E =nil;.. f^
0033C0: 2E 67 3A 3D 6E 69 6C 3B 0D 0A 20 20 20 20 20 20 .g:=nil;..
0033D0: 20 76 61 6C 28 69 64 66 2C 69 6E 64 78 2C 72 65 val(idf,indx,re
0033E0: 73 75 6C 74 29 3B 0D 0A 20 20 20 20 20 20 20 69 sult);.. i
0033F0: 66 20 6D 5B 69 5D 3C 69 6E 64 78 20 74 68 65 6E f m[i]<indx then
003400: 20 6D 5B 69 5D 3A 3D 69 6E 64 78 3B 0D 0A 20 20 m[i]:=indx;..
003410: 20 20 20 20 65 6E 64 3B 0D 0A 20 20 20 65 6E 64 end;.. end
003420: 3B 0D 0A 20 6C 69 72 63 61 72 3B 0D 0A 20 65 6E ;.. lircar;.. en
003430: 64 3B 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 20 d;....procedure
003440: 6C 69 72 78 28 76 61 72 20 66 3A 66 6F 6E 63 74 lirx(var f:fonct
003450: 69 6F 6E 29 3B 0D 0A 20 62 65 67 69 6E 0D 0A 20 ion);.. begin..
003460: 66 5E 2E 6E 61 74 75 72 65 3A 3D 27 76 61 72 69 f^.nature:='vari
003470: 61 62 27 3B 0D 0A 20 66 5E 2E 76 61 6C 65 75 72 ab';.. f^.valeur
003480: 3A 3D 27 78 27 3B 0D 0A 20 66 5E 2E 64 3A 3D 6E :='x';.. f^.d:=n
003490: 69 6C 3B 0D 0A 20 66 5E 2E 67 3A 3D 6E 69 6C 3B il;.. f^.g:=nil;
0034A0: 0D 0A 20 6C 69 72 63 61 72 3B 0D 0A 20 65 6E 64 .. lircar;.. end
0034B0: 3B 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 20 6C ;....procedure l
0034C0: 69 72 65 78 70 28 76 61 72 20 66 3A 66 6F 6E 63 irexp(var f:fonc
0034D0: 74 69 6F 6E 29 3B 0D 0A 66 6F 72 77 61 72 64 3B tion);..forward;
0034E0: 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 20 6C 69 ....procedure li
0034F0: 72 69 64 66 63 74 28 76 61 72 20 66 3A 66 6F 6E ridfct(var f:fon
003500: 63 74 69 6F 6E 29 3B 0D 0A 20 62 65 67 69 6E 0D ction);.. begin.
003510: 0A 20 69 64 66 3A 3D 63 61 72 3B 0D 0A 20 77 68 . idf:=car;.. wh
003520: 69 6C 65 20 28 28 63 61 72 20 69 6E 20 5B 27 61 ile ((car in ['a
003530: 27 2E 2E 27 7A 27 5D 29 20 61 6E 64 20 28 6C 65 '..'z']) and (le
003540: 6E 67 74 68 28 69 64 66 29 3C 37 29 29 20 64 6F ngth(idf)<7)) do
003550: 0D 0A 20 20 62 65 67 69 6E 0D 0A 20 20 6C 69 72 .. begin.. lir
003560: 63 61 72 3B 0D 0A 20 20 69 64 66 3A 3D 69 64 66 car;.. idf:=idf
003570: 2B 63 61 72 3B 0D 0A 20 20 65 6E 64 3B 0D 0A 20 +car;.. end;..
003580: 69 64 66 3A 3D 63 6F 70 79 28 69 64 66 2C 31 2C idf:=copy(idf,1,
003590: 6C 65 6E 67 74 68 28 69 64 66 29 2D 31 29 3B 0D length(idf)-1);.
0035A0: 0A 20 69 66 20 28 28 69 64 66 3D 27 73 69 6E 27 . if ((idf='sin'
0035B0: 29 6F 72 28 69 64 66 3D 27 63 6F 73 27 29 6F 72 )or(idf='cos')or
0035C0: 28 69 64 66 3D 27 74 61 6E 67 27 29 6F 72 28 69 (idf='tang')or(i
0035D0: 64 66 3D 27 65 78 70 27 29 6F 72 28 69 64 66 3D df='exp')or(idf=
0035E0: 27 6C 6E 27 29 6F 72 0D 0A 20 28 69 64 66 3D 27 'ln')or.. (idf='
0035F0: 61 72 63 74 61 6E 27 29 6F 72 28 69 64 66 3D 27 arctan')or(idf='
003600: 69 6E 74 27 29 6F 72 28 69 64 66 3D 27 61 62 73 int')or(idf='abs
003610: 27 29 6F 72 28 69 64 66 3D 27 73 71 72 74 27 29 ')or(idf='sqrt')
003620: 6F 72 28 69 64 66 3D 27 73 68 27 29 6F 72 28 69 or(idf='sh')or(i
003630: 64 66 3D 27 63 68 27 29 0D 0A 20 6F 72 28 69 64 df='ch').. or(id
003640: 66 3D 27 74 68 27 29 6F 72 28 69 64 66 3D 27 61 f='th')or(idf='a
003650: 72 63 73 69 6E 27 29 6F 72 28 69 64 66 3D 27 61 rcsin')or(idf='a
003660: 72 63 63 6F 73 27 29 29 0D 0A 20 74 68 65 6E 0D rccos')).. then.
003670: 0A 20 20 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 . begin..
003680: 20 66 5E 2E 6E 61 74 75 72 65 3A 3D 27 69 64 66 f^.nature:='idf
003690: 63 74 27 3B 0D 0A 20 20 20 20 20 66 5E 2E 76 61 ct';.. f^.va
0036A0: 6C 65 75 72 3A 3D 69 64 66 3B 0D 0A 20 20 20 20 leur:=idf;..
0036B0: 20 66 5E 2E 67 3A 3D 6E 69 6C 3B 0D 0A 20 20 20 f^.g:=nil;..
0036C0: 20 20 69 66 20 63 61 72 3D 27 28 27 20 74 68 65 if car='(' the
0036D0: 6E 0D 0A 20 20 20 20 20 20 20 20 20 62 65 67 69 n.. begi
0036E0: 6E 0D 0A 20 20 20 20 20 20 20 20 20 6C 69 72 63 n.. lirc
0036F0: 61 72 3B 0D 0A 20 20 20 20 20 20 20 20 20 6C 69 ar;.. li
003700: 72 65 78 70 28 66 5E 2E 64 29 3B 0D 0A 20 20 20 rexp(f^.d);..
003710: 20 20 20 20 20 20 69 66 20 63 61 72 3C 3E 27 29 if car<>')
003720: 27 20 74 68 65 6E 20 65 72 72 65 75 72 28 33 29 ' then erreur(3)
003730: 20 65 6C 73 65 20 6C 69 72 63 61 72 0D 0A 20 20 else lircar..
003740: 20 20 20 20 20 20 20 65 6E 64 0D 0A 20 20 20 20 end..
003750: 20 20 20 65 6C 73 65 20 65 72 72 65 75 72 28 34 else erreur(4
003760: 29 0D 0A 20 20 20 20 65 6E 64 0D 0A 20 20 20 20 ).. end..
003770: 65 6C 73 65 0D 0A 20 20 20 20 62 65 67 69 6E 0D else.. begin.
003780: 0A 20 20 20 20 65 72 72 65 75 72 28 35 29 3B 0D . erreur(5);.
003790: 0A 20 20 20 20 65 6E 64 0D 0A 65 6E 64 3B 0D 0A . end..end;..
0037A0: 0D 0A 70 72 6F 63 65 64 75 72 65 20 6C 69 72 66 ..procedure lirf
0037B0: 61 63 74 65 75 72 28 76 61 72 20 66 3A 66 6F 6E acteur(var f:fon
0037C0: 63 74 69 6F 6E 29 3B 0D 0A 66 6F 72 77 61 72 64 ction);..forward
0037D0: 3B 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 20 20 ;....procedure
0037E0: 6C 69 72 70 75 69 73 73 61 6E 63 65 28 76 61 72 lirpuissance(var
0037F0: 20 66 3A 66 6F 6E 63 74 69 6F 6E 29 3B 0D 0A 76 f:fonction);..v
003800: 61 72 0D 0A 68 3A 66 6F 6E 63 74 69 6F 6E 3B 0D ar..h:fonction;.
003810: 0A 20 20 62 65 67 69 6E 0D 0A 20 20 6E 65 77 28 . begin.. new(
003820: 68 29 3B 68 5E 2E 67 3A 3D 66 3B 66 3A 3D 68 3B h);h^.g:=f;f:=h;
003830: 0D 0A 20 20 66 5E 2E 6E 61 74 75 72 65 3A 3D 27 .. f^.nature:='
003840: 70 75 69 73 73 27 3B 0D 0A 20 20 66 5E 2E 76 61 puiss';.. f^.va
003850: 6C 65 75 72 3A 3D 27 5E 27 3B 0D 0A 20 20 6E 65 leur:='^';.. ne
003860: 77 28 66 5E 2E 64 29 3B 0D 0A 20 20 6C 69 72 63 w(f^.d);.. lirc
003870: 61 72 3B 0D 0A 20 20 6C 69 72 66 61 63 74 65 75 ar;.. lirfacteu
003880: 72 28 66 5E 2E 64 29 3B 0D 0A 20 20 65 6E 64 3B r(f^.d);.. end;
003890: 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 20 6C 69 ....procedure li
0038A0: 72 6E 6F 6D 62 72 65 28 76 61 72 20 66 3A 66 6F rnombre(var f:fo
0038B0: 6E 63 74 69 6F 6E 29 3B 0D 0A 76 61 72 20 6E 62 nction);..var nb
0038C0: 72 65 3A 72 65 61 6C 3B 0D 0A 20 62 65 67 69 6E re:real;.. begin
0038D0: 0D 0A 20 69 64 66 3A 3D 63 61 72 3B 63 61 72 3A .. idf:=car;car:
0038E0: 3D 27 30 27 3B 0D 0A 20 77 68 69 6C 65 20 28 28 ='0';.. while ((
0038F0: 63 61 72 20 69 6E 20 5B 27 30 27 2E 2E 27 39 27 car in ['0'..'9'
003900: 5D 29 20 61 6E 64 20 28 6C 65 6E 67 74 68 28 69 ]) and (length(i
003910: 64 66 29 3C 31 30 29 29 20 64 6F 0D 0A 20 20 20 df)<10)) do..
003920: 62 65 67 69 6E 0D 0A 20 20 20 6C 69 72 63 61 72 begin.. lircar
003930: 3B 0D 0A 20 20 20 69 64 66 3A 3D 69 64 66 2B 63 ;.. idf:=idf+c
003940: 61 72 3B 0D 0A 20 20 20 65 6E 64 3B 0D 0A 20 20 ar;.. end;..
003950: 69 66 20 63 61 72 3D 27 2E 27 20 74 68 65 6E 20 if car='.' then
003960: 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 20 begin..
003970: 20 20 20 20 20 20 20 20 20 20 20 20 20 63 61 72 car
003980: 3A 3D 27 30 27 3B 0D 0A 20 20 20 20 20 20 20 20 :='0';..
003990: 20 20 20 20 20 20 20 20 20 20 20 77 68 69 6C 65 while
0039A0: 20 28 28 63 61 72 20 69 6E 20 5B 27 30 27 2E 2E ((car in ['0'..
0039B0: 27 39 27 5D 29 20 61 6E 64 20 28 6C 65 6E 67 74 '9']) and (lengt
0039C0: 68 28 69 64 66 29 3C 31 30 29 29 20 64 6F 0D 0A h(idf)<10)) do..
0039D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0039E0: 20 20 20 20 20 20 62 65 67 69 6E 0D 0A 20 20 20 begin..
0039F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
003A00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
003A10: 03 00 00 00 02 09 4E E5 03 00 41 02 00 00 00 02 ......N...A.....
003A20: 03 00 42 02 00 00 00 02 03 00 43 02 00 00 00 02 ..B.......C.....
003A30: 03 00 44 02 00 00 00 02 03 00 45 02 00 00 00 02 ..D.......E.....
003A40: 03 00 46 02 00 00 00 02 03 00 47 02 00 00 00 02 ..F.......G.....
003A50: 03 00 48 02 00 00 00 02 03 00 49 02 00 00 00 02 ..H.......I.....
003A60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003A70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003A80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003A90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003AA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003AB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003AC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003AD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003AE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003AF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
003B00: 20 20 20 6C 69 72 63 61 72 3B 0D 0A 20 20 20 20 lircar;..
003B10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
003B20: 20 20 69 64 66 3A 3D 69 64 66 2B 63 61 72 3B 0D idf:=idf+car;.
003B30: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
003B40: 20 20 20 20 20 20 20 65 6E 64 3B 0D 0A 20 20 20 end;..
003B50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
003B60: 65 6E 64 3B 0D 0A 20 20 69 64 66 3A 3D 63 6F 70 end;.. idf:=cop
003B70: 79 28 69 64 66 2C 31 2C 6C 65 6E 67 74 68 28 69 y(idf,1,length(i
003B80: 64 66 29 2D 31 29 3B 0D 0A 20 20 76 61 6C 28 69 df)-1);.. val(i
003B90: 64 66 2C 6E 62 72 65 2C 72 65 73 75 6C 74 29 3B df,nbre,result);
003BA0: 0D 0A 20 20 69 66 20 72 65 73 75 6C 74 3C 3E 30 .. if result<>0
003BB0: 20 74 68 65 6E 20 65 72 72 65 75 72 28 36 29 0D then erreur(6).
003BC0: 0A 20 20 20 20 65 6C 73 65 0D 0A 20 20 20 20 20 . else..
003BD0: 62 65 67 69 6E 0D 0A 20 20 20 20 20 66 5E 2E 6E begin.. f^.n
003BE0: 61 74 75 72 65 3A 3D 27 6E 6F 6D 62 72 65 27 3B ature:='nombre';
003BF0: 0D 0A 20 20 20 20 20 66 5E 2E 76 61 6C 65 75 72 .. f^.valeur
003C00: 3A 3D 69 64 66 3B 0D 0A 20 20 20 20 20 66 5E 2E :=idf;.. f^.
003C10: 64 3A 3D 6E 69 6C 3B 0D 0A 20 20 20 20 20 66 5E d:=nil;.. f^
003C20: 2E 67 3A 3D 6E 69 6C 3B 0D 0A 20 20 20 20 20 65 .g:=nil;.. e
003C30: 6E 64 3B 0D 0A 20 20 65 6E 64 3B 0D 0A 0D 0A 70 nd;.. end;....p
003C40: 72 6F 63 65 64 75 72 65 20 20 6C 69 72 66 61 63 rocedure lirfac
003C50: 74 65 75 72 3B 0D 0A 20 62 65 67 69 6E 0D 0A 20 teur;.. begin..
003C60: 20 20 20 63 61 73 65 20 63 61 72 20 6F 66 0D 0A case car of..
003C70: 20 20 20 20 27 70 27 3A 20 20 6C 69 72 70 61 72 'p': lirpar
003C80: 61 28 66 29 3B 0D 0A 20 20 20 20 27 78 27 3A 20 a(f);.. 'x':
003C90: 20 6C 69 72 78 28 66 29 3B 0D 0A 20 20 20 20 27 lirx(f);.. '
003CA0: 28 27 3A 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 (': begin..
003CB0: 20 20 20 20 20 20 6C 69 72 63 61 72 3B 0D 0A 20 lircar;..
003CC0: 20 20 20 20 20 20 20 20 20 6C 69 72 65 78 70 28 lirexp(
003CD0: 66 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 69 f);.. i
003CE0: 66 20 63 61 72 3C 3E 27 29 27 20 74 68 65 6E 20 f car<>')' then
003CF0: 65 72 72 65 75 72 28 37 29 20 65 6C 73 65 20 6C erreur(7) else l
003D00: 69 72 63 61 72 3B 0D 0A 20 20 20 20 20 20 20 20 ircar;..
003D10: 20 20 65 6E 64 3B 0D 0A 20 20 20 20 27 2B 27 2C end;.. '+',
003D20: 27 2D 27 2C 27 30 27 2E 2E 27 39 27 3A 20 6C 69 '-','0'..'9': li
003D30: 72 6E 6F 6D 62 72 65 28 66 29 3B 0D 0A 20 20 20 rnombre(f);..
003D40: 20 27 61 27 2E 2E 27 77 27 2C 27 79 27 2C 27 7A 'a'..'w','y','z
003D50: 27 3A 20 6C 69 72 69 64 66 63 74 28 66 29 3B 0D ': liridfct(f);.
003D60: 0A 20 20 65 6C 73 65 0D 0A 20 20 20 20 65 72 72 . else.. err
003D70: 65 75 72 28 38 29 3B 0D 0A 20 20 20 20 65 6E 64 eur(8);.. end
003D80: 3B 0D 0A 20 20 20 20 77 68 69 6C 65 20 63 61 72 ;.. while car
003D90: 3D 27 5E 27 20 64 6F 20 6C 69 72 70 75 69 73 73 ='^' do lirpuiss
003DA0: 61 6E 63 65 28 66 29 3B 0D 0A 20 65 6E 64 3B 0D ance(f);.. end;.
003DB0: 0A 0D 0A 70 72 6F 63 65 64 75 72 65 20 20 6C 69 ...procedure li
003DC0: 72 74 65 72 6D 65 28 76 61 72 20 66 3A 66 6F 6E rterme(var f:fon
003DD0: 63 74 69 6F 6E 29 3B 0D 0A 76 61 72 0D 0A 68 3A ction);..var..h:
003DE0: 66 6F 6E 63 74 69 6F 6E 3B 0D 0A 20 20 62 65 67 fonction;.. beg
003DF0: 69 6E 0D 0A 20 20 20 20 6C 69 72 66 61 63 74 65 in.. lirfacte
003E00: 75 72 28 66 29 3B 0D 0A 20 20 20 20 77 68 69 6C ur(f);.. whil
003E10: 65 20 63 61 72 20 69 6E 20 5B 27 2A 27 2C 27 2F e car in ['*','/
003E20: 27 5D 20 64 6F 0D 0A 20 20 20 62 65 67 69 6E 0D '] do.. begin.
003E30: 0A 20 20 20 20 6E 65 77 28 68 29 3B 68 5E 2E 67 . new(h);h^.g
003E40: 3A 3D 66 3B 66 3A 3D 68 3B 0D 0A 20 20 20 20 69 :=f;f:=h;.. i
003E50: 66 20 63 61 72 3D 27 2A 27 20 74 68 65 6E 20 66 f car='*' then f
003E60: 5E 2E 6E 61 74 75 72 65 3A 3D 27 6D 75 6C 74 69 ^.nature:='multi
003E70: 27 20 65 6C 73 65 20 66 5E 2E 6E 61 74 75 72 65 ' else f^.nature
003E80: 3A 3D 27 64 69 76 69 73 65 27 3B 0D 0A 20 20 20 :='divise';..
003E90: 20 66 5E 2E 76 61 6C 65 75 72 3A 3D 63 61 72 3B f^.valeur:=car;
003EA0: 0D 0A 20 20 20 20 6E 65 77 28 66 5E 2E 64 29 3B .. new(f^.d);
003EB0: 0D 0A 20 20 20 20 6C 69 72 63 61 72 3B 0D 0A 20 .. lircar;..
003EC0: 20 20 20 6C 69 72 66 61 63 74 65 75 72 28 66 5E lirfacteur(f^
003ED0: 2E 64 29 3B 0D 0A 20 20 20 65 6E 64 3B 0D 0A 20 .d);.. end;..
003EE0: 20 65 6E 64 3B 0D 0A 0D 0A 70 72 6F 63 65 64 75 end;....procedu
003EF0: 72 65 20 20 6C 69 72 65 78 70 3B 0D 0A 76 61 72 re lirexp;..var
003F00: 0D 0A 68 3A 66 6F 6E 63 74 69 6F 6E 3B 0D 0A 62 ..h:fonction;..b
003F10: 65 67 69 6E 0D 0A 20 20 20 6E 65 77 28 66 29 3B egin.. new(f);
003F20: 0D 0A 20 20 20 69 66 20 63 61 72 20 69 6E 20 5B .. if car in [
003F30: 27 2B 27 2C 27 2D 27 5D 20 74 68 65 6E 0D 0A 20 '+','-'] then..
003F40: 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 69 66 begin.. if
003F50: 20 63 61 72 3D 27 2B 27 20 74 68 65 6E 0D 0A 20 car='+' then..
003F60: 20 20 20 20 20 20 20 20 66 5E 2E 6E 61 74 75 72 f^.natur
003F70: 65 3A 3D 27 70 6C 75 73 27 20 65 6C 73 65 20 66 e:='plus' else f
003F80: 5E 2E 6E 61 74 75 72 65 3A 3D 27 6D 6F 69 6E 73 ^.nature:='moins
003F90: 27 3B 0D 0A 20 20 20 20 20 20 20 20 20 66 5E 2E ';.. f^.
003FA0: 76 61 6C 65 75 72 3A 3D 63 61 72 3B 0D 0A 20 20 valeur:=car;..
003FB0: 20 20 20 20 20 20 20 66 5E 2E 67 3A 3D 6E 69 6C f^.g:=nil
003FC0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 6E 65 77 28 ;.. new(
003FD0: 66 5E 2E 64 29 3B 0D 0A 20 20 20 20 20 20 20 20 f^.d);..
003FE0: 20 6C 69 72 63 61 72 3B 0D 0A 20 20 20 20 20 20 lircar;..
003FF0: 20 20 20 6C 69 72 74 65 72 6D 65 28 66 5E 2E 64 lirterme(f^.d
004000: 29 3B 0D 0A 20 20 20 65 6E 64 0D 0A 20 20 20 65 );.. end.. e
004010: 6C 73 65 0D 0A 20 20 20 20 20 20 20 20 20 6C 69 lse.. li
004020: 72 74 65 72 6D 65 28 66 29 3B 0D 0A 20 20 20 77 rterme(f);.. w
004030: 68 69 6C 65 20 63 61 72 20 69 6E 20 5B 27 2B 27 hile car in ['+'
004040: 2C 27 2D 27 5D 20 64 6F 0D 0A 20 20 20 20 20 62 ,'-'] do.. b
004050: 65 67 69 6E 0D 0A 20 20 20 20 20 6E 65 77 28 68 egin.. new(h
004060: 29 3B 68 5E 2E 67 3A 3D 66 3B 0D 0A 20 20 20 20 );h^.g:=f;..
004070: 20 66 3A 3D 68 3B 0D 0A 20 20 20 20 20 69 66 20 f:=h;.. if
004080: 63 61 72 3D 27 2B 27 20 74 68 65 6E 20 66 5E 2E car='+' then f^.
004090: 6E 61 74 75 72 65 3A 3D 27 70 6C 75 73 27 20 65 nature:='plus' e
0040A0: 6C 73 65 20 66 5E 2E 6E 61 74 75 72 65 3A 3D 27 lse f^.nature:='
0040B0: 6D 6F 69 6E 73 27 3B 0D 0A 20 20 20 20 20 66 5E moins';.. f^
0040C0: 2E 76 61 6C 65 75 72 3A 3D 63 61 72 3B 0D 0A 20 .valeur:=car;..
0040D0: 20 20 20 20 6E 65 77 28 66 5E 2E 64 29 3B 0D 0A new(f^.d);..
0040E0: 20 20 20 20 20 6C 69 72 63 61 72 3B 0D 0A 20 20 lircar;..
0040F0: 20 20 20 6C 69 72 74 65 72 6D 65 28 66 5E 2E 64 lirterme(f^.d
004100: 29 3B 0D 0A 20 20 20 20 20 65 6E 64 3B 0D 0A 20 );.. end;..
004110: 20 20 65 6E 64 3B 0D 0A 0D 0A 70 72 6F 63 65 64 end;....proced
004120: 75 72 65 20 6C 69 72 66 6F 6E 63 74 69 6F 6E 3B ure lirfonction;
004130: 0D 0A 62 65 67 69 6E 0D 0A 20 20 69 66 20 66 3C ..begin.. if f<
004140: 3E 6E 69 6C 20 74 68 65 6E 20 72 65 6C 61 63 68 >nil then relach
004150: 65 28 66 29 3B 0D 0A 20 20 77 72 69 74 65 6C 6E e(f);.. writeln
004160: 28 27 45 6E 74 72 65 7A 20 76 6F 74 72 65 20 66 ('Entrez votre f
004170: 6F 6E 63 74 69 6F 6E 27 29 3B 0D 0A 20 20 20 6C onction');.. l
004180: 69 72 63 61 72 3B 0D 0A 20 20 20 6C 69 72 65 78 ircar;.. lirex
004190: 70 28 66 29 3B 0D 0A 20 20 69 66 20 63 61 72 3C p(f);.. if car<
0041A0: 3E 63 68 72 28 31 33 29 20 74 68 65 6E 20 65 72 >chr(13) then er
0041B0: 72 65 75 72 28 39 29 3B 0D 0A 65 6E 64 3B 0D 0A reur(9);..end;..
0041C0: 0D 0A 70 72 6F 63 65 64 75 72 65 20 74 65 6D 70 ..procedure temp
0041D0: 6F 3B 0D 0A 62 65 67 69 6E 0D 0A 77 72 69 74 65 o;..begin..write
0041E0: 6C 6E 3B 0D 0A 67 6F 74 6F 78 79 28 31 2C 32 35 ln;..gotoxy(1,25
0041F0: 29 3B 77 72 69 74 65 28 27 61 70 70 75 79 65 7A );write('appuyez
004200: 20 75 6E 65 20 74 6F 75 63 68 65 20 70 6F 75 72 une touche pour
004210: 20 72 65 76 65 6E 69 72 20 61 75 20 6D 65 6E 75 revenir au menu
004220: 27 29 3B 0D 0A 77 68 69 6C 65 20 6E 6F 74 20 6B ');..while not k
004230: 65 79 70 72 65 73 73 65 64 20 64 6F 3B 0D 0A 65 eypressed do;..e
004240: 6E 64 3B 0D 0A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A nd;.............
004250: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
004260: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
004270: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
004280: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004290: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0042A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0042B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0042C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0042D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0042E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0042F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004300: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
004310: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
004320: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
004330: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
004340: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
004350: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
004360: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
004370: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
004380: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
004390: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0043A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0043B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0043C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0043D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0043E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0043F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
004400: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
004410: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
004420: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
004430: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
004440: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
004450: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
004460: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
004470: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
004480: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
004490: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0044A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0044B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0044C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0044D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0044E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0044F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
004500: 0D 0A 20 20 2A 2A 2A 2A 2A 2A 20 20 51 55 45 4C .. ****** QUEL
004510: 51 55 45 53 20 45 58 50 4C 49 43 41 54 49 4F 4E QUES EXPLICATION
004520: 53 20 53 55 52 20 4C 45 53 20 46 49 43 48 49 45 S SUR LES FICHIE
004530: 52 53 20 53 4F 55 52 43 45 53 20 2A 2A 2A 2A 2A RS SOURCES *****
004540: 2A 2A 0D 0A 0D 0A 20 20 4C 65 73 20 66 6F 6E 63 **.... Les fonc
004550: 74 69 6F 6E 73 20 6E 75 6D 65 72 69 71 75 65 73 tions numeriques
004560: 20 73 6F 6E 74 20 6D 69 73 65 73 20 73 6F 75 73 sont mises sous
004570: 20 66 6F 72 6D 65 20 64 27 75 6E 20 61 72 62 72 forme d'un arbr
004580: 65 3A 0D 0A 0D 0A 20 20 20 70 61 72 20 65 78 65 e:.... par exe
004590: 6D 70 6C 65 20 70 6F 75 72 20 66 31 28 78 29 3D mple pour f1(x)=
0045A0: 33 2A 78 2A 28 78 2D 32 29 0D 0A 0D 0A 20 20 20 3*x*(x-2)....
0045B0: 6E 6F 75 73 20 61 75 72 6F 6E 73 20 6C 27 61 72 nous aurons l'ar
0045C0: 62 72 65 20 20 20 20 20 20 20 20 20 20 20 20 2A bre *
0045D0: 20 20 20 20 20 20 20 20 20 20 20 71 75 69 20 70 qui p
0045E0: 65 72 6D 65 74 74 72 61 20 74 6F 75 74 20 6C 65 ermettra tout le
0045F0: 20 63 61 6C 63 75 6C 0D 0A 20 20 20 20 20 20 20 calcul..
004600: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
004610: 20 20 20 20 20 20 20 20 20 2F 20 20 20 5C 0D 0A / \..
004620: 20 20 20 66 6F 72 6D 65 6C 20 20 6E 65 63 65 73 formel neces
004630: 73 61 69 72 65 20 20 20 20 20 20 20 20 20 20 2F saire /
004640: 20 20 20 20 20 5C 20 20 20 20 20 20 20 61 20 6C \ a l
004650: 27 65 74 75 64 65 20 64 65 20 63 65 74 74 65 20 'etude de cette
004660: 66 6F 6E 63 74 69 6F 6E 0D 0A 20 20 20 20 20 20 fonction..
004670: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
004680: 20 20 20 20 20 20 20 20 2A 20 20 20 20 20 20 20 *
004690: 2D 0D 0A 20 20 20 63 61 6C 63 75 6C 20 64 65 20 -.. calcul de
0046A0: 76 61 6C 65 75 72 73 20 20 20 20 20 20 20 20 20 valeurs
0046B0: 2F 20 5C 20 20 20 20 20 2F 20 5C 20 20 20 20 20 / \ / \
0046C0: 70 6F 75 72 20 6C 65 20 67 72 61 70 68 65 2C 20 pour le graphe,
0046D0: 64 65 76 65 6C 6F 70 70 65 6D 65 6E 74 0D 0A 20 developpement..
0046E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0046F0: 20 20 20 20 20 20 20 20 20 20 20 2F 20 20 20 5C / \
004700: 20 20 20 2F 20 20 20 5C 0D 0A 20 20 20 64 65 20 / \.. de
004710: 63 65 20 70 6F 6C 79 6E 6F 6D 65 20 20 20 20 20 ce polynome
004720: 20 20 20 20 20 33 20 20 20 20 20 78 20 20 78 20 3 x x
004730: 20 20 20 32 20 20 20 20 65 63 72 69 74 75 72 65 2 ecriture
004740: 20 64 65 20 73 61 20 64 65 72 69 76 65 65 2E 2E de sa derivee..
004750: 2E 2E 2E 0D 0A 0D 0A 20 20 50 6F 75 72 20 72 65 ....... Pour re
004760: 70 72 65 73 65 6E 74 65 72 20 63 65 74 20 61 72 presenter cet ar
004770: 62 72 65 2C 20 75 74 69 6C 69 73 61 74 69 6F 6E bre, utilisation
004780: 20 64 65 20 70 6F 69 6E 74 65 75 72 73 20 64 65 de pointeurs de
004790: 66 69 6E 69 73 20 63 6F 6D 6D 65 0D 0A 0D 0A 20 finis comme....
0047A0: 20 20 66 6F 6E 63 74 69 6F 6E 3A 20 70 6F 69 6E fonction: poin
0047B0: 74 65 75 72 20 61 20 34 20 63 6F 6D 70 6F 73 61 teur a 4 composa
0047C0: 6E 74 73 0D 0A 20 20 20 20 20 20 20 20 6E 61 74 nts.. nat
0047D0: 75 72 65 3A 20 20 20 20 20 20 75 6E 65 20 63 68 ure: une ch
0047E0: 61 69 6E 65 20 69 6E 64 69 71 75 61 6E 74 20 6C aine indiquant l
0047F0: 61 20 6E 61 74 75 72 65 20 64 75 20 6E 6F 65 75 a nature du noeu
004800: 64 0D 0A 20 20 20 20 20 20 20 20 76 61 6C 65 75 d.. valeu
004810: 72 3A 20 20 20 20 20 20 76 61 6C 65 75 72 20 6E r: valeur n
004820: 75 6D 65 72 69 71 75 65 20 70 6F 75 72 20 6E 6F umerique pour no
004830: 6D 62 72 65 2C 0D 0A 20 20 20 20 20 20 20 20 20 mbre,..
004840: 20 20 20 20 20 20 20 20 20 20 20 20 6E 75 6D 65 nume
004850: 72 6F 20 64 75 20 70 61 72 61 6D 65 74 72 65 2E ro du parametre.
004860: 2E 2E 0D 0A 20 20 20 20 20 20 20 20 64 72 6F 69 .... droi
004870: 74 3A 20 20 20 20 20 20 20 61 64 72 65 73 73 65 t: adresse
004880: 20 64 75 20 70 6F 69 6E 74 65 75 72 20 64 65 20 du pointeur de
004890: 64 72 6F 69 74 65 0D 0A 20 20 20 20 20 20 20 20 droite..
0048A0: 67 61 75 63 68 65 3A 20 20 20 20 20 20 61 64 72 gauche: adr
0048B0: 65 73 73 65 20 64 75 20 70 6F 69 6E 74 65 75 72 esse du pointeur
0048C0: 20 64 65 20 67 61 75 63 68 65 2E 0D 0A 0D 0A 20 de gauche.....
0048D0: 20 4C 65 73 20 64 65 63 6C 61 72 61 74 69 6F 6E Les declaration
0048E0: 73 20 72 65 6C 61 74 69 76 65 73 20 61 20 63 65 s relatives a ce
0048F0: 73 20 70 6F 69 6E 74 65 75 72 73 20 73 6F 6E 74 s pointeurs sont
004900: 20 64 61 6E 73 0D 0A 20 20 20 20 20 20 20 20 20 dans..
004910: 46 4F 4E 43 54 49 4F 4E 2E 50 41 53 20 65 74 20 FONCTION.PAS et
004920: 43 4F 55 52 42 45 2E 50 41 53 0D 0A 0D 0A 20 20 COURBE.PAS....
004930: 2A 2A 2A 2A 2A 2A 2A 2A 20 45 4E 54 52 45 45 20 ******** ENTREE
004940: 44 27 55 4E 45 20 46 4F 4E 43 54 49 4F 4E 20 2A D'UNE FONCTION *
004950: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
004960: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
004970: 2A 2A 2A 2A 2A 0D 0A 0D 0A 20 20 43 27 65 73 74 *****.... C'est
004980: 20 6C 65 20 66 69 63 68 69 65 72 20 4C 49 52 45 le fichier LIRE
004990: 46 4F 4E 43 2E 50 41 53 0D 0A 0D 0A 20 20 49 6C FONC.PAS.... Il
0049A0: 20 63 6F 6D 70 72 65 6E 64 20 6C 65 73 20 64 69 comprend les di
0049B0: 76 65 72 73 65 73 20 70 72 6F 63 65 64 75 72 65 verses procedure
0049C0: 73 20 70 6F 75 72 20 6C 27 65 6E 74 72 65 65 20 s pour l'entree
0049D0: 64 65 73 20 65 6C 65 6D 65 6E 74 73 0D 0A 20 20 des elements..
0049E0: 64 27 75 6E 65 20 66 6F 6E 63 74 69 6F 6E 2E 0D d'une fonction..
0049F0: 0A 0D 0A 20 20 4C 27 61 72 74 69 63 75 6C 61 74 ... L'articulat
004A00: 69 6F 6E 20 64 65 73 20 70 72 6F 63 65 64 75 72 ion des procedur
004A10: 65 73 20 72 65 73 70 65 63 74 65 20 6C 61 20 73 es respecte la s
004A20: 79 6E 74 61 78 65 20 64 65 73 20 66 6F 6E 63 74 yntaxe des fonct
004A30: 69 6F 6E 73 0D 0A 20 20 6E 75 6D 65 72 69 71 75 ions.. numeriqu
004A40: 65 73 2E 0D 0A 0D 0A 20 20 20 45 78 70 72 65 73 es..... Expres
004A50: 73 69 6F 6E 20 61 6C 67 65 62 72 69 71 75 65 3A sion algebrique:
004A60: 0D 0A 0D 0A 20 20 20 20 2D 2D 2D 2D 3E 2D 7C 20 .... ---->-|
004A70: 2B 20 7C 2D 2D 3E 2D 2D 0D 0A 20 20 20 7C 20 20 + |-->--.. |
004A80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7C 0D |.
004A90: 0A 20 20 20 7C 20 20 20 20 20 20 20 20 20 20 20 . |
004AA0: 20 20 20 20 20 7C 0D 0A 20 2D 2D 2D 2D 2D 2D 2D |.. -------
004AB0: 2D 2D 2D 2D 3E 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D ---->-----------
004AC0: 2D 2D 2D 2D 2D 3E 2D 2D 2D 7C 20 54 65 72 6D 65 ----->---| Terme
004AD0: 20 7C 2D 2D 2D 2D 3E 2D 2D 2D 2D 2D 2D 2D 2D 2D |---->---------
004AE0: 3E 2D 2D 2D 2D 2D 2D 0D 0A 20 20 20 7C 20 20 20 >------.. |
004AF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 7C 20 20 |
004B00: 20 20 20 7C 20 20 20 20 20 20 20 20 20 20 20 20 |
004B10: 20 20 20 20 20 20 20 20 20 20 20 5C 7C 2F 0D 0A \|/..
004B20: 20 20 20 7C 20 20 20 20 20 20 20 20 20 20 20 20 |
004B30: 20 20 20 20 7C 20 20 20 20 2F 7C 5C 20 20 20 20 | /|\
004B40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
004B50: 20 20 20 7C 0D 0A 20 20 20 20 2D 2D 2D 3E 2D 2D |.. --->--
004B60: 7C 20 2D 20 7C 2D 3E 2D 2D 2D 20 20 20 20 20 20 | - |->---
004B70: 20 2D 2D 3C 2D 2D 2D 2D 2D 2D 7C 20 2B 20 7C 2D --<------| + |-
004B80: 2D 2D 2D 2D 2D 3C 2D 2D 2D 0D 0A 20 20 20 20 20 -----<---..
004B90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
004BA0: 20 20 20 20 20 7C 20 20 20 20 20 20 20 20 20 20 |
004BB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 5C 7C 2F \|/
004BC0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
004BD0: 20 20 20 20 20 20 20 20 20 20 20 2F 7C 5C 20 20 /|\
004BE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
004BF0: 20 20 20 20 20 7C 0D 0A 20 20 20 20 20 20 20 20 |..
004C00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
004C10: 20 20 20 2D 2D 2D 3C 2D 2D 2D 2D 2D 7C 20 2D 20 ---<-----| -
004C20: 7C 2D 2D 2D 2D 2D 2D 3C 2D 2D 2D 0D 0A 0D 0A 20 |------<---....
004C30: 20 20 54 65 72 6D 65 3A 0D 0A 20 20 20 20 20 20 Terme:..
004C40: 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 3E 2D ----------->-
004C50: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 3E 2D 2D 2D 7C 20 ---------->---|
004C60: 46 61 63 74 65 75 72 20 7C 2D 2D 2D 2D 2D 3E 2D Facteur |----->-
004C70: 2D 2D 2D 2D 2D 2D 2D 3E 2D 2D 2D 0D 0A 20 20 20 ------->---..
004C80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
004C90: 20 20 20 20 20 20 20 20 7C 20 20 20 20 20 20 20 |
004CA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
004CB0: 20 20 20 20 5C 7C 2F 0D 0A 20 20 20 20 20 20 20 \|/..
004CC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
004CD0: 20 20 20 2F 7C 5C 20 20 20 20 20 20 20 20 20 20 /|\
004CE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
004CF0: 20 7C 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 |..
004D00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
004D10: 04 00 00 00 02 09 4E E5 04 00 41 02 00 00 00 02 ......N...A.....
004D20: 04 00 42 02 00 00 00 02 04 00 43 02 00 00 00 02 ..B.......C.....
004D30: 04 00 44 02 00 00 00 02 04 00 45 02 00 00 00 02 ..D.......E.....
004D40: 04 00 46 02 00 00 00 02 04 00 47 02 00 00 00 02 ..F.......G.....
004D50: 04 00 48 02 00 00 00 02 04 00 49 02 00 00 00 02 ..H.......I.....
004D60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004D70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004D80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004D90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004DA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004DB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004DC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004DD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004DE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004DF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
004E00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
004E10: 2D 2D 2D 3C 2D 2D 2D 2D 2D 2D 2D 7C 20 2A 20 7C ---<-------| * |
004E20: 2D 2D 2D 2D 3C 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 20 ----<-------..
004E30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
004E40: 20 20 20 20 20 20 20 20 20 7C 20 20 20 20 20 20 |
004E50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
004E60: 20 20 20 20 20 5C 7C 2F 0D 0A 20 20 20 20 20 20 \|/..
004E70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
004E80: 20 20 20 20 2F 7C 5C 20 20 20 20 20 20 20 20 20 /|\
004E90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
004EA0: 20 20 7C 0D 0A 20 20 20 20 20 20 20 20 20 20 20 |..
004EB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
004EC0: 20 2D 2D 2D 2D 3C 2D 2D 2D 2D 2D 2D 7C 20 2F 20 ----<------| /
004ED0: 7C 2D 2D 2D 2D 3C 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 |----<-------..
004EE0: 20 20 46 61 63 74 65 75 72 3A 0D 0A 0D 0A 20 20 Facteur:....
004EF0: 20 20 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D --------
004F00: 2D 3E 2D 2D 2D 2D 2D 2D 2D 2D 7C 20 4E 6F 6D 62 ->--------| Nomb
004F10: 72 65 20 7C 2D 2D 2D 2D 2D 2D 2D 2D 2D 3E 2D 2D re |--------->--
004F20: 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 20 20 20 20 20 --------..
004F30: 20 20 20 7C 20 20 20 20 20 20 20 20 20 20 20 20 |
004F40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
004F50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
004F60: 20 20 20 5C 7C 2F 0D 0A 20 20 20 20 20 20 20 20 \|/..
004F70: 2F 7C 5C 20 20 20 20 20 20 20 20 20 20 20 20 20 /|\
004F80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
004F90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
004FA0: 20 20 7C 0D 0A 20 20 20 20 20 20 20 20 20 20 2D |.. -
004FB0: 2D 2D 2D 2D 2D 2D 2D 3E 2D 2D 2D 2D 2D 2D 2D 2D ------->--------
004FC0: 7C 20 50 61 72 61 6D 65 74 72 65 20 7C 2D 2D 2D | Parametre |---
004FD0: 2D 2D 2D 3E 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D --->-----------.
004FE0: 0A 20 20 20 20 20 20 20 20 20 7C 20 20 20 20 20 . |
004FF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
005000: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
005010: 20 20 20 20 20 20 20 20 20 20 5C 7C 2F 0D 0A 20 \|/..
005020: 20 20 20 20 20 20 20 2F 7C 5C 20 20 20 20 20 20 /|\
005030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
005040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
005050: 20 20 20 20 20 20 20 20 20 7C 0D 0A 20 20 20 20 |..
005060: 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 3E 2D -------->-
005070: 2D 7C 20 28 20 7C 2D 2D 7C 20 45 78 70 2E 41 6C -| ( |--| Exp.Al
005080: 67 65 62 2E 7C 2D 2D 7C 20 29 20 7C 2D 2D 3E 2D geb.|--| ) |-->-
005090: 2D 2D 2D 2D 2D 2D 0D 0A 20 20 20 20 20 20 20 20 ------..
0050A0: 20 7C 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |
0050B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0050C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0050D0: 20 5C 7C 2F 0D 0A 20 20 20 20 20 20 20 20 2F 7C \|/.. /|
0050E0: 5C 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 \
0050F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
005100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
005110: 7C 0D 0A 20 2D 2D 2D 2D 3E 2D 2D 2D 20 20 20 20 |.. ---->---
005120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
005130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
005140: 20 20 20 20 20 20 20 20 20 20 20 20 20 2D 2D 2D ---
005150: 2D 2D 2D 2D 3E 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 20 ---->-------..
005160: 20 20 20 20 20 20 5C 7C 2F 20 20 20 20 20 20 20 \|/
005170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
005180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
005190: 20 20 20 20 20 20 20 20 7C 0D 0A 20 20 20 20 20 |..
0051A0: 20 20 20 20 7C 20 20 20 20 20 20 20 20 20 20 20 |
0051B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0051C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0051D0: 20 20 20 20 2F 7C 5C 0D 0A 20 20 20 20 20 20 20 /|\..
0051E0: 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 3E 2D 2D 2D 2D -------->----
0051F0: 2D 2D 2D 2D 2D 2D 2D 7C 20 78 20 7C 2D 2D 2D 2D -------| x |----
005200: 2D 2D 3E 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D -->-------------
005210: 2D 2D 2D 0D 0A 20 20 20 20 20 20 20 20 5C 7C 2F ---.. \|/
005220: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
005230: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
005240: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7C |
005250: 0D 0A 20 20 20 20 20 20 20 20 20 7C 20 20 20 20 .. |
005260: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
005270: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
005280: 20 20 20 20 20 20 20 20 20 20 20 2F 7C 5C 0D 0A /|\..
005290: 20 20 20 20 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D ------
0052A0: 2D 2D 2D 2D 3E 2D 2D 2D 2D 2D 2D 7C 20 50 75 69 ---->------| Pui
0052B0: 73 73 61 6E 63 65 20 7C 2D 2D 2D 2D 2D 2D 2D 3E ssance |------->
0052C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 20 20 20 20 ----------..
0052D0: 20 20 20 20 5C 7C 2F 20 20 20 20 20 20 20 20 20 \|/
0052E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0052F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
005300: 20 20 20 20 20 20 7C 0D 0A 20 20 20 20 20 20 20 |..
005310: 20 20 7C 20 20 20 20 20 20 20 20 20 20 20 20 20 |
005320: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
005330: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
005340: 20 20 2F 7C 5C 0D 0A 20 20 20 20 20 20 20 20 20 /|\..
005350: 20 2D 2D 2D 7C 20 49 64 2E 66 6F 6E 63 74 69 6F ---| Id.fonctio
005360: 6E 7C 2D 2D 7C 20 28 20 7C 2D 2D 7C 20 45 78 70 n|--| ( |--| Exp
005370: 2E 41 6C 67 2E 7C 2D 2D 7C 20 29 20 7C 2D 3E 2D .Alg.|--| ) |->-
005380: 2D 0D 0A 0D 0A 0D 0A 20 20 20 20 20 50 61 72 61 -...... Para
005390: 6D 65 74 72 65 3A 0D 0A 0D 0A 20 20 20 20 20 2D metre:.... -
0053A0: 2D 2D 3E 2D 2D 2D 7C 20 70 20 7C 2D 2D 2D 2D 3E -->---| p |---->
0053B0: 2D 7C 20 28 20 7C 2D 2D 2D 7C 20 45 6E 74 69 65 -| ( |---| Entie
0053C0: 72 20 6E 6F 6E 20 73 69 67 6E 65 20 7C 2D 2D 2D r non signe |---
0053D0: 7C 20 29 20 7C 2D 2D 2D 2D 2D 2D 3E 2D 2D 2D 0D | ) |------>---.
0053E0: 0A 0D 0A 20 20 20 20 20 50 75 69 73 73 61 6E 63 ... Puissanc
0053F0: 65 3A 0D 0A 0D 0A 20 20 20 20 20 2D 2D 2D 2D 2D e:.... -----
005400: 2D 2D 2D 3E 2D 2D 2D 7C 20 46 61 63 74 65 75 72 --->---| Facteur
005410: 20 7C 2D 2D 2D 2D 2D 2D 7C 20 5E 20 7C 2D 2D 2D |------| ^ |---
005420: 2D 2D 7C 20 46 61 63 74 65 75 72 20 7C 2D 2D 2D --| Facteur |---
005430: 3E 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0A 0D 0A 0D 0A >---------......
005440: 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 43 61 6C ********** Cal
005450: 63 75 6C 20 65 74 20 65 63 72 69 74 75 72 65 20 cul et ecriture
005460: 64 65 73 20 66 6F 6E 63 74 69 6F 6E 73 20 2A 2A des fonctions **
005470: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
005480: 2A 2A 2A 2A 2A 0D 0A 0D 0A 20 20 43 27 65 73 74 *****.... C'est
005490: 20 6C 65 20 66 69 63 68 69 65 72 20 43 41 4C 43 le fichier CALC
0054A0: 55 4C 46 2E 50 41 53 0D 0A 0D 0A 20 20 41 76 65 ULF.PAS.... Ave
0054B0: 63 20 6C 65 73 20 70 72 6F 63 65 64 75 72 65 73 c les procedures
0054C0: 20 70 6F 75 72 0D 0A 0D 0A 20 20 20 20 20 65 63 pour.... ec
0054D0: 72 69 72 65 20 6C 61 20 66 6F 6E 63 74 69 6F 6E rire la fonction
0054E0: 3A 20 54 61 70 65 66 6F 6E 63 74 69 6F 6E 0D 0A : Tapefonction..
0054F0: 0D 0A 20 20 20 20 20 63 61 6C 63 75 6C 65 72 20 .. calculer
005500: 66 28 78 29 3A 20 20 43 61 6C 63 75 6C 66 0D 0A f(x): Calculf..
005510: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 61 a
005520: 76 65 63 20 74 65 73 74 73 20 70 6F 75 72 20 73 vec tests pour s
005530: 61 76 6F 69 72 20 73 69 20 6C 65 20 63 61 6C 63 avoir si le calc
005540: 75 6C 20 65 73 74 20 70 6F 73 73 69 62 6C 65 0D ul est possible.
005550: 0A 0D 0A 20 20 20 20 20 73 69 6D 70 6C 69 66 69 ... simplifi
005560: 65 72 20 6C 61 20 66 6F 6E 63 74 69 6F 6E 3A 20 er la fonction:
005570: 53 69 6D 70 6C 69 66 0D 0A 0D 0A 0D 0A 20 20 2A Simplif...... *
005580: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 ***************
005590: 43 61 6C 63 75 6C 20 46 6F 72 6D 65 6C 20 2A 2A Calcul Formel **
0055A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
0055B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
0055C0: 2A 2A 2A 0D 0A 0D 0A 20 20 50 6F 75 72 20 6C 65 ***.... Pour le
0055D0: 73 20 64 65 76 65 6C 6F 70 70 65 6D 65 6E 74 73 s developpements
0055E0: 20 64 65 20 70 72 6F 64 75 69 74 73 20 6F 75 20 de produits ou
0055F0: 64 65 20 70 75 69 73 73 61 6E 63 65 73 0D 0A 0D de puissances...
005600: 0D 0A 66 75 6E 63 74 69 6F 6E 20 20 20 6D 65 6E ..function men
005610: 75 3A 69 6E 74 65 67 65 72 3B 0D 0A 0D 0A 62 65 u:integer;....be
005620: 67 69 6E 0D 0A 63 6C 72 73 63 72 3B 0D 0A 77 72 gin..clrscr;..wr
005630: 69 74 65 6C 6E 3B 77 72 69 74 65 6C 6E 28 27 20 iteln;writeln('
005640: 4D 20 45 20 4E 20 55 20 27 29 3B 0D 0A 77 72 69 M E N U ');..wri
005650: 74 65 6C 6E 3B 77 72 69 74 65 6C 6E 28 27 3C 31 teln;writeln('<1
005660: 3E 20 45 6E 74 72 65 65 20 64 65 20 6C 61 20 66 > Entree de la f
005670: 6F 6E 63 74 69 6F 6E 27 29 3B 0D 0A 77 72 69 74 onction');..writ
005680: 65 6C 6E 3B 77 72 69 74 65 6C 6E 28 27 3C 32 3E eln;writeln('<2>
005690: 20 43 61 6C 63 75 6C 20 64 65 20 76 61 6C 65 75 Calcul de valeu
0056A0: 72 73 20 64 65 20 66 28 78 29 27 29 3B 0D 0A 77 rs de f(x)');..w
0056B0: 72 69 74 65 6C 6E 3B 77 72 69 74 65 6C 6E 28 27 riteln;writeln('
0056C0: 3C 33 3E 20 47 72 61 70 68 65 73 20 64 65 20 66 <3> Graphes de f
0056D0: 6F 6E 63 74 69 6F 6E 73 27 29 3B 0D 0A 77 72 69 onctions');..wri
0056E0: 74 65 6C 6E 3B 77 72 69 74 65 6C 6E 28 27 3C 34 teln;writeln('<4
0056F0: 3E 20 46 69 6E 20 64 75 20 70 72 6F 67 72 61 6D > Fin du program
005700: 6D 65 27 29 3B 0D 0A 77 72 69 74 65 6C 6E 3B 77 me');..writeln;w
005710: 72 69 74 65 6C 6E 28 27 20 56 4F 54 52 45 20 43 riteln(' VOTRE C
005720: 48 4F 49 58 3F 20 27 29 3B 0D 0A 72 65 70 65 61 HOIX? ');..repea
005730: 74 0D 0A 72 65 61 64 28 6B 62 64 2C 63 61 72 29 t..read(kbd,car)
005740: 3B 0D 0A 75 6E 74 69 6C 20 28 28 63 61 72 3E 27 ;..until ((car>'
005750: 30 27 29 20 61 6E 64 20 28 63 61 72 3C 27 35 27 0') and (car<'5'
005760: 29 29 3B 0D 0A 76 61 6C 28 63 61 72 2C 63 68 6F ));..val(car,cho
005770: 69 78 2C 72 65 73 75 6C 74 29 3B 0D 0A 6D 65 6E ix,result);..men
005780: 75 3A 3D 63 68 6F 69 78 3B 0D 0A 65 6E 64 3B 0D u:=choix;..end;.
005790: 0A 0D 0A 66 75 6E 63 74 69 6F 6E 20 6E 75 6D 66 ...function numf
0057A0: 6F 6E 63 3A 69 6E 74 65 67 65 72 3B 0D 0A 76 61 onc:integer;..va
0057B0: 72 20 6A 6B 6C 3A 69 6E 74 65 67 65 72 3B 0D 0A r jkl:integer;..
0057C0: 0D 0A 62 65 67 69 6E 0D 0A 63 61 72 3A 3D 27 20 ..begin..car:='
0057D0: 27 3B 0D 0A 72 65 70 65 61 74 0D 0A 72 65 61 64 ';..repeat..read
0057E0: 28 6B 62 64 2C 63 61 72 29 3B 0D 0A 75 6E 74 69 (kbd,car);..unti
0057F0: 6C 20 28 28 63 61 72 3E 27 30 27 29 20 61 6E 64 l ((car>'0') and
005800: 20 28 63 61 72 3C 27 3A 27 29 29 3B 0D 0A 77 72 (car<':'));..wr
005810: 69 74 65 6C 6E 3B 0D 0A 76 61 6C 28 63 61 72 2C iteln;..val(car,
005820: 6A 6B 6C 2C 72 65 73 75 6C 74 29 3B 0D 0A 6E 75 jkl,result);..nu
005830: 6D 66 6F 6E 63 3A 3D 6A 6B 6C 3B 0D 0A 65 6E 64 mfonc:=jkl;..end
005840: 3B 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 20 20 ;....procedure
005850: 67 72 61 70 68 65 28 72 65 76 6F 69 72 3A 69 6E graphe(revoir:in
005860: 74 65 67 65 72 29 3B 0D 0A 66 6F 72 77 61 72 64 teger);..forward
005870: 3B 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 20 62 ;....procedure b
005880: 6F 75 63 6C 65 3B 0D 0A 76 61 72 20 7A 3A 69 6E oucle;..var z:in
005890: 74 65 67 65 72 3B 0D 0A 62 65 67 69 6E 0D 0A 72 teger;..begin..r
0058A0: 65 70 65 61 74 0D 0A 63 68 6F 69 78 3A 3D 6D 65 epeat..choix:=me
0058B0: 6E 75 3B 0D 0A 63 61 73 65 20 63 68 6F 69 78 20 nu;..case choix
0058C0: 6F 66 0D 0A 20 31 3A 20 20 20 20 62 65 67 69 6E of.. 1: begin
0058D0: 0D 0A 20 20 20 20 20 20 20 77 72 69 74 65 28 27 .. write('
0058E0: 4E 6F 20 64 65 20 6C 61 20 66 6F 6E 63 74 69 6F No de la fonctio
0058F0: 6E 20 28 31 20 61 20 39 29 3F 27 29 3B 0D 0A 20 n (1 a 9)?');..
005900: 20 20 20 20 20 20 69 3A 3D 6E 75 6D 66 6F 6E 63 i:=numfonc
005910: 3B 0D 0A 20 20 20 20 20 20 20 63 6C 72 73 63 72 ;.. clrscr
005920: 3B 63 61 72 3A 3D 27 20 27 3B 0D 0A 20 20 20 20 ;car:=' ';..
005930: 20 20 20 6C 69 72 66 6F 6E 63 74 69 6F 6E 28 66 lirfonction(f
005940: 5B 69 5D 29 3B 0D 0A 20 20 20 20 20 20 20 73 69 [i]);.. si
005950: 6D 70 6C 69 66 28 66 5B 69 5D 29 3B 0D 0A 20 20 mplif(f[i]);..
005960: 20 20 20 20 20 74 65 6D 70 6F 3B 0D 0A 20 20 20 tempo;..
005970: 20 20 20 20 65 6E 64 3B 0D 0A 20 32 3A 20 20 20 end;.. 2:
005980: 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 63 begin.. c
005990: 6C 72 73 63 72 3B 77 72 69 74 65 28 27 4E 6F 20 lrscr;write('No
0059A0: 64 65 20 6C 61 20 66 6F 6E 63 74 69 6F 6E 20 28 de la fonction (
0059B0: 31 20 61 20 39 29 3F 27 29 3B 0D 0A 20 20 20 20 1 a 9)?');..
0059C0: 20 20 20 69 3A 3D 6E 75 6D 66 6F 6E 63 3B 0D 0A i:=numfonc;..
0059D0: 20 20 20 20 20 20 20 69 66 20 6D 5B 69 5D 3E 30 if m[i]>0
0059E0: 20 74 68 65 6E 0D 0A 20 20 20 20 20 20 20 62 65 then.. be
0059F0: 67 69 6E 0D 0A 20 20 20 20 20 20 20 66 6F 72 20 gin.. for
005A00: 0A 20 20 20 66 69 63 68 69 65 72 20 41 4C 47 45 . fichier ALGE
005A10: 42 52 45 2E 50 41 53 0D 0A 0D 0A 20 20 61 76 65 BRE.PAS.... ave
005A20: 63 20 61 6C 67 65 62 72 69 71 75 65 20 70 6F 75 c algebrique pou
005A30: 72 20 6C 65 73 20 70 72 6F 64 75 69 74 73 0D 0A r les produits..
005A40: 20 20 20 20 20 20 20 62 69 6E 6F 6D 65 20 70 6F binome po
005A50: 75 72 20 6C 65 73 20 70 75 69 73 73 61 6E 63 65 ur les puissance
005A60: 73 0D 0A 0D 0A 20 20 50 6F 75 72 20 6C 27 65 63 s.... Pour l'ec
005A70: 72 69 74 75 72 65 20 64 65 73 20 66 6F 6E 63 74 riture des fonct
005A80: 69 6F 6E 73 20 64 65 72 69 76 65 65 73 0D 0A 0D ions derivees...
005A90: 0A 20 20 20 66 69 63 68 69 65 72 20 44 45 52 49 . fichier DERI
005AA0: 56 45 45 2E 50 41 53 0D 0A 0D 0A 0D 0A 20 2A 2A VEE.PAS...... **
005AB0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 4D 65 6E 75 *********** Menu
005AC0: 73 2C 20 47 72 61 70 68 65 73 2C 20 44 65 76 65 s, Graphes, Deve
005AD0: 6C 6F 70 70 65 6D 65 6E 74 73 20 6C 69 6D 69 74 loppements limit
005AE0: 65 73 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A es *************
005AF0: 2A 2A 0D 0A 0D 0A 20 20 43 65 73 20 70 72 6F 63 **.... Ces proc
005B00: 65 64 75 72 65 73 20 6E 27 6F 6E 74 20 71 75 65 edures n'ont que
005B10: 20 70 65 75 20 64 27 69 6D 70 6F 72 74 61 6E 63 peu d'importanc
005B20: 65 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E e...............
005B30: 2E 2E 0D 0A 0D 0A 0D 0A 20 2A 2A 2A 2A 2A 2A 2A ........ *******
005B40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
005B50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
005B60: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
005B70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
005B80: 2A 2A 2A 0D 0A 0D 0A 1A 1A 1A 1A 1A 1A 1A 1A 1A ***.............
005B90: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
005BA0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
005BB0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
005BC0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
005BD0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
005BE0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
005BF0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
005C00: 73 28 27 20 27 2C 66 5E 2E 76 61 6C 65 75 72 29 s(' ',f^.valeur)
005C10: 3C 3E 30 20 64 6F 20 64 65 6C 65 74 65 28 66 5E <>0 do delete(f^
005C20: 2E 76 61 6C 65 75 72 2C 31 2C 31 29 3B 0D 0A 20 .valeur,1,1);..
005C30: 20 20 20 20 20 65 6E 64 3B 0D 0A 20 20 20 20 20 end;..
005C40: 20 66 5E 2E 6E 61 74 75 72 65 3A 3D 27 6E 6F 6D f^.nature:='nom
005C50: 62 72 65 27 3B 0D 0A 20 20 20 20 20 20 66 5E 2E bre';.. f^.
005C60: 67 3A 3D 6E 69 6C 3B 66 5E 2E 64 3A 3D 6E 69 6C g:=nil;f^.d:=nil
005C70: 3B 72 65 73 75 6C 74 3A 3D 31 3B 0D 0A 20 20 20 ;result:=1;..
005C80: 20 20 20 20 20 65 6E 64 0D 0A 20 20 20 20 20 20 end..
005C90: 20 20 65 6C 73 65 0D 0A 20 20 20 69 66 20 28 28 else.. if ((
005CA0: 66 5E 2E 76 61 6C 65 75 72 3D 27 2A 27 29 20 61 f^.valeur='*') a
005CB0: 6E 64 20 28 66 5E 2E 64 5E 2E 6E 61 74 75 72 65 nd (f^.d^.nature
005CC0: 3D 27 6E 6F 6D 62 72 65 27 29 20 61 6E 64 20 28 ='nombre') and (
005CD0: 66 5E 2E 64 5E 2E 76 61 6C 65 75 72 3D 27 31 27 f^.d^.valeur='1'
005CE0: 29 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 74 )).. t
005CF0: 68 65 6E 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 hen begin..
005D00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
005D10: 66 3A 3D 66 5E 2E 67 3B 0D 0A 20 20 20 20 20 20 f:=f^.g;..
005D20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 s
005D30: 69 6D 70 6C 69 66 28 66 29 3B 72 65 73 75 6C 74 implif(f);result
005D40: 3A 3D 31 0D 0A 20 20 20 20 20 20 20 20 20 20 20 :=1..
005D50: 20 20 20 20 20 20 65 6E 64 0D 0A 20 20 20 20 20 end..
005D60: 20 20 65 6C 73 65 0D 0A 20 20 20 69 66 20 28 28 else.. if ((
005D70: 66 5E 2E 76 61 6C 65 75 72 3D 27 2A 27 29 20 61 f^.valeur='*') a
005D80: 6E 64 20 28 66 5E 2E 67 5E 2E 6E 61 74 75 72 65 nd (f^.g^.nature
005D90: 3D 27 6E 6F 6D 62 72 65 27 29 20 61 6E 64 20 28 ='nombre') and (
005DA0: 66 5E 2E 67 5E 2E 76 61 6C 65 75 72 3D 27 31 27 f^.g^.valeur='1'
005DB0: 29 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 74 )).. t
005DC0: 68 65 6E 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 hen begin..
005DD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
005DE0: 66 3A 3D 66 5E 2E 64 3B 0D 0A 20 20 20 20 20 20 f:=f^.d;..
005DF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 s
005E00: 66 75 6E 63 74 69 6F 6E 20 63 61 6C 63 75 6C 28 function calcul(
005E10: 66 3A 66 6F 6E 63 74 69 6F 6E 3B 78 3A 72 65 61 f:fonction;x:rea
005E20: 6C 29 3A 72 65 61 6C 3B 0D 0A 66 6F 72 77 61 72 l):real;..forwar
005E30: 64 3B 0D 0A 0D 0A 66 75 6E 63 74 69 6F 6E 20 6F d;....function o
005E40: 70 70 6F 73 65 28 76 61 72 20 66 3A 66 6F 6E 63 ppose(var f:fonc
005E50: 74 69 6F 6E 29 3A 66 6F 6E 63 74 69 6F 6E 3B 0D tion):fonction;.
005E60: 0A 66 6F 72 77 61 72 64 3B 0D 0A 0D 0A 66 75 6E .forward;....fun
005E70: 63 74 69 6F 6E 20 20 74 61 70 65 66 6F 6E 63 74 ction tapefonct
005E80: 69 6F 6E 28 66 3A 66 6F 6E 63 74 69 6F 6E 3B 76 ion(f:fonction;v
005E90: 3A 63 68 61 72 29 3A 73 74 72 32 30 30 3B 0D 0A :char):str200;..
005EA0: 66 6F 72 77 61 72 64 3B 0D 0A 0D 0A 70 72 6F 63 forward;....proc
005EB0: 65 64 75 72 65 20 73 69 6D 70 6C 69 66 28 76 61 edure simplif(va
005EC0: 72 20 66 3A 66 6F 6E 63 74 69 6F 6E 29 3B 0D 0A r f:fonction);..
005ED0: 76 61 72 20 68 3A 66 6F 6E 63 74 69 6F 6E 3B 6E var h:fonction;n
005EE0: 62 72 65 3A 72 65 61 6C 3B 0D 0A 62 65 67 69 6E bre:real;..begin
005EF0: 0D 0A 69 66 20 66 3C 3E 6E 69 6C 20 74 68 65 6E ..if f<>nil then
005F00: 0D 0A 20 20 62 65 67 69 6E 0D 0A 20 20 20 69 66 .. begin.. if
005F10: 20 28 28 66 5E 2E 64 5E 2E 6E 61 74 75 72 65 3D ((f^.d^.nature=
005F20: 27 6E 6F 6D 62 72 65 27 29 61 6E 64 28 66 5E 2E 'nombre')and(f^.
005F30: 67 5E 2E 6E 61 74 75 72 65 3D 27 6E 6F 6D 62 72 g^.nature='nombr
005F40: 65 27 29 61 6E 64 28 66 5E 2E 76 61 6C 65 75 72 e')and(f^.valeur
005F50: 3C 3E 27 2F 27 29 29 0D 0A 20 20 20 20 74 68 65 <>'/')).. the
005F60: 6E 20 20 20 20 20 62 65 67 69 6E 0D 0A 20 20 20 n begin..
005F70: 20 20 20 20 20 20 6E 62 72 65 3A 3D 63 61 6C 63 nbre:=calc
005F80: 75 6C 28 66 2C 30 29 3B 69 66 20 66 72 61 63 28 ul(f,0);if frac(
005F90: 6E 62 72 65 29 3D 30 20 74 68 65 6E 20 73 74 72 nbre)=0 then str
005FA0: 28 72 6F 75 6E 64 28 6E 62 72 65 29 2C 66 5E 2E (round(nbre),f^.
005FB0: 76 61 6C 65 75 72 29 0D 0A 20 20 20 20 20 20 65 valeur).. e
005FC0: 6C 73 65 0D 0A 20 20 20 20 20 20 62 65 67 69 6E lse.. begin
005FD0: 0D 0A 20 20 20 20 20 20 73 74 72 28 6E 62 72 65 .. str(nbre
005FE0: 3A 38 3A 33 2C 66 5E 2E 76 61 6C 65 75 72 29 3B :8:3,f^.valeur);
005FF0: 0D 0A 20 20 20 20 20 20 77 68 69 6C 65 20 70 6F .. while po
006000: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
006010: 05 00 00 00 02 09 4E E5 05 00 41 02 00 00 00 02 ......N...A.....
006020: 05 00 42 02 00 00 00 02 05 00 43 02 00 00 00 02 ..B.......C.....
006030: 05 00 44 02 00 00 00 02 05 00 45 02 00 00 00 02 ..D.......E.....
006040: 05 00 46 02 00 00 00 02 05 00 47 02 00 00 00 02 ..F.......G.....
006050: 05 00 48 02 00 00 00 02 05 00 49 02 00 00 00 02 ..H.......I.....
006060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0060A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0060B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0060C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0060D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0060E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0060F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
006100: 73 28 27 20 27 2C 66 5E 2E 76 61 6C 65 75 72 29 s(' ',f^.valeur)
006110: 3C 3E 30 20 64 6F 20 64 65 6C 65 74 65 28 66 5E <>0 do delete(f^
006120: 2E 76 61 6C 65 75 72 2C 31 2C 31 29 3B 0D 0A 20 .valeur,1,1);..
006130: 20 20 20 20 20 65 6E 64 3B 0D 0A 20 20 20 20 20 end;..
006140: 20 66 5E 2E 6E 61 74 75 72 65 3A 3D 27 6E 6F 6D f^.nature:='nom
006150: 62 72 65 27 3B 0D 0A 20 20 20 20 20 20 66 5E 2E bre';.. f^.
006160: 67 3A 3D 6E 69 6C 3B 66 5E 2E 64 3A 3D 6E 69 6C g:=nil;f^.d:=nil
006170: 3B 72 65 73 75 6C 74 3A 3D 31 3B 0D 0A 20 20 20 ;result:=1;..
006180: 20 20 20 20 20 65 6E 64 0D 0A 20 20 20 20 20 20 end..
006190: 20 20 65 6C 73 65 0D 0A 20 20 20 69 66 20 28 28 else.. if ((
0061A0: 66 5E 2E 76 61 6C 65 75 72 3D 27 2A 27 29 20 61 f^.valeur='*') a
0061B0: 6E 64 20 28 66 5E 2E 64 5E 2E 6E 61 74 75 72 65 nd (f^.d^.nature
0061C0: 3D 27 6E 6F 6D 62 72 65 27 29 20 61 6E 64 20 28 ='nombre') and (
0061D0: 66 5E 2E 64 5E 2E 76 61 6C 65 75 72 3D 27 31 27 f^.d^.valeur='1'
0061E0: 29 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 74 )).. t
0061F0: 68 65 6E 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 hen begin..
006200: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006210: 66 3A 3D 66 5E 2E 67 3B 0D 0A 20 20 20 20 20 20 f:=f^.g;..
006220: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 s
006230: 69 6D 70 6C 69 66 28 66 29 3B 72 65 73 75 6C 74 implif(f);result
006240: 3A 3D 31 0D 0A 20 20 20 20 20 20 20 20 20 20 20 :=1..
006250: 20 20 20 20 20 20 65 6E 64 0D 0A 20 20 20 20 20 end..
006260: 20 20 65 6C 73 65 0D 0A 20 20 20 69 66 20 28 28 else.. if ((
006270: 66 5E 2E 76 61 6C 65 75 72 3D 27 2A 27 29 20 61 f^.valeur='*') a
006280: 6E 64 20 28 66 5E 2E 67 5E 2E 6E 61 74 75 72 65 nd (f^.g^.nature
006290: 3D 27 6E 6F 6D 62 72 65 27 29 20 61 6E 64 20 28 ='nombre') and (
0062A0: 66 5E 2E 67 5E 2E 76 61 6C 65 75 72 3D 27 31 27 f^.g^.valeur='1'
0062B0: 29 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 74 )).. t
0062C0: 68 65 6E 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 hen begin..
0062D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0062E0: 66 3A 3D 66 5E 2E 64 3B 0D 0A 20 20 20 20 20 20 f:=f^.d;..
0062F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 s
006300: 69 6D 70 6C 69 66 28 66 29 3B 72 65 73 75 6C 74 implif(f);result
006310: 3A 3D 31 0D 0A 20 20 20 20 20 20 20 20 20 20 20 :=1..
006320: 20 20 20 20 20 20 65 6E 64 0D 0A 20 20 20 20 20 end..
006330: 20 20 65 6C 73 65 0D 0A 20 20 20 69 66 20 28 28 else.. if ((
006340: 28 66 5E 2E 76 61 6C 65 75 72 3D 27 2A 27 29 20 (f^.valeur='*')
006350: 6F 72 28 66 5E 2E 76 61 6C 65 75 72 3D 27 2F 27 or(f^.valeur='/'
006360: 29 29 61 6E 64 20 28 28 28 66 5E 2E 67 5E 2E 6E ))and (((f^.g^.n
006370: 61 74 75 72 65 3D 27 6E 6F 6D 62 72 65 27 29 0D ature='nombre').
006380: 0A 20 20 20 20 61 6E 64 20 28 66 5E 2E 67 5E 2E . and (f^.g^.
006390: 76 61 6C 65 75 72 3D 27 30 27 29 29 20 6F 72 20 valeur='0')) or
0063A0: 28 66 5E 2E 67 3D 6E 69 6C 29 29 29 0D 0A 20 20 (f^.g=nil)))..
0063B0: 20 20 74 68 65 6E 0D 0A 20 20 20 20 20 20 20 20 then..
0063C0: 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 begin..
0063D0: 20 20 20 20 20 20 20 66 3A 3D 6E 69 6C 3B 72 65 f:=nil;re
0063E0: 73 75 6C 74 3A 3D 31 3B 0D 0A 20 20 20 20 20 20 sult:=1;..
0063F0: 20 20 20 20 20 65 6E 64 0D 0A 20 20 20 20 20 20 end..
006400: 20 65 6C 73 65 0D 0A 20 20 20 69 66 20 28 28 66 else.. if ((f
006410: 5E 2E 76 61 6C 65 75 72 3D 27 2A 27 29 20 61 6E ^.valeur='*') an
006420: 64 20 28 28 28 66 5E 2E 64 5E 2E 6E 61 74 75 72 d (((f^.d^.natur
006430: 65 3D 27 6E 6F 6D 62 72 65 27 29 20 61 6E 64 20 e='nombre') and
006440: 28 66 5E 2E 64 5E 2E 76 61 6C 65 75 72 3D 27 30 (f^.d^.valeur='0
006450: 27 29 29 0D 0A 20 20 20 6F 72 20 28 66 5E 2E 64 ')).. or (f^.d
006460: 3D 6E 69 6C 29 29 29 20 74 68 65 6E 0D 0A 20 20 =nil))) then..
006470: 20 20 20 20 20 20 20 20 62 65 67 69 6E 0D 0A 20 begin..
006480: 20 20 20 20 20 20 20 20 20 20 20 20 20 66 3A 3D f:=
006490: 6E 69 6C 3B 72 65 73 75 6C 74 3A 3D 31 3B 0D 0A nil;result:=1;..
0064A0: 20 20 20 20 20 20 20 20 20 20 20 65 6E 64 0D 0A end..
0064B0: 20 20 20 20 20 20 20 65 6C 73 65 0D 0A 20 20 20 else..
0064C0: 69 66 20 28 28 66 5E 2E 76 61 6C 65 75 72 3D 27 if ((f^.valeur='
0064D0: 2A 27 29 20 61 6E 64 20 28 66 5E 2E 67 5E 2E 6E *') and (f^.g^.n
0064E0: 61 74 75 72 65 3D 27 6E 6F 6D 62 72 65 27 29 20 ature='nombre')
0064F0: 61 6E 64 20 28 66 5E 2E 64 5E 2E 76 61 6C 65 75 and (f^.d^.valeu
006500: 72 3D 27 2A 27 29 0D 0A 20 20 20 61 6E 64 20 28 r='*').. and (
006510: 66 5E 2E 64 5E 2E 67 5E 2E 6E 61 74 75 72 65 3D f^.d^.g^.nature=
006520: 27 6E 6F 6D 62 72 65 27 29 29 0D 0A 20 20 20 74 'nombre')).. t
006530: 68 65 6E 20 62 65 67 69 6E 20 68 3A 3D 66 5E 2E hen begin h:=f^.
006540: 64 3B 66 5E 2E 64 3A 3D 66 5E 2E 67 3B 66 5E 2E d;f^.d:=f^.g;f^.
006550: 67 3A 3D 68 3B 0D 0A 20 20 20 20 20 20 20 20 20 g:=h;..
006560: 20 20 20 20 20 68 3A 3D 66 5E 2E 67 5E 2E 64 3B h:=f^.g^.d;
006570: 66 5E 2E 67 5E 2E 64 3A 3D 66 5E 2E 64 3B 66 5E f^.g^.d:=f^.d;f^
006580: 2E 64 3A 3D 68 3B 73 69 6D 70 6C 69 66 28 66 5E .d:=h;simplif(f^
006590: 2E 64 29 3B 73 69 6D 70 6C 69 66 28 66 29 3B 0D .d);simplif(f);.
0065A0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 . r
0065B0: 65 73 75 6C 74 3A 3D 31 0D 0A 20 20 20 20 20 20 esult:=1..
0065C0: 20 20 65 6E 64 0D 0A 20 20 20 20 20 20 20 65 6C end.. el
0065D0: 73 65 0D 0A 20 20 69 66 20 28 28 28 66 5E 2E 6E se.. if (((f^.n
0065E0: 61 74 75 72 65 3D 27 70 6C 75 73 27 29 20 6F 72 ature='plus') or
0065F0: 20 28 66 5E 2E 6E 61 74 75 72 65 3D 27 6D 6F 69 (f^.nature='moi
006600: 6E 73 27 29 29 20 61 6E 64 20 28 28 66 5E 2E 64 ns')) and ((f^.d
006610: 3D 6E 69 6C 29 0D 0A 20 20 6F 72 20 28 66 5E 2E =nil).. or (f^.
006620: 64 5E 2E 76 61 6C 65 75 72 3D 27 30 27 29 29 29 d^.valeur='0')))
006630: 0D 0A 20 20 74 68 65 6E 0D 0A 20 20 20 20 62 65 .. then.. be
006640: 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 20 20 66 gin.. f
006650: 3A 3D 66 5E 2E 67 3B 0D 0A 20 20 20 20 20 20 20 :=f^.g;..
006660: 20 20 20 73 69 6D 70 6C 69 66 28 66 29 3B 72 65 simplif(f);re
006670: 73 75 6C 74 3A 3D 31 0D 0A 20 20 20 20 65 6E 64 sult:=1.. end
006680: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
006690: 20 20 20 20 20 20 20 20 65 6C 73 65 0D 0A 20 20 else..
0066A0: 20 20 69 66 20 28 28 28 66 5E 2E 6E 61 74 75 72 if (((f^.natur
0066B0: 65 3D 27 70 6C 75 73 27 29 20 6F 72 20 28 66 5E e='plus') or (f^
0066C0: 2E 6E 61 74 75 72 65 3D 27 6D 6F 69 6E 73 27 29 .nature='moins')
0066D0: 29 20 61 6E 64 0D 0A 20 20 20 20 20 28 28 66 5E ) and.. ((f^
0066E0: 2E 67 3D 6E 69 6C 29 20 6F 72 20 28 66 5E 2E 67 .g=nil) or (f^.g
0066F0: 5E 2E 76 61 6C 65 75 72 3D 27 30 27 29 29 29 0D ^.valeur='0'))).
006700: 0A 20 20 20 20 74 68 65 6E 0D 0A 20 20 20 20 20 . then..
006710: 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 begin..
006720: 20 20 20 20 20 20 69 66 20 66 5E 2E 76 61 6C 65 if f^.vale
006730: 75 72 3D 27 2D 27 20 74 68 65 6E 20 66 3A 3D 6F ur='-' then f:=o
006740: 70 70 6F 73 65 28 66 5E 2E 64 29 20 65 6C 73 65 ppose(f^.d) else
006750: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 66 .. f
006760: 3A 3D 66 5E 2E 64 3B 0D 0A 20 20 20 20 20 20 20 :=f^.d;..
006770: 20 20 20 20 20 20 73 69 6D 70 6C 69 66 28 66 29 simplif(f)
006780: 3B 72 65 73 75 6C 74 3A 3D 31 0D 0A 20 20 20 20 ;result:=1..
006790: 20 20 20 65 6E 64 0D 0A 20 20 20 20 20 20 20 20 end..
0067A0: 20 20 20 20 20 20 20 20 20 65 6C 73 65 0D 0A 20 else..
0067B0: 20 20 20 69 66 20 28 28 66 5E 2E 6E 61 74 75 72 if ((f^.natur
0067C0: 65 3D 27 70 75 69 73 73 27 29 20 61 6E 64 20 28 e='puiss') and (
0067D0: 66 5E 2E 64 5E 2E 6E 61 74 75 72 65 3D 27 6E 6F f^.d^.nature='no
0067E0: 6D 62 72 65 27 29 0D 0A 20 20 20 20 20 61 6E 64 mbre').. and
0067F0: 20 28 66 5E 2E 64 5E 2E 76 61 6C 65 75 72 3D 27 (f^.d^.valeur='
006800: 31 27 29 29 0D 0A 20 20 20 20 74 68 65 6E 0D 0A 1')).. then..
006810: 20 20 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 begin..
006820: 20 20 20 20 20 66 3A 3D 66 5E 2E 67 3B 0D 0A 20 f:=f^.g;..
006830: 20 20 20 20 20 20 20 20 20 73 69 6D 70 6C 69 66 simplif
006840: 28 66 29 3B 72 65 73 75 6C 74 3A 3D 31 0D 0A 20 (f);result:=1..
006850: 20 20 20 20 65 6E 64 0D 0A 20 20 20 20 20 65 6C end.. el
006860: 73 65 0D 0A 20 20 20 20 69 66 20 28 28 66 5E 2E se.. if ((f^.
006870: 6E 61 74 75 72 65 3D 27 70 75 69 73 73 27 29 61 nature='puiss')a
006880: 6E 64 28 66 5E 2E 64 5E 2E 6E 61 74 75 72 65 3D nd(f^.d^.nature=
006890: 27 6E 6F 6D 62 72 65 27 29 61 6E 64 0D 0A 20 20 'nombre')and..
0068A0: 20 20 28 66 5E 2E 67 5E 2E 6E 61 74 75 72 65 3D (f^.g^.nature=
0068B0: 27 70 75 69 73 73 27 29 61 6E 64 28 66 5E 2E 67 'puiss')and(f^.g
0068C0: 5E 2E 64 5E 2E 6E 61 74 75 72 65 3D 27 6E 6F 6D ^.d^.nature='nom
0068D0: 62 72 65 27 29 29 20 74 68 65 6E 0D 0A 20 20 20 bre')) then..
0068E0: 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 begin..
0068F0: 20 20 6E 65 77 28 68 29 3B 68 5E 2E 6E 61 74 75 new(h);h^.natu
006900: 72 65 3A 3D 27 6D 75 6C 74 69 27 3B 68 5E 2E 76 re:='multi';h^.v
006910: 61 6C 65 75 72 3A 3D 27 2A 27 3B 68 5E 2E 64 3A aleur:='*';h^.d:
006920: 3D 66 5E 2E 64 3B 68 5E 2E 67 3A 3D 66 5E 2E 67 =f^.d;h^.g:=f^.g
006930: 5E 2E 64 3B 0D 0A 20 20 20 20 20 20 20 20 20 66 ^.d;.. f
006940: 5E 2E 64 3A 3D 68 3B 66 5E 2E 67 3A 3D 66 5E 2E ^.d:=h;f^.g:=f^.
006950: 67 5E 2E 67 3B 73 69 6D 70 6C 69 66 28 66 5E 2E g^.g;simplif(f^.
006960: 64 29 3B 72 65 73 75 6C 74 3A 3D 31 0D 0A 20 20 d);result:=1..
006970: 20 20 20 65 6E 64 0D 0A 20 20 20 20 20 65 6C 73 end.. els
006980: 65 0D 0A 20 20 20 20 20 62 65 67 69 6E 0D 0A 20 e.. begin..
006990: 20 20 20 20 69 66 20 66 5E 2E 64 3C 3E 6E 69 6C if f^.d<>nil
0069A0: 20 74 68 65 6E 20 73 69 6D 70 6C 69 66 28 66 5E then simplif(f^
0069B0: 2E 64 29 3B 0D 0A 20 20 20 20 20 69 66 20 66 5E .d);.. if f^
0069C0: 2E 67 3C 3E 6E 69 6C 20 74 68 65 6E 20 73 69 6D .g<>nil then sim
0069D0: 70 6C 69 66 28 66 5E 2E 67 29 3B 0D 0A 20 20 20 plif(f^.g);..
0069E0: 65 6E 64 3B 0D 0A 20 20 20 65 6E 64 3B 0D 0A 20 end;.. end;..
0069F0: 65 6E 64 3B 0D 0A 0D 0A 66 75 6E 63 74 69 6F 6E end;....function
006A00: 20 20 20 65 78 70 6F 73 61 6E 74 28 6B 2C 6C 3A exposant(k,l:
006A10: 72 65 61 6C 29 3A 72 65 61 6C 3B 0D 0A 66 6F 72 real):real;..for
006A20: 77 61 72 64 3B 0D 0A 0D 0A 66 75 6E 63 74 69 6F ward;....functio
006A30: 6E 20 20 20 63 61 6C 63 75 6C 3B 0D 0A 6C 61 62 n calcul;..lab
006A40: 65 6C 20 66 69 6E 63 61 6C 63 75 6C 3B 0D 0A 76 el fincalcul;..v
006A50: 61 72 20 6E 62 72 65 3A 72 65 61 6C 3B 72 65 73 ar nbre:real;res
006A60: 75 6C 74 61 74 3A 69 6E 74 65 67 65 72 3B 0D 0A ultat:integer;..
006A70: 62 65 67 69 6E 0D 0A 20 20 69 66 20 66 5E 2E 6E begin.. if f^.n
006A80: 61 74 75 72 65 3D 27 6E 6F 6D 62 72 65 27 20 74 ature='nombre' t
006A90: 68 65 6E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 hen..
006AA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006AB0: 20 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 begin..
006AC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006AD0: 20 20 20 20 20 20 20 20 76 61 6C 28 66 5E 2E 76 val(f^.v
006AE0: 61 6C 65 75 72 2C 6E 62 72 65 2C 72 65 73 75 6C aleur,nbre,resul
006AF0: 74 61 74 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 tat);..
006B00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006B10: 20 20 20 20 20 63 61 6C 63 75 6C 3A 3D 6E 62 72 calcul:=nbr
006B20: 65 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 e;..
006B30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006B40: 20 20 65 6E 64 0D 0A 20 20 20 20 20 20 20 20 20 end..
006B50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006B60: 20 20 20 20 20 20 65 6C 73 65 0D 0A 20 20 69 66 else.. if
006B70: 20 66 5E 2E 6E 61 74 75 72 65 3D 27 70 61 72 61 f^.nature='para
006B80: 6D 27 20 74 68 65 6E 0D 0A 20 20 20 20 20 20 20 m' then..
006B90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006BA0: 20 20 20 20 20 20 20 62 65 67 69 6E 0D 0A 20 20 begin..
006BB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006BC0: 20 20 20 20 20 20 20 20 20 20 20 20 76 61 6C 28 val(
006BD0: 66 5E 2E 76 61 6C 65 75 72 2C 69 6E 64 69 63 65 f^.valeur,indice
006BE0: 2C 72 65 73 75 6C 74 61 74 29 3B 0D 0A 20 20 20 ,resultat);..
006BF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006C00: 20 20 20 20 20 20 20 20 20 20 20 63 61 6C 63 75 calcu
006C10: 6C 3A 3D 70 5B 69 6E 64 69 63 65 2C 69 5D 3B 0D l:=p[indice,i];.
006C20: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
006C30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 e
006C40: 6E 64 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 nd..
006C50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006C60: 20 20 65 6C 73 65 0D 0A 20 20 69 66 20 66 5E 2E else.. if f^.
006C70: 6E 61 74 75 72 65 3D 27 76 61 72 69 61 62 27 20 nature='variab'
006C80: 74 68 65 6E 20 63 61 6C 63 75 6C 3A 3D 78 20 65 then calcul:=x e
006C90: 6C 73 65 0D 0A 20 20 69 66 20 66 5E 2E 6E 61 74 lse.. if f^.nat
006CA0: 75 72 65 3D 27 70 6C 75 73 27 20 74 68 65 6E 20 ure='plus' then
006CB0: 63 61 6C 63 75 6C 3A 3D 63 61 6C 63 75 6C 28 66 calcul:=calcul(f
006CC0: 5E 2E 67 2C 78 29 2B 63 61 6C 63 75 6C 28 66 5E ^.g,x)+calcul(f^
006CD0: 2E 64 2C 78 29 20 65 6C 73 65 0D 0A 20 20 69 66 .d,x) else.. if
006CE0: 20 66 5E 2E 6E 61 74 75 72 65 3D 27 6D 6F 69 6E f^.nature='moin
006CF0: 73 27 20 74 68 65 6E 20 63 61 6C 63 75 6C 3A 3D s' then calcul:=
006D00: 63 61 6C 63 75 6C 28 66 5E 2E 67 2C 78 29 2D 63 calcul(f^.g,x)-c
006D10: 61 6C 63 75 6C 28 66 5E 2E 64 2C 78 29 20 65 6C alcul(f^.d,x) el
006D20: 73 65 0D 0A 20 20 69 66 20 66 5E 2E 6E 61 74 75 se.. if f^.natu
006D30: 72 65 3D 27 6D 75 6C 74 69 27 20 74 68 65 6E 20 re='multi' then
006D40: 63 61 6C 63 75 6C 3A 3D 63 61 6C 63 75 6C 28 66 calcul:=calcul(f
006D50: 5E 2E 67 2C 78 29 2A 63 61 6C 63 75 6C 28 66 5E ^.g,x)*calcul(f^
006D60: 2E 64 2C 78 29 20 65 6C 73 65 0D 0A 20 20 69 66 .d,x) else.. if
006D70: 20 66 5E 2E 6E 61 74 75 72 65 3D 27 70 75 69 73 f^.nature='puis
006D80: 73 27 20 74 68 65 6E 0D 0A 20 20 20 20 20 20 20 s' then..
006D90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 be
006DA0: 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 gin..
006DB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006DC0: 20 69 66 20 66 72 61 63 28 63 61 6C 63 75 6C 28 if frac(calcul(
006DD0: 66 5E 2E 64 2C 78 29 29 3D 30 20 74 68 65 6E 0D f^.d,x))=0 then.
006DE0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
006DF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 63 61 6C cal
006E00: 63 75 6C 3A 3D 65 78 70 6F 73 61 6E 74 28 63 61 cul:=exposant(ca
006E10: 6C 63 75 6C 28 66 5E 2E 67 2C 78 29 2C 63 61 6C lcul(f^.g,x),cal
006E20: 63 75 6C 28 66 5E 2E 64 2C 78 29 29 0D 0A 20 20 cul(f^.d,x))..
006E30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006E40: 20 20 20 20 20 20 20 20 20 20 65 6C 73 65 0D 0A else..
006E50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006E60: 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6E 0D begin.
006E70: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
006E80: 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 if
006E90: 63 61 6C 63 75 6C 28 66 5E 2E 67 2C 78 29 3C 3D calcul(f^.g,x)<=
006EA0: 30 20 74 68 65 6E 0D 0A 20 20 20 20 20 20 20 20 0 then..
006EB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006EC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006ED0: 20 20 20 20 20 20 20 20 20 62 65 67 69 6E 0D 0A begin..
006EE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006EF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006F00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006F10: 20 20 20 64 65 66 69 6E 69 3A 3D 66 61 6C 73 65 defini:=false
006F20: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
006F30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006F40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006F50: 20 20 20 20 20 20 67 6F 74 6F 20 66 69 6E 63 61 goto finca
006F60: 6C 63 75 6C 3B 0D 0A 20 20 20 20 20 20 20 20 20 lcul;..
006F70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006F80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006F90: 20 20 20 20 20 20 20 20 20 65 6E 64 0D 0A 20 20 end..
006FA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006FB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006FC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006FD0: 20 20 20 65 6C 73 65 0D 0A 20 20 20 20 20 20 20 else..
006FE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
006FF0: 20 20 20 20 20 63 61 6C 63 75 6C 3A 3D 65 78 70 calcul:=exp
007000: 28 28 6C 6E 28 63 61 6C 63 75 6C 28 66 5E 2E 67 ((ln(calcul(f^.g
007010: 2C 78 29 29 29 2A 63 61 6C 63 75 6C 28 66 5E 2E ,x)))*calcul(f^.
007020: 64 2C 78 29 29 0D 0A 20 20 20 20 20 20 20 20 20 d,x))..
007030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
007040: 20 65 6E 64 0D 0A 20 20 20 20 20 20 20 20 20 20 end..
007050: 20 20 20 20 20 20 20 20 20 20 20 65 6E 64 0D 0A end..
007060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
007070: 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6C 73 els
007080: 65 0D 0A 20 20 69 66 20 66 5E 2E 6E 61 74 75 72 e.. if f^.natur
007090: 65 3D 27 64 69 76 69 73 65 27 20 74 68 65 6E 0D e='divise' then.
0070A0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
0070B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 beg
0070C0: 69 6E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 in..
0070D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0070E0: 69 66 20 63 61 6C 63 75 6C 28 66 5E 2E 64 2C 78 if calcul(f^.d,x
0070F0: 29 3D 30 20 74 68 65 6E 20 62 65 67 69 6E 0D 0A )=0 then begin..
007100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
007110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
007120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
007130: 20 20 20 64 65 66 69 6E 69 3A 3D 66 61 6C 73 65 defini:=false
007140: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
007150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
007160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
007170: 20 20 20 20 20 20 67 6F 74 6F 20 66 69 6E 63 61 goto finca
007180: 6C 63 75 6C 3B 0D 0A 20 20 20 20 20 20 20 20 20 lcul;..
007190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0071A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0071B0: 20 20 20 20 20 20 20 20 20 20 65 6E 64 0D 0A 20 end..
0071C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0071D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0071E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0071F0: 20 20 20 20 20 65 6C 73 65 0D 0A 20 20 20 20 20 else..
007200: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
007210: 20 20 20 20 20 20 20 20 63 61 6C 63 75 6C 3A 3D calcul:=
007220: 63 61 6C 63 75 6C 28 66 5E 2E 67 2C 78 29 2F 63 calcul(f^.g,x)/c
007230: 61 6C 63 75 6C 28 66 5E 2E 64 2C 78 29 0D 0A 20 alcul(f^.d,x)..
007240: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
007250: 20 20 20 20 20 20 20 20 20 20 20 65 6E 64 0D 0A end..
007260: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
007270: 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6C 73 els
007280: 65 0D 0A 20 20 69 66 20 66 5E 2E 6E 61 74 75 72 e.. if f^.natur
007290: 65 3D 27 69 64 66 63 74 27 20 74 68 65 6E 0D 0A e='idfct' then..
0072A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0072B0: 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 begi
0072C0: 6E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 n..
0072D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0072E0: 6E 62 72 65 3A 3D 63 61 6C 63 75 6C 28 66 5E 2E nbre:=calcul(f^.
0072F0: 64 2C 78 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 d,x);..
007300: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
007310: 06 00 00 00 02 09 4E E5 06 00 41 02 00 00 00 02 ......N...A.....
007320: 06 00 42 02 00 00 00 02 06 00 43 02 00 00 00 02 ..B.......C.....
007330: 06 00 44 02 00 00 00 02 06 00 45 02 00 00 00 02 ..D.......E.....
007340: 06 00 46 02 00 00 00 02 06 00 47 02 00 00 00 02 ..F.......G.....
007350: 06 00 48 02 00 00 00 02 06 00 49 02 00 00 00 02 ..H.......I.....
007360: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007370: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007380: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007390: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0073A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0073B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0073C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0073D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0073E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0073F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007400: 70 72 6F 63 65 64 75 72 65 20 64 72 61 77 72 28 procedure drawr(
007410: 78 2C 79 3A 69 6E 74 65 67 65 72 29 3B 0D 0A 62 x,y:integer);..b
007420: 65 67 69 6E 0D 0A 20 20 69 6E 6C 69 6E 65 28 24 egin.. inline($
007430: 32 41 2F 78 2F 24 45 42 2F 24 32 41 2F 79 2F 24 2A/x/$EB/$2A/y/$
007440: 63 64 2F 24 35 61 2F 24 66 63 2F 24 46 39 2F 24 cd/$5a/$fc/$F9/$
007450: 42 42 29 3B 0D 0A 65 6E 64 3B 0D 0A 0D 0A 70 72 BB);..end;....pr
007460: 6F 63 65 64 75 72 65 20 64 72 61 77 28 78 2C 79 ocedure draw(x,y
007470: 3A 69 6E 74 65 67 65 72 29 3B 0D 0A 62 65 67 69 :integer);..begi
007480: 6E 0D 0A 20 20 69 6E 6C 69 6E 65 28 24 32 41 2F n.. inline($2A/
007490: 78 2F 24 45 42 2F 24 32 41 2F 79 2F 24 63 64 2F x/$EB/$2A/y/$cd/
0074A0: 24 35 61 2F 24 66 63 2F 24 46 36 2F 24 42 42 29 $5a/$fc/$F6/$BB)
0074B0: 3B 0D 0A 65 6E 64 3B 0D 0A 0D 0A 70 72 6F 63 65 ;..end;....proce
0074C0: 64 75 72 65 20 67 72 61 66 6D 6F 76 65 28 78 2C dure grafmove(x,
0074D0: 79 3A 69 6E 74 65 67 65 72 29 3B 0D 0A 62 65 67 y:integer);..beg
0074E0: 69 6E 0D 0A 20 20 69 6E 6C 69 6E 65 28 24 32 41 in.. inline($2A
0074F0: 2F 78 2F 24 45 42 2F 24 32 41 2F 79 2F 24 63 64 /x/$EB/$2A/y/$cd
007500: 2F 24 35 61 2F 24 66 63 2F 24 43 30 2F 24 42 42 /$5a/$fc/$C0/$BB
007510: 29 3B 0D 0A 65 6E 64 3B 0D 0A 0D 0A 70 72 6F 63 );..end;....proc
007520: 65 64 75 72 65 20 67 72 61 66 6D 6F 76 65 72 28 edure grafmover(
007530: 78 2C 79 3A 69 6E 74 65 67 65 72 29 3B 0D 0A 62 x,y:integer);..b
007540: 65 67 69 6E 0D 0A 20 20 69 6E 6C 69 6E 65 28 24 egin.. inline($
007550: 32 41 2F 78 2F 24 45 42 2F 24 32 41 2F 79 2F 24 2A/x/$EB/$2A/y/$
007560: 63 64 2F 24 35 61 2F 24 66 63 2F 24 63 33 2F 24 cd/$5a/$fc/$c3/$
007570: 42 42 29 3B 0D 0A 65 6E 64 3B 0D 0A 0D 0A 70 72 BB);..end;....pr
007580: 6F 63 65 64 75 72 65 20 70 6C 6F 74 28 78 2C 79 ocedure plot(x,y
007590: 3A 69 6E 74 65 67 65 72 29 3B 0D 0A 62 65 67 69 :integer);..begi
0075A0: 6E 0D 0A 20 20 69 6E 6C 69 6E 65 28 24 32 41 2F n.. inline($2A/
0075B0: 78 2F 24 45 42 2F 24 32 41 2F 79 2F 24 63 64 2F x/$EB/$2A/y/$cd/
0075C0: 24 35 61 2F 24 66 63 2F 24 45 41 2F 24 42 42 29 $5a/$fc/$EA/$BB)
0075D0: 3B 0D 0A 65 6E 64 3B 0D 0A 0D 0A 70 72 6F 63 65 ;..end;....proce
0075E0: 64 75 72 65 20 70 6C 6F 74 72 28 78 2C 79 3A 69 dure plotr(x,y:i
0075F0: 6E 74 65 67 65 72 29 3B 0D 0A 62 65 67 69 6E 0D nteger);..begin.
007600: 0A 20 20 69 6E 6C 69 6E 65 28 24 32 41 2F 78 2F . inline($2A/x/
007610: 24 45 42 2F 24 32 41 2F 79 2F 24 63 64 2F 24 35 $EB/$2A/y/$cd/$5
007620: 61 2F 24 66 63 2F 24 45 44 2F 24 42 42 29 3B 0D a/$fc/$ED/$BB);.
007630: 0A 65 6E 64 3B 0D 0A 0D 0A 70 72 6F 63 65 64 75 .end;....procedu
007640: 72 65 20 6F 72 69 67 69 6E 28 78 2C 79 3A 69 6E re origin(x,y:in
007650: 74 65 67 65 72 29 3B 0D 0A 62 65 67 69 6E 0D 0A teger);..begin..
007660: 20 20 69 6E 6C 69 6E 65 28 24 32 41 2F 78 2F 24 inline($2A/x/$
007670: 45 42 2F 24 32 41 2F 79 2F 24 63 64 2F 24 35 61 EB/$2A/y/$cd/$5a
007680: 2F 24 66 63 2F 24 43 39 2F 24 42 42 29 3B 0D 0A /$fc/$C9/$BB);..
007690: 65 6E 64 3B 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 end;....procedur
0076A0: 65 20 62 6F 72 64 65 72 28 76 31 2C 76 32 3A 62 e border(v1,v2:b
0076B0: 79 74 65 29 3B 0D 0A 62 65 67 69 6E 0D 0A 20 20 yte);..begin..
0076C0: 69 6E 6C 69 6E 65 28 24 33 61 2F 76 31 2F 24 34 inline($3a/v1/$4
0076D0: 37 2F 24 33 61 2F 76 32 2F 24 34 66 2F 24 63 64 7/$3a/v2/$4f/$cd
0076E0: 2F 24 35 61 2F 24 66 63 2F 24 33 38 2F 24 62 63 /$5a/$fc/$38/$bc
0076F0: 29 3B 0D 0A 65 6E 64 3B 0D 0A 0D 0A 66 75 6E 63 );..end;....func
007700: 74 69 6F 6E 20 20 74 65 73 74 28 78 2C 79 3A 69 tion test(x,y:i
007710: 6E 74 65 67 65 72 29 3A 62 79 74 65 3B 0D 0A 76 nteger):byte;..v
007720: 61 72 0D 0A 62 74 67 3A 62 79 74 65 3B 0D 0A 62 ar..btg:byte;..b
007730: 65 67 69 6E 0D 0A 69 6E 6C 69 6E 65 28 24 32 41 egin..inline($2A
007740: 2F 78 2F 24 45 42 2F 24 32 41 2F 79 2F 24 43 44 /x/$EB/$2A/y/$CD
007750: 2F 24 35 41 2F 24 46 43 2F 24 46 30 2F 24 42 42 /$5A/$FC/$F0/$BB
007760: 2F 24 33 32 2F 62 74 67 29 3B 0D 0A 74 65 73 74 /$32/btg);..test
007770: 3A 3D 62 74 67 3B 0D 0A 65 6E 64 3B 0D 0A 0D 0A :=btg;..end;....
007780: 0D 0A 70 72 6F 63 65 64 75 72 65 20 20 76 69 64 ..procedure vid
007790: 61 67 65 3B 0D 0A 76 61 72 0D 0A 78 2C 79 2C 6A age;..var..x,y,j
0077A0: 2C 6E 3A 69 6E 74 65 67 65 72 3B 0D 0A 62 65 67 ,n:integer;..beg
0077B0: 69 6E 0D 0A 77 72 69 74 65 28 6C 73 74 2C 63 68 in..write(lst,ch
0077C0: 72 28 32 37 29 2C 27 40 27 2C 63 68 72 28 32 37 r(27),'@',chr(27
0077D0: 29 2C 27 33 27 2C 63 68 72 28 32 31 29 29 3B 0D ),'3',chr(21));.
0077E0: 0A 66 6F 72 20 79 3A 3D 30 20 74 6F 20 32 38 20 .for y:=0 to 28
0077F0: 64 6F 0D 0A 20 20 62 65 67 69 6E 0D 0A 20 20 77 do.. begin.. w
007800: 72 69 74 65 28 6C 73 74 2C 63 68 72 28 32 37 29 rite(lst,chr(27)
007810: 2C 27 2A 27 2C 63 68 72 28 33 29 2C 63 68 72 28 ,'*',chr(3),chr(
007820: 30 29 2C 63 68 72 28 35 29 29 3B 0D 0A 20 20 66 0),chr(5));.. f
007830: 6F 72 20 78 3A 3D 30 20 74 6F 20 36 33 39 20 64 or x:=0 to 639 d
007840: 6F 0D 0A 20 20 20 20 62 65 67 69 6E 0D 0A 20 20 o.. begin..
007850: 20 20 6E 3A 3D 30 3B 0D 0A 20 20 20 20 66 6F 72 n:=0;.. for
007860: 20 6A 3A 3D 30 20 74 6F 20 36 20 64 6F 0D 0A 20 j:=0 to 6 do..
007870: 20 20 20 6E 3A 3D 6E 2A 32 2B 74 65 73 74 28 78 n:=n*2+test(x
007880: 2C 33 39 38 2D 28 79 2A 37 2B 6A 29 2A 32 29 3B ,398-(y*7+j)*2);
007890: 0D 0A 20 20 20 20 77 72 69 74 65 28 6C 73 74 2C .. write(lst,
0078A0: 63 68 72 28 6E 29 2C 63 68 72 28 6E 29 29 3B 0D chr(n),chr(n));.
0078B0: 0A 20 20 20 20 65 6E 64 3B 0D 0A 20 20 77 72 69 . end;.. wri
0078C0: 74 65 28 6C 73 74 2C 63 68 72 28 31 33 29 2C 63 te(lst,chr(13),c
0078D0: 68 72 28 31 30 29 29 3B 0D 0A 20 20 65 6E 64 3B hr(10));.. end;
0078E0: 0D 0A 77 72 69 74 65 28 6C 73 74 2C 63 68 72 28 ..write(lst,chr(
0078F0: 31 33 29 2C 63 68 72 28 32 37 29 2C 27 40 27 29 13),chr(27),'@')
007900: 3B 0D 0A 65 6E 64 3B 0D 0A 0D 0A 1A 1A 1A 1A 1A ;..end;.........
007910: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
007920: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
007930: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
007940: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
007950: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
007960: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
007970: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
007980: 6C 3C 30 20 74 68 65 6E 20 62 65 67 69 6E 20 6C l<0 then begin l
007990: 3A 3D 6C 2B 31 3B 65 78 70 6F 73 61 6E 74 3A 3D :=l+1;exposant:=
0079A0: 28 31 2F 6B 29 2A 65 78 70 6F 73 61 6E 74 28 6B (1/k)*exposant(k
0079B0: 2C 6C 29 20 65 6E 64 3B 0D 0A 65 6E 64 3B 0D 0A ,l) end;..end;..
0079C0: 0D 0A 0D 0D 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0079D0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0079E0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0079F0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
007A00: 73 28 27 20 27 2C 66 5E 2E 76 61 6C 65 75 72 29 s(' ',f^.valeur)
007A10: 3C 3E 30 20 64 6F 20 64 65 6C 65 74 65 28 66 5E <>0 do delete(f^
007A20: 2E 76 61 6C 65 75 72 2C 31 2C 31 29 3B 0D 0A 20 .valeur,1,1);..
007A30: 20 20 20 20 20 65 6E 64 3B 0D 0A 20 20 20 20 20 end;..
007A40: 20 66 5E 2E 6E 61 74 75 72 65 3A 3D 27 6E 6F 6D f^.nature:='nom
007A50: 62 72 65 27 3B 0D 0A 20 20 20 20 20 20 66 5E 2E bre';.. f^.
007A60: 67 3A 3D 6E 69 6C 3B 66 5E 2E 64 3A 3D 6E 69 6C g:=nil;f^.d:=nil
007A70: 3B 72 65 73 75 6C 74 3A 3D 31 3B 0D 0A 20 20 20 ;result:=1;..
007A80: 20 20 20 20 20 65 6E 64 0D 0A 20 20 20 20 20 20 end..
007A90: 20 20 65 6C 73 65 0D 0A 20 20 20 69 66 20 28 28 else.. if ((
007AA0: 66 5E 2E 76 61 6C 65 75 72 3D 27 2A 27 29 20 61 f^.valeur='*') a
007AB0: 6E 64 20 28 66 5E 2E 64 5E 2E 6E 61 74 75 72 65 nd (f^.d^.nature
007AC0: 3D 27 6E 6F 6D 62 72 65 27 29 20 61 6E 64 20 28 ='nombre') and (
007AD0: 66 5E 2E 64 5E 2E 76 61 6C 65 75 72 3D 27 31 27 f^.d^.valeur='1'
007AE0: 29 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 74 )).. t
007AF0: 68 65 6E 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 hen begin..
007B00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
007B10: 66 3A 3D 66 5E 2E 67 3B 0D 0A 20 20 20 20 20 20 f:=f^.g;..
007B20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 s
007B30: 69 6D 70 6C 69 66 28 66 29 3B 72 65 73 75 6C 74 implif(f);result
007B40: 3A 3D 31 0D 0A 20 20 20 20 20 20 20 20 20 20 20 :=1..
007B50: 20 20 20 20 20 20 65 6E 64 0D 0A 20 20 20 20 20 end..
007B60: 20 20 65 6C 73 65 0D 0A 20 20 20 69 66 20 28 28 else.. if ((
007B70: 66 5E 2E 76 61 6C 65 75 72 3D 27 2A 27 29 20 61 f^.valeur='*') a
007B80: 6E 64 20 28 66 5E 2E 67 5E 2E 6E 61 74 75 72 65 nd (f^.g^.nature
007B90: 3D 27 6E 6F 6D 62 72 65 27 29 20 61 6E 64 20 28 ='nombre') and (
007BA0: 66 5E 2E 67 5E 2E 76 61 6C 65 75 72 3D 27 31 27 f^.g^.valeur='1'
007BB0: 29 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 74 )).. t
007BC0: 68 65 6E 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 hen begin..
007BD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
007BE0: 66 3A 3D 66 5E 2E 64 3B 0D 0A 20 20 20 20 20 20 f:=f^.d;..
007BF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 s
007C00: C3 E2 20 CD AB 43 6F 70 79 72 69 67 68 74 20 28 .. ..Copyright (
007C10: 43 29 20 31 39 38 35 20 42 4F 52 4C 41 4E 44 20 C) 1985 BORLAND
007C20: 49 6E 63 00 04 00 A1 42 00 00 00 00 00 00 00 00 Inc....B........
007C30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007C40: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
007C50: 00 00 00 06 5A 65 6E 69 74 68 64 65 72 20 43 50 ....Zenithder CP
007C60: 43 34 36 34 2F 36 36 34 50 18 00 00 1C 00 0D 0D C464/664P.......
007C70: 1C 01 01 01 1D 03 03 1B 1B 1B D5 00 1C 01 00 00 ................
007C80: 1C 00 17 17 1D 17 17 EF 9E CD BD 04 1B 59 00 00 .............Y..
007C90: 00 00 00 00 00 00 00 00 00 00 00 01 20 20 04 03 ............ ..
007CA0: 00 00 02 1B 45 00 00 00 00 00 00 00 00 00 02 1B ....E...........
007CB0: 4C 00 00 00 02 1B 4D 00 00 00 00 00 02 1B 4B 00 L.....M.......K.
007CC0: 00 00 02 1B 71 00 00 00 02 1B 70 00 00 00 00 00 ....q.....p.....
007CD0: 7E B7 37 C8 23 F5 E5 7E CD E8 01 E1 F1 3D C8 18 ~.7.#..~.....=..
007CE0: F3 CD 00 02 0D 0A 00 C9 6F E5 CD A6 00 C9 FE 80 ........o.......
007CF0: DC 6B 02 D4 84 02 E6 7F 18 EE E5 21 EE 01 18 04 .k.........!....
007D00: E5 21 E8 01 22 13 02 E1 E3 F5 C5 D5 7E 23 B7 28 .!..".......~#.(
007D10: 07 E5 CD E8 01 E1 18 F4 D1 C1 F1 E3 C9 7D B4 C8 .............}..
007D20: 3A 24 01 87 87 87 E3 E3 E3 E3 C5 01 D2 04 C1 3D :$.............=
007D30: 20 F4 2B 18 E8 CD D0 01 D8 2A CE 01 18 DF F5 C5 .+......*......
007D40: D5 E5 21 A8 01 CD 35 02 21 A2 01 CD D0 01 2A BA ..!...5.!.....*.
007D50: 01 D4 1D 02 E1 D1 C1 F1 C9 F5 C5 D5 E5 21 B4 01 .............!..
007D60: 18 E9 F5 C5 D5 E5 21 AE 01 18 E0 F5 3A E0 00 B7 ......!.....:...
007D70: 28 10 C5 D5 E5 AF 32 E0 00 21 C8 01 CD 35 02 E1 (.....2..!...5..
007D80: D1 C1 F1 C9 F5 3A E0 00 FE FF 28 F6 C5 D5 E5 3E .....:....(....>
007D90: FF 32 E0 00 21 C2 01 18 E3 F5 C5 D5 E5 21 BC 01 .2..!........!..
007DA0: 18 DA F5 C5 D5 E5 E5 11 F0 00 21 8B 01 01 10 00 ..........!.....
007DB0: ED B0 D1 3A 9E 01 4F 3A 9C 01 82 D5 CD DC 02 D1 ...:..O:........
007DC0: 3A 9F 01 4F 3A 9D 01 83 CD DC 02 21 F0 00 CD D0 :..O:......!....
007DD0: 01 2A A0 01 CD 1D 02 E1 D1 C1 F1 C9 21 F0 00 06 .*..........!...
007DE0: 00 09 EB 21 9B 01 34 35 28 02 12 C9 1B 1B 21 0A ...!..45(.....!.
007DF0: 03 06 03 2B 0E 2F 0C 96 30 FC 86 F5 79 FE 30 28 ...+./..0...y.0(
007E00: 01 12 13 F1 10 ED C9 01 0A 64 21 6B 01 C3 35 02 .........d!k..5.
007E10: 21 7B 01 C3 35 02 11 03 00 CD 5F 03 E6 01 18 06 !{..5....._.....
007E20: 11 06 00 CD 5F 03 6F 26 00 C9 11 12 00 18 F4 11 ...._.o&........
007E30: 0C 00 18 08 11 0F 00 18 03 11 09 00 E1 C1 E5 3A ...............:
007E40: DD 00 B7 28 1A D5 C5 CD A0 00 7C B5 28 0F CD E1 ...(......|.(...
007E50: 03 FE 13 20 08 CD E1 03 FE 03 CA D4 20 C1 D1 2A ... ........ ..*
007E60: 01 00 19 E9 22 D2 00 78 32 DD 00 79 B7 28 0B 3E ...."..x2..y.(.>
007E70: C3 32 38 00 21 FB 1F 22 39 00 21 A5 03 11 A0 00 .28.!.."9.!.....
007E80: 01 18 00 ED B0 21 BD 03 11 B8 00 01 0C 00 ED B0 .....!..........
007E90: AF 6F 67 32 D0 00 22 D4 00 22 D6 00 3E 7E 32 D1 .og2..".."..>~2.
007EA0: 00 32 E0 00 C9 C3 16 03 C3 20 03 C3 39 03 C3 2F .2....... ..9../
007EB0: 03 C3 34 03 C3 2A 03 C3 39 03 C3 20 03 C1 00 82 ..4..*..9.. ....
007EC0: 00 43 00 C4 00 C5 00 C1 00 C5 D5 E5 DD E5 FD E5 .C..............
007ED0: F5 6F 26 00 E5 CD A6 00 F1 FD E1 DD E1 E1 D1 C1 .o&.............
007EE0: C9 C5 D5 E5 DD E5 FD E5 CD A3 00 7D 18 EB 0E FF .........£.}....
007EF0: 18 0C 0E 00 ED 5B D2 00 13 1A FE 20 28 FA 21 65 .....[..... (.!e
007F00: 00 06 03 CD 7B 04 1A CD A6 04 FE 41 38 12 FE 51 ....{......A8..Q
007F10: 30 0E 47 13 1A FE 3A 20 06 78 D6 40 13 18 02 1B 0.G...: .x.@....
007F20: AF 21 5C 00 77 23 0C 0D 28 19 1A CD 82 04 20 13 .!\.w#..(..... .
007F30: FE 3F 28 0F FE 2A 28 0B FE 2E 28 07 06 0B CD 77 .?(..*(...(....w
007F40: 04 18 10 06 08 CD 5E 04 1A FE 2E 20 06 13 06 03 ......^.... ....
007F50: CD 5E 04 21 68 00 06 18 36 00 23 10 FB C9 1A 0C .^.!h...6.#.....
007F60: 0D 28 08 FE 3F 28 09 FE 2A 28 0B CD 82 04 28 0B .(..?(..*(....(.
007F70: 77 23 13 10 E9 C9 13 3E 3F 18 02 3E 20 77 23 10 w#.....>?..> w#.
007F80: FC C9 CD A6 04 FE 20 38 0D E5 C5 21 98 04 01 0E ...... 8...!....
007F90: 00 ED B1 C1 E1 C9 BF C9 20 2E 2C 3B 3A 3D 3F 2A ........ .,;:=?*
007FA0: 5B 5D 3C 3E 7B 7D FE 61 D8 FE 7B D0 D6 20 C9 7C []<>{}.a..{.. .|
007FB0: CD B4 04 7D F5 1F 1F 1F 1F CD BD 04 F1 E6 0F C6 ...}............
007FC0: 90 27 CE 40 27 C3 C9 03 AF 37 CB 7C C0 7C B7 7D .'.@'....7.|.|.}
007FD0: C8 3E FF C9 32 D8 00 C5 CD AF 1E C1 2A 06 00 B7 .>..2.......*...
007FE0: ED 42 DA A8 20 EB D1 F9 01 00 FC 09 22 C6 00 AF .B.. ......."...
007FF0: 6F 67 22 CE 00 32 DC 00 3E C3 32 D9 00 21 DE 20 og"..2..>.2..!.
008000: 22 DA 00 EB 22 CC 00 E9 E5 2A C6 00 B7 ED 42 22 "..."....*....B"
008010: C6 00 ED 5B C4 00 B7 ED 52 19 EB E1 DA 75 1D ED ...[....R....u..
008020: B0 C9 2A C6 00 ED B0 22 C6 00 D9 C9 5E 23 56 23 ..*...."....^#V#
008030: D5 5E 23 56 23 4E 23 46 E1 C9 DD E1 EB 1A 4F 06 .^#V#N#F......O.
008040: 00 2F 6F 26 FF 39 F9 EB 03 ED B0 DD E9 D1 1A 4F ./o&.9.........O
008050: 06 00 2F 6F 26 FF 39 F9 EB 03 ED B0 E9 DD E1 EB ../o&.9.........
008060: 21 E0 FF 39 F9 EB C5 04 05 28 05 AF 12 13 10 FC !..9.....(......
008070: ED B0 C1 3E 20 90 91 28 06 47 AF 12 13 10 FC DD ...> ..(.G......
008080: E9 DD E1 21 E0 FF 39 F9 06 20 AF 77 23 10 FC DD ...!..9.. .w#...
008090: E9 DD E1 45 CD BA 05 B6 77 DD E9 DD E1 D1 7D 93 ...E....w.....}.
0080A0: 38 F7 3C 4F 43 CD BA 05 5F 41 AF B3 CB 23 30 06 8.<OC..._A...#0.
0080B0: B6 77 23 AF 1E 01 10 F3 18 DD 78 E6 F8 0F 0F 0F .w#.......x.....
0080C0: C6 02 6F 26 00 39 78 E6 07 3C 47 AF 37 17 10 FD ..o&.9x..<G.7...
0080D0: C9 E5 D9 EB E3 73 23 72 23 D1 73 23 72 23 71 23 .....s#r#.s#r#q#
0080E0: 70 C9 DD E1 78 EB 21 00 00 44 39 4E E5 09 23 E3 p...x.!..D9N..#.
0080F0: B9 38 01 79 12 13 23 B7 28 03 4F ED B0 E1 F9 DD .8.y..#.(.O.....
008100: E9 DD E1 78 21 00 00 44 39 4E E5 09 23 5E 23 56 ...x!..D9N..#^#V
008110: 18 DC DD E1 EB 68 26 00 44 39 ED B0 21 20 00 39 .....h&.D9..! .9
008120: F9 DD E9 DD E1 21 20 00 39 5E 23 56 68 26 00 44 .....! .9^#Vh&.D
008130: 39 ED B0 21 22 00 18 E7 DD E1 EB 78 2F 6F 26 FF 9..!"......x/o&.
008140: 39 F9 70 23 48 06 00 EB ED B0 DD E9 B7 ED 52 19 9.p#H.........R.
008150: D8 3E 90 C3 27 20 B7 ED 52 B7 ED 42 30 03 09 19 .>..' ..R..B0...
008160: C9 3E 91 C3 27 20 B7 ED 52 EB 13 EA 71 06 F0 18 .>..' ..R...q...
008170: 01 F8 11 00 00 C9 D5 EB B7 ED 52 EB E1 18 EB B7 ..........R.....
008180: ED 52 21 01 00 C8 2B C9 CD DF 0B 18 F5 CD B0 09 .R!...+.........
008190: 18 F0 B7 ED 52 21 01 00 C0 2B C9 CD DF 0B 18 F5 ....R!...+......
0081A0: CD B0 09 18 F0 CD 72 07 21 01 00 D0 2B C9 CD DF ......r.!...+...
0081B0: 0B 18 F5 CD B0 09 18 F0 CD 72 07 21 01 00 C8 D8 .........r.!....
0081C0: 2B C9 CD DF 0B 18 F4 CD B0 09 18 EF CD 72 07 21 +............r.!
0081D0: 00 00 C8 D8 23 C9 CD DF 0B 18 F4 CD B0 09 18 EF ....#...........
0081E0: CD 72 07 21 01 00 D8 2B C9 CD DF 0B 18 F5 CD B0 .r.!...+........
0081F0: 09 18 F0 54 5D 4B 42 EB 21 00 00 7A B7 3E 10 20 ...T]KB.!..z.>.
008200: 03 53 3E 08 29 EB 29 EB 30 01 09 3D 20 F6 C9 7C .S>.).).0..= ..|
008210: B5 CA 03 0A 7C AA F5 CD 80 07 EB CD 80 07 EB 44 ....|..........D
008220: 4D AF 67 6F 3E 11 ED 6A ED 42 30 02 09 37 3F CB M.go>..j.B0..7?.
008230: 13 CB 12 3D 20 F0 EB F1 F0 18 48 E5 CD 92 07 CB ...= .....H.....
008240: 3C CB 1D D1 EB CD 0F 07 EB CB 7A C8 18 35 CD 61 <.........z..5.a
008250: 07 C8 29 10 FD C9 CD 61 07 C8 CB 3C CB 1D 10 FA ..)....a...<....
008260: C9 EB 7A B7 20 08 7B FE 10 30 03 47 B7 C9 AF 67 ..z. .{..0.G...g
008270: 6F C9 EB 7C AA 7C FA 7E 07 BA C0 7D BB C9 17 C9 o..|.|.~...}....
008280: CB 7C C8 7C 2F 67 7D 2F 6F 23 C9 7D E6 01 6F 26 .|.|/g}/o#.}..o&
008290: 00 C9 ED 4B CA 00 ED 5B C8 00 C5 D5 78 41 4A 53 ...K...[....xAJS
0082A0: 1E 00 1F CB 18 CB 19 CB 1A CB 1B E1 19 EB E1 ED ................
0082B0: 4A 44 4D 21 E9 62 19 22 C8 00 EB 21 19 36 ED 4A JDM!.b."...!.6.J
0082C0: 22 CA 00 44 4D C9 06 00 11 10 27 CD E2 07 11 E8 "..DM.....'.....
0082D0: 03 CD E2 07 11 64 00 CD E2 07 1E 0A CD E2 07 7D .....d.........}
0082E0: 18 0D AF 3C ED 52 30 FB 19 04 3D 20 02 05 C8 C6 ...<.R0...= ....
0082F0: 30 DD 77 00 DD 23 C9 DD 7E 00 D6 24 4F 21 00 00 0.w..#..~..$O!..
008300: 20 02 DD 23 DD 7E 00 CD A6 04 D6 30 38 29 FE 0A ..#.~.....08)..
008310: 38 0E 0C 0D 20 21 D6 07 FE 0A 38 1B FE 10 30 17 8... !....8...0.
008320: 54 5D 29 D8 29 D8 0C 0D 20 02 54 5D 19 D8 29 D8 T]).)... .T]..).
008330: 5F 16 00 19 D8 18 CB 79 B7 C8 7C 87 C9 DD E1 E1 _......y..|.....
008340: E5 7D 26 00 23 39 4E 81 38 1C 77 EB 21 00 00 44 .}&.#9N.8.w.!..D
008350: ED 42 39 F9 EB E5 03 ED B0 EB E1 2B 1B 4F 03 ED .B9........+.O..
008360: B8 EB 23 F9 DD E9 3E 10 C3 29 20 DD E1 CD C8 04 ..#...>..) .....
008370: 57 E1 CD DD 09 5F E1 E5 7D 93 38 1A 14 15 28 16 W...._..}.8...(.
008380: BA 38 16 4A 06 00 60 39 7B 82 54 5D 3D 6F 60 39 .8.J..`9{.T]=o`9
008390: 79 ED B8 EB 18 09 AF 18 03 3C 6B 2D 26 00 39 77 y........<k-&.9w
0083A0: F9 DD E9 DD E1 E1 E5 7D 26 00 23 39 F9 6F 26 00 .......}&.#9.o&.
0083B0: DD E9 DD E1 21 00 00 54 39 5E 4B 23 E5 19 5E 43 ....!..T9^K#..^C
0083C0: 23 E5 19 E5 FD E1 D1 E1 79 90 38 10 3C 4F C5 D5 #.......y.8.<O..
0083D0: E5 1A BE 28 0C E1 D1 C1 23 0D 20 F2 21 00 00 18 ...(....#. .!...
0083E0: 0E 23 13 10 EC D1 E1 C1 21 00 00 39 EB ED 52 FD .#......!..9..R.
0083F0: F9 DD E9 DD E1 CD C8 04 4F E1 CD DD 09 5F E1 7E ........O...._.~
008400: 93 38 1B 0C 0D 28 17 91 38 12 F5 7E 91 77 06 00 .8...(..8..~.w..
008410: 50 19 54 5D 09 F1 3C 4F ED B0 18 02 1D 73 DD E9 P.T]..<O.....s..
008420: DD E1 CD DD 09 4F D1 ED 53 E8 00 21 00 00 39 1A .....O..S..!..9.
008430: F5 86 38 03 B8 38 01 78 12 F1 57 5E 91 38 2F 3C ..8..8.x..W^.8/<
008440: 6F 7A 83 38 04 B8 7D 38 08 78 93 38 26 91 38 23 oz.8..}8.x.8&.8#
008450: 3C B7 28 1F C5 D5 2A E8 00 5F 1D 16 00 42 19 09 <.(...*.._...B..
008460: D1 D5 E5 50 19 EB E1 4F ED B8 D1 C1 18 05 7A 3C ...P...O......z<
008470: 28 19 4F 78 91 3C BB 38 01 7B B7 28 0E 2A E8 00 (.Ox.<.8.{.(.*..
008480: 06 00 09 EB 21 01 00 39 4F ED B0 21 00 00 54 39 ....!..9O..!..T9
008490: 5E 13 19 F9 DD E9 DD E1 E1 2D C2 66 08 6C 26 00 ^........-.f.l&.
0084A0: DD E9 21 02 00 54 39 5E 13 19 7E 36 01 23 77 C9 ..!..T9^..~6.#w.
0084B0: 21 04 00 54 39 5E 4B 23 E5 19 5E 43 23 E5 19 E5 !..T9^K#..^C#...
0084C0: FD E1 D1 E1 AF B8 28 04 B9 20 08 78 B9 E1 D1 FD ......(.. .x....
0084D0: F9 D5 E9 1A BE 20 F6 23 13 05 0D 18 E7 7C B7 20 ..... .#.....|.
0084E0: 03 7D B7 C0 3E 11 C3 29 20 CD 0D 0A D0 3E 01 C3 .}..>..) ....>..
0084F0: 27 20 CD 81 0A 18 F5 CD AC 0F CD 97 0A 18 ED D9 ' ..............
008500: 7D B7 D9 3E 02 CA 27 20 CD F5 0A 18 DF D9 CB 78 }..>..' .......x
008510: D9 C2 88 0A D9 7D B7 D9 C8 D9 C5 D5 E5 D9 7D B7 .....}........}.
008520: 20 05 D9 CB B8 18 54 C5 CB F8 AF 08 D9 CB F8 7D .....T........}
008530: D9 95 28 13 30 06 ED 44 08 3D 08 D9 CD 7A 0B 2C ..(.0..D.=...z.,
008540: 3D 20 F9 08 28 01 D9 F1 E6 80 20 0F CD 92 0B 30 = ..(..... ....0
008550: 25 CD 7B 0B B7 2C 20 1E 37 18 20 CD C6 0B 3F F5 %.{.., .7. ...?.
008560: 28 10 38 01 D9 CD AC 0B CB 78 20 09 CD 86 0B 2D (.8......x ....-
008570: 20 F6 CD 72 0B F1 38 02 CB B8 B7 D9 E1 D1 C1 D9 ..r..8.........
008580: C9 D9 CB 78 D9 C2 14 0A CD 8F 0A CD 14 0A D8 2C ...x...........,
008590: 2D C8 78 EE 80 47 C9 D9 7D B7 D9 CA 72 0B 7D B7 -.x..G..}...r.}.
0085A0: C8 D9 85 D9 CD 4D 0B C5 D5 E5 DD 39 CD 72 0B D9 .....M.....9.r..
0085B0: 2E 05 D9 3E 08 DD 23 DD 6E 00 08 CB 1D 30 03 CD ...>..#.n....0..
0085C0: 92 0B CD 7B 0B 08 3D 20 F1 D9 2D D9 20 E5 DD 6E ...{..= ..-. ..n
0085D0: FB CB 78 20 09 08 CD 87 0B 2C 2D 28 01 2D F1 F1 ..x .....,-(.-..
0085E0: F1 B7 08 F1 D9 C1 E1 D9 DD E1 CB B8 B0 47 2C 2D .............G,-
0085F0: CC 72 0B 08 C9 7D B7 C8 D9 95 D9 3F CD 4D 0B E5 .r...}.....?.M..
008600: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
008610: 07 00 00 00 02 09 4E E5 07 00 41 02 00 00 00 02 ......N...A.....
008620: 07 00 42 02 00 00 00 02 07 00 43 02 00 00 00 02 ..B.......C.....
008630: 07 00 44 02 00 00 00 02 07 00 45 02 00 00 00 02 ..D.......E.....
008640: 07 00 46 02 00 00 00 02 07 00 47 02 00 00 00 02 ..F.......G.....
008650: 07 00 48 02 00 00 00 02 07 00 49 02 00 00 00 02 ..H.......I.....
008660: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008670: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008680: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008690: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0086A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0086B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0086C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0086D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0086E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0086F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
008700: E5 E5 DD 39 D9 2E 05 D9 3E 08 08 CD C6 0B 38 03 ...9....>.....8.
008710: CD AC 0B 3F CB 15 08 3D 20 0C DD 75 05 DD 2B D9 ...?...= ..u..+.
008720: 2D D9 28 0E 3E 08 CD 86 0B 30 DF 08 CD AC 0B B7 -.(.>....0......
008730: 18 E1 CD 86 0B 38 04 CD C6 0B 3F E1 D1 C1 CB 78 .....8....?....x
008740: 20 05 CD 87 0B 18 9A 2C 20 97 37 18 95 38 06 C6 ......, .7..8..
008750: 80 38 06 18 1B C6 80 38 17 6F DD E3 D9 E5 C5 78 .8.....8.o.....x
008760: CB F8 D9 A8 E6 80 F5 CB F8 DD E5 DD 21 00 00 C9 ............!...
008770: E1 D8 AF 6F 47 4F 57 5F 67 C9 B7 CB 18 CB 19 CB ...oGOW_g.......
008780: 1A CB 1B CB 1C C9 B7 CB 14 CB 13 CB 12 CB 11 CB ................
008790: 10 C9 7C D9 84 D9 67 7B D9 8B D9 5F 7A D9 8A D9 ..|...g{..._z...
0087A0: 57 79 D9 89 D9 4F 78 D9 88 D9 47 C9 7C D9 94 D9 Wy...Ox...G.|...
0087B0: 67 7B D9 9B D9 5F 7A D9 9A D9 57 79 D9 99 D9 4F g{..._z...Wy...O
0087C0: 78 D9 98 D9 47 C9 78 D9 B8 D9 C0 79 D9 B9 D9 C0 x...G.x....y....
0087D0: 7A D9 BA D9 C0 7B D9 BB D9 C0 7C D9 BC D9 C9 D9 z....{....|.....
0087E0: 78 D9 A8 F2 E9 0B 78 17 C9 CB 78 28 06 CD F3 0B x.....x...x(....
0087F0: C8 3F C9 7D D9 BD D9 C0 B7 C8 C3 C6 0B 7D D6 81 .?.}.........}..
008800: DA 72 0B 3C FE 28 D0 D9 C5 D5 E5 08 CD 72 0B 08 .r.<.(.......r..
008810: 37 CD 7B 0B 3D 20 F9 D9 7C D9 A4 D9 67 7B D9 A3 7.{.= ..|...g{.£
008820: D9 5F 7A D9 A2 D9 57 79 D9 A1 D9 4F 78 D9 A0 D9 ._z...Wy...Ox...
008830: 47 C3 7B 0A D9 C5 D5 E5 D9 CD AC 0F D9 CD FD 0B G.{.............
008840: D9 CD 81 0A 18 EB 7D B7 C8 CB 78 3E 03 C2 27 20 ......}...x>..'
008850: CD AC 0F 7D C6 80 CB 2F C6 80 6F D6 14 F5 D9 C5 ...}.../..o.....
008860: D5 E5 CD F5 0A CD 0D 0A 2D C5 D5 E5 CD 81 0A 7D ........-......}
008870: E1 D1 C1 D9 E1 D1 C1 E3 BC E3 30 E3 F1 D9 C9 D9 ..........0.....
008880: CD 8E 0F 2D CD 81 0A D9 CD 8E 0F 2C D9 7D FE 6C ...-.......,.}.l
008890: D8 C5 CB B8 CD DF 0B C1 38 09 CD F5 0A CD 34 0C ........8.....4.
0088A0: CD 97 0A CB 78 28 03 CD 0D 0A D9 2D D9 CD DF 0B ....x(.....-....
0088B0: F5 38 03 CD 81 0A D9 2D D9 CD DF 0B 38 05 D9 2C .8.....-....8..,
0088C0: CD 81 0A 7D FE 6C 38 3B D9 01 AA 2A 11 AA AA 21 ...}.l8;...*...!
0088D0: 7F AA CD 97 0A DD E5 DD 21 07 0D 3E 05 CD 34 0F ........!..>..4.
0088E0: DD E1 CD AC 0F CD 97 0A CD 97 0A C5 D5 E5 D9 CD ................
0088F0: AC 0F 2D 2D D9 2D CD 0D 0A D9 E1 D1 C1 D9 CD 81 ..--.-..........
008900: 0A 2C 2C F1 2C 2D C8 D8 78 EE 80 47 C9 67 AA 3F .,,.,-..x..G.g.?
008910: 2B 32 D7 6E B6 2A 1D EF 38 74 0D D0 00 0D D0 7A +2.n.*..8t.....z
008920: 88 88 88 88 08 7E AB AA AA AA AA 2C 2D 3E 04 CA .....~.....,->..
008930: 27 20 CB 78 C2 27 20 D9 CD 98 0F D9 7D 2E 81 95 ' .x.' .....}...
008940: F5 CD F5 0A D9 CD 86 0F D9 CD 81 0A C5 D5 E5 D9 ................
008950: 2C CD 0D 0A D9 E1 D1 C1 CD F5 0A DD E5 DD 21 8C ,.............!.
008960: 0D 3E 06 CD 34 0F DD E1 2C D9 CD A2 0F 2D D9 CD .>..4...,....-..
008970: 0D 0A F1 C5 D5 E5 6F 26 00 30 01 25 CD 08 10 D9 ......o&.0.%....
008980: 2C CD 97 0A D9 E1 D1 C1 CD 0D 0A 7D FE 67 DA 72 ,..........}.g.r
008990: 0B C9 7D 8A 9D D8 89 1D 7D E9 A2 8B 2E 3A 7D 8E ..}.....}....:}.
0089A0: E3 38 8E 63 7E 49 92 24 49 12 7E CD CC CC CC 4C .8.c~I.$I.~....L
0089B0: 7F AB AA AA AA 2A D9 CD A2 0F D9 B7 CB 78 F5 CB .....*.......x..
0089C0: B8 CD F5 0A 7D FE 88 30 47 C5 D5 E5 2C CD D0 0F ....}..0G...,...
0089D0: E5 CB 3C CB 1D 7D E1 F5 CD 08 10 2C 2D 28 01 2D ..<..}.....,-(.-
0089E0: D9 F1 E1 D1 C1 F5 CD 81 0A DD E5 DD 21 10 0E 3E ............!..>
0089F0: 08 CD 49 0F DD E1 F1 30 0A F5 D9 CD 98 0F D9 CD ..I....0........
008A00: 97 0A F1 85 6F 38 09 F1 C8 D9 CD 86 0F C3 F5 0A ....o8..........
008A10: E1 3E 01 C3 27 20 6D 2E 1D 11 60 31 70 46 2C FE .>..' m...`1pF,.
008A20: E5 7F 74 36 7C 89 84 21 77 53 3C FF C3 2E 7A D2 ..t6|..!wS<...z.
008A30: 7D 5B 95 1D 7C 25 B8 46 58 63 7E 16 FC EF FD 75 }[..|%.FXc~....u
008A40: 80 D2 F7 17 72 31 7D B7 C8 DD E5 D9 CD 86 0F D9 ....r1}.........
008A50: AF CB 78 28 03 3C CB B8 F5 CD DF 0B 38 08 D9 CD ..x(.<......8...
008A60: F5 0A F1 CB FF F5 D9 01 CF 06 11 8E E9 21 7E 4A .............!~J
008A70: D9 CD DF 0B 30 05 CD 2E 0F 18 4F DD 21 CE 0E 3E ....0.....O.!..>
008A80: 02 08 D9 11 12 00 DD 19 CD 73 0F D9 CD DF 0B 38 .........s.....8
008A90: 0B 08 3D 20 EC D9 11 0C 00 DD 19 D9 D9 CD 6E 0F ..= ..........n.
008AA0: CB F8 CD 0D 0A C5 D5 E5 CD 73 0F CD 97 0A D9 CD .........s......
008AB0: 86 0F CD 0D 0A D9 E1 D1 C1 CD F5 0A DD E5 CD 2E ................
008AC0: 0F DD E1 D9 CD 6E 0F CD 0D 0A F1 17 30 0A F5 D9 .....n......0...
008AD0: CD 8E 0F 2D CD 81 0A F1 DD E1 CB 4F C8 CB F8 C9 ...-.......O....
008AE0: 7F E7 CF CC 13 54 7F F6 F4 A2 30 09 7F 6A C1 91 .....T....0..j..
008AF0: 0A 06 80 B5 9E 8A 6F 44 80 82 2C 3A CD 13 80 6A ......oD..,:...j
008B00: C1 91 0A 06 81 00 00 00 00 00 80 21 A2 DA 0F 49 ...........!...I
008B10: 7D E8 A2 8B 2E BA 7D 8E E3 38 8E 63 7E 49 92 24 }.....}..8.c~I.$
008B20: 49 92 7E CD CC CC CC 4C 7F AB AA AA AA AA DD 21 I.~....L.......!
008B30: 0A 0F 3E 05 C5 D5 E5 F5 CD AC 0F CD 97 0A F1 CD ..>.............
008B40: 49 0F D9 E1 D1 C1 C3 97 0A F5 D9 CD 6E 0F 18 10 I...........n...
008B50: F5 D9 C5 D5 E5 CD 6E 0F CD 0D 0A D9 E1 D1 C1 D9 ......n.........
008B60: CD 97 0A F1 3D 20 E9 D9 CD 86 0F C3 0D 0A 11 06 ....= ..........
008B70: 00 DD 19 DD 6E 00 DD 66 01 DD 5E 02 DD 56 03 DD ....n..f..^..V..
008B80: 4E 04 DD 46 05 C9 21 81 00 44 4C 54 5C C9 01 0F N..F..!..DLT\...
008B90: 49 11 A2 DA 21 82 21 C9 01 04 35 11 33 F3 21 81 I...!.!...5.3.!.
008BA0: FA C9 01 72 31 11 F7 17 21 80 D2 C9 C5 D5 E5 D9 ...r1...!.......
008BB0: E1 D1 C1 C9 CD 92 07 21 80 00 3E 20 CB 78 20 0D .......!..> .x .
008BC0: CB 23 CB 12 CB 11 CB 10 2D 3D 20 F0 6F CB B8 C9 .#......-= .o...
008BD0: CB 78 D9 CD 86 0F 28 02 CB F8 2D CD 0D 0A B7 CB .x....(...-.....
008BE0: 7D 28 1C CB 78 08 CB F8 3E 8F BD 38 16 28 06 CD }(..x...>..8.(..
008BF0: 7A 0B 2C 18 F3 CD 7A 0B 08 60 69 C8 C3 83 07 21 z.,...z..`i....!
008C00: 00 00 C9 3E 92 C3 27 20 7C B5 CA 72 0B CB 7C 08 ...>..' |..r..|.
008C10: CD 80 07 3E 90 29 3D CB 7C 28 FA 44 4D 11 00 00 ...>.)=.|(.DM...
008C20: 62 6F 08 C0 CB B8 C9 CD C8 04 EB 1E 00 38 04 FE bo...........8..
008C30: 19 38 18 1D CD C8 04 D9 CB 78 D9 16 07 28 01 14 .8.......x...(..
008C40: 92 30 01 AF FE 09 38 02 3E 09 3C 57 D5 D9 FD 21 .0....8.>.<W...!
008C50: 5D 00 DD E5 CD EB 10 DD E1 D1 4F 7A 3C CB 7B 20 ].........Oz<.{
008C60: 10 81 F2 6B 10 FD 36 00 00 18 0B FE 0C 38 02 3E ...k..6......8.>
008C70: 0B D5 CD 80 11 D1 CB 78 28 05 3E 2D CD E5 10 CB .......x(.>-....
008C80: 7B 28 03 61 0E 00 CB 79 28 05 CD E3 10 18 07 CD {(.a...y(.......
008C90: D9 10 0D F2 8F 10 7A B7 28 17 3E 2E CD E5 10 0C ......z.(.>.....
008CA0: 28 06 CD E3 10 15 20 F7 15 FA B1 10 CD D9 10 18 (..... .........
008CB0: F7 CB 7B C8 3E 45 CD E5 10 3E 2B CB 7C 28 06 7C ..{.>E...>+.|(.|
008CC0: ED 44 67 3E 2D CD E5 10 7C 06 2F 04 D6 0A 30 FB .Dg>-...|./...0.
008CD0: C6 3A DD 70 00 DD 23 18 0C FD 7E 00 FD 23 B7 20 .:.p..#...~..#.
008CE0: 04 FD 2B 3E 30 DD 77 00 DD 23 C9 FD E5 2C 2D 20 ..+>0.w..#...,-
008CF0: 0E 06 0C FD 36 00 30 FD 23 10 F8 AF C3 7D 11 C5 ....6.0.#....}..
008D00: CB B8 7D D9 D6 80 6F 9F 67 11 4D 00 CD F5 06 11 ..}...o.g.M.....
008D10: 05 00 19 7C FE D9 20 01 3C FD 77 00 ED 44 CD 40 ...|.. .<.w..D.@
008D20: 12 7D FE 81 30 06 CD B3 12 FD 35 00 CB F8 3E 84 .}..0.....5...>.
008D30: 95 2E 00 28 08 CD 7A 0B CB 1D 3D 20 F8 FD 7E 00 ...(..z...= ..~.
008D40: F5 3E 0C 08 78 1F 1F 1F 1F E6 0F C6 30 FD 77 00 .>..x.......0.w.
008D50: FD 23 78 E6 0F 47 C5 D5 E5 CB 25 CD 87 0B CB 25 .#x..G....%....%
008D60: CD 87 0B EB E3 19 D1 E3 ED 5A EB E1 E3 ED 4A 44 .........Z....JD
008D70: 4D E1 CB 25 CD 87 0B 08 3D 20 C8 F1 C1 FD E1 C9 M..%....= ......
008D80: FD E5 E1 5F 16 00 19 7E 36 00 FE 35 D8 1D FA 9C ..._...~6..5....
008D90: 11 2B 7E 3C 77 FE 3A D8 36 00 18 F1 36 31 23 36 .+~<w.:.6...61#6
008DA0: 00 0C C9 D9 01 00 00 D9 CD 72 0B DD 7E 00 CD A6 .........r..~...
008DB0: 04 FE 2E 20 0C D9 CB 70 37 C0 CB F0 D9 DD 23 18 ... ...p7.....#.
008DC0: EA FE 45 28 21 CD 39 12 30 54 08 CD B3 12 D8 08 ..E(!.9.0T......
008DD0: D9 C5 6F 26 00 CD 08 10 CD E9 09 D9 C1 D8 CB 70 ..o&...........p
008DE0: 28 01 0D D9 18 D7 CD 1E 12 D8 D9 CB E0 DD 23 DD (.............#.
008DF0: 7E 00 FE 2B 28 06 FE 2D 20 04 CB E8 DD 23 CD 36 ~..+(..- ....#.6
008E00: 12 3F D8 4F DD 23 CD 36 12 30 0A DD 23 57 79 87 .?.O.#.6.0..#Wy.
008E10: 87 81 87 82 4F CB 68 28 04 79 ED 44 4F D9 D9 79 ....O.h(.y.DO..y
008E20: C6 80 FE 5A D8 FE A6 3F D8 C5 DD E5 79 CD 40 12 ...Z...?....y.@.
008E30: DD E1 D9 C1 D9 C9 DD 7E 00 D6 30 3F D0 FE 0A C9 .......~..0?....
008E40: F5 B7 F2 47 12 ED 44 F5 CB 3F CB 3F 3C 21 FA FF ...G..D..?.?<!..
008E50: 11 06 00 19 3D 20 FC EB DD 21 77 12 DD 19 CD 73 ....= ...!w....s
008E60: 0F F1 E6 03 28 08 F5 CD B3 12 F1 3D 20 F8 F1 B7 ....(......= ...
008E70: F2 97 0A D9 C3 F5 0A 81 00 00 00 00 00 8E 00 00 ................
008E80: 00 40 1C 9B 00 00 20 BC 3E A8 00 10 A5 D4 68 B6 .@.... .>.....h.
008E90: 04 BF C9 1B 0E C3 AC C5 EB 78 2D D0 CD CE 1B C2 .........x-.....
008EA0: 53 DE F9 78 39 3F 01 EB 2B A8 AD C5 1D F8 C9 7B S..x9?..+......{
008EB0: CE 97 40 7D B7 C8 CB F8 C5 D5 7C CD 7A 0B CD 7A ..@}......|.z..z
008EC0: 0B 84 67 E3 ED 5A EB E1 E3 ED 4A 44 4D E1 30 06 ..g..Z....JDM.0.
008ED0: CD 7B 0B 2C 37 C8 7D C6 03 6F CB B8 C9 0E 01 18 .{.,7.}..o......
008EE0: 02 0E 00 CD 3F 13 1A BE 20 08 23 13 10 F8 79 EE ....?... .#...y.
008EF0: 01 4F 21 40 00 39 F9 69 26 00 DD E9 0E 01 18 02 .O!@.9.i&.......
008F00: 0E 00 CD 3F 13 0D 20 01 EB 0E 00 1A B6 BE 20 E2 ...?.. ....... .
008F10: 23 13 10 F7 0E 01 18 DA CD 3F 13 1A B6 77 23 13 #........?...w#.
008F20: 10 F9 EB F9 DD E9 CD 3F 13 1A 2F A6 77 23 13 10 .......?../.w#..
008F30: F8 18 EF CD 3F 13 1A A6 77 23 13 10 F9 18 E3 FD ....?...w#......
008F40: E1 DD E1 21 00 00 39 EB 21 20 00 45 39 FD E9 DD ...!..9.! .E9...
008F50: E1 21 21 00 39 7E B7 28 03 AF 18 06 2B 46 CD BA .!!.9~.(....+F..
008F60: 05 A6 21 22 00 39 F9 21 00 00 28 01 23 DD E9 3E ..!".9.!..(.#..>
008F70: AF 32 E8 00 FD E1 2A D2 00 06 10 CD E2 05 AF 12 .2....*.........
008F80: E1 22 E2 00 FD E5 7C B7 20 06 3E 22 32 D0 00 C9 ."....|. .>"2...
008F90: 3A E8 00 B7 28 0A CD B6 13 20 05 2A E2 00 77 C9 :...(.... .*..w.
008FA0: CD F2 03 2A E2 00 36 00 11 0C 00 19 EB 21 5C 00 ...*..6......!\.
008FB0: 01 24 00 ED B0 C9 06 06 21 E6 13 C5 E5 06 03 ED .$......!.......
008FC0: 5B D2 00 13 1A FE 20 28 FA 1A CD A6 04 96 28 0A [..... (......(.
008FD0: E1 C1 11 04 00 19 10 E3 B7 C9 23 13 10 EB C1 C1 ..........#.....
008FE0: 1A FE 3A C0 7E C9 43 4F 4E C1 54 52 4D C1 4B 42 ..:.~.CON.TRM.KB
008FF0: 44 82 4C 53 54 43 41 55 58 C4 55 53 52 C5 3E AF D.LSTCAUX.USR.>.
009000: 32 E8 00 CD 69 14 3A D0 00 B7 C0 2A E2 00 CB AE 2...i.:....*....
009010: 7E E6 0F C0 CD 30 14 3A D0 00 B7 C0 2A E2 00 3A ~....0.:....*..:
009020: E8 00 B7 01 80 80 28 03 01 40 00 71 23 23 70 C9 ......(..@.q##p.
009030: CD 5A 14 2A E2 00 11 0C 00 19 EB 3A E8 00 B7 01 .Z.*.......:....
009040: 0F 01 28 0A D5 0E 13 CD 05 00 D1 01 16 F1 C5 CD ..(.............
009050: 05 00 C1 3C C0 78 32 D0 00 C9 2A E2 00 11 18 00 ...<.x2...*.....
009060: 19 06 18 36 00 23 10 FB C9 22 E2 00 7E E6 0F C0 ...6.#..."..~...
009070: CB 76 28 0A 3E 1A CD C6 16 CD 0C 17 18 03 CB 7E .v(.>..........~
009080: C8 2A E2 00 E5 11 0C 00 19 EB 0E 10 CD 05 00 E1 .*..............
009090: 3C 20 05 3E FF 32 D0 00 36 00 C9 E3 22 E4 00 E3 < .>.2..6..."...
0090A0: E5 21 C2 00 22 E2 00 E1 C9 E3 22 E4 00 E3 22 E2 .!.."....."...".
0090B0: 00 CB 7E C0 3E 02 32 D0 00 C9 E3 22 E4 00 E3 22 ..~.>.2...."..."
0090C0: E2 00 CB 76 C0 3E 03 32 D0 00 C9 3E AF E3 22 E4 ...v.>.2...>..".
0090D0: 00 E3 E5 21 C2 00 22 E2 00 CB AE F5 CD E8 14 F1 ...!..".........
0090E0: B7 28 03 CD E1 01 E1 C9 06 00 21 D1 00 7E FE 7F .(........!..~..
0090F0: 38 02 3E 7E 4F 36 7E 2A D2 00 22 D4 00 16 00 CD 8.>~O6~*..".....
009100: E1 03 77 1E 01 FE 08 28 36 FE 7F 28 32 1D FE 18 ..w....(6..(2...
009110: 28 2D FE 1B 28 29 FE 1A 28 36 FE 0D 28 38 FE 20 (-..()..(6..(8.
009120: 30 11 FE 03 20 D9 3A DD 00 B7 28 D3 DD 2A E4 00 0... .:...(..*..
009130: C3 16 20 79 BA 28 C8 7E 14 23 CD C9 03 18 C0 15 .. y.(.~.#......
009140: FA FD 14 2B CD 00 02 08 20 08 00 1D 28 B1 18 EF ...+.... ...(...
009150: 04 05 28 AB 18 04 04 05 20 04 36 1A 18 08 CD E1 ..(..... .6.....
009160: 01 36 0D 23 36 0A 23 22 D6 00 C9 2A E2 00 3A D0 .6.#6.#"...*..:.
009170: 00 B7 20 79 7E CB 6F 20 70 E6 0F 20 2E 23 23 7E .. y~.o p.. .##~
009180: B7 F2 97 15 0E 14 E5 CD BA 19 E1 28 08 E5 11 2E ...........(....
009190: 00 19 36 1A E1 AF 77 34 C6 2E 5F 16 00 19 7E FE ..6...w4.._...~.
0091A0: 1A 20 3D 2A E2 00 23 23 35 18 35 3D 20 1B 2A D4 . =*..##5.5= .*.
0091B0: 00 ED 5B D6 00 B7 ED 52 38 05 06 FF CD EA 14 2A ..[....R8......*
0091C0: D4 00 7E 23 22 D4 00 18 17 3D 20 06 CD A3 00 7D ..~#"....= ..£.}
0091D0: 18 0E 3D 3D 20 06 CD AF 00 7D 18 04 CD B5 00 7D ..== ....}.....}
0091E0: 2A E2 00 CB EE 23 77 2B C9 23 7E 2B C9 3E 1A C9 *....#w+.#~+.>..
0091F0: E5 2A E2 00 7E E6 0F FE 06 28 27 CD 6B 15 FE 21 .*..~....('.k..!
009200: 30 08 FE 1A 28 04 CB AE 18 F1 11 5D 00 06 1E C5 0...(......]....
009210: D5 CD 6B 15 D1 C1 FE 21 38 06 CB AE 12 13 10 EF ..k....!8.......
009220: AF 12 E1 C9 DD 21 5D 00 DD 7E 00 B7 C8 06 00 FE .....!]..~......
009230: 2D C0 04 DD 23 C9 38 05 DD 7E 00 B7 C8 3E 10 32 -...#.8..~...>.2
009240: D0 00 37 C9 E5 CD 6B 15 CB AE E1 77 C9 3E AF 4F ..7...k....w.>.O
009250: C5 CD F0 15 C1 CD 24 16 C8 C5 E5 CD F7 07 D1 C1 ......$.........
009260: CD 36 16 D8 05 CC 83 07 EB 73 0C 0D 20 02 23 72 .6.......s.. .#r
009270: EB C9 CD F0 15 CD 24 16 C8 C5 E5 CD A3 11 D9 E1 ......$.....£...
009280: C1 CD 36 16 D8 05 D9 CC 8F 0A D9 C3 D1 05 E5 EB ..6.............
009290: 0E 00 C5 D5 CD 6B 15 D1 C1 FE 0D 28 0B FE 1A 28 .....k.....(...(
0092A0: 07 CB AE 0C 13 12 10 EA E1 71 C9 CD 6B 15 FE 1A .........q..k...
0092B0: 28 13 CB AE FE 0A 28 0D FE 0D 20 EF CD 6B 15 FE (.....(... ..k..
0092C0: 0A 20 02 CB AE C9 2A E2 00 4F 3A D0 00 B7 C0 7E . ....*..O:....~
0092D0: E6 0F 20 10 23 23 E5 7E C6 2E 5F 16 00 19 71 E1 .. .##.~.._...q.
0092E0: 34 F0 18 28 FE 06 28 15 E1 06 00 C5 E5 3D CA A6 4..(..(......=..
0092F0: 00 3D 3D CA A9 00 3D CA AC 00 C3 B2 00 2A E8 00 .==...=......*..
009300: 3A EA 00 BE C8 34 5E 16 00 19 71 C9 2A E2 00 23 :....4^...q.*..#
009310: 23 7E B7 C8 36 00 0E 15 CD BA 19 C8 3E F0 32 D0 #~..6.......>.2.
009320: 00 C9 7D C3 C6 16 C1 D1 C5 DD 2A D2 00 CB 7C 28 ..}.......*...|(
009330: 06 CD 83 07 EB 18 0E EB CB 7C 28 09 CD 83 07 DD .........|(.....
009340: 36 00 2D DD 23 D5 CD C6 07 E1 CD C8 04 ED 5B D2 6.-.#.........[.
009350: 00 DD E5 E1 B7 ED 52 4D EB 91 38 0E 28 0C 47 E5 ......RM..8.(.G.
009360: 3E 20 C5 CD C6 16 C1 10 F7 E1 41 04 05 C8 7E C5 > ........A...~.
009370: E5 CD C6 16 E1 C1 23 18 F3 C1 D1 D9 E1 D1 C1 D9 ......#.........
009380: C5 DD 2A D2 00 D5 CD 27 10 18 BE C1 D1 C5 CD C8 ..*....'........
009390: 04 CB 43 21 A1 17 0E 04 20 BF 21 A5 17 0E 05 18 ..C!.... .!.....
0093A0: B8 54 52 55 45 46 41 4C 53 45 CD C8 04 21 02 00 .TRUEFALSE...!..
0093B0: 39 4E 23 CD 59 17 D1 F9 D5 C9 E1 7E 23 B7 28 0C 9N#.Y......~#.(.
0093C0: 47 7E C5 E5 CD C6 16 E1 C1 23 10 F5 E9 3E 0D CD G~.......#...>..
0093D0: C6 16 3E 0A C3 C6 16 11 0D 01 18 0D 11 0D 00 18 ..>.............
0093E0: 08 11 1A 01 18 03 11 1A 00 22 E2 00 CB 7E 28 1C ........."...~(.
0093F0: D5 CD 6B 15 D1 BB 28 10 FE 1A 28 0C FE 21 30 0C ..k...(...(..!0.
009400: 14 15 28 08 CB AE 18 E8 21 01 00 C9 21 00 00 C9 ..(.....!...!...
009410: 3E AF 32 E8 00 ED 53 E6 00 CD 7A 18 3A D0 00 B7 >.2...S...z.:...
009420: C0 CD 30 14 3A D0 00 B7 C0 2A E2 00 36 D0 23 23 ..0.:....*..6.##
009430: 77 11 06 00 19 77 23 77 11 24 00 19 77 23 77 11 w....w#w.$..w#w.
009440: D6 FF 19 3A E8 00 B7 20 1B E5 01 04 00 AF CD 09 ...:... ........
009450: 19 E1 23 23 4E 23 46 2A E6 00 B7 ED 42 C8 3E 90 ..##N#F*....B.>.
009460: 32 D0 00 C9 E5 AF 77 23 77 23 ED 5B E6 00 73 23 2.....w#w#.[..s#
009470: 72 E1 01 04 00 3E 03 C3 09 19 22 E2 00 7E E6 C0 r....>...."..~..
009480: C8 CD AE 19 2A E2 00 11 2D 00 19 AF 77 23 77 11 ....*...-...w#w.
009490: D4 FF 19 77 23 23 01 04 00 3E 01 CD 09 19 CD AE ...w##...>......
0094A0: 19 C3 81 14 E3 22 E4 00 E3 22 E2 00 7E E6 C0 C0 ....."..."..~...
0094B0: 3E 04 32 D0 00 C9 3A D0 00 B7 C0 E5 CD 5A 1A EB >.2...:......Z..
0094C0: B7 ED 52 E1 30 10 AF CD 09 19 2A E2 00 11 08 00 ..R.0.....*.....
0094D0: 19 34 C0 23 34 C9 3E 99 32 D0 00 C9 3A D0 00 B7 .4.#4.>.2...:...
0094E0: C0 E5 CD 5A 1A B7 ED 52 3E 01 20 10 2A E2 00 11 ...Z...R>. .*...
0094F0: 04 00 19 34 20 04 23 34 28 08 3E 03 E1 CD 09 19 ...4 .#4(.>.....
009500: 18 C8 E1 3E F2 32 D0 00 C9 32 E9 00 EB 2A E2 00 ...>.2...2...*..
009510: CB 66 28 2F CB A6 3A E9 00 CB 47 28 18 23 23 7E .f(/..:...G(.##~
009520: 2B 2B B7 20 10 3A E9 00 CB 4F 20 17 78 B7 20 13 ++. .:...O .x. .
009530: 79 B7 FA 43 19 C5 D5 0E 21 CD BA 19 D1 C1 20 51 y..C....!..... Q
009540: 2A E2 00 3A E9 00 CB 47 28 02 CB EE 23 23 7E C6 *..:...G(...##~.
009550: 2E D5 5F 16 00 19 D1 D6 2E CD 9A 19 ED A0 E2 66 .._............f
009560: 19 3C F2 5C 19 3D 3C CD 9A 19 2A E2 00 23 23 E6 .<.\.=<...*..##.
009570: 7F 77 20 16 C5 D5 E5 CD AE 19 E1 D1 C1 20 15 D5 .w .......... ..
009580: 11 2B 00 19 D1 34 20 02 23 34 78 B1 C2 0D 19 EB .+...4 .#4x.....
009590: C9 3E 99 01 3E F0 32 D0 00 C9 F5 3A E9 00 CB 47 .>..>.2....:...G
0095A0: 28 01 EB F1 C9 22 E2 00 CD AE 19 C8 18 E6 0E 22 (...."........."
0095B0: 2A E2 00 CB E6 CB 6E C8 CB AE 2A E2 00 E5 C5 11 *.....n...*.....
0095C0: 30 00 19 EB 0E 1A CD 05 00 C1 E1 11 0C 00 19 EB 0...............
0095D0: CD 05 00 B7 C9 C1 D1 ED 53 E2 00 C5 E5 CD 5A 1A ........S.....Z.
0095E0: D1 B7 ED 52 38 40 2A E2 00 01 06 00 09 4E 23 46 ...R8@*......N#F
0095F0: 23 73 23 72 CD 2C 1A 01 04 00 09 30 01 13 7D E6 #s#r.,.....0..}.
009600: 7F 29 EB ED 6A EB 53 5C 2A E2 00 23 23 77 01 2B .)..j.S\*..##w.+
009610: 00 09 4E 23 46 EB B7 ED 42 09 C8 D5 E5 CD AE 19 ..N#F...B.......
009620: D1 E1 72 2B 73 C9 3E 91 32 D0 00 C9 D5 D9 E1 D9 ..r+s.>.2.......
009630: 21 00 00 54 5D 3E 10 29 EB ED 6A EB D9 29 D9 30 !..T]>.)..j..).0
009640: 04 09 30 01 13 3D 20 EF C9 CD 5D 1A B7 ED 52 21 ..0..= ...]...R!
009650: 00 00 C0 23 C9 CD 5D 1A EB C9 2A E2 00 11 04 00 ...#..]...*.....
009660: 19 5E 23 56 23 D5 4E 23 46 23 5E 23 56 E1 C9 3E .^#V#.N#F#^#V..>
009670: AF 32 E8 00 CD B0 1A 3A D0 00 B7 C0 CD 30 14 3A .2.....:.....0.:
009680: D0 00 B7 C0 2A E2 00 36 C0 E5 11 0C 00 19 EB 0E ....*..6........
009690: 23 CD 05 00 E1 11 2D 00 19 AF 4E 77 23 46 77 11 #.....-...Nw#Fw.
0096A0: D6 FF 19 71 23 70 23 36 80 23 77 23 77 23 77 C9 ...q#p#6.#w#w#w.
0096B0: 22 E2 00 7E E6 C0 C8 C3 81 14 3E 22 18 02 3E 21 "..~......>"..>!
0096C0: 44 4D 21 F0 00 22 E6 00 DD E1 D1 E1 DD E5 C5 CD DM!.."..........
0096D0: FD 1A C1 3A D0 00 B7 C0 2A F0 00 ED 42 C8 3A E9 ...:....*...B.:.
0096E0: 00 FE 21 3E 99 28 02 3E F0 32 D0 00 C9 3E 22 18 ..!>.(.>.2...>".
0096F0: 02 3E 21 22 E6 00 DD E1 C1 D1 E1 DD E5 32 E9 00 .>!".........2..
009700: 22 E2 00 7E E6 C0 CA B0 18 2A E6 00 AF 77 23 77 "..~.....*...w#w
009710: 78 B1 28 39 C5 D5 0E 1A CD 05 00 2A E2 00 11 0C x.(9.......*....
009720: 00 19 EB 3A E9 00 4F CD 05 00 D1 C1 B7 20 1E D5 ...:..O...... ..
009730: 2A E2 00 11 2D 00 19 34 20 02 23 34 D1 21 80 00 *...-..4 .#4.!..
009740: 19 EB 2A E6 00 34 20 02 23 34 0B 18 C3 2A E2 00 ..*..4 .#4...*..
009750: 11 2D 00 19 4E 23 46 11 DA FF 19 71 23 70 11 FC .-..N#F....q#p..
009760: FF 19 56 2B 5E EB B7 ED 42 D0 EB 71 23 70 C9 C1 ..V+^...B..q#p..
009770: D1 ED 53 E2 00 C5 E5 CD 5A 1A D1 B7 ED 52 DA 26 ..S.....Z....R.&
009780: 1A 2A E2 00 01 08 00 09 73 23 72 01 24 00 09 73 .*......s#r.$..s
009790: 23 72 C9 CD 4C 1C C0 11 0C 00 19 EB 0E 13 CD 05 #r..L...........
0097A0: 00 3C C0 18 3F FD E1 2A D2 00 06 10 CD E2 05 AF .<..?..*........
0097B0: 12 E1 FD E5 CD 4C 1C C0 E5 CD F2 03 E1 E5 11 1C .....L..........
0097C0: 00 19 EB 21 5C 00 01 0C 00 ED B0 E1 11 0C 00 19 ...!\...........
0097D0: E5 EB 0E 17 CD 05 00 D1 3C 28 09 21 5C 00 01 24 ........<(.!\..$
0097E0: 00 ED B0 C9 3E 01 32 D0 00 C9 3E AF 32 E8 00 CD ....>.2...>.2...
0097F0: 4C 1C C0 3A D8 00 B7 3E 21 28 EB 2A E2 00 11 0C L..:...>!(.*....
009800: 00 19 11 5C 00 01 24 00 ED B0 11 5C 00 0E 0F CD ...\..$....\....
009810: 05 00 3C 28 CF 21 33 1C 11 B0 00 01 19 00 ED B0 ..<(.!3.........
009820: 11 00 01 3A E8 00 B7 20 04 ED 5B 01 01 31 00 01 ...:... ..[..1..
009830: C3 B0 00 D5 0E 1A CD 05 00 11 5C 00 0E 14 CD 05 ..........\.....
009840: 00 D1 21 80 00 19 EB B7 28 E9 18 37 22 E2 00 7E ..!.....(..7"..~
009850: E6 0F C8 3E 20 32 D0 00 C9 22 E6 00 ED 53 E8 00 ...> 2..."...S..
009860: EB E1 22 E2 00 4E 73 23 46 72 EB B7 ED 42 28 5A .."..Ns#Fr...B(Z
009870: EB 23 11 5C 00 3A DC 00 12 13 01 0B 00 ED B0 06 .#.\.:..........
009880: 18 AF 12 13 10 FC E5 11 5C 00 0E 0F CD 05 00 D1 ........\.......
009890: 3C 28 3F 2A E6 00 22 7D 00 ED 4B E8 00 C5 D5 0E <(?*.."}..K.....
0098A0: 1A CD 05 00 11 5C 00 0E 21 CD 05 00 D1 C1 B7 20 .....\..!......
0098B0: 21 2A 7D 00 23 22 7D 00 21 80 00 19 EB 0B 78 B1 !*}.#"}.!.....x.
0098C0: 20 DB 11 5C 00 0E 10 CD 05 00 2A E2 00 11 0D 00 ..\......*.....
0098D0: 19 E9 DD 2A E2 00 3E F0 C3 29 20 CD C8 04 FE 11 ...*..>..) .....
0098E0: D0 32 DC 00 C9 22 F0 00 EB E1 E3 22 F2 00 13 13 .2..."....."....
0098F0: 13 7B E6 FC 5F 21 DE 00 22 F8 00 DD 2A DE 00 DD .{.._!.."...*...
009900: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
009910: 08 00 00 00 02 09 4E E5 08 00 41 02 00 00 00 02 ......N...A.....
009920: 08 00 42 02 00 00 00 02 08 00 43 02 00 00 00 02 ..B.......C.....
009930: 08 00 44 02 00 00 00 02 08 00 45 02 00 00 00 02 ..D.......E.....
009940: 08 00 46 02 00 00 00 02 08 00 47 02 00 00 00 02 ..F.......G.....
009950: 08 00 48 02 00 00 00 02 08 00 49 02 00 00 00 02 ..H.......I.....
009960: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009970: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009980: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009990: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0099A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0099B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0099C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0099D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0099E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0099F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
009A00: 6E 02 DD 66 03 7D B4 28 48 ED 52 30 0F DD 6E 00 n..f.}.(H.R0..n.
009A10: DD 66 01 E5 DD 22 F8 00 DD E1 18 E3 20 0A DD 5E .f..."...... ..^
009A20: 00 DD 56 01 DD E5 18 1B 4D 44 DD 6E 00 DD 66 01 ..V.....MD.n..f.
009A30: DD E5 DD 19 DD 75 00 DD 74 01 DD 71 02 DD 70 03 .....u..t..q..p.
009A40: DD E5 D1 2A F8 00 73 23 72 D1 2A F2 00 73 23 72 ...*..s#r.*..s#r
009A50: C9 DD E5 E1 19 22 C4 00 2A F0 00 01 04 00 09 DD ....."..*.......
009A60: E5 C1 09 DA 75 1D ED 4B C6 00 ED 42 01 00 00 21 ....u..K...B...!
009A70: 00 00 DA 30 1D 3E FF C3 27 20 EB E1 E3 7E 23 66 ...0.>..' ...~#f
009A80: 6F 13 13 13 7B E6 FC 5F EB 22 F0 00 2A DE 00 E5 o...{.._."..*...
009A90: DD E1 B7 ED 52 30 52 DD 6E 00 DD 66 01 E5 B7 ED ....R0R.n..f....
009AA0: 52 30 04 DD E1 18 F0 E1 D5 FD E1 ED 4B F0 00 FD R0..........K...
009AB0: 71 02 FD 70 03 FD 75 00 FD 74 01 DD 73 00 DD 72 q..p..u..t..s..r
009AC0: 01 DD E5 E1 DD 4E 02 DD 46 03 CD 04 1E 28 09 DD .....N..F....(..
009AD0: 5E 00 DD 56 01 D5 DD E1 DD E5 E1 DD 4E 02 DD 46 ^..V........N..F
009AE0: 03 DD 5E 00 DD 56 01 18 1B 2A DE 00 ED 53 DE 00 ..^..V...*...S..
009AF0: D5 DD E1 DD 75 00 DD 74 01 ED 4B F0 00 DD 71 02 ....u..t..K...q.
009B00: DD 70 03 EB 09 B7 ED 52 C0 D5 FD E1 2A C4 00 B7 .p.....R....*...
009B10: ED 52 28 1B FD 7E 00 DD 77 00 FD 7E 01 DD 77 01 .R(..~..w..~..w.
009B20: FD 6E 02 FD 66 03 09 DD 75 02 DD 74 03 AF C9 DD .n..f...u..t....
009B30: E5 E1 22 C4 00 06 04 36 00 23 10 FB C9 CD 4B 1E .."....6.#....K.
009B40: 2A F4 00 C9 CD 4B 1E 2A F6 00 C9 21 00 00 22 F4 *....K.*...!..".
009B50: 00 22 F6 00 DD 2A DE 00 DD 4E 02 DD 46 03 79 B0 ."...*...N..F.y.
009B60: 28 1E 2A F4 00 09 22 F4 00 2A F6 00 B7 ED 42 30 (.*..."..*....B0
009B70: 04 ED 43 F6 00 DD 6E 00 DD 66 01 E5 DD E1 18 D8 ..C...n..f......
009B80: 2A C6 00 01 FB FF 09 ED 5B C4 00 B7 ED 52 D8 EB *.......[....R..
009B90: 2A F4 00 19 22 F4 00 2A F6 00 B7 ED 52 D0 ED 53 *..."..*....R..S
009BA0: F6 00 C9 ED 5B C4 00 73 23 72 C9 5E 23 56 EB 22 ....[..s#r.^#V."
009BB0: C4 00 22 DE 00 06 04 36 00 23 10 FB C9 3E AF 4F .."....6.#...>.O
009BC0: 22 E8 00 AF 77 32 D0 00 78 32 EA 00 2A E2 00 22 "...w2..x2..*.."
009BD0: ED 00 21 46 1F 22 E2 00 E1 22 E4 00 E1 0C 0D 20 ..!F."...".....
009BE0: 05 CD 26 17 18 03 CD 79 17 2A ED 00 22 E2 00 2A ..&....y.*.."..*
009BF0: E4 00 E9 3E AF 32 EC 00 22 E8 00 2A E2 00 22 ED ...>.2.."..*..".
009C00: 00 21 46 1F 22 E2 00 E1 22 E4 00 E1 22 EA 00 21 .!F."..."..."..!
009C10: 5C 00 06 1E CD E2 05 AF 12 2A EA 00 3A EC 00 B7 \........*..:...
009C20: 20 05 CD 4E 16 18 03 CD 72 16 21 D0 00 7E 36 00 ..N....r.!..~6.
009C30: B7 67 6F 28 08 DD E5 E1 11 5C 00 ED 52 EB 2A E8 .go(.....\..R.*.
009C40: 00 73 23 72 18 A3 C6 00 ED 5F 32 CB 00 C9 EB DD .s#r.£..._2.....
009C50: E1 C1 E1 78 B1 28 0B 73 0B 78 B1 28 05 54 5D 13 ...x.(.s.x.(.T].
009C60: ED B0 DD E9 44 4D DD E1 D1 E1 78 B1 28 F4 ED 52 ....DM....x.(..R
009C70: 19 30 ED 0B 09 EB 09 EB 03 ED B8 DD E9 55 14 15 .0...........U..
009C80: 28 03 CD 9D 1F DD E1 4F 06 00 2F 6F 26 FF 39 F9 (......O../o&.9.
009C90: 71 23 EB 0C 0D 28 02 ED B0 DD E9 16 00 21 80 00 q#...(.......!..
009CA0: 3E 1F 46 B8 30 02 06 1F 23 0E 00 04 05 28 0D 7E >.F.0...#....(.~
009CB0: FE 20 28 04 FE 09 20 04 23 05 18 EF 5D 04 05 28 . (... .#...]..(
009CC0: 0D 7E FE 20 28 08 FE 09 28 04 23 05 18 EF 7D 93 .~. (...(.#...}.
009CD0: 28 04 0C 15 20 D5 69 26 00 54 C9 D1 C1 D5 2D 61 (... .i&.T....-a
009CE0: 25 C3 A2 02 7D CD A6 04 6F C9 2A 01 00 19 19 19 %...}...o.*.....
009CF0: E9 21 D0 00 7E 36 00 6F 26 00 C9 CD 16 03 7C B5 .!..~6.o&.....|.
009D00: C8 3A DD 00 F5 AF 32 DD 00 CD 20 03 F1 32 DD 00 .:....2... ..2..
009D10: 7D FE 03 C0 DD E1 11 01 00 18 11 3A D0 00 B7 C8 }..........:....
009D20: DD E1 5F 16 01 18 05 DD E1 5F 16 02 D5 CD 7A 03 .._......_....z.
009D30: D1 AF 32 DD 00 2A CE 00 7C B5 DD E5 E1 ED 4B CC ..2..*..|.....K.
009D40: 00 ED 42 01 15 00 09 22 CE 00 B7 20 07 D5 D5 E5 ..B...."... ....
009D50: CD D9 00 D1 7A B7 20 14 CD 00 02 5E 43 0D 0A 55 ....z. ....^C..U
009D60: 73 65 72 20 62 72 65 61 6B 00 18 2B 3D 20 0B CD ser break..+= ..
009D70: 00 02 0D 0A 49 2F 4F 00 18 0E CD 00 02 0D 0A 52 ....I/O........R
009D80: 75 6E 2D 74 69 6D 65 00 CD 00 02 20 65 72 72 6F un-time.... erro
009D90: 72 20 00 7B CD B4 04 CD 00 02 2C 20 50 43 3D 00 r .{......, PC=.
009DA0: 2A CE 00 CD AF 04 18 15 CD 00 02 4E 6F 74 20 65 *..........Not e
009DB0: 6E 6F 75 67 68 20 6D 65 6D 6F 72 79 00 CD 00 02 nough memory....
009DC0: 0D 0A 50 72 6F 67 72 61 6D 20 61 62 6F 72 74 65 ..Program aborte
009DD0: 64 0D 0A 00 3A D8 00 B7 CA 8E 27 C3 00 00 E1 D1 d...:.....'.....
009DE0: D1 E9 31 00 01 21 C2 F2 01 00 FF CD 64 03 21 00 ..1..!......d.!.
009DF0: 64 11 FD EB 01 42 F3 3E 01 CD D4 04 C3 AC 63 00 d....B.>......c.
009E00: 66 75 6E 63 74 69 6F 6E 20 20 20 20 20 20 20 64 function d
009E10: 65 72 69 76 65 28 66 3A 66 6F 6E 63 74 69 6F 6E erive(f:fonction
009E20: 29 3A 66 6F 6E 63 74 69 6F 6E 3B 0D 0A 76 61 72 ):fonction;..var
009E30: 0D 0A 70 2C 71 2C 72 2C 73 2C 75 2C 76 2C 77 3A ..p,q,r,s,u,v,w:
009E40: 66 6F 6E 63 74 69 6F 6E 3B 0D 0A 78 78 78 3A 69 fonction;..xxx:i
009E50: 6E 74 65 67 65 72 3B 0D 0A 6E 62 72 65 3A 72 65 nteger;..nbre:re
009E60: 61 6C 3B 0D 0A 62 65 67 69 6E 0D 0A 20 20 6E 65 al;..begin.. ne
009E70: 77 28 70 29 3B 64 65 72 69 76 65 3A 3D 70 3B 0D w(p);derive:=p;.
009E80: 0A 20 20 69 66 20 66 3D 6E 69 6C 20 74 68 65 6E . if f=nil then
009E90: 20 62 65 67 69 6E 20 64 69 73 70 6F 73 65 28 70 begin dispose(p
009EA0: 29 3B 64 65 72 69 76 65 3A 3D 6E 69 6C 20 65 6E );derive:=nil en
009EB0: 64 0D 0A 20 20 20 20 65 6C 73 65 0D 0A 20 20 69 d.. else.. i
009EC0: 66 20 28 28 66 5E 2E 6E 61 74 75 72 65 3D 27 6E f ((f^.nature='n
009ED0: 6F 6D 62 72 65 27 29 20 6F 72 20 28 66 5E 2E 6E ombre') or (f^.n
009EE0: 61 74 75 72 65 3D 27 70 61 72 61 6D 27 29 29 20 ature='param'))
009EF0: 74 68 65 6E 0D 0A 20 20 20 20 20 20 20 20 20 20 then..
009F00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
009F10: 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 20 begin..
009F20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
009F30: 20 70 5E 2E 6E 61 74 75 72 65 3A 3D 27 6E 6F 6D p^.nature:='nom
009F40: 62 72 65 27 3B 0D 0A 20 20 20 20 20 20 20 20 20 bre';..
009F50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
009F60: 20 70 5E 2E 76 61 6C 65 75 72 3A 3D 27 30 27 3B p^.valeur:='0';
009F70: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
009F80: 20 20 20 20 20 20 20 20 20 20 20 20 70 5E 2E 64 p^.d
009F90: 3A 3D 6E 69 6C 3B 0D 0A 20 20 20 20 20 20 20 20 :=nil;..
009FA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
009FB0: 20 20 70 5E 2E 67 3A 3D 6E 69 6C 3B 0D 0A 20 20 p^.g:=nil;..
009FC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
009FD0: 20 20 20 20 20 20 20 20 65 6E 64 0D 0A 20 20 20 end..
009FE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
009FF0: 20 20 20 20 20 20 20 20 20 65 6C 73 65 0D 0A 20 else..
00A000: 20 69 66 20 66 5E 2E 6E 61 74 75 72 65 3D 27 76 if f^.nature='v
00A010: 61 72 69 61 62 27 20 74 68 65 6E 0D 0A 20 20 20 ariab' then..
00A020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00A030: 20 20 20 20 20 20 20 62 65 67 69 6E 0D 0A 20 20 begin..
00A040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00A050: 20 20 20 20 20 20 20 20 70 5E 2E 6E 61 74 75 72 p^.natur
00A060: 65 3A 3D 27 6E 6F 6D 62 72 65 27 3B 0D 0A 20 20 e:='nombre';..
00A070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00A080: 20 20 20 20 20 20 20 20 70 5E 2E 76 61 6C 65 75 p^.valeu
00A090: 72 3A 3D 27 31 27 3B 0D 0A 20 20 20 20 20 20 20 r:='1';..
00A0A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00A0B0: 20 20 20 70 5E 2E 64 3A 3D 6E 69 6C 3B 0D 0A 20 p^.d:=nil;..
00A0C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00A0D0: 20 20 20 20 20 20 20 20 20 70 5E 2E 67 3A 3D 6E p^.g:=n
00A0E0: 69 6C 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 il;..
00A0F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 e
00A100: 6E 64 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 nd..
00A110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00A120: 65 6C 73 65 0D 0A 20 20 69 66 20 28 28 66 5E 2E else.. if ((f^.
00A130: 6E 61 74 75 72 65 3D 27 70 6C 75 73 27 29 20 6F nature='plus') o
00A140: 72 20 28 66 5E 2E 6E 61 74 75 72 65 3D 27 6D 6F r (f^.nature='mo
00A150: 69 6E 73 27 29 29 20 74 68 65 6E 0D 0A 20 20 20 ins')) then..
00A160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00A170: 20 20 20 20 20 20 20 62 65 67 69 6E 0D 0A 20 20 begin..
00A180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00A190: 20 20 20 20 20 20 20 20 70 5E 2E 6E 61 74 75 72 p^.natur
00A1A0: 65 3A 3D 66 5E 2E 6E 61 74 75 72 65 3B 0D 0A 20 e:=f^.nature;..
00A1B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00A1C0: 20 20 20 20 20 20 20 20 20 70 5E 2E 76 61 6C 65 p^.vale
00A1D0: 75 72 3A 3D 66 5E 2E 76 61 6C 65 75 72 3B 0D 0A ur:=f^.valeur;..
00A1E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00A1F0: 20 20 20 20 20 20 20 20 20 20 70 5E 2E 64 3A 3D p^.d:=
00A200: 64 65 72 69 76 65 28 66 5E 2E 64 29 3B 0D 0A 20 derive(f^.d);..
00A210: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00A220: 20 20 20 20 20 20 20 20 20 70 5E 2E 67 3A 3D 64 p^.g:=d
00A230: 65 72 69 76 65 28 66 5E 2E 67 29 3B 0D 0A 20 20 erive(f^.g);..
00A240: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00A250: 20 20 20 20 20 20 20 20 65 6E 64 0D 0A 20 20 20 end..
00A260: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00A270: 20 20 20 20 20 20 20 20 20 65 6C 73 65 0D 0A 20 else..
00A280: 20 69 66 20 66 5E 2E 6E 61 74 75 72 65 3D 27 6D if f^.nature='m
00A290: 75 6C 74 69 27 20 74 68 65 6E 0D 0A 20 20 20 20 ulti' then..
00A2A0: 20 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 begin..
00A2B0: 20 20 70 5E 2E 6E 61 74 75 72 65 3A 3D 27 70 6C p^.nature:='pl
00A2C0: 75 73 27 3B 70 5E 2E 76 61 6C 65 75 72 3A 3D 27 us';p^.valeur:='
00A2D0: 2B 27 3B 6E 65 77 28 70 5E 2E 67 29 3B 0D 0A 20 +';new(p^.g);..
00A2E0: 20 20 20 20 20 20 20 70 5E 2E 67 5E 2E 6E 61 74 p^.g^.nat
00A2F0: 75 72 65 3A 3D 27 6D 75 6C 74 69 27 3B 70 5E 2E ure:='multi';p^.
00A300: 67 5E 2E 76 61 6C 65 75 72 3A 3D 27 2A 27 3B 70 g^.valeur:='*';p
00A310: 5E 2E 67 5E 2E 64 3A 3D 66 5E 2E 64 3B 0D 0A 20 ^.g^.d:=f^.d;..
00A320: 20 20 20 20 20 20 20 6E 65 77 28 70 5E 2E 64 29 new(p^.d)
00A330: 3B 70 5E 2E 64 5E 2E 6E 61 74 75 72 65 3A 3D 27 ;p^.d^.nature:='
00A340: 6D 75 6C 74 69 27 3B 70 5E 2E 64 5E 2E 76 61 6C multi';p^.d^.val
00A350: 65 75 72 3A 3D 27 2A 27 3B 70 5E 2E 64 5E 2E 67 eur:='*';p^.d^.g
00A360: 3A 3D 66 5E 2E 67 3B 0D 0A 20 20 20 20 20 20 20 :=f^.g;..
00A370: 20 70 5E 2E 64 5E 2E 64 3A 3D 64 65 72 69 76 65 p^.d^.d:=derive
00A380: 28 66 5E 2E 64 29 3B 70 5E 2E 67 5E 2E 67 3A 3D (f^.d);p^.g^.g:=
00A390: 64 65 72 69 76 65 28 66 5E 2E 67 29 0D 0A 20 20 derive(f^.g)..
00A3A0: 20 20 20 20 20 65 6E 64 0D 0A 20 20 20 20 20 20 end..
00A3B0: 20 20 20 65 6C 73 65 0D 0A 20 20 69 66 20 66 5E else.. if f^
00A3C0: 2E 6E 61 74 75 72 65 3D 27 64 69 76 69 73 65 27 .nature='divise'
00A3D0: 20 74 68 65 6E 0D 0A 20 20 20 20 20 20 62 65 67 then.. beg
00A3E0: 69 6E 0D 0A 20 20 20 20 20 20 20 20 6E 65 77 28 in.. new(
00A3F0: 75 29 3B 6E 65 77 28 76 29 3B 6E 65 77 28 77 29 u);new(v);new(w)
00A400: 3B 6E 65 77 28 73 29 3B 6E 65 77 28 71 29 3B 75 ;new(s);new(q);u
00A410: 5E 2E 6E 61 74 75 72 65 3A 3D 27 6D 6F 69 6E 73 ^.nature:='moins
00A420: 27 3B 75 5E 2E 76 61 6C 65 75 72 3A 3D 27 2D 27 ';u^.valeur:='-'
00A430: 3B 0D 0A 20 20 20 20 20 20 20 20 75 5E 2E 67 3A ;.. u^.g:
00A440: 3D 77 3B 75 5E 2E 64 3A 3D 73 3B 76 5E 2E 6E 61 =w;u^.d:=s;v^.na
00A450: 74 75 72 65 3A 3D 27 70 75 69 73 73 27 3B 76 5E ture:='puiss';v^
00A460: 2E 76 61 6C 65 75 72 3A 3D 27 5E 27 3B 0D 0A 20 .valeur:='^';..
00A470: 20 20 20 20 20 20 20 76 5E 2E 67 3A 3D 66 5E 2E v^.g:=f^.
00A480: 64 3B 76 5E 2E 64 3A 3D 71 3B 71 5E 2E 6E 61 74 d;v^.d:=q;q^.nat
00A490: 75 72 65 3A 3D 27 6E 6F 6D 62 72 65 27 3B 71 5E ure:='nombre';q^
00A4A0: 2E 76 61 6C 65 75 72 3A 3D 27 32 27 3B 0D 0A 20 .valeur:='2';..
00A4B0: 20 20 20 20 20 20 20 71 5E 2E 64 3A 3D 6E 69 6C q^.d:=nil
00A4C0: 3B 71 5E 2E 67 3A 3D 6E 69 6C 3B 77 5E 2E 6E 61 ;q^.g:=nil;w^.na
00A4D0: 74 75 72 65 3A 3D 27 6D 75 6C 74 69 27 3B 77 5E ture:='multi';w^
00A4E0: 2E 76 61 6C 65 75 72 3A 3D 27 2A 27 3B 77 5E 2E .valeur:='*';w^.
00A4F0: 64 3A 3D 66 5E 2E 64 3B 0D 0A 20 20 20 20 20 20 d:=f^.d;..
00A500: 20 20 77 5E 2E 67 3A 3D 64 65 72 69 76 65 28 66 w^.g:=derive(f
00A510: 5E 2E 67 29 3B 0D 0A 20 20 20 20 20 20 20 20 73 ^.g);.. s
00A520: 5E 2E 6E 61 74 75 72 65 3A 3D 27 6D 75 6C 74 69 ^.nature:='multi
00A530: 27 3B 73 5E 2E 76 61 6C 65 75 72 3A 3D 27 2A 27 ';s^.valeur:='*'
00A540: 3B 73 5E 2E 64 3A 3D 64 65 72 69 76 65 28 66 5E ;s^.d:=derive(f^
00A550: 2E 64 29 3B 73 5E 2E 67 3A 3D 66 5E 2E 67 3B 0D .d);s^.g:=f^.g;.
00A560: 0A 20 20 20 20 20 20 20 20 70 5E 2E 6E 61 74 75 . p^.natu
00A570: 72 65 3A 3D 27 64 69 76 69 73 65 27 3B 70 5E 2E re:='divise';p^.
00A580: 76 61 6C 65 75 72 3A 3D 27 2F 27 3B 70 5E 2E 67 valeur:='/';p^.g
00A590: 3A 3D 75 3B 70 5E 2E 64 3A 3D 76 3B 0D 0A 20 20 :=u;p^.d:=v;..
00A5A0: 20 20 20 20 65 6E 64 0D 0A 20 20 20 20 20 20 20 end..
00A5B0: 20 65 6C 73 65 0D 0A 20 20 69 66 20 66 5E 2E 6E else.. if f^.n
00A5C0: 61 74 75 72 65 3D 27 70 75 69 73 73 27 20 74 68 ature='puiss' th
00A5D0: 65 6E 0D 0A 20 20 20 20 20 62 65 67 69 6E 0D 0A en.. begin..
00A5E0: 20 20 20 20 20 20 20 69 66 20 66 5E 2E 64 5E 2E if f^.d^.
00A5F0: 6E 61 74 75 72 65 3D 27 6E 6F 6D 62 72 65 27 20 nature='nombre'
00A600: 74 68 65 6E 0D 0A 20 20 20 20 20 20 20 20 20 20 then..
00A610: 20 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 begin..
00A620: 20 20 20 20 20 20 20 20 6E 65 77 28 75 29 3B 6E new(u);n
00A630: 65 77 28 76 29 3B 6E 65 77 28 77 29 3B 76 61 6C ew(v);new(w);val
00A640: 28 66 5E 2E 64 5E 2E 76 61 6C 65 75 72 2C 6E 62 (f^.d^.valeur,nb
00A650: 72 65 2C 72 65 73 75 6C 74 29 3B 71 3A 3D 66 5E re,result);q:=f^
00A660: 2E 64 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 .d;..
00A670: 20 20 20 76 5E 2E 67 3A 3D 66 5E 2E 67 3B 75 5E v^.g:=f^.g;u^
00A680: 2E 6E 61 74 75 72 65 3A 3D 27 6D 75 6C 74 69 27 .nature:='multi'
00A690: 3B 75 5E 2E 76 61 6C 65 75 72 3A 3D 27 2A 27 3B ;u^.valeur:='*';
00A6A0: 75 5E 2E 67 3A 3D 71 3B 0D 0A 20 20 20 20 20 20 u^.g:=q;..
00A6B0: 20 20 20 20 20 20 20 20 75 5E 2E 64 3A 3D 64 65 u^.d:=de
00A6C0: 72 69 76 65 28 66 5E 2E 67 29 3B 76 5E 2E 6E 61 rive(f^.g);v^.na
00A6D0: 74 75 72 65 3A 3D 27 70 75 69 73 73 27 3B 76 5E ture:='puiss';v^
00A6E0: 2E 76 61 6C 65 75 72 3A 3D 27 5E 27 3B 76 5E 2E .valeur:='^';v^.
00A6F0: 64 3A 3D 77 3B 0D 0A 20 20 20 20 20 20 20 20 20 d:=w;..
00A700: 20 20 20 20 20 77 5E 2E 6E 61 74 75 72 65 3A 3D w^.nature:=
00A710: 27 6E 6F 6D 62 72 65 27 3B 77 5E 2E 67 3A 3D 6E 'nombre';w^.g:=n
00A720: 69 6C 3B 77 5E 2E 64 3A 3D 6E 69 6C 3B 6E 62 72 il;w^.d:=nil;nbr
00A730: 65 3A 3D 6E 62 72 65 2D 31 3B 0D 0A 20 20 20 20 e:=nbre-1;..
00A740: 20 20 20 20 20 20 20 20 20 20 69 66 20 66 72 61 if fra
00A750: 63 28 6E 62 72 65 29 3D 30 20 74 68 65 6E 20 73 c(nbre)=0 then s
00A760: 74 72 28 72 6F 75 6E 64 28 6E 62 72 65 29 2C 77 tr(round(nbre),w
00A770: 5E 2E 76 61 6C 65 75 72 29 0D 0A 20 20 20 20 20 ^.valeur)..
00A780: 20 20 20 20 20 20 20 20 20 65 6C 73 65 20 62 65 else be
00A790: 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 gin..
00A7A0: 20 20 20 73 74 72 28 6E 62 72 65 3A 38 3A 33 2C str(nbre:8:3,
00A7B0: 77 5E 2E 76 61 6C 65 75 72 29 3B 0D 0A 20 20 20 w^.valeur);..
00A7C0: 20 20 20 20 20 20 20 20 20 20 20 77 68 69 6C 65 while
00A7D0: 20 70 6F 73 28 27 20 27 2C 77 5E 2E 76 61 6C 65 pos(' ',w^.vale
00A7E0: 75 72 29 3C 3E 30 20 64 6F 20 64 65 6C 65 74 65 ur)<>0 do delete
00A7F0: 28 77 5E 2E 76 61 6C 65 75 72 2C 31 2C 31 29 3B (w^.valeur,1,1);
00A800: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
00A810: 20 20 20 20 20 65 6E 64 3B 0D 0A 20 20 20 20 20 end;..
00A820: 20 20 20 20 20 20 20 20 20 70 5E 2E 6E 61 74 75 p^.natu
00A830: 72 65 3A 3D 27 6D 75 6C 74 69 27 3B 70 5E 2E 76 re:='multi';p^.v
00A840: 61 6C 65 75 72 3A 3D 27 2A 27 3B 70 5E 2E 67 3A aleur:='*';p^.g:
00A850: 3D 75 3B 70 5E 2E 64 3A 3D 76 3B 0D 0A 20 20 20 =u;p^.d:=v;..
00A860: 20 20 20 20 20 20 20 20 20 20 65 6E 64 0D 0A 20 end..
00A870: 20 20 20 20 20 20 65 6C 73 65 0D 0A 20 20 20 20 else..
00A880: 20 20 20 20 20 20 20 62 65 67 69 6E 0D 0A 20 20 begin..
00A890: 20 20 20 20 20 20 20 20 20 20 6E 65 77 28 75 29 new(u)
00A8A0: 3B 75 5E 2E 6E 61 74 75 72 65 3A 3D 27 69 64 66 ;u^.nature:='idf
00A8B0: 63 74 27 3B 75 5E 2E 76 61 6C 65 75 72 3A 3D 27 ct';u^.valeur:='
00A8C0: 6C 6E 27 3B 75 5E 2E 67 3A 3D 6E 69 6C 3B 75 5E ln';u^.g:=nil;u^
00A8D0: 2E 64 3A 3D 66 5E 2E 67 3B 0D 0A 20 20 20 20 20 .d:=f^.g;..
00A8E0: 20 20 20 20 6E 65 77 28 76 29 3B 76 5E 2E 6E 61 new(v);v^.na
00A8F0: 74 75 72 65 3A 3D 27 6D 75 6C 74 69 27 3B 76 5E ture:='multi';v^
00A900: 2E 76 61 6C 65 75 72 3A 3D 27 2A 27 3B 76 5E 2E .valeur:='*';v^.
00A910: 67 3A 3D 64 65 72 69 76 65 28 66 5E 2E 64 29 3B g:=derive(f^.d);
00A920: 76 5E 2E 64 3A 3D 75 3B 0D 0A 20 20 20 20 20 20 v^.d:=u;..
00A930: 20 20 6E 65 77 28 77 29 3B 77 5E 2E 6E 61 74 75 new(w);w^.natu
00A940: 72 65 3A 3D 27 6D 75 6C 74 69 27 3B 77 5E 2E 76 re:='multi';w^.v
00A950: 61 6C 65 75 72 3A 3D 27 2A 27 3B 77 5E 2E 67 3A aleur:='*';w^.g:
00A960: 3D 64 65 72 69 76 65 28 66 5E 2E 67 29 3B 77 5E =derive(f^.g);w^
00A970: 2E 64 3A 3D 66 5E 2E 64 3B 0D 0A 20 20 20 20 20 .d:=f^.d;..
00A980: 20 20 20 20 6E 65 77 28 71 29 3B 71 5E 2E 6E 61 new(q);q^.na
00A990: 74 75 72 65 3A 3D 27 64 69 76 69 73 65 27 3B 71 ture:='divise';q
00A9A0: 5E 2E 76 61 6C 65 75 72 3A 3D 27 2F 27 3B 71 5E ^.valeur:='/';q^
00A9B0: 2E 67 3A 3D 77 3B 71 5E 2E 64 3A 3D 66 5E 2E 67 .g:=w;q^.d:=f^.g
00A9C0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 6E 65 77 28 ;.. new(
00A9D0: 72 29 3B 72 5E 2E 6E 61 74 75 72 65 3A 3D 27 70 r);r^.nature:='p
00A9E0: 6C 75 73 27 3B 72 5E 2E 76 61 6C 65 75 72 3A 3D lus';r^.valeur:=
00A9F0: 27 2B 27 3B 72 5E 2E 67 3A 3D 76 3B 72 5E 2E 64 '+';r^.g:=v;r^.d
00AA00: 3A 3D 71 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 :=q;..
00AA10: 20 20 20 20 20 70 5E 2E 6E 61 74 75 72 65 3A 3D p^.nature:=
00AA20: 27 6D 75 6C 74 69 27 3B 70 5E 2E 76 61 6C 65 75 'multi';p^.valeu
00AA30: 72 3A 3D 27 2A 27 3B 70 5E 2E 67 3A 3D 72 3B 70 r:='*';p^.g:=r;p
00AA40: 5E 2E 64 3A 3D 66 3B 0D 0A 20 20 20 20 20 20 20 ^.d:=f;..
00AA50: 65 6E 64 3B 0D 0A 20 20 20 20 20 65 6E 64 0D 0A end;.. end..
00AA60: 20 20 20 20 65 6C 73 65 0D 0A 20 20 69 66 20 66 else.. if f
00AA70: 5E 2E 6E 61 74 75 72 65 3D 27 69 64 66 63 74 27 ^.nature='idfct'
00AA80: 20 74 68 65 6E 0D 0A 20 20 20 20 62 65 67 69 6E then.. begin
00AA90: 0D 0A 20 20 20 20 20 20 69 66 20 66 5E 2E 76 61 .. if f^.va
00AAA0: 6C 65 75 72 3D 27 73 69 6E 27 20 74 68 65 6E 0D leur='sin' then.
00AAB0: 0A 20 20 20 20 20 20 20 20 62 65 67 69 6E 0D 0A . begin..
00AAC0: 20 20 20 20 20 20 20 20 20 6E 65 77 28 75 29 3B new(u);
00AAD0: 75 5E 2E 6E 61 74 75 72 65 3A 3D 27 69 64 66 63 u^.nature:='idfc
00AAE0: 74 27 3B 75 5E 2E 76 61 6C 65 75 72 3A 3D 27 63 t';u^.valeur:='c
00AAF0: 6F 73 27 3B 75 5E 2E 67 3A 3D 6E 69 6C 3B 75 5E os';u^.g:=nil;u^
00AB00: 2E 64 3A 3D 66 5E 2E 64 3B 0D 0A 20 20 20 20 20 .d:=f^.d;..
00AB10: 20 20 20 20 70 5E 2E 6E 61 74 75 72 65 3A 3D 27 p^.nature:='
00AB20: 6D 75 6C 74 69 27 3B 70 5E 2E 76 61 6C 65 75 72 multi';p^.valeur
00AB30: 3A 3D 27 2A 27 3B 70 5E 2E 67 3A 3D 64 65 72 69 :='*';p^.g:=deri
00AB40: 76 65 28 66 5E 2E 64 29 3B 70 5E 2E 64 3A 3D 75 ve(f^.d);p^.d:=u
00AB50: 3B 0D 0A 20 20 20 20 20 20 20 20 65 6E 64 0D 0A ;.. end..
00AB60: 20 20 20 20 20 20 20 20 20 65 6C 73 65 0D 0A 20 else..
00AB70: 20 20 20 20 20 69 66 20 66 5E 2E 76 61 6C 65 75 if f^.valeu
00AB80: 72 3D 27 63 6F 73 27 20 74 68 65 6E 0D 0A 20 20 r='cos' then..
00AB90: 20 20 20 20 20 20 62 65 67 69 6E 0D 0A 20 20 20 begin..
00ABA0: 20 20 20 20 20 20 6E 65 77 28 76 29 3B 76 5E 2E new(v);v^.
00ABB0: 6E 61 74 75 72 65 3A 3D 27 69 64 66 63 74 27 3B nature:='idfct';
00ABC0: 76 5E 2E 76 61 6C 65 75 72 3A 3D 27 73 69 6E 27 v^.valeur:='sin'
00ABD0: 3B 76 5E 2E 67 3A 3D 6E 69 6C 3B 76 5E 2E 64 3A ;v^.g:=nil;v^.d:
00ABE0: 3D 66 5E 2E 64 3B 0D 0A 20 20 20 20 20 20 20 20 =f^.d;..
00ABF0: 20 6E 65 77 28 75 29 3B 75 5E 2E 6E 61 74 75 72 new(u);u^.natur
00AC00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
00AC10: 09 00 00 00 02 09 4E E5 09 00 41 02 00 00 00 02 ......N...A.....
00AC20: 09 00 42 02 00 00 00 02 09 00 43 02 00 00 00 02 ..B.......C.....
00AC30: 09 00 44 02 00 00 00 02 09 00 45 02 00 00 00 02 ..D.......E.....
00AC40: 09 00 46 02 00 00 00 02 09 00 47 02 00 00 00 02 ..F.......G.....
00AC50: 09 00 48 02 00 00 00 02 09 00 49 02 00 00 00 02 ..H.......I.....
00AC60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00AC70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00AC80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00AC90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00ACA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00ACB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00ACC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00ACD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00ACE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00ACF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00AD00: 65 3A 3D 27 6D 75 6C 74 69 27 3B 75 5E 2E 76 61 e:='multi';u^.va
00AD10: 6C 65 75 72 3A 3D 27 2A 27 3B 6E 65 77 28 75 5E leur:='*';new(u^
00AD20: 2E 67 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 75 .g);.. u
00AD30: 5E 2E 67 5E 2E 6E 61 74 75 72 65 3A 3D 27 6E 6F ^.g^.nature:='no
00AD40: 6D 62 72 65 27 3B 75 5E 2E 67 5E 2E 76 61 6C 65 mbre';u^.g^.vale
00AD50: 75 72 3A 3D 27 2D 31 27 3B 75 5E 2E 67 5E 2E 64 ur:='-1';u^.g^.d
00AD60: 3A 3D 6E 69 6C 3B 0D 0A 20 20 20 20 20 20 20 20 :=nil;..
00AD70: 20 75 5E 2E 67 5E 2E 67 3A 3D 6E 69 6C 3B 75 5E u^.g^.g:=nil;u^
00AD80: 2E 64 3A 3D 76 3B 0D 0A 20 20 20 20 20 20 20 20 .d:=v;..
00AD90: 20 70 5E 2E 6E 61 74 75 72 65 3A 3D 27 6D 75 6C p^.nature:='mul
00ADA0: 74 69 27 3B 70 5E 2E 76 61 6C 65 75 72 3A 3D 27 ti';p^.valeur:='
00ADB0: 2A 27 3B 70 5E 2E 67 3A 3D 64 65 72 69 76 65 28 *';p^.g:=derive(
00ADC0: 66 5E 2E 64 29 3B 70 5E 2E 64 3A 3D 75 3B 0D 0A f^.d);p^.d:=u;..
00ADD0: 20 20 20 20 20 20 20 20 65 6E 64 0D 0A 20 20 20 end..
00ADE0: 20 20 20 20 20 20 65 6C 73 65 0D 0A 20 20 20 20 else..
00ADF0: 20 20 69 66 20 66 5E 2E 76 61 6C 65 75 72 3D 27 if f^.valeur='
00AE00: 74 61 6E 67 27 20 74 68 65 6E 0D 0A 20 20 20 20 tang' then..
00AE10: 20 20 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 begin..
00AE20: 20 20 20 20 6E 65 77 28 73 29 3B 73 5E 2E 6E 61 new(s);s^.na
00AE30: 74 75 72 65 3A 3D 27 6E 6F 6D 62 72 65 27 3B 73 ture:='nombre';s
00AE40: 5E 2E 76 61 6C 65 75 72 3A 3D 27 32 27 3B 73 5E ^.valeur:='2';s^
00AE50: 2E 64 3A 3D 6E 69 6C 3B 73 5E 2E 67 3A 3D 6E 69 .d:=nil;s^.g:=ni
00AE60: 6C 3B 0D 0A 20 20 20 20 20 20 20 20 20 6E 65 77 l;.. new
00AE70: 28 77 29 3B 77 5E 2E 6E 61 74 75 72 65 3A 3D 27 (w);w^.nature:='
00AE80: 69 64 66 63 74 27 3B 77 5E 2E 76 61 6C 65 75 72 idfct';w^.valeur
00AE90: 3A 3D 27 63 6F 73 27 3B 77 5E 2E 67 3A 3D 6E 69 :='cos';w^.g:=ni
00AEA0: 6C 3B 77 5E 2E 64 3A 3D 66 5E 2E 64 3B 0D 0A 20 l;w^.d:=f^.d;..
00AEB0: 20 20 20 20 20 20 20 20 6E 65 77 28 76 29 3B 76 new(v);v
00AEC0: 5E 2E 6E 61 74 75 72 65 3A 3D 27 70 75 69 73 73 ^.nature:='puiss
00AED0: 27 3B 76 5E 2E 76 61 6C 65 75 72 3A 3D 27 5E 27 ';v^.valeur:='^'
00AEE0: 3B 76 5E 2E 67 3A 3D 77 3B 76 5E 2E 64 3A 3D 73 ;v^.g:=w;v^.d:=s
00AEF0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 70 5E 2E 6E ;.. p^.n
00AF00: 61 74 75 72 65 3A 3D 27 64 69 76 69 73 65 27 3B ature:='divise';
00AF10: 70 5E 2E 76 61 6C 65 75 72 3A 3D 27 2F 27 3B 70 p^.valeur:='/';p
00AF20: 5E 2E 64 3A 3D 76 3B 70 5E 2E 67 3A 3D 64 65 72 ^.d:=v;p^.g:=der
00AF30: 69 76 65 28 66 5E 2E 64 29 3B 0D 0A 20 20 20 20 ive(f^.d);..
00AF40: 20 20 20 20 65 6E 64 0D 0A 20 20 20 20 20 20 20 end..
00AF50: 20 20 20 65 6C 73 65 0D 0A 20 20 20 20 20 20 69 else.. i
00AF60: 66 20 66 5E 2E 76 61 6C 65 75 72 3D 27 6C 6E 27 f f^.valeur='ln'
00AF70: 20 74 68 65 6E 0D 0A 20 20 20 20 20 20 20 20 62 then.. b
00AF80: 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 20 70 egin.. p
00AF90: 5E 2E 6E 61 74 75 72 65 3A 3D 27 64 69 76 69 73 ^.nature:='divis
00AFA0: 65 27 3B 70 5E 2E 76 61 6C 65 75 72 3A 3D 27 2F e';p^.valeur:='/
00AFB0: 27 3B 70 5E 2E 64 3A 3D 66 5E 2E 64 3B 70 5E 2E ';p^.d:=f^.d;p^.
00AFC0: 67 3A 3D 64 65 72 69 76 65 28 66 5E 2E 64 29 3B g:=derive(f^.d);
00AFD0: 0D 0A 20 20 20 20 20 20 20 20 65 6E 64 0D 0A 20 .. end..
00AFE0: 20 20 20 20 20 20 20 20 20 65 6C 73 65 0D 0A 20 else..
00AFF0: 20 20 20 20 20 69 66 20 66 5E 2E 76 61 6C 65 75 if f^.valeu
00B000: 72 3D 27 65 78 70 27 20 74 68 65 6E 0D 0A 20 20 r='exp' then..
00B010: 20 20 20 20 20 20 62 65 67 69 6E 0D 0A 20 20 20 begin..
00B020: 20 20 20 20 20 20 6E 65 77 28 75 29 3B 75 5E 2E new(u);u^.
00B030: 6E 61 74 75 72 65 3A 3D 27 69 64 66 63 74 27 3B nature:='idfct';
00B040: 75 5E 2E 76 61 6C 65 75 72 3A 3D 27 65 78 70 27 u^.valeur:='exp'
00B050: 3B 75 5E 2E 67 3A 3D 6E 69 6C 3B 75 5E 2E 64 3A ;u^.g:=nil;u^.d:
00B060: 3D 66 5E 2E 64 3B 0D 0A 20 20 20 20 20 20 20 20 =f^.d;..
00B070: 20 70 5E 2E 6E 61 74 75 72 65 3A 3D 27 6D 75 6C p^.nature:='mul
00B080: 74 69 27 3B 70 5E 2E 76 61 6C 65 75 72 3A 3D 27 ti';p^.valeur:='
00B090: 2A 27 3B 70 5E 2E 67 3A 3D 64 65 72 69 76 65 28 *';p^.g:=derive(
00B0A0: 66 5E 2E 64 29 3B 70 5E 2E 64 3A 3D 75 3B 0D 0A f^.d);p^.d:=u;..
00B0B0: 20 20 20 20 20 20 20 20 65 6E 64 0D 0A 20 20 20 end..
00B0C0: 20 20 20 20 20 20 65 6C 73 65 0D 0A 20 20 20 20 else..
00B0D0: 20 20 69 66 20 66 5E 2E 76 61 6C 65 75 72 3D 27 if f^.valeur='
00B0E0: 73 71 72 74 27 20 74 68 65 6E 0D 0A 20 20 20 20 sqrt' then..
00B0F0: 20 20 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 begin..
00B100: 20 20 20 20 20 6E 65 77 28 75 29 3B 6E 65 77 28 new(u);new(
00B110: 76 29 3B 6E 65 77 28 77 29 3B 77 5E 2E 6E 61 74 v);new(w);w^.nat
00B120: 75 72 65 3A 3D 27 6E 6F 6D 62 72 65 27 3B 77 5E ure:='nombre';w^
00B130: 2E 76 61 6C 65 75 72 3A 3D 27 32 27 3B 77 5E 2E .valeur:='2';w^.
00B140: 67 3A 3D 6E 69 6C 3B 0D 0A 20 20 20 20 20 20 20 g:=nil;..
00B150: 20 20 20 77 5E 2E 64 3A 3D 6E 69 6C 3B 76 5E 2E w^.d:=nil;v^.
00B160: 6E 61 74 75 72 65 3A 3D 27 6D 75 6C 74 69 27 3B nature:='multi';
00B170: 76 5E 2E 76 61 6C 65 75 72 3A 3D 27 2A 27 3B 76 v^.valeur:='*';v
00B180: 5E 2E 67 3A 3D 77 3B 76 5E 2E 64 3A 3D 66 3B 0D ^.g:=w;v^.d:=f;.
00B190: 0A 20 20 20 20 20 20 20 20 20 20 70 5E 2E 6E 61 . p^.na
00B1A0: 74 75 72 65 3A 3D 27 64 69 76 69 73 65 27 3B 70 ture:='divise';p
00B1B0: 5E 2E 76 61 6C 65 75 72 3A 3D 27 2F 27 3B 70 5E ^.valeur:='/';p^
00B1C0: 2E 67 3A 3D 64 65 72 69 76 65 28 66 5E 2E 64 29 .g:=derive(f^.d)
00B1D0: 3B 70 5E 2E 64 3A 3D 76 3B 0D 0A 20 20 20 20 20 ;p^.d:=v;..
00B1E0: 20 20 20 65 6E 64 0D 0A 20 20 20 20 20 20 20 20 end..
00B1F0: 65 6C 73 65 0D 0A 20 20 20 20 20 20 69 66 20 66 else.. if f
00B200: 5E 2E 76 61 6C 65 75 72 3D 27 73 68 27 20 74 68 ^.valeur='sh' th
00B210: 65 6E 0D 0A 20 20 20 20 20 20 20 20 62 65 67 69 en.. begi
00B220: 6E 0D 0A 20 20 20 20 20 20 20 20 20 6E 65 77 28 n.. new(
00B230: 75 29 3B 75 5E 2E 6E 61 74 75 72 65 3A 3D 27 69 u);u^.nature:='i
00B240: 64 66 63 74 27 3B 75 5E 2E 76 61 6C 65 75 72 3A dfct';u^.valeur:
00B250: 3D 27 63 68 27 3B 75 5E 2E 67 3A 3D 6E 69 6C 3B ='ch';u^.g:=nil;
00B260: 75 5E 2E 64 3A 3D 66 5E 2E 64 3B 0D 0A 20 20 20 u^.d:=f^.d;..
00B270: 20 20 20 20 20 20 70 5E 2E 6E 61 74 75 72 65 3A p^.nature:
00B280: 3D 27 6D 75 6C 74 69 27 3B 70 5E 2E 76 61 6C 65 ='multi';p^.vale
00B290: 75 72 3A 3D 27 2A 27 3B 70 5E 2E 67 3A 3D 64 65 ur:='*';p^.g:=de
00B2A0: 72 69 76 65 28 66 5E 2E 64 29 3B 70 5E 2E 64 3A rive(f^.d);p^.d:
00B2B0: 3D 75 3B 0D 0A 20 20 20 20 20 20 20 20 65 6E 64 =u;.. end
00B2C0: 0D 0A 20 20 20 20 20 20 20 20 65 6C 73 65 0D 0A .. else..
00B2D0: 20 20 20 20 20 20 69 66 20 66 5E 2E 76 61 6C 65 if f^.vale
00B2E0: 75 72 3D 27 63 68 27 20 74 68 65 6E 0D 0A 20 20 ur='ch' then..
00B2F0: 20 20 20 20 20 20 62 65 67 69 6E 0D 0A 20 20 20 begin..
00B300: 20 20 20 20 20 20 6E 65 77 28 75 29 3B 75 5E 2E new(u);u^.
00B310: 6E 61 74 75 72 65 3A 3D 27 69 64 66 63 74 27 3B nature:='idfct';
00B320: 75 5E 2E 76 61 6C 65 75 72 3A 3D 27 73 68 27 3B u^.valeur:='sh';
00B330: 75 5E 2E 67 3A 3D 6E 69 6C 3B 75 5E 2E 64 3A 3D u^.g:=nil;u^.d:=
00B340: 66 5E 2E 64 3B 0D 0A 20 20 20 20 20 20 20 20 20 f^.d;..
00B350: 70 5E 2E 6E 61 74 75 72 65 3A 3D 27 6D 75 6C 74 p^.nature:='mult
00B360: 69 27 3B 70 5E 2E 76 61 6C 65 75 72 3A 3D 27 2A i';p^.valeur:='*
00B370: 27 3B 70 5E 2E 67 3A 3D 64 65 72 69 76 65 28 66 ';p^.g:=derive(f
00B380: 5E 2E 64 29 3B 70 5E 2E 64 3A 3D 75 3B 0D 0A 20 ^.d);p^.d:=u;..
00B390: 20 20 20 20 20 20 20 65 6E 64 0D 0A 20 20 20 20 end..
00B3A0: 20 20 20 20 65 6C 73 65 0D 0A 20 20 20 20 20 20 else..
00B3B0: 69 66 20 66 5E 2E 76 61 6C 65 75 72 3D 27 74 68 if f^.valeur='th
00B3C0: 27 20 74 68 65 6E 0D 0A 20 20 20 20 20 20 20 20 ' then..
00B3D0: 62 65 67 69 6E 20 20 6E 65 77 28 76 29 3B 76 5E begin new(v);v^
00B3E0: 2E 6E 61 74 75 72 65 3A 3D 27 6E 6F 6D 62 72 65 .nature:='nombre
00B3F0: 27 3B 76 5E 2E 76 61 6C 65 75 72 3A 3D 27 32 27 ';v^.valeur:='2'
00B400: 3B 76 5E 2E 64 3A 3D 6E 69 6C 3B 76 5E 2E 67 3A ;v^.d:=nil;v^.g:
00B410: 3D 6E 69 6C 3B 0D 0A 20 20 20 20 20 20 20 20 20 =nil;..
00B420: 6E 65 77 28 75 29 3B 75 5E 2E 6E 61 74 75 72 65 new(u);u^.nature
00B430: 3A 3D 27 70 75 69 73 73 27 3B 75 5E 2E 76 61 6C :='puiss';u^.val
00B440: 65 75 72 3A 3D 27 5E 27 3B 75 5E 2E 64 3A 3D 76 eur:='^';u^.d:=v
00B450: 3B 75 5E 2E 67 3A 3D 66 3B 0D 0A 20 20 20 20 20 ;u^.g:=f;..
00B460: 20 20 20 20 6E 65 77 28 77 29 3B 77 5E 2E 6E 61 new(w);w^.na
00B470: 74 75 72 65 3A 3D 27 6E 6F 6D 62 72 65 27 3B 77 ture:='nombre';w
00B480: 5E 2E 76 61 6C 65 75 72 3A 3D 27 31 27 3B 77 5E ^.valeur:='1';w^
00B490: 2E 64 3A 3D 6E 69 6C 3B 77 5E 2E 67 3A 3D 6E 69 .d:=nil;w^.g:=ni
00B4A0: 6C 3B 0D 0A 20 20 20 20 20 20 20 20 20 6E 65 77 l;.. new
00B4B0: 28 73 29 3B 73 5E 2E 6E 61 74 75 72 65 3A 3D 27 (s);s^.nature:='
00B4C0: 6D 6F 69 6E 73 27 3B 73 5E 2E 76 61 6C 65 75 72 moins';s^.valeur
00B4D0: 3A 3D 27 2D 27 3B 73 5E 2E 67 3A 3D 77 3B 73 5E :='-';s^.g:=w;s^
00B4E0: 2E 64 3A 3D 75 3B 0D 0A 20 20 20 20 20 20 20 20 .d:=u;..
00B4F0: 20 70 5E 2E 6E 61 74 75 72 65 3A 3D 27 6D 75 6C p^.nature:='mul
00B500: 74 69 27 3B 70 5E 2E 76 61 6C 65 75 72 3A 3D 27 ti';p^.valeur:='
00B510: 2A 27 3B 70 5E 2E 67 3A 3D 64 65 72 69 76 65 28 *';p^.g:=derive(
00B520: 66 5E 2E 64 29 3B 70 5E 2E 64 3A 3D 73 3B 0D 0A f^.d);p^.d:=s;..
00B530: 20 20 20 20 20 20 20 20 65 6E 64 0D 0A 20 20 20 end..
00B540: 20 20 20 20 20 65 6C 73 65 0D 0A 20 20 20 20 20 else..
00B550: 20 20 69 66 20 66 5E 2E 76 61 6C 65 75 72 3D 27 if f^.valeur='
00B560: 61 72 63 74 61 6E 27 20 74 68 65 6E 0D 0A 20 20 arctan' then..
00B570: 20 20 20 20 20 20 62 65 67 69 6E 20 20 6E 65 77 begin new
00B580: 28 76 29 3B 76 5E 2E 6E 61 74 75 72 65 3A 3D 27 (v);v^.nature:='
00B590: 6E 6F 6D 62 72 65 27 3B 76 5E 2E 76 61 6C 65 75 nombre';v^.valeu
00B5A0: 72 3A 3D 27 32 27 3B 76 5E 2E 64 3A 3D 6E 69 6C r:='2';v^.d:=nil
00B5B0: 3B 76 5E 2E 67 3A 3D 6E 69 6C 3B 0D 0A 20 20 20 ;v^.g:=nil;..
00B5C0: 20 20 20 20 20 20 6E 65 77 28 75 29 3B 75 5E 2E new(u);u^.
00B5D0: 6E 61 74 75 72 65 3A 3D 27 70 75 69 73 73 27 3B nature:='puiss';
00B5E0: 75 5E 2E 76 61 6C 65 75 72 3A 3D 27 5E 27 3B 75 u^.valeur:='^';u
00B5F0: 5E 2E 64 3A 3D 76 3B 75 5E 2E 67 3A 3D 66 5E 2E ^.d:=v;u^.g:=f^.
00B600: 64 3B 0D 0A 20 20 20 20 20 20 20 20 20 6E 65 77 d;.. new
00B610: 28 77 29 3B 77 5E 2E 6E 61 74 75 72 65 3A 3D 27 (w);w^.nature:='
00B620: 6E 6F 6D 62 72 65 27 3B 77 5E 2E 76 61 6C 65 75 nombre';w^.valeu
00B630: 72 3A 3D 27 31 27 3B 77 5E 2E 64 3A 3D 6E 69 6C r:='1';w^.d:=nil
00B640: 3B 77 5E 2E 67 3A 3D 6E 69 6C 3B 0D 0A 20 20 20 ;w^.g:=nil;..
00B650: 20 20 20 20 20 20 6E 65 77 28 73 29 3B 73 5E 2E new(s);s^.
00B660: 6E 61 74 75 72 65 3A 3D 27 70 6C 75 73 27 3B 73 nature:='plus';s
00B670: 5E 2E 76 61 6C 65 75 72 3A 3D 27 2B 27 3B 73 5E ^.valeur:='+';s^
00B680: 2E 67 3A 3D 77 3B 73 5E 2E 64 3A 3D 75 3B 0D 0A .g:=w;s^.d:=u;..
00B690: 20 20 20 20 20 20 20 20 20 70 5E 2E 6E 61 74 75 p^.natu
00B6A0: 72 65 3A 3D 27 64 69 76 69 73 65 27 3B 70 5E 2E re:='divise';p^.
00B6B0: 76 61 6C 65 75 72 3A 3D 27 2F 27 3B 70 5E 2E 67 valeur:='/';p^.g
00B6C0: 3A 3D 64 65 72 69 76 65 28 66 5E 2E 64 29 3B 70 :=derive(f^.d);p
00B6D0: 5E 2E 64 3A 3D 73 3B 0D 0A 20 20 20 20 20 20 20 ^.d:=s;..
00B6E0: 20 65 6E 64 0D 0A 20 20 20 20 20 20 20 20 65 6C end.. el
00B6F0: 73 65 0D 0A 20 20 20 20 20 20 69 66 20 66 5E 2E se.. if f^.
00B700: 76 61 6C 65 75 72 3D 27 61 72 63 73 69 6E 27 20 valeur='arcsin'
00B710: 74 68 65 6E 0D 0A 20 20 20 20 20 20 20 20 62 65 then.. be
00B720: 67 69 6E 20 20 6E 65 77 28 76 29 3B 76 5E 2E 6E gin new(v);v^.n
00B730: 61 74 75 72 65 3A 3D 27 6E 6F 6D 62 72 65 27 3B ature:='nombre';
00B740: 76 5E 2E 76 61 6C 65 75 72 3A 3D 27 32 27 3B 76 v^.valeur:='2';v
00B750: 5E 2E 64 3A 3D 6E 69 6C 3B 76 5E 2E 67 3A 3D 6E ^.d:=nil;v^.g:=n
00B760: 69 6C 3B 0D 0A 20 20 20 20 20 20 20 20 20 6E 65 il;.. ne
00B770: 77 28 75 29 3B 75 5E 2E 6E 61 74 75 72 65 3A 3D w(u);u^.nature:=
00B780: 27 70 75 69 73 73 27 3B 75 5E 2E 76 61 6C 65 75 'puiss';u^.valeu
00B790: 72 3A 3D 27 5E 27 3B 75 5E 2E 64 3A 3D 76 3B 75 r:='^';u^.d:=v;u
00B7A0: 5E 2E 67 3A 3D 66 5E 2E 64 3B 0D 0A 20 20 20 20 ^.g:=f^.d;..
00B7B0: 20 20 20 20 20 6E 65 77 28 77 29 3B 77 5E 2E 6E new(w);w^.n
00B7C0: 61 74 75 72 65 3A 3D 27 6E 6F 6D 62 72 65 27 3B ature:='nombre';
00B7D0: 77 5E 2E 76 61 6C 65 75 72 3A 3D 27 31 27 3B 77 w^.valeur:='1';w
00B7E0: 5E 2E 64 3A 3D 6E 69 6C 3B 77 5E 2E 67 3A 3D 6E ^.d:=nil;w^.g:=n
00B7F0: 69 6C 3B 0D 0A 20 20 20 20 20 20 20 20 20 6E 65 il;.. ne
00B800: 77 28 73 29 3B 73 5E 2E 6E 61 74 75 72 65 3A 3D w(s);s^.nature:=
00B810: 27 6D 6F 69 6E 73 27 3B 73 5E 2E 76 61 6C 65 75 'moins';s^.valeu
00B820: 72 3A 3D 27 2D 27 3B 73 5E 2E 67 3A 3D 77 3B 73 r:='-';s^.g:=w;s
00B830: 5E 2E 64 3A 3D 75 3B 0D 0A 20 20 20 20 20 20 20 ^.d:=u;..
00B840: 20 20 6E 65 77 28 72 29 3B 72 5E 2E 6E 61 74 75 new(r);r^.natu
00B850: 72 65 3A 3D 27 69 64 66 63 74 27 3B 72 5E 2E 76 re:='idfct';r^.v
00B860: 61 6C 65 75 72 3A 3D 27 73 71 72 74 27 3B 72 5E aleur:='sqrt';r^
00B870: 2E 67 3A 3D 6E 69 6C 3B 72 5E 2E 64 3A 3D 73 3B .g:=nil;r^.d:=s;
00B880: 0D 0A 20 20 20 20 20 20 20 20 20 70 5E 2E 6E 61 .. p^.na
00B890: 74 75 72 65 3A 3D 27 64 69 76 69 73 65 27 3B 70 ture:='divise';p
00B8A0: 5E 2E 76 61 6C 65 75 72 3A 3D 27 2F 27 3B 70 5E ^.valeur:='/';p^
00B8B0: 2E 67 3A 3D 64 65 72 69 76 65 28 66 5E 2E 64 29 .g:=derive(f^.d)
00B8C0: 3B 70 5E 2E 64 3A 3D 72 3B 0D 0A 20 20 20 20 20 ;p^.d:=r;..
00B8D0: 20 20 20 65 6E 64 0D 0A 20 20 20 20 20 20 20 20 end..
00B8E0: 65 6C 73 65 0D 0A 20 20 20 20 20 20 69 66 20 66 else.. if f
00B8F0: 5E 2E 76 61 6C 65 75 72 3D 27 61 72 63 63 6F 73 ^.valeur='arccos
00B900: 27 20 74 68 65 6E 0D 0A 20 20 20 20 20 20 20 20 ' then..
00B910: 62 65 67 69 6E 20 20 6E 65 77 28 76 29 3B 76 5E begin new(v);v^
00B920: 2E 6E 61 74 75 72 65 3A 3D 27 6E 6F 6D 62 72 65 .nature:='nombre
00B930: 27 3B 76 5E 2E 76 61 6C 65 75 72 3A 3D 27 32 27 ';v^.valeur:='2'
00B940: 3B 76 5E 2E 64 3A 3D 6E 69 6C 3B 76 5E 2E 67 3A ;v^.d:=nil;v^.g:
00B950: 3D 6E 69 6C 3B 0D 0A 20 20 20 20 20 20 20 20 20 =nil;..
00B960: 6E 65 77 28 75 29 3B 75 5E 2E 6E 61 74 75 72 65 new(u);u^.nature
00B970: 3A 3D 27 70 75 69 73 73 27 3B 75 5E 2E 76 61 6C :='puiss';u^.val
00B980: 65 75 72 3A 3D 27 5E 27 3B 75 5E 2E 64 3A 3D 76 eur:='^';u^.d:=v
00B990: 3B 75 5E 2E 67 3A 3D 66 5E 2E 64 3B 0D 0A 20 20 ;u^.g:=f^.d;..
00B9A0: 20 20 20 20 20 20 20 6E 65 77 28 77 29 3B 77 5E new(w);w^
00B9B0: 2E 6E 61 74 75 72 65 3A 3D 27 6E 6F 6D 62 72 65 .nature:='nombre
00B9C0: 27 3B 77 5E 2E 76 61 6C 65 75 72 3A 3D 27 31 27 ';w^.valeur:='1'
00B9D0: 3B 77 5E 2E 64 3A 3D 6E 69 6C 3B 77 5E 2E 67 3A ;w^.d:=nil;w^.g:
00B9E0: 3D 6E 69 6C 3B 0D 0A 20 20 20 20 20 20 20 20 20 =nil;..
00B9F0: 6E 65 77 28 73 29 3B 73 5E 2E 6E 61 74 75 72 65 new(s);s^.nature
00BA00: 3A 3D 27 6D 6F 69 6E 73 27 3B 73 5E 2E 76 61 6C :='moins';s^.val
00BA10: 65 75 72 3A 3D 27 2D 27 3B 73 5E 2E 67 3A 3D 77 eur:='-';s^.g:=w
00BA20: 3B 73 5E 2E 64 3A 3D 75 3B 0D 0A 20 20 20 20 20 ;s^.d:=u;..
00BA30: 20 20 20 20 6E 65 77 28 72 29 3B 72 5E 2E 6E 61 new(r);r^.na
00BA40: 74 75 72 65 3A 3D 27 69 64 66 63 74 27 3B 72 5E ture:='idfct';r^
00BA50: 2E 76 61 6C 65 75 72 3A 3D 27 73 71 72 74 27 3B .valeur:='sqrt';
00BA60: 72 5E 2E 67 3A 3D 6E 69 6C 3B 72 5E 2E 64 3A 3D r^.g:=nil;r^.d:=
00BA70: 73 3B 0D 0A 20 20 20 20 20 20 20 20 20 6E 65 77 s;.. new
00BA80: 28 71 29 3B 71 5E 2E 6E 61 74 75 72 65 3A 3D 27 (q);q^.nature:='
00BA90: 6E 6F 6D 62 72 65 27 3B 71 5E 2E 76 61 6C 65 75 nombre';q^.valeu
00BAA0: 72 3A 3D 27 2D 31 27 3B 71 5E 2E 67 3A 3D 6E 69 r:='-1';q^.g:=ni
00BAB0: 6C 3B 71 5E 2E 64 3A 3D 6E 69 6C 3B 0D 0A 20 20 l;q^.d:=nil;..
00BAC0: 20 20 20 6E 65 77 28 70 5E 2E 67 29 3B 70 5E 2E new(p^.g);p^.
00BAD0: 67 5E 2E 6E 61 74 75 72 65 3A 3D 27 6D 75 6C 74 g^.nature:='mult
00BAE0: 69 27 3B 70 5E 2E 67 5E 2E 76 61 6C 65 75 72 3A i';p^.g^.valeur:
00BAF0: 3D 27 2A 27 3B 70 5E 2E 67 5E 2E 67 3A 3D 64 65 ='*';p^.g^.g:=de
00BB00: 72 69 76 65 28 66 5E 2E 64 29 3B 0D 0A 20 20 20 rive(f^.d);..
00BB10: 20 20 70 5E 2E 67 5E 2E 64 3A 3D 71 3B 70 5E 2E p^.g^.d:=q;p^.
00BB20: 6E 61 74 75 72 65 3A 3D 27 64 69 76 69 73 65 27 nature:='divise'
00BB30: 3B 70 5E 2E 76 61 6C 65 75 72 3A 3D 27 2F 27 3B ;p^.valeur:='/';
00BB40: 70 5E 2E 64 3A 3D 72 3B 0D 0A 20 20 20 20 20 20 p^.d:=r;..
00BB50: 20 20 65 6E 64 0D 0A 20 20 20 20 20 20 20 20 65 end.. e
00BB60: 6C 73 65 0D 0A 20 20 20 20 20 20 20 20 62 65 67 lse.. beg
00BB70: 69 6E 20 70 3A 3D 6E 69 6C 3B 64 65 66 69 6E 69 in p:=nil;defini
00BB80: 3A 3D 66 61 6C 73 65 3B 20 65 6E 64 3B 0D 0A 20 :=false; end;..
00BB90: 20 20 65 6E 64 3B 0D 0A 20 20 20 65 6E 64 3B 0D end;.. end;.
00BBA0: 0A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
00BBB0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
00BBC0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
00BBD0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
00BBE0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
00BBF0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
00BC00: 20 20 20 20 20 20 65 6C 73 65 0D 0A 20 20 20 20 else..
00BC10: 20 20 69 66 20 66 5E 2E 76 61 6C 65 75 72 3D 27 if f^.valeur='
00BC20: 63 6F 73 27 20 74 68 65 6E 0D 0A 20 20 20 20 20 cos' then..
00BC30: 20 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 begin..
00BC40: 20 20 20 6E 65 77 28 76 29 3B 76 5E 2E 6E 61 74 new(v);v^.nat
00BC50: 75 72 65 3A 3D 27 69 64 66 63 74 27 3B 76 5E 2E ure:='idfct';v^.
00BC60: 76 61 6C 65 75 72 3A 3D 27 73 69 6E 27 3B 76 5E valeur:='sin';v^
00BC70: 2E 67 3A 3D 6E 69 6C 3B 76 5E 2E 64 3A 3D 66 5E .g:=nil;v^.d:=f^
00BC80: 2E 64 3B 0D 0A 20 20 20 20 20 20 20 20 20 6E 65 .d;.. ne
00BC90: 77 28 75 29 3B 75 5E 2E 6E 61 74 75 72 65 3A 3D w(u);u^.nature:=
00BCA0: 27 6D 75 6C 74 69 27 3B 75 5E 2E 76 61 6C 65 75 'multi';u^.valeu
00BCB0: 72 3A 3D 27 2A 27 3B 6E 65 77 28 75 5E 2E 67 29 r:='*';new(u^.g)
00BCC0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 75 5E 2E 67 ;.. u^.g
00BCD0: 5E 2E 6E 61 74 75 72 65 3A 3D 27 6E 6F 6D 62 72 ^.nature:='nombr
00BCE0: 65 27 3B 75 5E 2E 67 5E 2E 76 61 6C 65 75 72 3A e';u^.g^.valeur:
00BCF0: 3D 27 2D 31 27 3B 75 5E 2E 67 5E 2E 64 3A 3D 6E ='-1';u^.g^.d:=n
00BD00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00BD10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00BD20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00BD30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00BD40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00BD50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00BD60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00BD70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00BD80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00BD90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00BDA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00BDB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00BDC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00BDD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00BDE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00BDF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00BE00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00BE10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00BE20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00BE30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00BE40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00BE50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00BE60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00BE70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00BE80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00BE90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00BEA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00BEB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00BEC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00BED0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00BEE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00BEF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
00BF00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
00BF10: 0A 00 00 00 02 09 4E E5 0A 00 41 02 00 00 00 02 ......N...A.....
00BF20: 0A 00 42 02 00 00 00 02 0A 00 43 02 00 00 00 02 ..B.......C.....
00BF30: 0A 00 44 02 00 00 00 02 0A 00 45 02 00 00 00 02 ..D.......E.....
00BF40: 0A 00 46 02 00 00 00 02 0A 00 47 02 00 00 00 02 ..F.......G.....
00BF50: 0A 00 48 02 00 00 00 02 0A 00 49 02 00 00 00 02 ..H.......I.....
00BF60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BF70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BF80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BF90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BFA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BFB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BFC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BFD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BFE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00BFF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C000: C3 E2 20 CD AB 43 6F 70 79 72 69 67 68 74 20 28 .. ..Copyright (
00C010: 43 29 20 31 39 38 35 20 42 4F 52 4C 41 4E 44 20 C) 1985 BORLAND
00C020: 49 6E 63 00 04 00 A1 42 00 00 00 00 00 00 00 00 Inc....B........
00C030: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C040: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00C050: 00 00 00 06 5A 65 6E 69 74 68 64 65 72 20 43 50 ....Zenithder CP
00C060: 43 34 36 34 2F 36 36 34 50 18 00 00 1C 00 0D 0D C464/664P.......
00C070: 1C 01 01 01 1D 03 03 1B 1B 1B D5 00 1C 01 00 00 ................
00C080: 1C 00 17 17 1D 17 17 EF 9E CD BD 04 1B 59 00 00 .............Y..
00C090: 00 00 00 00 00 00 00 00 00 00 00 01 20 20 04 03 ............ ..
00C0A0: 00 00 02 1B 45 00 00 00 00 00 00 00 00 00 02 1B ....E...........
00C0B0: 4C 00 00 00 02 1B 4D 00 00 00 00 00 02 1B 4B 00 L.....M.......K.
00C0C0: 00 00 02 1B 71 00 00 00 02 1B 70 00 00 00 00 00 ....q.....p.....
00C0D0: 7E B7 37 C8 23 F5 E5 7E CD E8 01 E1 F1 3D C8 18 ~.7.#..~.....=..
00C0E0: F3 CD 00 02 0D 0A 00 C9 6F E5 CD A6 00 C9 FE 80 ........o.......
00C0F0: DC 6B 02 D4 84 02 E6 7F 18 EE E5 21 EE 01 18 04 .k.........!....
00C100: E5 21 E8 01 22 13 02 E1 E3 F5 C5 D5 7E 23 B7 28 .!..".......~#.(
00C110: 07 E5 CD E8 01 E1 18 F4 D1 C1 F1 E3 C9 7D B4 C8 .............}..
00C120: 3A 24 01 87 87 87 E3 E3 E3 E3 C5 01 D2 04 C1 3D :$.............=
00C130: 20 F4 2B 18 E8 CD D0 01 D8 2A CE 01 18 DF F5 C5 .+......*......
00C140: D5 E5 21 A8 01 CD 35 02 21 A2 01 CD D0 01 2A BA ..!...5.!.....*.
00C150: 01 D4 1D 02 E1 D1 C1 F1 C9 F5 C5 D5 E5 21 B4 01 .............!..
00C160: 18 E9 F5 C5 D5 E5 21 AE 01 18 E0 F5 3A E0 00 B7 ......!.....:...
00C170: 28 10 C5 D5 E5 AF 32 E0 00 21 C8 01 CD 35 02 E1 (.....2..!...5..
00C180: D1 C1 F1 C9 F5 3A E0 00 FE FF 28 F6 C5 D5 E5 3E .....:....(....>
00C190: FF 32 E0 00 21 C2 01 18 E3 F5 C5 D5 E5 21 BC 01 .2..!........!..
00C1A0: 18 DA F5 C5 D5 E5 E5 11 F0 00 21 8B 01 01 10 00 ..........!.....
00C1B0: ED B0 D1 3A 9E 01 4F 3A 9C 01 82 D5 CD DC 02 D1 ...:..O:........
00C1C0: 3A 9F 01 4F 3A 9D 01 83 CD DC 02 21 F0 00 CD D0 :..O:......!....
00C1D0: 01 2A A0 01 CD 1D 02 E1 D1 C1 F1 C9 21 F0 00 06 .*..........!...
00C1E0: 00 09 EB 21 9B 01 34 35 28 02 12 C9 1B 1B 21 0A ...!..45(.....!.
00C1F0: 03 06 03 2B 0E 2F 0C 96 30 FC 86 F5 79 FE 30 28 ...+./..0...y.0(
00C200: 01 12 13 F1 10 ED C9 01 0A 64 21 6B 01 C3 35 02 .........d!k..5.
00C210: 21 7B 01 C3 35 02 11 03 00 CD 5F 03 E6 01 18 06 !{..5....._.....
00C220: 11 06 00 CD 5F 03 6F 26 00 C9 11 12 00 18 F4 11 ...._.o&........
00C230: 0C 00 18 08 11 0F 00 18 03 11 09 00 E1 C1 E5 3A ...............:
00C240: DD 00 B7 28 1A D5 C5 CD A0 00 7C B5 28 0F CD E1 ...(......|.(...
00C250: 03 FE 13 20 08 CD E1 03 FE 03 CA D4 20 C1 D1 2A ... ........ ..*
00C260: 01 00 19 E9 22 D2 00 78 32 DD 00 79 B7 28 0B 3E ...."..x2..y.(.>
00C270: C3 32 38 00 21 FB 1F 22 39 00 21 A5 03 11 A0 00 .28.!.."9.!.....
00C280: 01 18 00 ED B0 21 BD 03 11 B8 00 01 0C 00 ED B0 .....!..........
00C290: AF 6F 67 32 D0 00 22 D4 00 22 D6 00 3E 7E 32 D1 .og2..".."..>~2.
00C2A0: 00 32 E0 00 C9 C3 16 03 C3 20 03 C3 39 03 C3 2F .2....... ..9../
00C2B0: 03 C3 34 03 C3 2A 03 C3 39 03 C3 20 03 C1 00 82 ..4..*..9.. ....
00C2C0: 00 43 00 C4 00 C5 00 C1 00 C5 D5 E5 DD E5 FD E5 .C..............
00C2D0: F5 6F 26 00 E5 CD A6 00 F1 FD E1 DD E1 E1 D1 C1 .o&.............
00C2E0: C9 C5 D5 E5 DD E5 FD E5 CD A3 00 7D 18 EB 0E FF .........£.}....
00C2F0: 18 0C 0E 00 ED 5B D2 00 13 1A FE 20 28 FA 21 65 .....[..... (.!e
00C300: 00 06 03 CD 7B 04 1A CD A6 04 FE 41 38 12 FE 51 ....{......A8..Q
00C310: 30 0E 47 13 1A FE 3A 20 06 78 D6 40 13 18 02 1B 0.G...: .x.@....
00C320: AF 21 5C 00 77 23 0C 0D 28 19 1A CD 82 04 20 13 .!\.w#..(..... .
00C330: FE 3F 28 0F FE 2A 28 0B FE 2E 28 07 06 0B CD 77 .?(..*(...(....w
00C340: 04 18 10 06 08 CD 5E 04 1A FE 2E 20 06 13 06 03 ......^.... ....
00C350: CD 5E 04 21 68 00 06 18 36 00 23 10 FB C9 1A 0C .^.!h...6.#.....
00C360: 0D 28 08 FE 3F 28 09 FE 2A 28 0B CD 82 04 28 0B .(..?(..*(....(.
00C370: 77 23 13 10 E9 C9 13 3E 3F 18 02 3E 20 77 23 10 w#.....>?..> w#.
00C380: FC C9 CD A6 04 FE 20 38 0D E5 C5 21 98 04 01 0E ...... 8...!....
00C390: 00 ED B1 C1 E1 C9 BF C9 20 2E 2C 3B 3A 3D 3F 2A ........ .,;:=?*
00C3A0: 5B 5D 3C 3E 7B 7D FE 61 D8 FE 7B D0 D6 20 C9 7C []<>{}.a..{.. .|
00C3B0: CD B4 04 7D F5 1F 1F 1F 1F CD BD 04 F1 E6 0F C6 ...}............
00C3C0: 90 27 CE 40 27 C3 C9 03 AF 37 CB 7C C0 7C B7 7D .'.@'....7.|.|.}
00C3D0: C8 3E FF C9 32 D8 00 C5 CD AF 1E C1 2A 06 00 B7 .>..2.......*...
00C3E0: ED 42 DA A8 20 EB D1 F9 01 00 FC 09 22 C6 00 AF .B.. ......."...
00C3F0: 6F 67 22 CE 00 32 DC 00 3E C3 32 D9 00 21 DE 20 og"..2..>.2..!.
00C400: 22 DA 00 EB 22 CC 00 E9 E5 2A C6 00 B7 ED 42 22 "..."....*....B"
00C410: C6 00 ED 5B C4 00 B7 ED 52 19 EB E1 DA 75 1D ED ...[....R....u..
00C420: B0 C9 2A C6 00 ED B0 22 C6 00 D9 C9 5E 23 56 23 ..*...."....^#V#
00C430: D5 5E 23 56 23 4E 23 46 E1 C9 DD E1 EB 1A 4F 06 .^#V#N#F......O.
00C440: 00 2F 6F 26 FF 39 F9 EB 03 ED B0 DD E9 D1 1A 4F ./o&.9.........O
00C450: 06 00 2F 6F 26 FF 39 F9 EB 03 ED B0 E9 DD E1 EB ../o&.9.........
00C460: 21 E0 FF 39 F9 EB C5 04 05 28 05 AF 12 13 10 FC !..9.....(......
00C470: ED B0 C1 3E 20 90 91 28 06 47 AF 12 13 10 FC DD ...> ..(.G......
00C480: E9 DD E1 21 E0 FF 39 F9 06 20 AF 77 23 10 FC DD ...!..9.. .w#...
00C490: E9 DD E1 45 CD BA 05 B6 77 DD E9 DD E1 D1 7D 93 ...E....w.....}.
00C4A0: 38 F7 3C 4F 43 CD BA 05 5F 41 AF B3 CB 23 30 06 8.<OC..._A...#0.
00C4B0: B6 77 23 AF 1E 01 10 F3 18 DD 78 E6 F8 0F 0F 0F .w#.......x.....
00C4C0: C6 02 6F 26 00 39 78 E6 07 3C 47 AF 37 17 10 FD ..o&.9x..<G.7...
00C4D0: C9 E5 D9 EB E3 73 23 72 23 D1 73 23 72 23 71 23 .....s#r#.s#r#q#
00C4E0: 70 C9 DD E1 78 EB 21 00 00 44 39 4E E5 09 23 E3 p...x.!..D9N..#.
00C4F0: B9 38 01 79 12 13 23 B7 28 03 4F ED B0 E1 F9 DD .8.y..#.(.O.....
00C500: E9 DD E1 78 21 00 00 44 39 4E E5 09 23 5E 23 56 ...x!..D9N..#^#V
00C510: 18 DC DD E1 EB 68 26 00 44 39 ED B0 21 20 00 39 .....h&.D9..! .9
00C520: F9 DD E9 DD E1 21 20 00 39 5E 23 56 68 26 00 44 .....! .9^#Vh&.D
00C530: 39 ED B0 21 22 00 18 E7 DD E1 EB 78 2F 6F 26 FF 9..!"......x/o&.
00C540: 39 F9 70 23 48 06 00 EB ED B0 DD E9 B7 ED 52 19 9.p#H.........R.
00C550: D8 3E 90 C3 27 20 B7 ED 52 B7 ED 42 30 03 09 19 .>..' ..R..B0...
00C560: C9 3E 91 C3 27 20 B7 ED 52 EB 13 EA 71 06 F0 18 .>..' ..R...q...
00C570: 01 F8 11 00 00 C9 D5 EB B7 ED 52 EB E1 18 EB B7 ..........R.....
00C580: ED 52 21 01 00 C8 2B C9 CD DF 0B 18 F5 CD B0 09 .R!...+.........
00C590: 18 F0 B7 ED 52 21 01 00 C0 2B C9 CD DF 0B 18 F5 ....R!...+......
00C5A0: CD B0 09 18 F0 CD 72 07 21 01 00 D0 2B C9 CD DF ......r.!...+...
00C5B0: 0B 18 F5 CD B0 09 18 F0 CD 72 07 21 01 00 C8 D8 .........r.!....
00C5C0: 2B C9 CD DF 0B 18 F4 CD B0 09 18 EF CD 72 07 21 +............r.!
00C5D0: 00 00 C8 D8 23 C9 CD DF 0B 18 F4 CD B0 09 18 EF ....#...........
00C5E0: CD 72 07 21 01 00 D8 2B C9 CD DF 0B 18 F5 CD B0 .r.!...+........
00C5F0: 09 18 F0 54 5D 4B 42 EB 21 00 00 7A B7 3E 10 20 ...T]KB.!..z.>.
00C600: 03 53 3E 08 29 EB 29 EB 30 01 09 3D 20 F6 C9 7C .S>.).).0..= ..|
00C610: B5 CA 03 0A 7C AA F5 CD 80 07 EB CD 80 07 EB 44 ....|..........D
00C620: 4D AF 67 6F 3E 11 ED 6A ED 42 30 02 09 37 3F CB M.go>..j.B0..7?.
00C630: 13 CB 12 3D 20 F0 EB F1 F0 18 48 E5 CD 92 07 CB ...= .....H.....
00C640: 3C CB 1D D1 EB CD 0F 07 EB CB 7A C8 18 35 CD 61 <.........z..5.a
00C650: 07 C8 29 10 FD C9 CD 61 07 C8 CB 3C CB 1D 10 FA ..)....a...<....
00C660: C9 EB 7A B7 20 08 7B FE 10 30 03 47 B7 C9 AF 67 ..z. .{..0.G...g
00C670: 6F C9 EB 7C AA 7C FA 7E 07 BA C0 7D BB C9 17 C9 o..|.|.~...}....
00C680: CB 7C C8 7C 2F 67 7D 2F 6F 23 C9 7D E6 01 6F 26 .|.|/g}/o#.}..o&
00C690: 00 C9 ED 4B CA 00 ED 5B C8 00 C5 D5 78 41 4A 53 ...K...[....xAJS
00C6A0: 1E 00 1F CB 18 CB 19 CB 1A CB 1B E1 19 EB E1 ED ................
00C6B0: 4A 44 4D 21 E9 62 19 22 C8 00 EB 21 19 36 ED 4A JDM!.b."...!.6.J
00C6C0: 22 CA 00 44 4D C9 06 00 11 10 27 CD E2 07 11 E8 "..DM.....'.....
00C6D0: 03 CD E2 07 11 64 00 CD E2 07 1E 0A CD E2 07 7D .....d.........}
00C6E0: 18 0D AF 3C ED 52 30 FB 19 04 3D 20 02 05 C8 C6 ...<.R0...= ....
00C6F0: 30 DD 77 00 DD 23 C9 DD 7E 00 D6 24 4F 21 00 00 0.w..#..~..$O!..
00C700: 20 02 DD 23 DD 7E 00 CD A6 04 D6 30 38 29 FE 0A ..#.~.....08)..
00C710: 38 0E 0C 0D 20 21 D6 07 FE 0A 38 1B FE 10 30 17 8... !....8...0.
00C720: 54 5D 29 D8 29 D8 0C 0D 20 02 54 5D 19 D8 29 D8 T]).)... .T]..).
00C730: 5F 16 00 19 D8 18 CB 79 B7 C8 7C 87 C9 DD E1 E1 _......y..|.....
00C740: E5 7D 26 00 23 39 4E 81 38 1C 77 EB 21 00 00 44 .}&.#9N.8.w.!..D
00C750: ED 42 39 F9 EB E5 03 ED B0 EB E1 2B 1B 4F 03 ED .B9........+.O..
00C760: B8 EB 23 F9 DD E9 3E 10 C3 29 20 DD E1 CD C8 04 ..#...>..) .....
00C770: 57 E1 CD DD 09 5F E1 E5 7D 93 38 1A 14 15 28 16 W...._..}.8...(.
00C780: BA 38 16 4A 06 00 60 39 7B 82 54 5D 3D 6F 60 39 .8.J..`9{.T]=o`9
00C790: 79 ED B8 EB 18 09 AF 18 03 3C 6B 2D 26 00 39 77 y........<k-&.9w
00C7A0: F9 DD E9 DD E1 E1 E5 7D 26 00 23 39 F9 6F 26 00 .......}&.#9.o&.
00C7B0: DD E9 DD E1 21 00 00 54 39 5E 4B 23 E5 19 5E 43 ....!..T9^K#..^C
00C7C0: 23 E5 19 E5 FD E1 D1 E1 79 90 38 10 3C 4F C5 D5 #.......y.8.<O..
00C7D0: E5 1A BE 28 0C E1 D1 C1 23 0D 20 F2 21 00 00 18 ...(....#. .!...
00C7E0: 0E 23 13 10 EC D1 E1 C1 21 00 00 39 EB ED 52 FD .#......!..9..R.
00C7F0: F9 DD E9 DD E1 CD C8 04 4F E1 CD DD 09 5F E1 7E ........O...._.~
00C800: 93 38 1B 0C 0D 28 17 91 38 12 F5 7E 91 77 06 00 .8...(..8..~.w..
00C810: 50 19 54 5D 09 F1 3C 4F ED B0 18 02 1D 73 DD E9 P.T]..<O.....s..
00C820: DD E1 CD DD 09 4F D1 ED 53 E8 00 21 00 00 39 1A .....O..S..!..9.
00C830: F5 86 38 03 B8 38 01 78 12 F1 57 5E 91 38 2F 3C ..8..8.x..W^.8/<
00C840: 6F 7A 83 38 04 B8 7D 38 08 78 93 38 26 91 38 23 oz.8..}8.x.8&.8#
00C850: 3C B7 28 1F C5 D5 2A E8 00 5F 1D 16 00 42 19 09 <.(...*.._...B..
00C860: D1 D5 E5 50 19 EB E1 4F ED B8 D1 C1 18 05 7A 3C ...P...O......z<
00C870: 28 19 4F 78 91 3C BB 38 01 7B B7 28 0E 2A E8 00 (.Ox.<.8.{.(.*..
00C880: 06 00 09 EB 21 01 00 39 4F ED B0 21 00 00 54 39 ....!..9O..!..T9
00C890: 5E 13 19 F9 DD E9 DD E1 E1 2D C2 66 08 6C 26 00 ^........-.f.l&.
00C8A0: DD E9 21 02 00 54 39 5E 13 19 7E 36 01 23 77 C9 ..!..T9^..~6.#w.
00C8B0: 21 04 00 54 39 5E 4B 23 E5 19 5E 43 23 E5 19 E5 !..T9^K#..^C#...
00C8C0: FD E1 D1 E1 AF B8 28 04 B9 20 08 78 B9 E1 D1 FD ......(.. .x....
00C8D0: F9 D5 E9 1A BE 20 F6 23 13 05 0D 18 E7 7C B7 20 ..... .#.....|.
00C8E0: 03 7D B7 C0 3E 11 C3 29 20 CD 0D 0A D0 3E 01 C3 .}..>..) ....>..
00C8F0: 27 20 CD 81 0A 18 F5 CD AC 0F CD 97 0A 18 ED D9 ' ..............
00C900: 7D B7 D9 3E 02 CA 27 20 CD F5 0A 18 DF D9 CB 78 }..>..' .......x
00C910: D9 C2 88 0A D9 7D B7 D9 C8 D9 C5 D5 E5 D9 7D B7 .....}........}.
00C920: 20 05 D9 CB B8 18 54 C5 CB F8 AF 08 D9 CB F8 7D .....T........}
00C930: D9 95 28 13 30 06 ED 44 08 3D 08 D9 CD 7A 0B 2C ..(.0..D.=...z.,
00C940: 3D 20 F9 08 28 01 D9 F1 E6 80 20 0F CD 92 0B 30 = ..(..... ....0
00C950: 25 CD 7B 0B B7 2C 20 1E 37 18 20 CD C6 0B 3F F5 %.{.., .7. ...?.
00C960: 28 10 38 01 D9 CD AC 0B CB 78 20 09 CD 86 0B 2D (.8......x ....-
00C970: 20 F6 CD 72 0B F1 38 02 CB B8 B7 D9 E1 D1 C1 D9 ..r..8.........
00C980: C9 D9 CB 78 D9 C2 14 0A CD 8F 0A CD 14 0A D8 2C ...x...........,
00C990: 2D C8 78 EE 80 47 C9 D9 7D B7 D9 CA 72 0B 7D B7 -.x..G..}...r.}.
00C9A0: C8 D9 85 D9 CD 4D 0B C5 D5 E5 DD 39 CD 72 0B D9 .....M.....9.r..
00C9B0: 2E 05 D9 3E 08 DD 23 DD 6E 00 08 CB 1D 30 03 CD ...>..#.n....0..
00C9C0: 92 0B CD 7B 0B 08 3D 20 F1 D9 2D D9 20 E5 DD 6E ...{..= ..-. ..n
00C9D0: FB CB 78 20 09 08 CD 87 0B 2C 2D 28 01 2D F1 F1 ..x .....,-(.-..
00C9E0: F1 B7 08 F1 D9 C1 E1 D9 DD E1 CB B8 B0 47 2C 2D .............G,-
00C9F0: CC 72 0B 08 C9 7D B7 C8 D9 95 D9 3F CD 4D 0B E5 .r...}.....?.M..
00CA00: E5 E5 DD 39 D9 2E 05 D9 3E 08 08 CD C6 0B 38 03 ...9....>.....8.
00CA10: CD AC 0B 3F CB 15 08 3D 20 0C DD 75 05 DD 2B D9 ...?...= ..u..+.
00CA20: 2D D9 28 0E 3E 08 CD 86 0B 30 DF 08 CD AC 0B B7 -.(.>....0......
00CA30: 18 E1 CD 86 0B 38 04 CD C6 0B 3F E1 D1 C1 CB 78 .....8....?....x
00CA40: 20 05 CD 87 0B 18 9A 2C 20 97 37 18 95 38 06 C6 ......, .7..8..
00CA50: 80 38 06 18 1B C6 80 38 17 6F DD E3 D9 E5 C5 78 .8.....8.o.....x
00CA60: CB F8 D9 A8 E6 80 F5 CB F8 DD E5 DD 21 00 00 C9 ............!...
00CA70: E1 D8 AF 6F 47 4F 57 5F 67 C9 B7 CB 18 CB 19 CB ...oGOW_g.......
00CA80: 1A CB 1B CB 1C C9 B7 CB 14 CB 13 CB 12 CB 11 CB ................
00CA90: 10 C9 7C D9 84 D9 67 7B D9 8B D9 5F 7A D9 8A D9 ..|...g{..._z...
00CAA0: 57 79 D9 89 D9 4F 78 D9 88 D9 47 C9 7C D9 94 D9 Wy...Ox...G.|...
00CAB0: 67 7B D9 9B D9 5F 7A D9 9A D9 57 79 D9 99 D9 4F g{..._z...Wy...O
00CAC0: 78 D9 98 D9 47 C9 78 D9 B8 D9 C0 79 D9 B9 D9 C0 x...G.x....y....
00CAD0: 7A D9 BA D9 C0 7B D9 BB D9 C0 7C D9 BC D9 C9 D9 z....{....|.....
00CAE0: 78 D9 A8 F2 E9 0B 78 17 C9 CB 78 28 06 CD F3 0B x.....x...x(....
00CAF0: C8 3F C9 7D D9 BD D9 C0 B7 C8 C3 C6 0B 7D D6 81 .?.}.........}..
00CB00: DA 72 0B 3C FE 28 D0 D9 C5 D5 E5 08 CD 72 0B 08 .r.<.(.......r..
00CB10: 37 CD 7B 0B 3D 20 F9 D9 7C D9 A4 D9 67 7B D9 A3 7.{.= ..|...g{.£
00CB20: D9 5F 7A D9 A2 D9 57 79 D9 A1 D9 4F 78 D9 A0 D9 ._z...Wy...Ox...
00CB30: 47 C3 7B 0A D9 C5 D5 E5 D9 CD AC 0F D9 CD FD 0B G.{.............
00CB40: D9 CD 81 0A 18 EB 7D B7 C8 CB 78 3E 03 C2 27 20 ......}...x>..'
00CB50: CD AC 0F 7D C6 80 CB 2F C6 80 6F D6 14 F5 D9 C5 ...}.../..o.....
00CB60: D5 E5 CD F5 0A CD 0D 0A 2D C5 D5 E5 CD 81 0A 7D ........-......}
00CB70: E1 D1 C1 D9 E1 D1 C1 E3 BC E3 30 E3 F1 D9 C9 D9 ..........0.....
00CB80: CD 8E 0F 2D CD 81 0A D9 CD 8E 0F 2C D9 7D FE 6C ...-.......,.}.l
00CB90: D8 C5 CB B8 CD DF 0B C1 38 09 CD F5 0A CD 34 0C ........8.....4.
00CBA0: CD 97 0A CB 78 28 03 CD 0D 0A D9 2D D9 CD DF 0B ....x(.....-....
00CBB0: F5 38 03 CD 81 0A D9 2D D9 CD DF 0B 38 05 D9 2C .8.....-....8..,
00CBC0: CD 81 0A 7D FE 6C 38 3B D9 01 AA 2A 11 AA AA 21 ...}.l8;...*...!
00CBD0: 7F AA CD 97 0A DD E5 DD 21 07 0D 3E 05 CD 34 0F ........!..>..4.
00CBE0: DD E1 CD AC 0F CD 97 0A CD 97 0A C5 D5 E5 D9 CD ................
00CBF0: AC 0F 2D 2D D9 2D CD 0D 0A D9 E1 D1 C1 D9 CD 81 ..--.-..........
00CC00: 0A 2C 2C F1 2C 2D C8 D8 78 EE 80 47 C9 67 AA 3F .,,.,-..x..G.g.?
00CC10: 2B 32 D7 6E B6 2A 1D EF 38 74 0D D0 00 0D D0 7A +2.n.*..8t.....z
00CC20: 88 88 88 88 08 7E AB AA AA AA AA 2C 2D 3E 04 CA .....~.....,->..
00CC30: 27 20 CB 78 C2 27 20 D9 CD 98 0F D9 7D 2E 81 95 ' .x.' .....}...
00CC40: F5 CD F5 0A D9 CD 86 0F D9 CD 81 0A C5 D5 E5 D9 ................
00CC50: 2C CD 0D 0A D9 E1 D1 C1 CD F5 0A DD E5 DD 21 8C ,.............!.
00CC60: 0D 3E 06 CD 34 0F DD E1 2C D9 CD A2 0F 2D D9 CD .>..4...,....-..
00CC70: 0D 0A F1 C5 D5 E5 6F 26 00 30 01 25 CD 08 10 D9 ......o&.0.%....
00CC80: 2C CD 97 0A D9 E1 D1 C1 CD 0D 0A 7D FE 67 DA 72 ,..........}.g.r
00CC90: 0B C9 7D 8A 9D D8 89 1D 7D E9 A2 8B 2E 3A 7D 8E ..}.....}....:}.
00CCA0: E3 38 8E 63 7E 49 92 24 49 12 7E CD CC CC CC 4C .8.c~I.$I.~....L
00CCB0: 7F AB AA AA AA 2A D9 CD A2 0F D9 B7 CB 78 F5 CB .....*.......x..
00CCC0: B8 CD F5 0A 7D FE 88 30 47 C5 D5 E5 2C CD D0 0F ....}..0G...,...
00CCD0: E5 CB 3C CB 1D 7D E1 F5 CD 08 10 2C 2D 28 01 2D ..<..}.....,-(.-
00CCE0: D9 F1 E1 D1 C1 F5 CD 81 0A DD E5 DD 21 10 0E 3E ............!..>
00CCF0: 08 CD 49 0F DD E1 F1 30 0A F5 D9 CD 98 0F D9 CD ..I....0........
00CD00: 97 0A F1 85 6F 38 09 F1 C8 D9 CD 86 0F C3 F5 0A ....o8..........
00CD10: E1 3E 01 C3 27 20 6D 2E 1D 11 60 31 70 46 2C FE .>..' m...`1pF,.
00CD20: E5 7F 74 36 7C 89 84 21 77 53 3C FF C3 2E 7A D2 ..t6|..!wS<...z.
00CD30: 7D 5B 95 1D 7C 25 B8 46 58 63 7E 16 FC EF FD 75 }[..|%.FXc~....u
00CD40: 80 D2 F7 17 72 31 7D B7 C8 DD E5 D9 CD 86 0F D9 ....r1}.........
00CD50: AF CB 78 28 03 3C CB B8 F5 CD DF 0B 38 08 D9 CD ..x(.<......8...
00CD60: F5 0A F1 CB FF F5 D9 01 CF 06 11 8E E9 21 7E 4A .............!~J
00CD70: D9 CD DF 0B 30 05 CD 2E 0F 18 4F DD 21 CE 0E 3E ....0.....O.!..>
00CD80: 02 08 D9 11 12 00 DD 19 CD 73 0F D9 CD DF 0B 38 .........s.....8
00CD90: 0B 08 3D 20 EC D9 11 0C 00 DD 19 D9 D9 CD 6E 0F ..= ..........n.
00CDA0: CB F8 CD 0D 0A C5 D5 E5 CD 73 0F CD 97 0A D9 CD .........s......
00CDB0: 86 0F CD 0D 0A D9 E1 D1 C1 CD F5 0A DD E5 CD 2E ................
00CDC0: 0F DD E1 D9 CD 6E 0F CD 0D 0A F1 17 30 0A F5 D9 .....n......0...
00CDD0: CD 8E 0F 2D CD 81 0A F1 DD E1 CB 4F C8 CB F8 C9 ...-.......O....
00CDE0: 7F E7 CF CC 13 54 7F F6 F4 A2 30 09 7F 6A C1 91 .....T....0..j..
00CDF0: 0A 06 80 B5 9E 8A 6F 44 80 82 2C 3A CD 13 80 6A ......oD..,:...j
00CE00: C1 91 0A 06 81 00 00 00 00 00 80 21 A2 DA 0F 49 ...........!...I
00CE10: 7D E8 A2 8B 2E BA 7D 8E E3 38 8E 63 7E 49 92 24 }.....}..8.c~I.$
00CE20: 49 92 7E CD CC CC CC 4C 7F AB AA AA AA AA DD 21 I.~....L.......!
00CE30: 0A 0F 3E 05 C5 D5 E5 F5 CD AC 0F CD 97 0A F1 CD ..>.............
00CE40: 49 0F D9 E1 D1 C1 C3 97 0A F5 D9 CD 6E 0F 18 10 I...........n...
00CE50: F5 D9 C5 D5 E5 CD 6E 0F CD 0D 0A D9 E1 D1 C1 D9 ......n.........
00CE60: CD 97 0A F1 3D 20 E9 D9 CD 86 0F C3 0D 0A 11 06 ....= ..........
00CE70: 00 DD 19 DD 6E 00 DD 66 01 DD 5E 02 DD 56 03 DD ....n..f..^..V..
00CE80: 4E 04 DD 46 05 C9 21 81 00 44 4C 54 5C C9 01 0F N..F..!..DLT\...
00CE90: 49 11 A2 DA 21 82 21 C9 01 04 35 11 33 F3 21 81 I...!.!...5.3.!.
00CEA0: FA C9 01 72 31 11 F7 17 21 80 D2 C9 C5 D5 E5 D9 ...r1...!.......
00CEB0: E1 D1 C1 C9 CD 92 07 21 80 00 3E 20 CB 78 20 0D .......!..> .x .
00CEC0: CB 23 CB 12 CB 11 CB 10 2D 3D 20 F0 6F CB B8 C9 .#......-= .o...
00CED0: CB 78 D9 CD 86 0F 28 02 CB F8 2D CD 0D 0A B7 CB .x....(...-.....
00CEE0: 7D 28 1C CB 78 08 CB F8 3E 8F BD 38 16 28 06 CD }(..x...>..8.(..
00CEF0: 7A 0B 2C 18 F3 CD 7A 0B 08 60 69 C8 C3 83 07 21 z.,...z..`i....!
00CF00: 00 00 C9 3E 92 C3 27 20 7C B5 CA 72 0B CB 7C 08 ...>..' |..r..|.
00CF10: CD 80 07 3E 90 29 3D CB 7C 28 FA 44 4D 11 00 00 ...>.)=.|(.DM...
00CF20: 62 6F 08 C0 CB B8 C9 CD C8 04 EB 1E 00 38 04 FE bo...........8..
00CF30: 19 38 18 1D CD C8 04 D9 CB 78 D9 16 07 28 01 14 .8.......x...(..
00CF40: 92 30 01 AF FE 09 38 02 3E 09 3C 57 D5 D9 FD 21 .0....8.>.<W...!
00CF50: 5D 00 DD E5 CD EB 10 DD E1 D1 4F 7A 3C CB 7B 20 ].........Oz<.{
00CF60: 10 81 F2 6B 10 FD 36 00 00 18 0B FE 0C 38 02 3E ...k..6......8.>
00CF70: 0B D5 CD 80 11 D1 CB 78 28 05 3E 2D CD E5 10 CB .......x(.>-....
00CF80: 7B 28 03 61 0E 00 CB 79 28 05 CD E3 10 18 07 CD {(.a...y(.......
00CF90: D9 10 0D F2 8F 10 7A B7 28 17 3E 2E CD E5 10 0C ......z.(.>.....
00CFA0: 28 06 CD E3 10 15 20 F7 15 FA B1 10 CD D9 10 18 (..... .........
00CFB0: F7 CB 7B C8 3E 45 CD E5 10 3E 2B CB 7C 28 06 7C ..{.>E...>+.|(.|
00CFC0: ED 44 67 3E 2D CD E5 10 7C 06 2F 04 D6 0A 30 FB .Dg>-...|./...0.
00CFD0: C6 3A DD 70 00 DD 23 18 0C FD 7E 00 FD 23 B7 20 .:.p..#...~..#.
00CFE0: 04 FD 2B 3E 30 DD 77 00 DD 23 C9 FD E5 2C 2D 20 ..+>0.w..#...,-
00CFF0: 0E 06 0C FD 36 00 30 FD 23 10 F8 AF C3 7D 11 C5 ....6.0.#....}..
00D000: CB B8 7D D9 D6 80 6F 9F 67 11 4D 00 CD F5 06 11 ..}...o.g.M.....
00D010: 05 00 19 7C FE D9 20 01 3C FD 77 00 ED 44 CD 40 ...|.. .<.w..D.@
00D020: 12 7D FE 81 30 06 CD B3 12 FD 35 00 CB F8 3E 84 .}..0.....5...>.
00D030: 95 2E 00 28 08 CD 7A 0B CB 1D 3D 20 F8 FD 7E 00 ...(..z...= ..~.
00D040: F5 3E 0C 08 78 1F 1F 1F 1F E6 0F C6 30 FD 77 00 .>..x.......0.w.
00D050: FD 23 78 E6 0F 47 C5 D5 E5 CB 25 CD 87 0B CB 25 .#x..G....%....%
00D060: CD 87 0B EB E3 19 D1 E3 ED 5A EB E1 E3 ED 4A 44 .........Z....JD
00D070: 4D E1 CB 25 CD 87 0B 08 3D 20 C8 F1 C1 FD E1 C9 M..%....= ......
00D080: FD E5 E1 5F 16 00 19 7E 36 00 FE 35 D8 1D FA 9C ..._...~6..5....
00D090: 11 2B 7E 3C 77 FE 3A D8 36 00 18 F1 36 31 23 36 .+~<w.:.6...61#6
00D0A0: 00 0C C9 D9 01 00 00 D9 CD 72 0B DD 7E 00 CD A6 .........r..~...
00D0B0: 04 FE 2E 20 0C D9 CB 70 37 C0 CB F0 D9 DD 23 18 ... ...p7.....#.
00D0C0: EA FE 45 28 21 CD 39 12 30 54 08 CD B3 12 D8 08 ..E(!.9.0T......
00D0D0: D9 C5 6F 26 00 CD 08 10 CD E9 09 D9 C1 D8 CB 70 ..o&...........p
00D0E0: 28 01 0D D9 18 D7 CD 1E 12 D8 D9 CB E0 DD 23 DD (.............#.
00D0F0: 7E 00 FE 2B 28 06 FE 2D 20 04 CB E8 DD 23 CD 36 ~..+(..- ....#.6
00D100: 12 3F D8 4F DD 23 CD 36 12 30 0A DD 23 57 79 87 .?.O.#.6.0..#Wy.
00D110: 87 81 87 82 4F CB 68 28 04 79 ED 44 4F D9 D9 79 ....O.h(.y.DO..y
00D120: C6 80 FE 5A D8 FE A6 3F D8 C5 DD E5 79 CD 40 12 ...Z...?....y.@.
00D130: DD E1 D9 C1 D9 C9 DD 7E 00 D6 30 3F D0 FE 0A C9 .......~..0?....
00D140: F5 B7 F2 47 12 ED 44 F5 CB 3F CB 3F 3C 21 FA FF ...G..D..?.?<!..
00D150: 11 06 00 19 3D 20 FC EB DD 21 77 12 DD 19 CD 73 ....= ...!w....s
00D160: 0F F1 E6 03 28 08 F5 CD B3 12 F1 3D 20 F8 F1 B7 ....(......= ...
00D170: F2 97 0A D9 C3 F5 0A 81 00 00 00 00 00 8E 00 00 ................
00D180: 00 40 1C 9B 00 00 20 BC 3E A8 00 10 A5 D4 68 B6 .@.... .>.....h.
00D190: 04 BF C9 1B 0E C3 AC C5 EB 78 2D D0 CD CE 1B C2 .........x-.....
00D1A0: 53 DE F9 78 39 3F 01 EB 2B A8 AD C5 1D F8 C9 7B S..x9?..+......{
00D1B0: CE 97 40 7D B7 C8 CB F8 C5 D5 7C CD 7A 0B CD 7A ..@}......|.z..z
00D1C0: 0B 84 67 E3 ED 5A EB E1 E3 ED 4A 44 4D E1 30 06 ..g..Z....JDM.0.
00D1D0: CD 7B 0B 2C 37 C8 7D C6 03 6F CB B8 C9 0E 01 18 .{.,7.}..o......
00D1E0: 02 0E 00 CD 3F 13 1A BE 20 08 23 13 10 F8 79 EE ....?... .#...y.
00D1F0: 01 4F 21 40 00 39 F9 69 26 00 DD E9 0E 01 18 02 .O!@.9.i&.......
00D200: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
00D210: 0B 00 00 00 02 09 4E E5 0B 00 41 02 00 00 00 02 ......N...A.....
00D220: 0B 00 42 02 00 00 00 02 0B 00 43 02 00 00 00 02 ..B.......C.....
00D230: 0B 00 44 02 00 00 00 02 0B 00 45 02 00 00 00 02 ..D.......E.....
00D240: 0B 00 46 02 00 00 00 02 0B 00 47 02 00 00 00 02 ..F.......G.....
00D250: 0B 00 48 02 00 00 00 02 0B 00 49 02 00 00 00 02 ..H.......I.....
00D260: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D270: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D280: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D290: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D2A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D2B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D2C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D2D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D2E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D2F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00D300: 0E 00 CD 3F 13 0D 20 01 EB 0E 00 1A B6 BE 20 E2 ...?.. ....... .
00D310: 23 13 10 F7 0E 01 18 DA CD 3F 13 1A B6 77 23 13 #........?...w#.
00D320: 10 F9 EB F9 DD E9 CD 3F 13 1A 2F A6 77 23 13 10 .......?../.w#..
00D330: F8 18 EF CD 3F 13 1A A6 77 23 13 10 F9 18 E3 FD ....?...w#......
00D340: E1 DD E1 21 00 00 39 EB 21 20 00 45 39 FD E9 DD ...!..9.! .E9...
00D350: E1 21 21 00 39 7E B7 28 03 AF 18 06 2B 46 CD BA .!!.9~.(....+F..
00D360: 05 A6 21 22 00 39 F9 21 00 00 28 01 23 DD E9 3E ..!".9.!..(.#..>
00D370: AF 32 E8 00 FD E1 2A D2 00 06 10 CD E2 05 AF 12 .2....*.........
00D380: E1 22 E2 00 FD E5 7C B7 20 06 3E 22 32 D0 00 C9 ."....|. .>"2...
00D390: 3A E8 00 B7 28 0A CD B6 13 20 05 2A E2 00 77 C9 :...(.... .*..w.
00D3A0: CD F2 03 2A E2 00 36 00 11 0C 00 19 EB 21 5C 00 ...*..6......!\.
00D3B0: 01 24 00 ED B0 C9 06 06 21 E6 13 C5 E5 06 03 ED .$......!.......
00D3C0: 5B D2 00 13 1A FE 20 28 FA 1A CD A6 04 96 28 0A [..... (......(.
00D3D0: E1 C1 11 04 00 19 10 E3 B7 C9 23 13 10 EB C1 C1 ..........#.....
00D3E0: 1A FE 3A C0 7E C9 43 4F 4E C1 54 52 4D C1 4B 42 ..:.~.CON.TRM.KB
00D3F0: 44 82 4C 53 54 43 41 55 58 C4 55 53 52 C5 3E AF D.LSTCAUX.USR.>.
00D400: 32 E8 00 CD 69 14 3A D0 00 B7 C0 2A E2 00 CB AE 2...i.:....*....
00D410: 7E E6 0F C0 CD 30 14 3A D0 00 B7 C0 2A E2 00 3A ~....0.:....*..:
00D420: E8 00 B7 01 80 80 28 03 01 40 00 71 23 23 70 C9 ......(..@.q##p.
00D430: CD 5A 14 2A E2 00 11 0C 00 19 EB 3A E8 00 B7 01 .Z.*.......:....
00D440: 0F 01 28 0A D5 0E 13 CD 05 00 D1 01 16 F1 C5 CD ..(.............
00D450: 05 00 C1 3C C0 78 32 D0 00 C9 2A E2 00 11 18 00 ...<.x2...*.....
00D460: 19 06 18 36 00 23 10 FB C9 22 E2 00 7E E6 0F C0 ...6.#..."..~...
00D470: CB 76 28 0A 3E 1A CD C6 16 CD 0C 17 18 03 CB 7E .v(.>..........~
00D480: C8 2A E2 00 E5 11 0C 00 19 EB 0E 10 CD 05 00 E1 .*..............
00D490: 3C 20 05 3E FF 32 D0 00 36 00 C9 E3 22 E4 00 E3 < .>.2..6..."...
00D4A0: E5 21 C2 00 22 E2 00 E1 C9 E3 22 E4 00 E3 22 E2 .!.."....."...".
00D4B0: 00 CB 7E C0 3E 02 32 D0 00 C9 E3 22 E4 00 E3 22 ..~.>.2...."..."
00D4C0: E2 00 CB 76 C0 3E 03 32 D0 00 C9 3E AF E3 22 E4 ...v.>.2...>..".
00D4D0: 00 E3 E5 21 C2 00 22 E2 00 CB AE F5 CD E8 14 F1 ...!..".........
00D4E0: B7 28 03 CD E1 01 E1 C9 06 00 21 D1 00 7E FE 7F .(........!..~..
00D4F0: 38 02 3E 7E 4F 36 7E 2A D2 00 22 D4 00 16 00 CD 8.>~O6~*..".....
00D500: E1 03 77 1E 01 FE 08 28 36 FE 7F 28 32 1D FE 18 ..w....(6..(2...
00D510: 28 2D FE 1B 28 29 FE 1A 28 36 FE 0D 28 38 FE 20 (-..()..(6..(8.
00D520: 30 11 FE 03 20 D9 3A DD 00 B7 28 D3 DD 2A E4 00 0... .:...(..*..
00D530: C3 16 20 79 BA 28 C8 7E 14 23 CD C9 03 18 C0 15 .. y.(.~.#......
00D540: FA FD 14 2B CD 00 02 08 20 08 00 1D 28 B1 18 EF ...+.... ...(...
00D550: 04 05 28 AB 18 04 04 05 20 04 36 1A 18 08 CD E1 ..(..... .6.....
00D560: 01 36 0D 23 36 0A 23 22 D6 00 C9 2A E2 00 3A D0 .6.#6.#"...*..:.
00D570: 00 B7 20 79 7E CB 6F 20 70 E6 0F 20 2E 23 23 7E .. y~.o p.. .##~
00D580: B7 F2 97 15 0E 14 E5 CD BA 19 E1 28 08 E5 11 2E ...........(....
00D590: 00 19 36 1A E1 AF 77 34 C6 2E 5F 16 00 19 7E FE ..6...w4.._...~.
00D5A0: 1A 20 3D 2A E2 00 23 23 35 18 35 3D 20 1B 2A D4 . =*..##5.5= .*.
00D5B0: 00 ED 5B D6 00 B7 ED 52 38 05 06 FF CD EA 14 2A ..[....R8......*
00D5C0: D4 00 7E 23 22 D4 00 18 17 3D 20 06 CD A3 00 7D ..~#"....= ..£.}
00D5D0: 18 0E 3D 3D 20 06 CD AF 00 7D 18 04 CD B5 00 7D ..== ....}.....}
00D5E0: 2A E2 00 CB EE 23 77 2B C9 23 7E 2B C9 3E 1A C9 *....#w+.#~+.>..
00D5F0: E5 2A E2 00 7E E6 0F FE 06 28 27 CD 6B 15 FE 21 .*..~....('.k..!
00D600: 30 08 FE 1A 28 04 CB AE 18 F1 11 5D 00 06 1E C5 0...(......]....
00D610: D5 CD 6B 15 D1 C1 FE 21 38 06 CB AE 12 13 10 EF ..k....!8.......
00D620: AF 12 E1 C9 DD 21 5D 00 DD 7E 00 B7 C8 06 00 FE .....!]..~......
00D630: 2D C0 04 DD 23 C9 38 05 DD 7E 00 B7 C8 3E 10 32 -...#.8..~...>.2
00D640: D0 00 37 C9 E5 CD 6B 15 CB AE E1 77 C9 3E AF 4F ..7...k....w.>.O
00D650: C5 CD F0 15 C1 CD 24 16 C8 C5 E5 CD F7 07 D1 C1 ......$.........
00D660: CD 36 16 D8 05 CC 83 07 EB 73 0C 0D 20 02 23 72 .6.......s.. .#r
00D670: EB C9 CD F0 15 CD 24 16 C8 C5 E5 CD A3 11 D9 E1 ......$.....£...
00D680: C1 CD 36 16 D8 05 D9 CC 8F 0A D9 C3 D1 05 E5 EB ..6.............
00D690: 0E 00 C5 D5 CD 6B 15 D1 C1 FE 0D 28 0B FE 1A 28 .....k.....(...(
00D6A0: 07 CB AE 0C 13 12 10 EA E1 71 C9 CD 6B 15 FE 1A .........q..k...
00D6B0: 28 13 CB AE FE 0A 28 0D FE 0D 20 EF CD 6B 15 FE (.....(... ..k..
00D6C0: 0A 20 02 CB AE C9 2A E2 00 4F 3A D0 00 B7 C0 7E . ....*..O:....~
00D6D0: E6 0F 20 10 23 23 E5 7E C6 2E 5F 16 00 19 71 E1 .. .##.~.._...q.
00D6E0: 34 F0 18 28 FE 06 28 15 E1 06 00 C5 E5 3D CA A6 4..(..(......=..
00D6F0: 00 3D 3D CA A9 00 3D CA AC 00 C3 B2 00 2A E8 00 .==...=......*..
00D700: 3A EA 00 BE C8 34 5E 16 00 19 71 C9 2A E2 00 23 :....4^...q.*..#
00D710: 23 7E B7 C8 36 00 0E 15 CD BA 19 C8 3E F0 32 D0 #~..6.......>.2.
00D720: 00 C9 7D C3 C6 16 C1 D1 C5 DD 2A D2 00 CB 7C 28 ..}.......*...|(
00D730: 06 CD 83 07 EB 18 0E EB CB 7C 28 09 CD 83 07 DD .........|(.....
00D740: 36 00 2D DD 23 D5 CD C6 07 E1 CD C8 04 ED 5B D2 6.-.#.........[.
00D750: 00 DD E5 E1 B7 ED 52 4D EB 91 38 0E 28 0C 47 E5 ......RM..8.(.G.
00D760: 3E 20 C5 CD C6 16 C1 10 F7 E1 41 04 05 C8 7E C5 > ........A...~.
00D770: E5 CD C6 16 E1 C1 23 18 F3 C1 D1 D9 E1 D1 C1 D9 ......#.........
00D780: C5 DD 2A D2 00 D5 CD 27 10 18 BE C1 D1 C5 CD C8 ..*....'........
00D790: 04 CB 43 21 A1 17 0E 04 20 BF 21 A5 17 0E 05 18 ..C!.... .!.....
00D7A0: B8 54 52 55 45 46 41 4C 53 45 CD C8 04 21 02 00 .TRUEFALSE...!..
00D7B0: 39 4E 23 CD 59 17 D1 F9 D5 C9 E1 7E 23 B7 28 0C 9N#.Y......~#.(.
00D7C0: 47 7E C5 E5 CD C6 16 E1 C1 23 10 F5 E9 3E 0D CD G~.......#...>..
00D7D0: C6 16 3E 0A C3 C6 16 11 0D 01 18 0D 11 0D 00 18 ..>.............
00D7E0: 08 11 1A 01 18 03 11 1A 00 22 E2 00 CB 7E 28 1C ........."...~(.
00D7F0: D5 CD 6B 15 D1 BB 28 10 FE 1A 28 0C FE 21 30 0C ..k...(...(..!0.
00D800: 14 15 28 08 CB AE 18 E8 21 01 00 C9 21 00 00 C9 ..(.....!...!...
00D810: 3E AF 32 E8 00 ED 53 E6 00 CD 7A 18 3A D0 00 B7 >.2...S...z.:...
00D820: C0 CD 30 14 3A D0 00 B7 C0 2A E2 00 36 D0 23 23 ..0.:....*..6.##
00D830: 77 11 06 00 19 77 23 77 11 24 00 19 77 23 77 11 w....w#w.$..w#w.
00D840: D6 FF 19 3A E8 00 B7 20 1B E5 01 04 00 AF CD 09 ...:... ........
00D850: 19 E1 23 23 4E 23 46 2A E6 00 B7 ED 42 C8 3E 90 ..##N#F*....B.>.
00D860: 32 D0 00 C9 E5 AF 77 23 77 23 ED 5B E6 00 73 23 2.....w#w#.[..s#
00D870: 72 E1 01 04 00 3E 03 C3 09 19 22 E2 00 7E E6 C0 r....>...."..~..
00D880: C8 CD AE 19 2A E2 00 11 2D 00 19 AF 77 23 77 11 ....*...-...w#w.
00D890: D4 FF 19 77 23 23 01 04 00 3E 01 CD 09 19 CD AE ...w##...>......
00D8A0: 19 C3 81 14 E3 22 E4 00 E3 22 E2 00 7E E6 C0 C0 ....."..."..~...
00D8B0: 3E 04 32 D0 00 C9 3A D0 00 B7 C0 E5 CD 5A 1A EB >.2...:......Z..
00D8C0: B7 ED 52 E1 30 10 AF CD 09 19 2A E2 00 11 08 00 ..R.0.....*.....
00D8D0: 19 34 C0 23 34 C9 3E 99 32 D0 00 C9 3A D0 00 B7 .4.#4.>.2...:...
00D8E0: C0 E5 CD 5A 1A B7 ED 52 3E 01 20 10 2A E2 00 11 ...Z...R>. .*...
00D8F0: 04 00 19 34 20 04 23 34 28 08 3E 03 E1 CD 09 19 ...4 .#4(.>.....
00D900: 18 C8 E1 3E F2 32 D0 00 C9 32 E9 00 EB 2A E2 00 ...>.2...2...*..
00D910: CB 66 28 2F CB A6 3A E9 00 CB 47 28 18 23 23 7E .f(/..:...G(.##~
00D920: 2B 2B B7 20 10 3A E9 00 CB 4F 20 17 78 B7 20 13 ++. .:...O .x. .
00D930: 79 B7 FA 43 19 C5 D5 0E 21 CD BA 19 D1 C1 20 51 y..C....!..... Q
00D940: 2A E2 00 3A E9 00 CB 47 28 02 CB EE 23 23 7E C6 *..:...G(...##~.
00D950: 2E D5 5F 16 00 19 D1 D6 2E CD 9A 19 ED A0 E2 66 .._............f
00D960: 19 3C F2 5C 19 3D 3C CD 9A 19 2A E2 00 23 23 E6 .<.\.=<...*..##.
00D970: 7F 77 20 16 C5 D5 E5 CD AE 19 E1 D1 C1 20 15 D5 .w .......... ..
00D980: 11 2B 00 19 D1 34 20 02 23 34 78 B1 C2 0D 19 EB .+...4 .#4x.....
00D990: C9 3E 99 01 3E F0 32 D0 00 C9 F5 3A E9 00 CB 47 .>..>.2....:...G
00D9A0: 28 01 EB F1 C9 22 E2 00 CD AE 19 C8 18 E6 0E 22 (...."........."
00D9B0: 2A E2 00 CB E6 CB 6E C8 CB AE 2A E2 00 E5 C5 11 *.....n...*.....
00D9C0: 30 00 19 EB 0E 1A CD 05 00 C1 E1 11 0C 00 19 EB 0...............
00D9D0: CD 05 00 B7 C9 C1 D1 ED 53 E2 00 C5 E5 CD 5A 1A ........S.....Z.
00D9E0: D1 B7 ED 52 38 40 2A E2 00 01 06 00 09 4E 23 46 ...R8@*......N#F
00D9F0: 23 73 23 72 CD 2C 1A 01 04 00 09 30 01 13 7D E6 #s#r.,.....0..}.
00DA00: 7F 29 EB ED 6A EB 53 5C 2A E2 00 23 23 77 01 2B .)..j.S\*..##w.+
00DA10: 00 09 4E 23 46 EB B7 ED 42 09 C8 D5 E5 CD AE 19 ..N#F...B.......
00DA20: D1 E1 72 2B 73 C9 3E 91 32 D0 00 C9 D5 D9 E1 D9 ..r+s.>.2.......
00DA30: 21 00 00 54 5D 3E 10 29 EB ED 6A EB D9 29 D9 30 !..T]>.)..j..).0
00DA40: 04 09 30 01 13 3D 20 EF C9 CD 5D 1A B7 ED 52 21 ..0..= ...]...R!
00DA50: 00 00 C0 23 C9 CD 5D 1A EB C9 2A E2 00 11 04 00 ...#..]...*.....
00DA60: 19 5E 23 56 23 D5 4E 23 46 23 5E 23 56 E1 C9 3E .^#V#.N#F#^#V..>
00DA70: AF 32 E8 00 CD B0 1A 3A D0 00 B7 C0 CD 30 14 3A .2.....:.....0.:
00DA80: D0 00 B7 C0 2A E2 00 36 C0 E5 11 0C 00 19 EB 0E ....*..6........
00DA90: 23 CD 05 00 E1 11 2D 00 19 AF 4E 77 23 46 77 11 #.....-...Nw#Fw.
00DAA0: D6 FF 19 71 23 70 23 36 80 23 77 23 77 23 77 C9 ...q#p#6.#w#w#w.
00DAB0: 22 E2 00 7E E6 C0 C8 C3 81 14 3E 22 18 02 3E 21 "..~......>"..>!
00DAC0: 44 4D 21 F0 00 22 E6 00 DD E1 D1 E1 DD E5 C5 CD DM!.."..........
00DAD0: FD 1A C1 3A D0 00 B7 C0 2A F0 00 ED 42 C8 3A E9 ...:....*...B.:.
00DAE0: 00 FE 21 3E 99 28 02 3E F0 32 D0 00 C9 3E 22 18 ..!>.(.>.2...>".
00DAF0: 02 3E 21 22 E6 00 DD E1 C1 D1 E1 DD E5 32 E9 00 .>!".........2..
00DB00: 22 E2 00 7E E6 C0 CA B0 18 2A E6 00 AF 77 23 77 "..~.....*...w#w
00DB10: 78 B1 28 39 C5 D5 0E 1A CD 05 00 2A E2 00 11 0C x.(9.......*....
00DB20: 00 19 EB 3A E9 00 4F CD 05 00 D1 C1 B7 20 1E D5 ...:..O...... ..
00DB30: 2A E2 00 11 2D 00 19 34 20 02 23 34 D1 21 80 00 *...-..4 .#4.!..
00DB40: 19 EB 2A E6 00 34 20 02 23 34 0B 18 C3 2A E2 00 ..*..4 .#4...*..
00DB50: 11 2D 00 19 4E 23 46 11 DA FF 19 71 23 70 11 FC .-..N#F....q#p..
00DB60: FF 19 56 2B 5E EB B7 ED 42 D0 EB 71 23 70 C9 C1 ..V+^...B..q#p..
00DB70: D1 ED 53 E2 00 C5 E5 CD 5A 1A D1 B7 ED 52 DA 26 ..S.....Z....R.&
00DB80: 1A 2A E2 00 01 08 00 09 73 23 72 01 24 00 09 73 .*......s#r.$..s
00DB90: 23 72 C9 CD 4C 1C C0 11 0C 00 19 EB 0E 13 CD 05 #r..L...........
00DBA0: 00 3C C0 18 3F FD E1 2A D2 00 06 10 CD E2 05 AF .<..?..*........
00DBB0: 12 E1 FD E5 CD 4C 1C C0 E5 CD F2 03 E1 E5 11 1C .....L..........
00DBC0: 00 19 EB 21 5C 00 01 0C 00 ED B0 E1 11 0C 00 19 ...!\...........
00DBD0: E5 EB 0E 17 CD 05 00 D1 3C 28 09 21 5C 00 01 24 ........<(.!\..$
00DBE0: 00 ED B0 C9 3E 01 32 D0 00 C9 3E AF 32 E8 00 CD ....>.2...>.2...
00DBF0: 4C 1C C0 3A D8 00 B7 3E 21 28 EB 2A E2 00 11 0C L..:...>!(.*....
00DC00: 00 19 11 5C 00 01 24 00 ED B0 11 5C 00 0E 0F CD ...\..$....\....
00DC10: 05 00 3C 28 CF 21 33 1C 11 B0 00 01 19 00 ED B0 ..<(.!3.........
00DC20: 11 00 01 3A E8 00 B7 20 04 ED 5B 01 01 31 00 01 ...:... ..[..1..
00DC30: C3 B0 00 D5 0E 1A CD 05 00 11 5C 00 0E 14 CD 05 ..........\.....
00DC40: 00 D1 21 80 00 19 EB B7 28 E9 18 37 22 E2 00 7E ..!.....(..7"..~
00DC50: E6 0F C8 3E 20 32 D0 00 C9 22 E6 00 ED 53 E8 00 ...> 2..."...S..
00DC60: EB E1 22 E2 00 4E 73 23 46 72 EB B7 ED 42 28 5A .."..Ns#Fr...B(Z
00DC70: EB 23 11 5C 00 3A DC 00 12 13 01 0B 00 ED B0 06 .#.\.:..........
00DC80: 18 AF 12 13 10 FC E5 11 5C 00 0E 0F CD 05 00 D1 ........\.......
00DC90: 3C 28 3F 2A E6 00 22 7D 00 ED 4B E8 00 C5 D5 0E <(?*.."}..K.....
00DCA0: 1A CD 05 00 11 5C 00 0E 21 CD 05 00 D1 C1 B7 20 .....\..!......
00DCB0: 21 2A 7D 00 23 22 7D 00 21 80 00 19 EB 0B 78 B1 !*}.#"}.!.....x.
00DCC0: 20 DB 11 5C 00 0E 10 CD 05 00 2A E2 00 11 0D 00 ..\......*.....
00DCD0: 19 E9 DD 2A E2 00 3E F0 C3 29 20 CD C8 04 FE 11 ...*..>..) .....
00DCE0: D0 32 DC 00 C9 22 F0 00 EB E1 E3 22 F2 00 13 13 .2..."....."....
00DCF0: 13 7B E6 FC 5F 21 DE 00 22 F8 00 DD 2A DE 00 DD .{.._!.."...*...
00DD00: 6E 02 DD 66 03 7D B4 28 48 ED 52 30 0F DD 6E 00 n..f.}.(H.R0..n.
00DD10: DD 66 01 E5 DD 22 F8 00 DD E1 18 E3 20 0A DD 5E .f..."...... ..^
00DD20: 00 DD 56 01 DD E5 18 1B 4D 44 DD 6E 00 DD 66 01 ..V.....MD.n..f.
00DD30: DD E5 DD 19 DD 75 00 DD 74 01 DD 71 02 DD 70 03 .....u..t..q..p.
00DD40: DD E5 D1 2A F8 00 73 23 72 D1 2A F2 00 73 23 72 ...*..s#r.*..s#r
00DD50: C9 DD E5 E1 19 22 C4 00 2A F0 00 01 04 00 09 DD ....."..*.......
00DD60: E5 C1 09 DA 75 1D ED 4B C6 00 ED 42 01 00 00 21 ....u..K...B...!
00DD70: 00 00 DA 30 1D 3E FF C3 27 20 EB E1 E3 7E 23 66 ...0.>..' ...~#f
00DD80: 6F 13 13 13 7B E6 FC 5F EB 22 F0 00 2A DE 00 E5 o...{.._."..*...
00DD90: DD E1 B7 ED 52 30 52 DD 6E 00 DD 66 01 E5 B7 ED ....R0R.n..f....
00DDA0: 52 30 04 DD E1 18 F0 E1 D5 FD E1 ED 4B F0 00 FD R0..........K...
00DDB0: 71 02 FD 70 03 FD 75 00 FD 74 01 DD 73 00 DD 72 q..p..u..t..s..r
00DDC0: 01 DD E5 E1 DD 4E 02 DD 46 03 CD 04 1E 28 09 DD .....N..F....(..
00DDD0: 5E 00 DD 56 01 D5 DD E1 DD E5 E1 DD 4E 02 DD 46 ^..V........N..F
00DDE0: 03 DD 5E 00 DD 56 01 18 1B 2A DE 00 ED 53 DE 00 ..^..V...*...S..
00DDF0: D5 DD E1 DD 75 00 DD 74 01 ED 4B F0 00 DD 71 02 ....u..t..K...q.
00DE00: DD 70 03 EB 09 B7 ED 52 C0 D5 FD E1 2A C4 00 B7 .p.....R....*...
00DE10: ED 52 28 1B FD 7E 00 DD 77 00 FD 7E 01 DD 77 01 .R(..~..w..~..w.
00DE20: FD 6E 02 FD 66 03 09 DD 75 02 DD 74 03 AF C9 DD .n..f...u..t....
00DE30: E5 E1 22 C4 00 06 04 36 00 23 10 FB C9 CD 4B 1E .."....6.#....K.
00DE40: 2A F4 00 C9 CD 4B 1E 2A F6 00 C9 21 00 00 22 F4 *....K.*...!..".
00DE50: 00 22 F6 00 DD 2A DE 00 DD 4E 02 DD 46 03 79 B0 ."...*...N..F.y.
00DE60: 28 1E 2A F4 00 09 22 F4 00 2A F6 00 B7 ED 42 30 (.*..."..*....B0
00DE70: 04 ED 43 F6 00 DD 6E 00 DD 66 01 E5 DD E1 18 D8 ..C...n..f......
00DE80: 2A C6 00 01 FB FF 09 ED 5B C4 00 B7 ED 52 D8 EB *.......[....R..
00DE90: 2A F4 00 19 22 F4 00 2A F6 00 B7 ED 52 D0 ED 53 *..."..*....R..S
00DEA0: F6 00 C9 ED 5B C4 00 73 23 72 C9 5E 23 56 EB 22 ....[..s#r.^#V."
00DEB0: C4 00 22 DE 00 06 04 36 00 23 10 FB C9 3E AF 4F .."....6.#...>.O
00DEC0: 22 E8 00 AF 77 32 D0 00 78 32 EA 00 2A E2 00 22 "...w2..x2..*.."
00DED0: ED 00 21 46 1F 22 E2 00 E1 22 E4 00 E1 0C 0D 20 ..!F."...".....
00DEE0: 05 CD 26 17 18 03 CD 79 17 2A ED 00 22 E2 00 2A ..&....y.*.."..*
00DEF0: E4 00 E9 3E AF 32 EC 00 22 E8 00 2A E2 00 22 ED ...>.2.."..*..".
00DF00: 00 21 46 1F 22 E2 00 E1 22 E4 00 E1 22 EA 00 21 .!F."..."..."..!
00DF10: 5C 00 06 1E CD E2 05 AF 12 2A EA 00 3A EC 00 B7 \........*..:...
00DF20: 20 05 CD 4E 16 18 03 CD 72 16 21 D0 00 7E 36 00 ..N....r.!..~6.
00DF30: B7 67 6F 28 08 DD E5 E1 11 5C 00 ED 52 EB 2A E8 .go(.....\..R.*.
00DF40: 00 73 23 72 18 A3 C6 00 ED 5F 32 CB 00 C9 EB DD .s#r.£..._2.....
00DF50: E1 C1 E1 78 B1 28 0B 73 0B 78 B1 28 05 54 5D 13 ...x.(.s.x.(.T].
00DF60: ED B0 DD E9 44 4D DD E1 D1 E1 78 B1 28 F4 ED 52 ....DM....x.(..R
00DF70: 19 30 ED 0B 09 EB 09 EB 03 ED B8 DD E9 55 14 15 .0...........U..
00DF80: 28 03 CD 9D 1F DD E1 4F 06 00 2F 6F 26 FF 39 F9 (......O../o&.9.
00DF90: 71 23 EB 0C 0D 28 02 ED B0 DD E9 16 00 21 80 00 q#...(.......!..
00DFA0: 3E 1F 46 B8 30 02 06 1F 23 0E 00 04 05 28 0D 7E >.F.0...#....(.~
00DFB0: FE 20 28 04 FE 09 20 04 23 05 18 EF 5D 04 05 28 . (... .#...]..(
00DFC0: 0D 7E FE 20 28 08 FE 09 28 04 23 05 18 EF 7D 93 .~. (...(.#...}.
00DFD0: 28 04 0C 15 20 D5 69 26 00 54 C9 D1 C1 D5 2D 61 (... .i&.T....-a
00DFE0: 25 C3 A2 02 7D CD A6 04 6F C9 2A 01 00 19 19 19 %...}...o.*.....
00DFF0: E9 21 D0 00 7E 36 00 6F 26 00 C9 CD 16 03 7C B5 .!..~6.o&.....|.
00E000: C8 3A DD 00 F5 AF 32 DD 00 CD 20 03 F1 32 DD 00 .:....2... ..2..
00E010: 7D FE 03 C0 DD E1 11 01 00 18 11 3A D0 00 B7 C8 }..........:....
00E020: DD E1 5F 16 01 18 05 DD E1 5F 16 02 D5 CD 7A 03 .._......_....z.
00E030: D1 AF 32 DD 00 2A CE 00 7C B5 DD E5 E1 ED 4B CC ..2..*..|.....K.
00E040: 00 ED 42 01 15 00 09 22 CE 00 B7 20 07 D5 D5 E5 ..B...."... ....
00E050: CD D9 00 D1 7A B7 20 14 CD 00 02 5E 43 0D 0A 55 ....z. ....^C..U
00E060: 73 65 72 20 62 72 65 61 6B 00 18 2B 3D 20 0B CD ser break..+= ..
00E070: 00 02 0D 0A 49 2F 4F 00 18 0E CD 00 02 0D 0A 52 ....I/O........R
00E080: 75 6E 2D 74 69 6D 65 00 CD 00 02 20 65 72 72 6F un-time.... erro
00E090: 72 20 00 7B CD B4 04 CD 00 02 2C 20 50 43 3D 00 r .{......, PC=.
00E0A0: 2A CE 00 CD AF 04 18 15 CD 00 02 4E 6F 74 20 65 *..........Not e
00E0B0: 6E 6F 75 67 68 20 6D 65 6D 6F 72 79 00 CD 00 02 nough memory....
00E0C0: 0D 0A 50 72 6F 67 72 61 6D 20 61 62 6F 72 74 65 ..Program aborte
00E0D0: 64 0D 0A 00 3A D8 00 B7 CA 8E 27 C3 00 00 E1 D1 d...:.....'.....
00E0E0: D1 E9 31 00 01 21 C2 F2 01 00 FF CD 64 03 21 16 ..1..!......d.!.
00E0F0: A1 11 BE EC 01 42 F3 3E 01 CD D4 04 C3 CB A0 00 .....B.>........
00E100: 20 20 20 20 20 20 20 69 66 20 66 5E 2E 76 61 6C if f^.val
00E110: 65 75 72 3D 27 63 6F 73 27 20 74 68 65 6E 20 63 eur='cos' then c
00E120: 61 6C 63 75 6C 3A 3D 63 6F 73 28 6E 62 72 65 29 alcul:=cos(nbre)
00E130: 20 65 6C 73 65 0D 0A 20 20 20 20 20 20 20 20 20 else..
00E140: 20 20 20 20 20 20 20 69 66 20 66 5E 2E 76 61 6C if f^.val
00E150: 65 75 72 3D 27 73 69 6E 27 20 74 68 65 6E 20 63 eur='sin' then c
00E160: 61 6C 63 75 6C 3A 3D 73 69 6E 28 6E 62 72 65 29 alcul:=sin(nbre)
00E170: 20 65 6C 73 65 0D 0A 20 20 20 20 20 20 20 20 20 else..
00E180: 20 20 20 20 20 20 20 69 66 20 66 5E 2E 76 61 6C if f^.val
00E190: 65 75 72 3D 27 74 61 6E 67 27 20 74 68 65 6E 20 eur='tang' then
00E1A0: 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 20 begin..
00E1B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00E1C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 i
00E1D0: 66 20 63 6F 73 28 6E 62 72 65 29 3D 30 20 74 68 f cos(nbre)=0 th
00E1E0: 65 6E 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 en begin..
00E1F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00E200: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00E210: 20 20 20 20 20 64 65 66 69 6E 69 3A 3D 66 61 6C defini:=fal
00E220: 73 65 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 se;..
00E230: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00E240: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00E250: 67 6F 74 6F 20 66 69 6E 63 61 6C 63 75 6C 3B 0D goto fincalcul;.
00E260: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
00E270: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00E280: 20 20 20 20 20 20 20 20 20 20 20 20 65 6E 64 20 end
00E290: 65 6C 73 65 0D 0A 20 20 20 20 20 20 20 20 20 20 else..
00E2A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00E2B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 c
00E2C0: 61 6C 63 75 6C 3A 3D 73 69 6E 28 6E 62 72 65 29 alcul:=sin(nbre)
00E2D0: 2F 63 6F 73 28 6E 62 72 65 29 0D 0A 20 20 20 20 /cos(nbre)..
00E2E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00E2F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00E300: 20 20 20 20 20 20 65 6E 64 0D 0A 20 20 20 20 20 end..
00E310: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00E320: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00E330: 20 20 20 20 20 65 6C 73 65 0D 0A 20 20 20 20 20 else..
00E340: 20 20 20 20 20 20 20 20 20 20 20 69 66 20 66 5E if f^
00E350: 2E 76 61 6C 65 75 72 3D 27 69 6E 74 27 20 74 68 .valeur='int' th
00E360: 65 6E 20 63 61 6C 63 75 6C 3A 3D 69 6E 74 28 6E en calcul:=int(n
00E370: 62 72 65 29 20 65 6C 73 65 0D 0A 20 20 20 20 20 bre) else..
00E380: 20 20 20 20 20 20 20 20 20 20 20 69 66 20 66 5E if f^
00E390: 2E 76 61 6C 65 75 72 3D 27 61 62 73 27 20 74 68 .valeur='abs' th
00E3A0: 65 6E 20 63 61 6C 63 75 6C 3A 3D 61 62 73 28 6E en calcul:=abs(n
00E3B0: 62 72 65 29 20 65 6C 73 65 0D 0A 20 20 20 20 20 bre) else..
00E3C0: 20 20 20 20 20 20 20 20 20 20 20 69 66 20 66 5E if f^
00E3D0: 2E 76 61 6C 65 75 72 3D 27 61 72 63 74 61 6E 27 .valeur='arctan'
00E3E0: 20 74 68 65 6E 20 63 61 6C 63 75 6C 3A 3D 61 72 then calcul:=ar
00E3F0: 63 74 61 6E 28 6E 62 72 65 29 20 65 6C 73 65 0D ctan(nbre) else.
00E400: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
00E410: 20 69 66 20 66 5E 2E 76 61 6C 65 75 72 3D 27 65 if f^.valeur='e
00E420: 78 70 27 20 74 68 65 6E 20 63 61 6C 63 75 6C 3A xp' then calcul:
00E430: 3D 65 78 70 28 6E 62 72 65 29 20 65 6C 73 65 0D =exp(nbre) else.
00E440: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
00E450: 20 69 66 20 66 5E 2E 76 61 6C 65 75 72 3D 27 6C if f^.valeur='l
00E460: 6E 27 20 74 68 65 6E 0D 0A 20 20 20 20 20 20 20 n' then..
00E470: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00E480: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00E490: 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6E 0D begin.
00E4A0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
00E4B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00E4C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00E4D0: 20 20 69 66 20 6E 62 72 65 3C 3D 30 20 74 68 65 if nbre<=0 the
00E4E0: 6E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 n..
00E4F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00E500: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
00E510: 0C 00 00 00 02 09 4E E5 0C 00 41 02 00 00 00 02 ......N...A.....
00E520: 0C 00 42 02 00 00 00 02 0C 00 43 02 00 00 00 02 ..B.......C.....
00E530: 0C 00 44 02 00 00 00 02 0C 00 45 02 00 00 00 02 ..D.......E.....
00E540: 0C 00 46 02 00 00 00 02 0C 00 47 02 00 00 00 02 ..F.......G.....
00E550: 0C 00 48 02 00 00 00 02 0C 00 49 02 00 00 00 02 ..H.......I.....
00E560: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E570: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E580: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E590: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E5A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E5B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E5C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E5D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E5E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E5F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00E600: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00E610: 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 beg
00E620: 69 6E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 in..
00E630: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00E640: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00E650: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 65 de
00E660: 66 69 6E 69 3A 3D 66 61 6C 73 65 3B 0D 0A 20 20 fini:=false;..
00E670: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00E680: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00E690: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00E6A0: 20 20 20 20 20 20 20 20 67 6F 74 6F 20 66 69 6E goto fin
00E6B0: 63 61 6C 63 75 6C 3B 0D 0A 20 20 20 20 20 20 20 calcul;..
00E6C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00E6D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00E6E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00E6F0: 20 20 20 65 6E 64 0D 0A 20 20 20 20 20 20 20 20 end..
00E700: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00E710: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00E720: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00E730: 20 20 20 65 6C 73 65 0D 0A 20 20 20 20 20 20 20 else..
00E740: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00E750: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00E760: 20 20 20 20 20 20 20 20 20 20 63 61 6C 63 75 6C calcul
00E770: 3A 3D 6C 6E 28 6E 62 72 65 29 0D 0A 20 20 20 20 :=ln(nbre)..
00E780: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00E790: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00E7A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6E 64 end
00E7B0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
00E7C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00E7D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00E7E0: 20 20 20 20 65 6C 73 65 0D 0A 20 20 20 20 20 20 else..
00E7F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00E800: 20 20 20 20 20 20 20 69 66 20 66 5E 2E 76 61 6C if f^.val
00E810: 65 75 72 3D 27 73 71 72 74 27 20 74 68 65 6E 0D eur='sqrt' then.
00E820: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
00E830: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00E840: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00E850: 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 begin..
00E860: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00E870: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00E880: 20 20 20 20 20 20 20 20 20 20 69 66 20 6E 62 72 if nbr
00E890: 65 3C 30 20 74 68 65 6E 0D 0A 20 20 20 20 20 20 e<0 then..
00E8A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00E8B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00E8C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00E8D0: 20 20 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 begin..
00E8E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00E8F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00E900: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00E910: 20 20 20 20 20 64 65 66 69 6E 69 3A 3D 66 61 6C defini:=fal
00E920: 73 65 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 se;..
00E930: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00E940: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00E950: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 g
00E960: 6F 74 6F 20 66 69 6E 63 61 6C 63 75 6C 3B 0D 0A oto fincalcul;..
00E970: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00E980: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00E990: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00E9A0: 20 20 20 20 20 20 20 20 20 20 65 6E 64 0D 0A 20 end..
00E9B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00E9C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00E9D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00E9E0: 20 20 20 20 20 20 20 20 20 20 20 65 6C 73 65 0D else.
00E9F0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
00EA00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00EA10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00EA20: 20 20 63 61 6C 63 75 6C 3A 3D 73 71 72 74 28 6E calcul:=sqrt(n
00EA30: 62 72 65 29 0D 0A 20 20 20 20 20 20 20 20 20 20 bre)..
00EA40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00EA50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00EA60: 20 20 20 20 20 20 20 65 6E 64 0D 0A 20 20 20 20 end..
00EA70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00EA80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00EA90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6C el
00EAA0: 73 65 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 se..
00EAB0: 20 20 69 66 20 66 5E 2E 76 61 6C 65 75 72 3D 27 if f^.valeur='
00EAC0: 73 68 27 20 74 68 65 6E 20 63 61 6C 63 75 6C 3A sh' then calcul:
00EAD0: 3D 30 2E 35 2A 28 65 78 70 28 6E 62 72 65 29 2D =0.5*(exp(nbre)-
00EAE0: 65 78 70 28 6E 62 72 65 2A 2D 31 29 29 0D 0A 20 exp(nbre*-1))..
00EAF0: 20 20 20 20 20 20 65 6C 73 65 20 20 20 69 66 20 else if
00EB00: 66 5E 2E 76 61 6C 65 75 72 3D 27 63 68 27 20 74 f^.valeur='ch' t
00EB10: 68 65 6E 20 63 61 6C 63 75 6C 3A 3D 30 2E 35 2A hen calcul:=0.5*
00EB20: 28 65 78 70 28 6E 62 72 65 29 2B 65 78 70 28 6E (exp(nbre)+exp(n
00EB30: 62 72 65 2A 2D 31 29 29 0D 0A 20 20 20 20 20 20 bre*-1))..
00EB40: 20 65 6C 73 65 20 20 20 69 66 20 66 5E 2E 76 61 else if f^.va
00EB50: 6C 65 75 72 3D 27 74 68 27 20 74 68 65 6E 0D 0A leur='th' then..
00EB60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00EB70: 63 61 6C 63 75 6C 3A 3D 28 65 78 70 28 6E 62 72 calcul:=(exp(nbr
00EB80: 65 29 2D 65 78 70 28 6E 62 72 65 2A 2D 31 29 29 e)-exp(nbre*-1))
00EB90: 2F 28 65 78 70 28 6E 62 72 65 29 2B 65 78 70 28 /(exp(nbre)+exp(
00EBA0: 6E 62 72 65 2A 2D 31 29 29 0D 0A 20 20 20 20 20 nbre*-1))..
00EBB0: 20 20 65 6C 73 65 20 20 20 69 66 20 66 5E 2E 76 else if f^.v
00EBC0: 61 6C 65 75 72 3D 27 61 72 63 73 69 6E 27 20 74 aleur='arcsin' t
00EBD0: 68 65 6E 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 hen begin..
00EBE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00EBF0: 20 20 20 20 20 20 20 20 69 66 20 6E 62 72 65 3D if nbre=
00EC00: 2D 31 20 74 68 65 6E 20 63 61 6C 63 75 6C 3A 3D -1 then calcul:=
00EC10: 2D 30 2E 35 2A 70 69 20 65 6C 73 65 0D 0A 20 20 -0.5*pi else..
00EC20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00EC30: 20 20 20 20 20 20 20 20 20 20 20 69 66 20 6E 62 if nb
00EC40: 72 65 3D 31 20 74 68 65 6E 20 63 61 6C 63 75 6C re=1 then calcul
00EC50: 3A 3D 30 2E 35 2A 70 69 20 65 6C 73 65 0D 0A 20 :=0.5*pi else..
00EC60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00EC70: 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 28 if (
00EC80: 28 6E 62 72 65 3C 2D 31 29 6F 72 28 6E 62 72 65 (nbre<-1)or(nbre
00EC90: 3E 31 29 29 20 74 68 65 6E 0D 0A 20 20 20 20 20 >1)) then..
00ECA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00ECB0: 20 20 20 20 20 20 20 20 62 65 67 69 6E 20 64 65 begin de
00ECC0: 66 69 6E 69 3A 3D 66 61 6C 73 65 3B 67 6F 74 6F fini:=false;goto
00ECD0: 20 66 69 6E 63 61 6C 63 75 6C 3B 0D 0A 20 20 20 fincalcul;..
00ECE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00ECF0: 20 20 20 20 20 20 20 20 20 20 65 6E 64 20 20 65 end e
00ED00: 6C 73 65 0D 0A 20 20 20 20 20 20 20 20 20 20 20 lse..
00ED10: 20 63 61 6C 63 75 6C 3A 3D 61 72 63 74 61 6E 28 calcul:=arctan(
00ED20: 6E 62 72 65 2F 73 71 72 74 28 31 2D 6E 62 72 65 nbre/sqrt(1-nbre
00ED30: 2A 6E 62 72 65 29 29 3B 0D 0A 20 20 20 20 20 20 *nbre));..
00ED40: 20 20 20 20 20 20 65 6E 64 0D 0A 20 20 20 20 20 end..
00ED50: 20 20 65 6C 73 65 0D 0A 20 20 20 20 20 20 20 20 else..
00ED60: 20 20 20 20 20 20 20 69 66 20 66 5E 2E 76 61 6C if f^.val
00ED70: 65 75 72 3D 27 61 72 63 63 6F 73 27 20 74 68 65 eur='arccos' the
00ED80: 6E 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 n begin..
00ED90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00EDA0: 20 20 20 20 20 20 69 66 20 6E 62 72 65 3D 2D 31 if nbre=-1
00EDB0: 20 74 68 65 6E 20 63 61 6C 63 75 6C 3A 3D 70 69 then calcul:=pi
00EDC0: 20 65 6C 73 65 0D 0A 20 20 20 20 20 20 20 20 20 else..
00EDD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00EDE0: 20 20 20 20 69 66 20 6E 62 72 65 3D 31 20 74 68 if nbre=1 th
00EDF0: 65 6E 20 63 61 6C 63 75 6C 3A 3D 30 20 65 6C 73 en calcul:=0 els
00EE00: 65 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 e..
00EE10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00EE20: 69 66 20 28 28 6E 62 72 65 3C 2D 31 29 6F 72 28 if ((nbre<-1)or(
00EE30: 6E 62 72 65 3E 31 29 29 20 74 68 65 6E 0D 0A 20 nbre>1)) then..
00EE40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
00EE50: 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 begi
00EE60: 6E 20 64 65 66 69 6E 69 3A 3D 66 61 6C 73 65 3B n defini:=false;
00EE70: 67 6F 74 6F 20 66 69 6E 63 61 6C 63 75 6C 3B 0D goto fincalcul;.
00EE80: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
00EE90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6E en
00EEA0: 64 20 20 65 6C 73 65 0D 0A 20 20 20 20 20 20 20 d else..
00EEB0: 20 20 20 20 20 63 61 6C 63 75 6C 3A 3D 28 70 69 calcul:=(pi
00EEC0: 2F 32 29 2D 61 72 63 74 61 6E 28 6E 62 72 65 2F /2)-arctan(nbre/
00EED0: 73 71 72 74 28 31 2D 6E 62 72 65 2A 6E 62 72 65 sqrt(1-nbre*nbre
00EEE0: 29 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ));..
00EEF0: 20 65 6E 64 0D 0A 20 20 20 20 20 20 20 65 6C 73 end.. els
00EF00: 65 0D 0A 20 20 65 72 72 65 75 72 28 31 30 29 0D e.. erreur(10).
00EF10: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
00EF20: 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6E 64 end
00EF30: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
00EF40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6C el
00EF50: 73 65 0D 0A 20 20 69 66 20 66 3D 6E 69 6C 20 74 se.. if f=nil t
00EF60: 68 65 6E 20 63 61 6C 63 75 6C 3A 3D 30 3B 0D 0A hen calcul:=0;..
00EF70: 20 20 66 69 6E 63 61 6C 63 75 6C 3A 3B 0D 0A 65 fincalcul:;..e
00EF80: 6E 64 3B 0D 0A 0D 0A 66 75 6E 63 74 69 6F 6E 20 nd;....function
00EF90: 20 74 61 70 65 66 6F 6E 63 74 69 6F 6E 3B 0D 0A tapefonction;..
00EFA0: 76 61 72 0D 0A 77 77 77 2C 77 77 78 3A 73 74 72 var..www,wwx:str
00EFB0: 32 30 30 3B 0D 0A 63 6F 65 66 66 3A 72 65 61 6C 200;..coeff:real
00EFC0: 3B 72 65 73 75 6C 74 61 74 3A 69 6E 74 65 67 65 ;resultat:intege
00EFD0: 72 3B 0D 0A 66 6F 72 6D 61 74 3A 73 74 72 31 30 r;..format:str10
00EFE0: 3B 0D 0A 62 65 67 69 6E 0D 0A 69 66 20 66 5E 2E ;..begin..if f^.
00EFF0: 6E 61 74 75 72 65 3D 27 69 64 66 63 74 27 20 74 nature='idfct' t
00F000: 68 65 6E 0D 0A 74 61 70 65 66 6F 6E 63 74 69 6F hen..tapefonctio
00F010: 6E 3A 3D 66 5E 2E 76 61 6C 65 75 72 2B 27 28 27 n:=f^.valeur+'('
00F020: 2B 74 61 70 65 66 6F 6E 63 74 69 6F 6E 28 66 5E +tapefonction(f^
00F030: 2E 64 2C 76 29 2B 27 29 27 20 65 6C 73 65 0D 0A .d,v)+')' else..
00F040: 69 66 20 66 5E 2E 6E 61 74 75 72 65 3D 27 6E 6F if f^.nature='no
00F050: 6D 62 72 65 27 20 74 68 65 6E 20 20 74 61 70 65 mbre' then tape
00F060: 66 6F 6E 63 74 69 6F 6E 3A 3D 66 5E 2E 76 61 6C fonction:=f^.val
00F070: 65 75 72 20 65 6C 73 65 0D 0A 69 66 20 66 5E 2E eur else..if f^.
00F080: 6E 61 74 75 72 65 3D 27 70 61 72 61 6D 27 20 74 nature='param' t
00F090: 68 65 6E 0D 0A 74 61 70 65 66 6F 6E 63 74 69 6F hen..tapefonctio
00F0A0: 6E 3A 3D 27 70 28 27 2B 66 5E 2E 76 61 6C 65 75 n:='p('+f^.valeu
00F0B0: 72 2B 27 29 27 20 65 6C 73 65 0D 0A 69 66 20 66 r+')' else..if f
00F0C0: 5E 2E 6E 61 74 75 72 65 3D 27 76 61 72 69 61 62 ^.nature='variab
00F0D0: 27 20 74 68 65 6E 0D 0A 74 61 70 65 66 6F 6E 63 ' then..tapefonc
00F0E0: 74 69 6F 6E 3A 3D 76 20 65 6C 73 65 0D 0A 69 66 tion:=v else..if
00F0F0: 20 28 28 66 5E 2E 6E 61 74 75 72 65 3D 27 70 6C ((f^.nature='pl
00F100: 75 73 27 29 20 6F 72 20 28 66 5E 2E 6E 61 74 75 us') or (f^.natu
00F110: 72 65 3D 27 6D 6F 69 6E 73 27 29 29 20 74 68 65 re='moins')) the
00F120: 6E 0D 0A 20 20 20 20 62 65 67 69 6E 0D 0A 20 20 n.. begin..
00F130: 20 20 77 77 77 3A 3D 74 61 70 65 66 6F 6E 63 74 www:=tapefonct
00F140: 69 6F 6E 28 66 5E 2E 64 2C 76 29 3B 77 77 78 3A ion(f^.d,v);wwx:
00F150: 3D 74 61 70 65 66 6F 6E 63 74 69 6F 6E 28 66 5E =tapefonction(f^
00F160: 2E 67 2C 76 29 3B 0D 0A 20 20 20 20 69 66 20 28 .g,v);.. if (
00F170: 28 28 66 5E 2E 64 5E 2E 76 61 6C 65 75 72 3D 27 ((f^.d^.valeur='
00F180: 2B 27 29 6F 72 28 66 5E 2E 64 5E 2E 76 61 6C 65 +')or(f^.d^.vale
00F190: 75 72 3D 27 2D 27 29 29 61 6E 64 28 66 5E 2E 76 ur='-'))and(f^.v
00F1A0: 61 6C 65 75 72 3D 27 2B 27 29 29 20 74 68 65 6E aleur='+')) then
00F1B0: 0D 0A 20 20 20 20 20 62 65 67 69 6E 0D 0A 20 20 .. begin..
00F1C0: 20 20 20 64 65 6C 65 74 65 28 77 77 77 2C 31 2C delete(www,1,
00F1D0: 31 29 3B 64 65 6C 65 74 65 28 77 77 77 2C 6C 65 1);delete(www,le
00F1E0: 6E 67 74 68 28 77 77 77 29 2C 31 29 3B 0D 0A 20 ngth(www),1);..
00F1F0: 20 20 20 20 65 6E 64 3B 0D 0A 20 20 20 20 69 66 end;.. if
00F200: 00 00 00 00 EF FF 03 00 00 00 40 FE FF FF 07 00 ..........@.....
00F210: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 C3 ................
00F220: 6E 2C 01 0A 00 21 B1 F1 CD 08 05 FD E1 E1 22 B9 n,...!........".
00F230: F1 FD E5 2A B9 F1 5E 23 56 EB E5 21 00 00 D1 CD ...*..^#V..!....
00F240: 92 06 CB 45 CA 6F 21 2A B9 F1 E5 21 16 00 CD 7A ...E.o!*...!...z
00F250: 1D 21 00 00 EB 2A B9 F1 73 23 72 21 C8 F1 E5 2A .!...*..s#r!...*
00F260: 98 F2 2B 29 D1 19 E5 21 00 00 EB E1 73 23 72 01 ..+)...!....s#r.
00F270: 0A 00 11 B1 F1 C3 22 05 01 0A 00 21 A7 F1 CD 08 ......"....!....
00F280: 05 FD E1 E1 22 AF F1 FD E5 CD 9B 14 CD CD 17 CD ...."...........
00F290: 1B 20 CD 9B 14 CD BA 17 1F 45 72 72 65 75 72 20 . .......Erreur
00F2A0: 64 65 20 73 79 6E 74 61 78 65 20 61 20 6C 27 65 de syntaxe a l'e
00F2B0: 6E 74 72 65 65 20 6E 2E CD 1B 20 2A AF F1 CD 9B ntree n... *....
00F2C0: 14 E5 21 00 00 CD 26 17 CD CD 17 CD 1B 20 21 A6 ..!...&...... !.
00F2D0: F2 E5 2A 98 F2 2B 29 D1 19 E5 CD 22 21 21 A6 F2 ..*..+)...."!!..
00F2E0: E5 2A 98 F2 2B 29 D1 19 E5 CD 1F 21 01 0A 00 11 .*..+).....!....
00F2F0: A7 F1 C3 22 05 01 08 00 21 9F F1 CD 08 05 21 BA ..."....!.....!.
00F300: 00 CD A9 14 21 A5 F2 CD 44 16 CD 1B 20 2A A5 F2 ....!...D... *..
00F310: 26 00 E5 21 FF 20 01 20 00 CD 5D 05 CD 4F 13 E5 &..!. . ..]..O..
00F320: 2A A5 F2 26 00 E5 21 0D 00 D1 CD 7F 06 D1 7D B3 *..&..!.......}.
00F330: 6F CB 45 CA FE 21 2A A5 F2 26 00 CD 9B 14 CD 22 o.E..!*..&....."
00F340: 17 CD 1B 20 01 08 00 11 9F F1 C3 22 05 01 08 00 ... ......."....
00F350: 21 97 F1 CD 08 05 CD F5 21 2A A5 F2 26 00 65 2E !.......!*..&.e.
00F360: 01 E5 06 0A 21 9A F2 CD E2 05 2A A5 F2 26 00 E5 ....!.....*..&..
00F370: CD 81 05 21 30 00 E5 21 39 00 CD 9B 05 CD 4F 13 ...!0..!9.....O.
00F380: E5 21 9A F2 CD 3A 05 CD A3 08 E5 21 06 00 D1 CD .!...:..£..!....
00F390: E0 06 D1 7D A3 6F CB 45 CA BB 22 CD F5 21 21 9A ...}£o.E.."..!!.
00F3A0: F2 CD 3A 05 2A A5 F2 26 00 65 2E 01 E5 CD 3D 08 ..:.*..&.e....=.
00F3B0: 06 0A 21 9A F2 CD E2 05 C3 6A 22 21 9A F2 CD 3A ..!......j"!...:
00F3C0: 05 21 01 00 E5 21 9A F2 CD 3A 05 CD A3 08 E5 21 .!...!...:..£..!
00F3D0: 01 00 D1 EB B7 ED 52 CD 6B 08 06 0A 21 9A F2 CD ......R.k...!...
00F3E0: E2 05 01 08 00 11 97 F1 C3 22 05 01 0C 00 21 8B ........."....!.
00F3F0: F1 CD 08 05 FD E1 E1 22 95 F1 FD E5 CD F5 21 2A ......."......!*
00F400: A5 F2 26 00 E5 21 28 00 D1 CD 92 06 CB 45 CA 1B ..&..!(......E..
00F410: 23 21 01 00 E5 CD 78 21 C3 CF 23 CD 4D 22 2A A5 #!....x!..#.M"*.
00F420: F2 26 00 E5 21 29 00 D1 CD 92 06 CB 45 CA 3A 23 .&..!)......E.:#
00F430: 21 02 00 E5 CD 78 21 C3 CF 23 2A 95 F1 5E 23 56 !....x!..#*..^#V
00F440: EB E5 CD 4D 05 05 70 61 72 61 6D 06 06 CD 01 06 ...M..param.....
00F450: 2A 95 F1 5E 23 56 EB 11 07 00 19 E5 21 9A F2 CD *..^#V......!...
00F460: 3A 05 06 0A CD 01 06 2A 95 F1 5E 23 56 EB 11 12 :......*..^#V...
00F470: 00 19 E5 21 00 00 EB E1 73 23 72 2A 95 F1 5E 23 ...!....s#r*..^#
00F480: 56 EB 11 14 00 19 E5 21 00 00 EB E1 73 23 72 21 V......!....s#r!
00F490: 9A F2 CD 3A 05 21 8B F1 E5 21 94 F2 CD F4 1E 21 ...:.!...!.....!
00F4A0: C8 F1 E5 2A 98 F2 2B 29 D1 19 5E 23 56 EB E5 2A ...*..+)..^#V..*
00F4B0: 8B F1 D1 CD E0 06 CB 45 CA CF 23 21 C8 F1 E5 2A .......E..#!...*
00F4C0: 98 F2 2B 29 D1 19 E5 2A 8B F1 EB E1 73 23 72 CD ..+)...*....s#r.
00F4D0: F5 21 01 0C 00 11 8B F1 C3 22 05 01 0A 00 21 81 .!......."....!.
00F4E0: F1 CD 08 05 FD E1 E1 22 89 F1 FD E5 2A 89 F1 5E ......."....*..^
00F4F0: 23 56 EB E5 CD 4D 05 06 76 61 72 69 61 62 06 06 #V...M..variab..
00F500: CD 01 06 2A 89 F1 5E 23 56 EB 11 07 00 19 E5 21 ...*..^#V......!
00F510: 78 00 65 2E 01 E5 06 0A CD 01 06 2A 89 F1 5E 23 x.e........*..^#
00F520: 56 EB 11 12 00 19 E5 21 00 00 EB E1 73 23 72 2A V......!....s#r*
00F530: 89 F1 5E 23 56 EB 11 14 00 19 E5 21 00 00 EB E1 ..^#V......!....
00F540: 73 23 72 CD F5 21 01 0A 00 11 81 F1 C3 22 05 C3 s#r..!......."..
00F550: CB 2A 01 0A 00 21 77 F1 CD 08 05 FD E1 E1 22 7F .*...!w.......".
00F560: F1 FD E5 2A A5 F2 26 00 65 2E 01 E5 06 0A 21 9A ...*..&.e.....!.
00F570: F2 CD E2 05 2A A5 F2 26 00 E5 CD 81 05 21 61 00 ....*..&.....!a.
00F580: E5 21 7A 00 CD 9B 05 CD 4F 13 E5 21 9A F2 CD 3A .!z.....O..!...:
00F590: 05 CD A3 08 E5 21 07 00 D1 CD E0 06 D1 7D A3 6F ..£..!.......}£o
00F5A0: CB 45 CA C5 24 CD F5 21 21 9A F2 CD 3A 05 2A A5 .E..$..!!...:.*.
00F5B0: F2 26 00 65 2E 01 E5 CD 3D 08 06 0A 21 9A F2 CD .&.e....=...!...
00F5C0: E2 05 C3 74 24 21 9A F2 CD 3A 05 21 01 00 E5 21 ...t$!...:.!...!
00F5D0: 9A F2 CD 3A 05 CD A3 08 E5 21 01 00 D1 EB B7 ED ...:..£..!......
00F5E0: 52 CD 6B 08 06 0A 21 9A F2 CD E2 05 21 9A F2 CD R.k...!.....!...
00F5F0: 3A 05 CD 4D 05 03 73 69 6E CD 8D 06 E5 21 9A F2 :..M..sin....!..
00F600: CD 3A 05 CD 4D 05 03 63 6F 73 CD 8D 06 D1 7D B3 .:..M..cos....}.
00F610: 6F E5 21 9A F2 CD 3A 05 CD 4D 05 04 74 61 6E 67 o.!...:..M..tang
00F620: CD 8D 06 D1 7D B3 6F E5 21 9A F2 CD 3A 05 CD 4D ....}.o.!...:..M
00F630: 05 03 65 78 70 CD 8D 06 D1 7D B3 6F E5 21 9A F2 ..exp....}.o.!..
00F640: CD 3A 05 CD 4D 05 02 6C 6E CD 8D 06 D1 7D B3 6F .:..M..ln....}.o
00F650: E5 21 9A F2 CD 3A 05 CD 4D 05 06 61 72 63 74 61 .!...:..M..arcta
00F660: 6E CD 8D 06 D1 7D B3 6F E5 21 9A F2 CD 3A 05 CD n....}.o.!...:..
00F670: 4D 05 03 69 6E 74 CD 8D 06 D1 7D B3 6F E5 21 9A M..int....}.o.!.
00F680: F2 CD 3A 05 CD 4D 05 03 61 62 73 CD 8D 06 D1 7D ..:..M..abs....}
00F690: B3 6F E5 21 9A F2 CD 3A 05 CD 4D 05 04 73 71 72 .o.!...:..M..sqr
00F6A0: 74 CD 8D 06 D1 7D B3 6F E5 21 9A F2 CD 3A 05 CD t....}.o.!...:..
00F6B0: 4D 05 02 73 68 CD 8D 06 D1 7D B3 6F E5 21 9A F2 M..sh....}.o.!..
00F6C0: CD 3A 05 CD 4D 05 02 63 68 CD 8D 06 D1 7D B3 6F .:..M..ch....}.o
00F6D0: E5 21 9A F2 CD 3A 05 CD 4D 05 02 74 68 CD 8D 06 .!...:..M..th...
00F6E0: D1 7D B3 6F E5 21 9A F2 CD 3A 05 CD 4D 05 06 61 .}.o.!...:..M..a
00F6F0: 72 63 73 69 6E CD 8D 06 D1 7D B3 6F E5 21 9A F2 rcsin....}.o.!..
00F700: CD 3A 05 CD 4D 05 06 61 72 63 63 6F 73 CD 8D 06 .:..M..arccos...
00F710: D1 7D B3 6F CB 45 CA AA 26 2A 7F F1 5E 23 56 EB .}.o.E..&*..^#V.
00F720: E5 CD 4D 05 05 69 64 66 63 74 06 06 CD 01 06 2A ..M..idfct.....*
00F730: 7F F1 5E 23 56 EB 11 07 00 19 E5 21 9A F2 CD 3A ..^#V......!...:
00F740: 05 06 0A CD 01 06 2A 7F F1 5E 23 56 EB 11 14 00 ......*..^#V....
00F750: 19 E5 21 00 00 EB E1 73 23 72 2A A5 F2 26 00 E5 ..!....s#r*..&..
00F760: 21 28 00 D1 CD 7F 06 CB 45 CA A0 26 CD F5 21 2A !(......E..&..!*
00F770: 7F F1 5E 23 56 EB 11 12 00 19 E5 CD 4F 24 2A A5 ..^#V.......O$*.
00F780: F2 26 00 E5 21 29 00 D1 CD 92 06 CB 45 CA 9A 26 .&..!)......E..&
00F790: 21 03 00 E5 CD 78 21 C3 9D 26 CD F5 21 C3 A7 26 !....x!..&..!..&
00F7A0: 21 04 00 E5 CD 78 21 C3 B1 26 21 05 00 E5 CD 78 !....x!..&!....x
00F7B0: 21 01 0A 00 11 77 F1 C3 22 05 C3 E5 28 01 0C 00 !....w.."...(...
00F7C0: 21 6B F1 CD 08 05 FD E1 E1 22 75 F1 FD E5 21 6B !k......."u...!k
00F7D0: F1 E5 21 16 00 CD E5 1C 2A 6B F1 11 14 00 19 E5 ..!.....*k......
00F7E0: 2A 75 F1 5E 23 56 EB EB E1 73 23 72 2A 6B F1 EB *u.^#V...s#r*k..
00F7F0: 2A 75 F1 73 23 72 2A 75 F1 5E 23 56 EB E5 CD 4D *u.s#r*u.^#V...M
00F800: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
00F810: 0D 00 00 00 02 09 4E E5 0D 00 41 02 00 00 00 02 ......N...A.....
00F820: 0D 00 42 02 00 00 00 02 0D 00 43 02 00 00 00 02 ..B.......C.....
00F830: 0D 00 44 02 00 00 00 02 0D 00 45 02 00 00 00 02 ..D.......E.....
00F840: 0D 00 46 02 00 00 00 02 0D 00 47 02 00 00 00 02 ..F.......G.....
00F850: 0D 00 48 02 00 00 00 02 0D 00 49 02 00 00 00 02 ..H.......I.....
00F860: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F870: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F880: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F890: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F8A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F8B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F8C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F8D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F8E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F8F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
00F900: 05 05 70 75 69 73 73 06 06 CD 01 06 2A 75 F1 5E ..puiss.....*u.^
00F910: 23 56 EB 11 07 00 19 E5 21 5E 00 65 2E 01 E5 06 #V......!^.e....
00F920: 0A CD 01 06 2A 75 F1 5E 23 56 EB 11 12 00 19 E5 ....*u.^#V......
00F930: 21 16 00 CD E5 1C CD F5 21 2A 75 F1 5E 23 56 EB !.......!*u.^#V.
00F940: 11 12 00 19 E5 CD BA 26 01 0C 00 11 6B F1 C3 22 .......&....k.."
00F950: 05 01 10 00 21 5B F1 CD 08 05 FD E1 E1 22 69 F1 ....![......."i.
00F960: FD E5 2A A5 F2 26 00 65 2E 01 E5 06 0A 21 9A F2 ..*..&.e.....!..
00F970: CD E2 05 21 30 00 7D 32 A5 F2 2A A5 F2 26 00 E5 ...!0.}2..*..&..
00F980: CD 81 05 21 30 00 E5 21 39 00 CD 9B 05 CD 4F 13 ...!0..!9.....O.
00F990: E5 21 9A F2 CD 3A 05 CD A3 08 E5 21 0A 00 D1 CD .!...:..£..!....
00F9A0: E0 06 D1 7D A3 6F CB 45 CA CB 27 CD F5 21 21 9A ...}£o.E..'..!!.
00F9B0: F2 CD 3A 05 2A A5 F2 26 00 65 2E 01 E5 CD 3D 08 ..:.*..&.e....=.
00F9C0: 06 0A 21 9A F2 CD E2 05 C3 7A 27 2A A5 F2 26 00 ..!......z'*..&.
00F9D0: E5 21 2E 00 D1 CD 7F 06 CB 45 CA 35 28 21 30 00 .!.......E.5(!0.
00F9E0: 7D 32 A5 F2 2A A5 F2 26 00 E5 CD 81 05 21 30 00 }2..*..&.....!0.
00F9F0: E5 21 39 00 CD 9B 05 CD 4F 13 E5 21 9A F2 CD 3A .!9.....O..!...:
00FA00: 05 CD A3 08 E5 21 0A 00 D1 CD E0 06 D1 7D A3 6F ..£..!.......}£o
00FA10: CB 45 CA 35 28 CD F5 21 21 9A F2 CD 3A 05 2A A5 .E.5(..!!...:.*.
00FA20: F2 26 00 65 2E 01 E5 CD 3D 08 06 0A 21 9A F2 CD .&.e....=...!...
00FA30: E2 05 C3 E4 27 21 9A F2 CD 3A 05 21 01 00 E5 21 ....'!...:.!...!
00FA40: 9A F2 CD 3A 05 CD A3 08 E5 21 01 00 D1 EB B7 ED ...:..£..!......
00FA50: 52 CD 6B 08 06 0A 21 9A F2 CD E2 05 21 9A F2 CD R.k...!.....!...
00FA60: 3A 05 21 5B F1 E5 21 94 F2 CD F3 1E 2A 94 F2 E5 :.![..!.....*...
00FA70: 21 00 00 D1 CD 92 06 CB 45 CA 86 28 21 06 00 E5 !.......E..(!...
00FA80: CD 78 21 C3 DC 28 2A 69 F1 5E 23 56 EB E5 CD 4D .x!..(*i.^#V...M
00FA90: 05 06 6E 6F 6D 62 72 65 06 06 CD 01 06 2A 69 F1 ..nombre.....*i.
00FAA0: 5E 23 56 EB 11 07 00 19 E5 21 9A F2 CD 3A 05 06 ^#V......!...:..
00FAB0: 0A CD 01 06 2A 69 F1 5E 23 56 EB 11 12 00 19 E5 ....*i.^#V......
00FAC0: 21 00 00 EB E1 73 23 72 2A 69 F1 5E 23 56 EB 11 !....s#r*i.^#V..
00FAD0: 14 00 19 E5 21 00 00 EB E1 73 23 72 01 10 00 11 ....!....s#r....
00FAE0: 5B F1 C3 22 05 01 0A 00 21 51 F1 CD 08 05 FD E1 [.."....!Q......
00FAF0: E1 22 59 F1 FD E5 2A A5 F2 26 00 11 70 00 B7 ED ."Y...*..&..p...
00FB00: 52 C2 0E 29 2A 59 F1 E5 CD EB 22 C3 BD 29 19 11 R..)*Y...."..)..
00FB10: 78 00 B7 ED 52 C2 22 29 2A 59 F1 E5 CD DB 23 C3 x...R.")*Y....#.
00FB20: BD 29 19 11 28 00 B7 ED 52 C2 58 29 CD F5 21 2A .)..(...R.X)..!*
00FB30: 59 F1 E5 CD 4F 24 2A A5 F2 26 00 E5 21 29 00 D1 Y...O$*..&..!)..
00FB40: CD 92 06 CB 45 CA 52 29 21 07 00 E5 CD 78 21 C3 ....E.R)!....x!.
00FB50: 55 29 CD F5 21 C3 BD 29 19 11 2B 00 B7 ED 52 CA U)..!..)..+...R.
00FB60: 7C 29 19 11 2D 00 B7 ED 52 CA 7C 29 19 11 30 00 |)..-...R.|)..0.
00FB70: 01 0A 00 B7 ED 52 B7 ED 42 D2 86 29 2A 59 F1 E5 .....R..B..)*Y..
00FB80: CD 51 27 C3 BD 29 19 09 11 61 00 01 17 00 B7 ED .Q'..)...a......
00FB90: 52 B7 ED 42 DA AC 29 19 09 11 79 00 B7 ED 52 CA R..B..)...y...R.
00FBA0: AC 29 19 11 7A 00 B7 ED 52 C2 B6 29 2A 59 F1 E5 .)..z...R..)*Y..
00FBB0: CD 52 24 C3 BD 29 21 08 00 E5 CD 78 21 2A A5 F2 .R$..)!....x!*..
00FBC0: 26 00 E5 21 5E 00 D1 CD 7F 06 CB 45 CA D9 29 2A &..!^......E..)*
00FBD0: 59 F1 E5 CD BD 26 C3 BD 29 01 0A 00 11 51 F1 C3 Y....&..)....Q..
00FBE0: 22 05 01 0C 00 21 45 F1 CD 08 05 FD E1 E1 22 4F "....!E......."O
00FBF0: F1 FD E5 2A 4F F1 E5 CD BA 26 2A A5 F2 26 00 E5 ...*O....&*..&..
00FC00: CD 81 05 21 2A 00 CD 91 05 21 2F 00 CD 91 05 CD ...!*....!/.....
00FC10: 4F 13 CB 45 CA C2 2A 21 45 F1 E5 21 16 00 CD E5 O..E..*!E..!....
00FC20: 1C 2A 45 F1 11 14 00 19 E5 2A 4F F1 5E 23 56 EB .*E......*O.^#V.
00FC30: EB E1 73 23 72 2A 45 F1 EB 2A 4F F1 73 23 72 2A ..s#r*E..*O.s#r*
00FC40: A5 F2 26 00 E5 21 2A 00 D1 CD 7F 06 CB 45 CA 6A ..&..!*......E.j
00FC50: 2A 2A 4F F1 5E 23 56 EB E5 CD 4D 05 05 6D 75 6C **O.^#V...M..mul
00FC60: 74 69 06 06 CD 01 06 C3 81 2A 2A 4F F1 5E 23 56 ti.......**O.^#V
00FC70: EB E5 CD 4D 05 06 64 69 76 69 73 65 06 06 CD 01 ...M..divise....
00FC80: 06 2A 4F F1 5E 23 56 EB 11 07 00 19 E5 2A A5 F2 .*O.^#V......*..
00FC90: 26 00 65 2E 01 E5 06 0A CD 01 06 2A 4F F1 5E 23 &.e........*O.^#
00FCA0: 56 EB 11 12 00 19 E5 21 16 00 CD E5 1C CD F5 21 V......!.......!
00FCB0: 2A 4F F1 5E 23 56 EB 11 12 00 19 E5 CD BA 26 C3 *O.^#V........&.
00FCC0: FA 29 01 0C 00 11 45 F1 C3 22 05 01 0C 00 21 39 .)....E.."....!9
00FCD0: F1 CD 08 05 FD E1 E1 22 43 F1 FD E5 2A 43 F1 E5 ......."C...*C..
00FCE0: 21 16 00 CD E5 1C 2A A5 F2 26 00 E5 CD 81 05 21 !.....*..&.....!
00FCF0: 2B 00 CD 91 05 21 2D 00 CD 91 05 CD 4F 13 CB 45 +....!-.....O..E
00FD00: CA 98 2B 2A A5 F2 26 00 E5 21 2B 00 D1 CD 7F 06 ..+*..&..!+.....
00FD10: CB 45 CA 2D 2B 2A 43 F1 5E 23 56 EB E5 CD 4D 05 .E.-+*C.^#V...M.
00FD20: 04 70 6C 75 73 06 06 CD 01 06 C3 43 2B 2A 43 F1 .plus......C+*C.
00FD30: 5E 23 56 EB E5 CD 4D 05 05 6D 6F 69 6E 73 06 06 ^#V...M..moins..
00FD40: CD 01 06 2A 43 F1 5E 23 56 EB 11 07 00 19 E5 2A ...*C.^#V......*
00FD50: A5 F2 26 00 65 2E 01 E5 06 0A CD 01 06 2A 43 F1 ..&.e........*C.
00FD60: 5E 23 56 EB 11 14 00 19 E5 21 00 00 EB E1 73 23 ^#V......!....s#
00FD70: 72 2A 43 F1 5E 23 56 EB 11 12 00 19 E5 21 16 00 r*C.^#V......!..
00FD80: CD E5 1C CD F5 21 2A 43 F1 5E 23 56 EB 11 12 00 .....!*C.^#V....
00FD90: 19 E5 CD E2 29 C3 9F 2B 2A 43 F1 E5 CD E2 29 2A ....)..+*C....)*
00FDA0: A5 F2 26 00 E5 CD 81 05 21 2B 00 CD 91 05 21 2D ..&.....!+....!-
00FDB0: 00 CD 91 05 CD 4F 13 CB 45 CA 65 2C 21 39 F1 E5 .....O..E.e,!9..
00FDC0: 21 16 00 CD E5 1C 2A 39 F1 11 14 00 19 E5 2A 43 !.....*9......*C
00FDD0: F1 5E 23 56 EB EB E1 73 23 72 2A 39 F1 EB 2A 43 .^#V...s#r*9..*C
00FDE0: F1 73 23 72 2A A5 F2 26 00 E5 21 2B 00 D1 CD 7F .s#r*..&..!+....
00FDF0: 06 CB 45 CA 0E 2C 2A 43 F1 5E 23 56 EB E5 CD 4D ..E..,*C.^#V...M
00FE00: 05 04 70 6C 75 73 06 06 CD 01 06 C3 24 2C 2A 43 ..plus......$,*C
00FE10: F1 5E 23 56 EB E5 CD 4D 05 05 6D 6F 69 6E 73 06 .^#V...M..moins.
00FE20: 06 CD 01 06 2A 43 F1 5E 23 56 EB 11 07 00 19 E5 ....*C.^#V......
00FE30: 2A A5 F2 26 00 65 2E 01 E5 06 0A CD 01 06 2A 43 *..&.e........*C
00FE40: F1 5E 23 56 EB 11 12 00 19 E5 21 16 00 CD E5 1C .^#V......!.....
00FE50: CD F5 21 2A 43 F1 5E 23 56 EB 11 12 00 19 E5 CD ..!*C.^#V.......
00FE60: E2 29 C3 9F 2B 01 0C 00 11 39 F1 C3 22 05 01 0A .)..+....9.."...
00FE70: 00 21 2F F1 CD 08 05 FD E1 E1 22 37 F1 FD E5 2A .!/......."7...*
00FE80: 37 F1 5E 23 56 EB E5 21 00 00 D1 CD 92 06 CB 45 7.^#V..!.......E
00FE90: CA 9A 2C 2A 37 F1 E5 CD 22 21 CD 9B 14 CD BA 17 ..,*7..."!......
00FEA0: 15 45 6E 74 72 65 7A 20 76 6F 74 72 65 20 66 6F .Entrez votre fo
00FEB0: 6E 63 74 69 6F 6E CD CD 17 CD 1B 20 CD F5 21 2A nction..... ..!*
00FEC0: 37 F1 E5 CD 4F 24 2A A5 F2 26 00 E5 21 0D 00 D1 7...O$*..&..!...
00FED0: CD 92 06 CB 45 CA DF 2C 21 09 00 E5 CD 78 21 01 ....E..,!....x!.
00FEE0: 0A 00 11 2F F1 C3 22 05 01 08 00 21 27 F1 CD 08 .../.."....!'...
00FEF0: 05 CD 9B 14 CD CD 17 CD 1B 20 21 01 00 E5 21 19 ......... !...!.
00FF00: 00 CD DB 1F CD 9B 14 CD BA 17 27 61 70 70 75 79 ..........'appuy
00FF10: 65 7A 20 75 6E 65 20 74 6F 75 63 68 65 20 70 6F ez une touche po
00FF20: 75 72 20 72 65 76 65 6E 69 72 20 61 75 20 6D 65 ur revenir au me
00FF30: 6E 75 CD 1B 20 CD A0 00 7D EE 01 6F CB 45 CA 44 nu.. ...}..o.E.D
00FF40: 2D C3 35 2D 01 08 00 11 27 F1 C3 22 05 C3 38 36 -.5-....'.."..86
00FF50: C3 22 44 C3 D7 3F 01 12 00 21 15 F1 CD 08 05 FD ."D..?...!......
00FF60: E1 E1 22 25 F1 FD E5 2A 25 F1 5E 23 56 EB E5 21 .."%...*%.^#V..!
00FF70: 00 00 D1 CD 92 06 CB 45 CA 2C 36 2A 25 F1 5E 23 .......E.,6*%.^#
00FF80: 56 EB 11 12 00 19 5E 23 56 EB CD 3A 05 CD 4D 05 V.....^#V..:..M.
00FF90: 06 6E 6F 6D 62 72 65 CD 8D 06 E5 2A 25 F1 5E 23 .nombre....*%.^#
00FFA0: 56 EB 11 14 00 19 5E 23 56 EB CD 3A 05 CD 4D 05 V.....^#V..:..M.
00FFB0: 06 6E 6F 6D 62 72 65 CD 8D 06 D1 7D A3 6F E5 2A .nombre....}£o.*
00FFC0: 25 F1 5E 23 56 EB 11 07 00 19 CD 3A 05 21 2F 00 %.^#V......:.!/.
00FFD0: 65 2E 01 E5 CD A0 06 D1 7D A3 6F CB 45 CA E1 2E e.......}£o.E...
00FFE0: 2A 25 F1 5E 23 56 EB E5 21 00 00 CD 08 10 C5 D5 *%.^#V..!.......
00FFF0: E5 CD 4D 2D D9 21 15 F1 CD D1 05 21 15 F1 CD 2C ..M-.!.....!...,
010000: 05 CD 34 0C C5 D5 E5 21 00 00 CD 08 10 D9 E1 D1 ..4....!........
010010: C1 CD 88 06 CB 45 CA 3A 2E 21 15 F1 CD 2C 05 CD .....E.:.!...,..
010020: D0 0F E5 21 00 00 E5 2A 25 F1 5E 23 56 EB 11 07 ...!...*%.^#V...
010030: 00 19 06 0A CD BE 1E C3 99 2E 21 15 F1 CD 2C 05 ..........!...,.
010040: C5 D5 E5 21 08 00 E5 21 03 00 E5 2A 25 F1 5E 23 ...!...!...*%.^#
010050: 56 EB 11 07 00 19 06 0A CD BD 1E 21 20 00 65 2E V..........! .e.
010060: 01 E5 2A 25 F1 5E 23 56 EB 11 07 00 19 CD 3A 05 ..*%.^#V......:.
010070: CD B2 08 E5 21 00 00 D1 CD 92 06 CB 45 CA 99 2E ....!.......E...
010080: 2A 25 F1 5E 23 56 EB 11 07 00 19 E5 21 01 00 E5 *%.^#V......!...
010090: 21 01 00 CD F3 08 C3 5B 2E 2A 25 F1 5E 23 56 EB !......[.*%.^#V.
0100A0: E5 CD 4D 05 06 6E 6F 6D 62 72 65 06 06 CD 01 06 ..M..nombre.....
0100B0: 2A 25 F1 5E 23 56 EB 11 14 00 19 E5 21 00 00 EB *%.^#V......!...
0100C0: E1 73 23 72 2A 25 F1 5E 23 56 EB 11 12 00 19 E5 .s#r*%.^#V......
0100D0: 21 00 00 EB E1 73 23 72 21 01 00 22 94 F2 C3 2C !....s#r!.."...,
0100E0: 36 2A 25 F1 5E 23 56 EB 11 07 00 19 CD 3A 05 21 6*%.^#V......:.!
0100F0: 2A 00 65 2E 01 E5 CD 8D 06 E5 2A 25 F1 5E 23 56 *.e.......*%.^#V
010100: EB 11 12 00 19 5E 23 56 EB CD 3A 05 CD 4D 05 06 .....^#V..:..M..
010110: 6E 6F 6D 62 72 65 CD 8D 06 D1 7D A3 6F E5 2A 25 nombre....}£o.*%
010120: F1 5E 23 56 EB 11 12 00 19 5E 23 56 EB 11 07 00 .^#V.....^#V....
010130: 19 CD 3A 05 21 31 00 65 2E 01 E5 CD 8D 06 D1 7D ..:.!1.e.......}
010140: A3 6F CB 45 CA 6D 2F 2A 25 F1 5E 23 56 EB 11 14 £o.E.m/*%.^#V...
010150: 00 19 5E 23 56 EB EB 2A 25 F1 73 23 72 2A 25 F1 ..^#V..*%.s#r*%.
010160: E5 CD 56 2D 21 01 00 22 94 F2 C3 2C 36 2A 25 F1 ..V-!.."...,6*%.
010170: 5E 23 56 EB 11 07 00 19 CD 3A 05 21 2A 00 65 2E ^#V......:.!*.e.
010180: 01 E5 CD 8D 06 E5 2A 25 F1 5E 23 56 EB 11 14 00 ......*%.^#V....
010190: 19 5E 23 56 EB CD 3A 05 CD 4D 05 06 6E 6F 6D 62 .^#V..:..M..nomb
0101A0: 72 65 CD 8D 06 D1 7D A3 6F E5 2A 25 F1 5E 23 56 re....}£o.*%.^#V
0101B0: EB 11 14 00 19 5E 23 56 EB 11 07 00 19 CD 3A 05 .....^#V......:.
0101C0: 21 31 00 65 2E 01 E5 CD 8D 06 D1 7D A3 6F CB 45 !1.e.......}£o.E
0101D0: CA F9 2F 2A 25 F1 5E 23 56 EB 11 12 00 19 5E 23 ../*%.^#V.....^#
0101E0: 56 EB EB 2A 25 F1 73 23 72 2A 25 F1 E5 CD 56 2D V..*%.s#r*%...V-
0101F0: 21 01 00 22 94 F2 C3 2C 36 2A 25 F1 5E 23 56 EB !.."...,6*%.^#V.
010200: 11 07 00 19 CD 3A 05 21 2A 00 65 2E 01 E5 CD 8D .....:.!*.e.....
010210: 06 E5 2A 25 F1 5E 23 56 EB 11 07 00 19 CD 3A 05 ..*%.^#V......:.
010220: 21 2F 00 65 2E 01 E5 CD 8D 06 D1 7D B3 6F E5 2A !/.e.......}.o.*
010230: 25 F1 5E 23 56 EB 11 14 00 19 5E 23 56 EB CD 3A %.^#V.....^#V..:
010240: 05 CD 4D 05 06 6E 6F 6D 62 72 65 CD 8D 06 E5 2A ..M..nombre....*
010250: 25 F1 5E 23 56 EB 11 14 00 19 5E 23 56 EB 11 07 %.^#V.....^#V...
010260: 00 19 CD 3A 05 21 30 00 65 2E 01 E5 CD 8D 06 D1 ...:.!0.e.......
010270: 7D A3 6F E5 2A 25 F1 5E 23 56 EB 11 14 00 19 5E }£o.*%.^#V.....^
010280: 23 56 EB E5 21 00 00 D1 CD 7F 06 D1 7D B3 6F D1 #V..!.......}.o.
010290: 7D A3 6F CB 45 CA AB 30 21 00 00 EB 2A 25 F1 73 }£o.E..0!...*%.s
0102A0: 23 72 21 01 00 22 94 F2 C3 2C 36 2A 25 F1 5E 23 #r!.."...,6*%.^#
0102B0: 56 EB 11 07 00 19 CD 3A 05 21 2A 00 65 2E 01 E5 V......:.!*.e...
0102C0: CD 8D 06 E5 2A 25 F1 5E 23 56 EB 11 12 00 19 5E ....*%.^#V.....^
0102D0: 23 56 EB CD 3A 05 CD 4D 05 06 6E 6F 6D 62 72 65 #V..:..M..nombre
0102E0: CD 8D 06 E5 2A 25 F1 5E 23 56 EB 11 12 00 19 5E ....*%.^#V.....^
0102F0: 23 56 EB 11 07 00 19 CD 3A 05 21 30 00 65 2E 01 #V......:.!0.e..
010300: E5 CD 8D 06 D1 7D A3 6F E5 2A 25 F1 5E 23 56 EB .....}£o.*%.^#V.
010310: 11 12 00 19 5E 23 56 EB E5 21 00 00 D1 CD 7F 06 ....^#V..!......
010320: D1 7D B3 6F D1 7D A3 6F CB 45 CA 40 31 21 00 00 .}.o.}£o.E.@1!..
010330: EB 2A 25 F1 73 23 72 21 01 00 22 94 F2 C3 2C 36 .*%.s#r!.."...,6
010340: 2A 25 F1 5E 23 56 EB 11 07 00 19 CD 3A 05 21 2A *%.^#V......:.!*
010350: 00 65 2E 01 E5 CD 8D 06 E5 2A 25 F1 5E 23 56 EB .e.......*%.^#V.
010360: 11 14 00 19 5E 23 56 EB CD 3A 05 CD 4D 05 06 6E ....^#V..:..M..n
010370: 6F 6D 62 72 65 CD 8D 06 D1 7D A3 6F E5 2A 25 F1 ombre....}£o.*%.
010380: 5E 23 56 EB 11 12 00 19 5E 23 56 EB 11 07 00 19 ^#V.....^#V.....
010390: CD 3A 05 21 2A 00 65 2E 01 E5 CD 8D 06 D1 7D A3 .:.!*.e.......}£
0103A0: 6F E5 2A 25 F1 5E 23 56 EB 11 12 00 19 5E 23 56 o.*%.^#V.....^#V
0103B0: EB 11 14 00 19 5E 23 56 EB CD 3A 05 CD 4D 05 06 .....^#V..:..M..
0103C0: 6E 6F 6D 62 72 65 CD 8D 06 D1 7D A3 6F CB 45 CA nombre....}£o.E.
0103D0: 8D 32 2A 25 F1 5E 23 56 EB 11 12 00 19 5E 23 56 .2*%.^#V.....^#V
0103E0: EB 22 1B F1 2A 25 F1 5E 23 56 EB 11 12 00 19 E5 ."..*%.^#V......
0103F0: 2A 25 F1 5E 23 56 EB 11 14 00 19 5E 23 56 EB EB *%.^#V.....^#V..
010400: E1 73 23 72 2A 25 F1 5E 23 56 EB 11 14 00 19 E5 .s#r*%.^#V......
010410: 2A 1B F1 EB E1 73 23 72 2A 25 F1 5E 23 56 EB 11 *....s#r*%.^#V..
010420: 14 00 19 5E 23 56 EB 11 12 00 19 5E 23 56 EB 22 ...^#V.....^#V."
010430: 1B F1 2A 25 F1 5E 23 56 EB 11 14 00 19 5E 23 56 ..*%.^#V.....^#V
010440: EB 11 12 00 19 E5 2A 25 F1 5E 23 56 EB 11 12 00 ......*%.^#V....
010450: 19 5E 23 56 EB EB E1 73 23 72 2A 25 F1 5E 23 56 .^#V...s#r*%.^#V
010460: EB 11 12 00 19 E5 2A 1B F1 EB E1 73 23 72 2A 25 ......*....s#r*%
010470: F1 5E 23 56 EB 11 12 00 19 E5 CD 56 2D 2A 25 F1 .^#V.......V-*%.
010480: E5 CD 56 2D 21 01 00 22 94 F2 C3 2C 36 2A 25 F1 ..V-!.."...,6*%.
010490: 5E 23 56 EB CD 3A 05 CD 4D 05 04 70 6C 75 73 CD ^#V..:..M..plus.
0104A0: 8D 06 E5 2A 25 F1 5E 23 56 EB CD 3A 05 CD 4D 05 ...*%.^#V..:..M.
0104B0: 05 6D 6F 69 6E 73 CD 8D 06 D1 7D B3 6F E5 2A 25 .moins....}.o.*%
0104C0: F1 5E 23 56 EB 11 12 00 19 5E 23 56 EB E5 21 00 .^#V.....^#V..!.
0104D0: 00 D1 CD 7F 06 E5 2A 25 F1 5E 23 56 EB 11 12 00 ......*%.^#V....
0104E0: 19 5E 23 56 EB 11 07 00 19 CD 3A 05 21 30 00 65 .^#V......:.!0.e
0104F0: 2E 01 E5 CD 8D 06 D1 7D B3 6F D1 7D A3 6F CB 45 .......}.o.}£o.E
010500: CA 29 33 2A 25 F1 5E 23 56 EB 11 14 00 19 5E 23 .)3*%.^#V.....^#
010510: 56 EB EB 2A 25 F1 73 23 72 2A 25 F1 E5 CD 56 2D V..*%.s#r*%...V-
010520: 21 01 00 22 94 F2 C3 2C 36 2A 25 F1 5E 23 56 EB !.."...,6*%.^#V.
010530: CD 3A 05 CD 4D 05 04 70 6C 75 73 CD 8D 06 E5 2A .:..M..plus....*
010540: 25 F1 5E 23 56 EB CD 3A 05 CD 4D 05 05 6D 6F 69 %.^#V..:..M..moi
010550: 6E 73 CD 8D 06 D1 7D B3 6F E5 2A 25 F1 5E 23 56 ns....}.o.*%.^#V
010560: EB 11 14 00 19 5E 23 56 EB E5 21 00 00 D1 CD 7F .....^#V..!.....
010570: 06 E5 2A 25 F1 5E 23 56 EB 11 14 00 19 5E 23 56 ..*%.^#V.....^#V
010580: EB 11 07 00 19 CD 3A 05 21 30 00 65 2E 01 E5 CD ......:.!0.e....
010590: 8D 06 D1 7D B3 6F D1 7D A3 6F CB 45 CA FB 33 2A ...}.o.}£o.E..3*
0105A0: 25 F1 5E 23 56 EB 11 07 00 19 CD 3A 05 21 2D 00 %.^#V......:.!-.
0105B0: 65 2E 01 E5 CD 8D 06 CB 45 CA D5 33 2A 25 F1 5E e.......E..3*%.^
0105C0: 23 56 EB 11 12 00 19 E5 CD 50 2D EB 2A 25 F1 73 #V.......P-.*%.s
0105D0: 23 72 C3 EB 33 2A 25 F1 5E 23 56 EB 11 12 00 19 #r..3*%.^#V.....
0105E0: 5E 23 56 EB EB 2A 25 F1 73 23 72 2A 25 F1 E5 CD ^#V..*%.s#r*%...
0105F0: 56 2D 21 01 00 22 94 F2 C3 2C 36 2A 25 F1 5E 23 V-!.."...,6*%.^#
010600: 56 EB CD 3A 05 CD 4D 05 05 70 75 69 73 73 CD 8D V..:..M..puiss..
010610: 06 E5 2A 25 F1 5E 23 56 EB 11 12 00 19 5E 23 56 ..*%.^#V.....^#V
010620: EB CD 3A 05 CD 4D 05 06 6E 6F 6D 62 72 65 CD 8D ..:..M..nombre..
010630: 06 D1 7D A3 6F E5 2A 25 F1 5E 23 56 EB 11 12 00 ..}£o.*%.^#V....
010640: 19 5E 23 56 EB 11 07 00 19 CD 3A 05 21 31 00 65 .^#V......:.!1.e
010650: 2E 01 E5 CD 8D 06 D1 7D A3 6F CB 45 CA 85 34 2A .......}£o.E..4*
010660: 25 F1 5E 23 56 EB 11 14 00 19 5E 23 56 EB EB 2A %.^#V.....^#V..*
010670: 25 F1 73 23 72 2A 25 F1 E5 CD 56 2D 21 01 00 22 %.s#r*%...V-!.."
010680: 94 F2 C3 2C 36 2A 25 F1 5E 23 56 EB CD 3A 05 CD ...,6*%.^#V..:..
010690: 4D 05 05 70 75 69 73 73 CD 8D 06 E5 2A 25 F1 5E M..puiss....*%.^
0106A0: 23 56 EB 11 12 00 19 5E 23 56 EB CD 3A 05 CD 4D #V.....^#V..:..M
0106B0: 05 06 6E 6F 6D 62 72 65 CD 8D 06 D1 7D A3 6F E5 ..nombre....}£o.
0106C0: 2A 25 F1 5E 23 56 EB 11 14 00 19 5E 23 56 EB CD *%.^#V.....^#V..
0106D0: 3A 05 CD 4D 05 05 70 75 69 73 73 CD 8D 06 D1 7D :..M..puiss....}
0106E0: A3 6F E5 2A 25 F1 5E 23 56 EB 11 14 00 19 5E 23 £o.*%.^#V.....^#
0106F0: 56 EB 11 12 00 19 5E 23 56 EB CD 3A 05 CD 4D 05 V.....^#V..:..M.
010700: 7A 3A 3D 31 20 74 6F 20 6D 5B 69 5D 20 64 6F 0D z:=1 to m[i] do.
010710: 0A 20 20 20 20 20 20 20 62 65 67 69 6E 0D 0A 20 . begin..
010720: 20 20 20 20 20 20 77 72 69 74 65 28 27 56 61 6C write('Val
010730: 65 75 72 20 64 75 20 70 61 72 61 6D 65 74 72 65 eur du parametre
010740: 20 6E 2E 27 29 3B 77 72 69 74 65 28 7A 29 3B 77 n.');write(z);w
010750: 72 69 74 65 28 27 20 3D 27 29 3B 72 65 61 64 6C rite(' =');readl
010760: 6E 28 70 5B 7A 2C 69 5D 29 3B 0D 0A 20 20 20 20 n(p[z,i]);..
010770: 20 20 20 65 6E 64 3B 0D 0A 20 20 20 20 20 20 20 end;..
010780: 65 6E 64 3B 0D 0A 20 20 20 20 20 20 20 63 61 6C end;.. cal
010790: 63 75 6C 66 6F 6E 63 74 69 6F 6E 28 66 5B 69 5D culfonction(f[i]
0107A0: 29 3B 0D 0A 20 20 20 20 20 20 20 65 6E 64 3B 0D );.. end;.
0107B0: 0A 20 33 3A 20 20 20 20 67 72 61 70 68 65 28 30 . 3: graphe(0
0107C0: 29 3B 0D 0A 0D 0A 65 6E 64 3B 0D 0A 75 6E 74 69 );....end;..unti
0107D0: 6C 20 63 68 6F 69 78 3D 34 3B 0D 0A 65 6E 64 3B l choix=4;..end;
0107E0: 0D 0A 0D 0D 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0107F0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
010800: 6D 65 27 29 3B 0D 0A 77 72 69 74 65 6C 6E 3B 77 me');..writeln;w
010810: 72 69 74 65 6C 6E 28 27 20 56 4F 54 52 45 20 43 riteln(' VOTRE C
010820: 48 4F 49 58 3F 20 27 29 3B 0D 0A 72 65 61 64 6C HOIX? ');..readl
010830: 6E 28 63 68 6F 69 78 29 3B 6D 65 6E 75 3A 3D 63 n(choix);menu:=c
010840: 68 6F 69 78 3B 0D 0A 65 6E 64 3B 0D 0A 0D 0A 66 hoix;..end;....f
010850: 75 6E 63 74 69 6F 6E 20 6E 75 6D 66 6F 6E 63 3A unction numfonc:
010860: 69 6E 74 65 67 65 72 3B 0D 0A 76 61 72 20 6A 3A integer;..var j:
010870: 69 6E 74 65 67 65 72 3B 0D 0A 0D 0A 62 65 67 69 integer;....begi
010880: 6E 0D 0A 63 61 72 3A 3D 27 20 27 3B 0D 0A 72 65 n..car:=' ';..re
010890: 70 65 61 74 0D 0A 72 65 61 64 28 6B 62 64 2C 63 peat..read(kbd,c
0108A0: 61 72 29 3B 0D 0A 75 6E 74 69 6C 20 28 28 63 61 ar);..until ((ca
0108B0: 72 3E 27 30 27 29 20 61 6E 64 20 28 63 61 72 3C r>'0') and (car<
0108C0: 27 3A 27 29 29 3B 0D 0A 77 72 69 74 65 6C 6E 28 ':'));..writeln(
0108D0: 63 61 72 29 3B 0D 0A 76 61 6C 28 63 61 72 2C 6A car);..val(car,j
0108E0: 2C 72 65 73 75 6C 74 29 3B 0D 0A 6E 75 6D 66 6F ,result);..numfo
0108F0: 6E 63 3A 3D 6A 3B 0D 0A 65 6E 64 3B 0D 0A 0D 0A nc:=j;..end;....
010900: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010910: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010920: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010930: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010940: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010950: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010960: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010970: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010980: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010990: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0109A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0109B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0109C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0109D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0109E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
0109F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010A00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010A10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010A20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010A30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010A40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010A50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010A60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010A70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010A80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010A90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010AA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010AB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010AC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010AD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010AE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010AF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
010B00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
010B10: 0E 00 00 00 02 09 4E E5 0E 00 41 02 00 00 00 02 ......N...A.....
010B20: 0E 00 42 02 00 00 00 02 0E 00 43 02 00 00 00 02 ..B.......C.....
010B30: 0E 00 44 02 00 00 00 02 0E 00 45 02 00 00 00 02 ..D.......E.....
010B40: 0E 00 46 02 00 00 00 02 0E 00 47 02 00 00 00 02 ..F.......G.....
010B50: 0E 00 48 02 00 00 00 02 0E 00 49 02 00 00 00 02 ..H.......I.....
010B60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010B70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010B80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010B90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010BA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010BB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010BC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010BD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010BE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010BF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
010C00: 06 6E 6F 6D 62 72 65 CD 8D 06 D1 7D A3 6F CB 45 .nombre....}£o.E
010C10: CA D6 35 21 1B F1 E5 21 16 00 CD E5 1C CD 4D 05 ..5!...!......M.
010C20: 05 6D 75 6C 74 69 06 06 2A 1B F1 CD E2 05 2A 1B .multi..*.....*.
010C30: F1 11 07 00 19 E5 21 2A 00 65 2E 01 E5 06 0A CD ......!*.e......
010C40: 01 06 2A 1B F1 11 12 00 19 E5 2A 25 F1 5E 23 56 ..*.......*%.^#V
010C50: EB 11 12 00 19 5E 23 56 EB EB E1 73 23 72 2A 1B .....^#V...s#r*.
010C60: F1 11 14 00 19 E5 2A 25 F1 5E 23 56 EB 11 14 00 ......*%.^#V....
010C70: 19 5E 23 56 EB 11 12 00 19 5E 23 56 EB EB E1 73 .^#V.....^#V...s
010C80: 23 72 2A 25 F1 5E 23 56 EB 11 12 00 19 E5 2A 1B #r*%.^#V......*.
010C90: F1 EB E1 73 23 72 2A 25 F1 5E 23 56 EB 11 14 00 ...s#r*%.^#V....
010CA0: 19 E5 2A 25 F1 5E 23 56 EB 11 14 00 19 5E 23 56 ..*%.^#V.....^#V
010CB0: EB 11 14 00 19 5E 23 56 EB EB E1 73 23 72 2A 25 .....^#V...s#r*%
010CC0: F1 5E 23 56 EB 11 12 00 19 E5 CD 56 2D 21 01 00 .^#V.......V-!..
010CD0: 22 94 F2 C3 2C 36 2A 25 F1 5E 23 56 EB 11 12 00 "...,6*%.^#V....
010CE0: 19 5E 23 56 EB E5 21 00 00 D1 CD 92 06 CB 45 CA .^#V..!.......E.
010CF0: 01 36 2A 25 F1 5E 23 56 EB 11 12 00 19 E5 CD 56 .6*%.^#V.......V
010D00: 2D 2A 25 F1 5E 23 56 EB 11 14 00 19 5E 23 56 EB -*%.^#V.....^#V.
010D10: E5 21 00 00 D1 CD 92 06 CB 45 CA 2C 36 2A 25 F1 .!.......E.,6*%.
010D20: 5E 23 56 EB 11 14 00 19 E5 CD 56 2D 01 12 00 11 ^#V.......V-....
010D30: 15 F1 C3 22 05 C3 26 49 01 1E 00 21 F7 F0 CD 08 ..."..&I...!....
010D40: 05 FD E1 E1 D1 C1 D9 21 07 F1 CD D1 05 E1 22 0D .......!......".
010D50: F1 FD E5 2A 0D F1 CD 3A 05 CD 4D 05 06 6E 6F 6D ...*...:..M..nom
010D60: 62 72 65 CD 8D 06 CB 45 CA 8F 36 2A 0D F1 11 07 bre....E..6*....
010D70: 00 19 CD 3A 05 21 F9 F0 E5 21 F7 F0 CD F3 1E 21 ...:.!...!.....!
010D80: F9 F0 CD 2C 05 D9 21 0F F1 CD D1 05 C3 C7 3F 2A ...,..!.......?*
010D90: 0D F1 CD 3A 05 CD 4D 05 05 70 61 72 61 6D CD 8D ...:..M..param..
010DA0: 06 CB 45 CA EB 36 2A 0D F1 11 07 00 19 CD 3A 05 ..E..6*.......:.
010DB0: 21 92 F2 E5 21 F7 F0 CD F4 1E 21 DC F1 E5 2A 92 !...!.....!...*.
010DC0: F2 2B 29 29 E5 29 E5 29 E5 29 D1 19 D1 19 D1 19 .+)).).).)......
010DD0: D1 19 E5 2A 98 F2 2B 29 5D 54 29 19 D1 19 CD 2C ...*..+)]T)....,
010DE0: 05 D9 21 0F F1 CD D1 05 C3 C7 3F 2A 0D F1 CD 3A ..!.......?*...:
010DF0: 05 CD 4D 05 06 76 61 72 69 61 62 CD 8D 06 CB 45 ..M..variab....E
010E00: CA 13 37 21 07 F1 CD 2C 05 D9 21 0F F1 CD D1 05 ..7!...,..!.....
010E10: C3 C7 3F 2A 0D F1 CD 3A 05 CD 4D 05 04 70 6C 75 ..?*...:..M..plu
010E20: 73 CD 8D 06 CB 45 CA 6D 37 2A 0D F1 11 14 00 19 s....E.m7*......
010E30: 5E 23 56 EB E5 21 07 F1 CD 2C 05 C5 D5 E5 CD 4D ^#V..!...,.....M
010E40: 2D C5 D5 E5 2A 0D F1 11 12 00 19 5E 23 56 EB E5 -...*......^#V..
010E50: 21 07 F1 CD 2C 05 C5 D5 E5 CD 4D 2D D9 E1 D1 C1 !...,.....M-....
010E60: CD E9 09 D9 21 0F F1 CD D1 05 C3 C7 3F 2A 0D F1 ....!.......?*..
010E70: CD 3A 05 CD 4D 05 05 6D 6F 69 6E 73 CD 8D 06 CB .:..M..moins....
010E80: 45 CA C8 37 2A 0D F1 11 14 00 19 5E 23 56 EB E5 E..7*......^#V..
010E90: 21 07 F1 CD 2C 05 C5 D5 E5 CD 4D 2D C5 D5 E5 2A !...,.....M-...*
010EA0: 0D F1 11 12 00 19 5E 23 56 EB E5 21 07 F1 CD 2C ......^#V..!...,
010EB0: 05 C5 D5 E5 CD 4D 2D D9 E1 D1 C1 CD F2 09 D9 21 .....M-........!
010EC0: 0F F1 CD D1 05 C3 C7 3F 2A 0D F1 CD 3A 05 CD 4D .......?*...:..M
010ED0: 05 05 6D 75 6C 74 69 CD 8D 06 CB 45 CA 23 38 2A ..multi....E.#8*
010EE0: 0D F1 11 14 00 19 5E 23 56 EB E5 21 07 F1 CD 2C ......^#V..!...,
010EF0: 05 C5 D5 E5 CD 4D 2D C5 D5 E5 2A 0D F1 11 12 00 .....M-...*.....
010F00: 19 5E 23 56 EB E5 21 07 F1 CD 2C 05 C5 D5 E5 CD .^#V..!...,.....
010F10: 4D 2D D9 E1 D1 C1 CD FA 09 D9 21 0F F1 CD D1 05 M-........!.....
010F20: C3 C7 3F 2A 0D F1 CD 3A 05 CD 4D 05 05 70 75 69 ..?*...:..M..pui
010F30: 73 73 CD 8D 06 CB 45 CA 31 39 2A 0D F1 11 12 00 ss....E.19*.....
010F40: 19 5E 23 56 EB E5 21 07 F1 CD 2C 05 C5 D5 E5 CD .^#V..!...,.....
010F50: 4D 2D CD 34 0C C5 D5 E5 21 00 00 CD 08 10 D9 E1 M-.4....!.......
010F60: D1 C1 CD 88 06 CB 45 CA AD 38 2A 0D F1 11 14 00 ......E..8*.....
010F70: 19 5E 23 56 EB E5 21 07 F1 CD 2C 05 C5 D5 E5 CD .^#V..!...,.....
010F80: 4D 2D C5 D5 E5 2A 0D F1 11 12 00 19 5E 23 56 EB M-...*......^#V.
010F90: E5 21 07 F1 CD 2C 05 C5 D5 E5 CD 4D 2D C5 D5 E5 .!...,.....M-...
010FA0: CD 35 36 D9 21 0F F1 CD D1 05 C3 2E 39 2A 0D F1 .56.!.......9*..
010FB0: 11 14 00 19 5E 23 56 EB E5 21 07 F1 CD 2C 05 C5 ....^#V..!...,..
010FC0: D5 E5 CD 4D 2D C5 D5 E5 21 00 00 CD 08 10 D9 E1 ...M-...!.......
010FD0: D1 C1 CD C2 06 CB 45 CA E7 38 21 00 00 7D 32 C7 ......E..8!..}2.
010FE0: F1 C3 C7 3F C3 2E 39 2A 0D F1 11 14 00 19 5E 23 ...?..9*......^#
010FF0: 56 EB E5 21 07 F1 CD 2C 05 C5 D5 E5 CD 4D 2D CD V..!...,.....M-.
011000: 2B 0D C5 D5 E5 2A 0D F1 11 12 00 19 5E 23 56 EB +....*......^#V.
011010: E5 21 07 F1 CD 2C 05 C5 D5 E5 CD 4D 2D D9 E1 D1 .!...,.....M-...
011020: C1 CD FA 09 CD B6 0D D9 21 0F F1 CD D1 05 C3 C7 ........!.......
011030: 3F 2A 0D F1 CD 3A 05 CD 4D 05 06 64 69 76 69 73 ?*...:..M..divis
011040: 65 CD 8D 06 CB 45 CA C7 39 2A 0D F1 11 12 00 19 e....E..9*......
011050: 5E 23 56 EB E5 21 07 F1 CD 2C 05 C5 D5 E5 CD 4D ^#V..!...,.....M
011060: 2D C5 D5 E5 21 00 00 CD 08 10 D9 E1 D1 C1 CD 88 -...!...........
011070: 06 CB 45 CA 83 39 21 00 00 7D 32 C7 F1 C3 C7 3F ..E..9!..}2....?
011080: C3 C4 39 2A 0D F1 11 14 00 19 5E 23 56 EB E5 21 ..9*......^#V..!
011090: 07 F1 CD 2C 05 C5 D5 E5 CD 4D 2D C5 D5 E5 2A 0D ...,.....M-...*.
0110A0: F1 11 12 00 19 5E 23 56 EB E5 21 07 F1 CD 2C 05 .....^#V..!...,.
0110B0: C5 D5 E5 CD 4D 2D D9 E1 D1 C1 CD FF 09 D9 21 0F ....M-........!.
0110C0: F1 CD D1 05 C3 C7 3F 2A 0D F1 CD 3A 05 CD 4D 05 ......?*...:..M.
0110D0: 05 69 64 66 63 74 CD 8D 06 CB 45 CA AA 3F 2A 0D .idfct....E..?*.
0110E0: F1 11 12 00 19 5E 23 56 EB E5 21 07 F1 CD 2C 05 .....^#V..!...,.
0110F0: C5 D5 E5 CD 4D 2D D9 21 F9 F0 CD D1 05 2A 0D F1 ....M-.!.....*..
011100: 11 07 00 19 CD 3A 05 CD 4D 05 03 63 6F 73 CD 8D .....:..M..cos..
011110: 06 CB 45 CA 29 3A 21 F9 F0 CD 2C 05 CD 7F 0C D9 ..E.):!...,.....
011120: 21 0F F1 CD D1 05 C3 A7 3F 2A 0D F1 11 07 00 19 !.......?*......
011130: CD 3A 05 CD 4D 05 03 73 69 6E CD 8D 06 CB 45 CA .:..M..sin....E.
011140: 55 3A 21 F9 F0 CD 2C 05 CD 87 0C D9 21 0F F1 CD U:!...,.....!...
011150: D1 05 C3 A7 3F 2A 0D F1 11 07 00 19 CD 3A 05 CD ....?*.......:..
011160: 4D 05 04 74 61 6E 67 CD 8D 06 CB 45 CA C0 3A 21 M..tang....E..:!
011170: F9 F0 CD 2C 05 CD 7F 0C C5 D5 E5 21 00 00 CD 08 ...,.......!....
011180: 10 D9 E1 D1 C1 CD 88 06 CB 45 CA 9A 3A 21 00 00 .........E..:!..
011190: 7D 32 C7 F1 C3 C7 3F C3 BD 3A 21 F9 F0 CD 2C 05 }2....?..:!...,.
0111A0: CD 87 0C C5 D5 E5 21 F9 F0 CD 2C 05 CD 7F 0C D9 ......!...,.....
0111B0: E1 D1 C1 CD FF 09 D9 21 0F F1 CD D1 05 C3 A7 3F .......!.......?
0111C0: 2A 0D F1 11 07 00 19 CD 3A 05 CD 4D 05 03 69 6E *.......:..M..in
0111D0: 74 CD 8D 06 CB 45 CA EC 3A 21 F9 F0 CD 2C 05 CD t....E..:!...,..
0111E0: FD 0B D9 21 0F F1 CD D1 05 C3 A7 3F 2A 0D F1 11 ...!.......?*...
0111F0: 07 00 19 CD 3A 05 CD 4D 05 03 61 62 73 CD 8D 06 ....:..M..abs...
011200: CB 45 CA 17 3B 21 F9 F0 CD 2C 05 CB B8 D9 21 0F .E..;!...,....!.
011210: F1 CD D1 05 C3 A7 3F 2A 0D F1 11 07 00 19 CD 3A ......?*.......:
011220: 05 CD 4D 05 06 61 72 63 74 61 6E CD 8D 06 CB 45 ..M..arctan....E
011230: CA 46 3B 21 F9 F0 CD 2C 05 CD 46 0E D9 21 0F F1 .F;!...,..F..!..
011240: CD D1 05 C3 A7 3F 2A 0D F1 11 07 00 19 CD 3A 05 .....?*.......:.
011250: CD 4D 05 03 65 78 70 CD 8D 06 CB 45 CA 72 3B 21 .M..exp....E.r;!
011260: F9 F0 CD 2C 05 CD B6 0D D9 21 0F F1 CD D1 05 C3 ...,.....!......
011270: A7 3F 2A 0D F1 11 07 00 19 CD 3A 05 CD 4D 05 02 .?*.......:..M..
011280: 6C 6E CD 8D 06 CB 45 CA C5 3B 21 F9 F0 CD 2C 05 ln....E..;!...,.
011290: C5 D5 E5 21 00 00 CD 08 10 D9 E1 D1 C1 CD C2 06 ...!............
0112A0: CB 45 CA B2 3B 21 00 00 7D 32 C7 F1 C3 C7 3F C3 .E..;!..}2....?.
0112B0: C2 3B 21 F9 F0 CD 2C 05 CD 2B 0D D9 21 0F F1 CD .;!...,..+..!...
0112C0: D1 05 C3 A7 3F 2A 0D F1 11 07 00 19 CD 3A 05 CD ....?*.......:..
0112D0: 4D 05 04 73 71 72 74 CD 8D 06 CB 45 CA 1A 3C 21 M..sqrt....E..<!
0112E0: F9 F0 CD 2C 05 C5 D5 E5 21 00 00 CD 08 10 D9 E1 ...,....!.......
0112F0: D1 C1 CD E9 06 CB 45 CA 07 3C 21 00 00 7D 32 C7 ......E..<!..}2.
011300: F1 C3 C7 3F C3 17 3C 21 F9 F0 CD 2C 05 CD 46 0C ...?..<!...,..F.
011310: D9 21 0F F1 CD D1 05 C3 A7 3F 2A 0D F1 11 07 00 .!.......?*.....
011320: 19 CD 3A 05 CD 4D 05 02 73 68 CD 8D 06 CB 45 CA ..:..M..sh....E.
011330: 7B 3C 21 80 00 11 00 00 01 00 00 C5 D5 E5 21 F9 {<!...........!.
011340: F0 CD 2C 05 CD B6 0D C5 D5 E5 21 F9 F0 CD 2C 05 ..,.......!...,.
011350: C5 D5 E5 21 FF FF CD 08 10 D9 E1 D1 C1 CD FA 09 ...!............
011360: CD B6 0D D9 E1 D1 C1 CD F2 09 D9 E1 D1 C1 CD FA ................
011370: 09 D9 21 0F F1 CD D1 05 C3 A7 3F 2A 0D F1 11 07 ..!.......?*....
011380: 00 19 CD 3A 05 CD 4D 05 02 63 68 CD 8D 06 CB 45 ...:..M..ch....E
011390: CA DC 3C 21 80 00 11 00 00 01 00 00 C5 D5 E5 21 ..<!...........!
0113A0: F9 F0 CD 2C 05 CD B6 0D C5 D5 E5 21 F9 F0 CD 2C ...,.......!...,
0113B0: 05 C5 D5 E5 21 FF FF CD 08 10 D9 E1 D1 C1 CD FA ....!...........
0113C0: 09 CD B6 0D D9 E1 D1 C1 CD E9 09 D9 E1 D1 C1 CD ................
0113D0: FA 09 D9 21 0F F1 CD D1 05 C3 A7 3F 2A 0D F1 11 ...!.......?*...
0113E0: 07 00 19 CD 3A 05 CD 4D 05 02 74 68 CD 8D 06 CB ....:..M..th....
0113F0: 45 CA 60 3D 21 F9 F0 CD 2C 05 CD B6 0D C5 D5 E5 E.`=!...,.......
011400: 21 F9 F0 CD 2C 05 C5 D5 E5 21 FF FF CD 08 10 D9 !...,....!......
011410: E1 D1 C1 CD FA 09 CD B6 0D D9 E1 D1 C1 CD F2 09 ................
011420: C5 D5 E5 21 F9 F0 CD 2C 05 CD B6 0D C5 D5 E5 21 ...!...,.......!
011430: F9 F0 CD 2C 05 C5 D5 E5 21 FF FF CD 08 10 D9 E1 ...,....!.......
011440: D1 C1 CD FA 09 CD B6 0D D9 E1 D1 C1 CD E9 09 D9 ................
011450: E1 D1 C1 CD FF 09 D9 21 0F F1 CD D1 05 C3 A7 3F .......!.......?
011460: 2A 0D F1 11 07 00 19 CD 3A 05 CD 4D 05 06 61 72 *.......:..M..ar
011470: 63 73 69 6E CD 8D 06 CB 45 CA 83 3E 21 F9 F0 CD csin....E..>!...
011480: 2C 05 C5 D5 E5 21 FF FF CD 08 10 D9 E1 D1 C1 CD ,....!..........
011490: 88 06 CB 45 CA BD 3D 21 80 00 11 00 00 01 00 80 ...E..=!........
0114A0: C5 D5 E5 21 82 21 11 A2 DA 01 0F 49 D9 E1 D1 C1 ...!.!.....I....
0114B0: CD FA 09 D9 21 0F F1 CD D1 05 C3 80 3E 21 F9 F0 ....!.......>!..
0114C0: CD 2C 05 C5 D5 E5 21 01 00 CD 08 10 D9 E1 D1 C1 .,....!.........
0114D0: CD 88 06 CB 45 CA FE 3D 21 80 00 11 00 00 01 00 ....E..=!.......
0114E0: 00 C5 D5 E5 21 82 21 11 A2 DA 01 0F 49 D9 E1 D1 ....!.!.....I...
0114F0: C1 CD FA 09 D9 21 0F F1 CD D1 05 C3 80 3E 21 F9 .....!.......>!.
011500: F0 CD 2C 05 C5 D5 E5 21 FF FF CD 08 10 D9 E1 D1 ..,....!........
011510: C1 CD E9 06 E5 21 F9 F0 CD 2C 05 C5 D5 E5 21 01 .....!...,....!.
011520: 00 CD 08 10 D9 E1 D1 C1 CD D6 06 D1 7D B3 6F CB ............}.o.
011530: 45 CA 41 3E 21 00 00 7D 32 C7 F1 C3 C7 3F C3 80 E.A>!..}2....?..
011540: 3E 21 F9 F0 CD 2C 05 C5 D5 E5 21 01 00 E5 21 F9 >!...,....!...!.
011550: F0 CD 2C 05 C5 D5 E5 21 F9 F0 CD 2C 05 D9 E1 D1 ..,....!...,....
011560: C1 CD FA 09 D9 E1 CD 08 10 CD F2 09 CD 46 0C D9 .............F..
011570: E1 D1 C1 CD FF 09 CD 46 0E D9 21 0F F1 CD D1 05 .......F..!.....
011580: C3 A7 3F 2A 0D F1 11 07 00 19 CD 3A 05 CD 4D 05 ..?*.......:..M.
011590: 06 61 72 63 63 6F 73 CD 8D 06 CB 45 CA A0 3F 21 .arccos....E..?!
0115A0: F9 F0 CD 2C 05 C5 D5 E5 21 FF FF CD 08 10 D9 E1 ...,....!.......
0115B0: D1 C1 CD 88 06 CB 45 CA CD 3E 21 82 21 11 A2 DA ......E..>!.!...
0115C0: 01 0F 49 D9 21 0F F1 CD D1 05 C3 9D 3F 21 F9 F0 ..I.!.......?!..
0115D0: CD 2C 05 C5 D5 E5 21 01 00 CD 08 10 D9 E1 D1 C1 .,....!.........
0115E0: CD 88 06 CB 45 CA F8 3E 21 00 00 CD 08 10 D9 21 ....E..>!......!
0115F0: 0F F1 CD D1 05 C3 9D 3F 21 F9 F0 CD 2C 05 C5 D5 .......?!...,...
011600: E5 21 FF FF CD 08 10 D9 E1 D1 C1 CD E9 06 E5 21 .!.............!
011610: F9 F0 CD 2C 05 C5 D5 E5 21 01 00 CD 08 10 D9 E1 ...,....!.......
011620: D1 C1 CD D6 06 D1 7D B3 6F CB 45 CA 3B 3F 21 00 ......}.o.E.;?!.
011630: 00 7D 32 C7 F1 C3 C7 3F C3 9D 3F 21 82 21 11 A2 .}2....?..?!.!..
011640: DA 01 0F 49 C5 D5 E5 21 02 00 CD 08 10 D9 E1 D1 ...I...!........
011650: C1 CD FF 09 C5 D5 E5 21 F9 F0 CD 2C 05 C5 D5 E5 .......!...,....
011660: 21 01 00 E5 21 F9 F0 CD 2C 05 C5 D5 E5 21 F9 F0 !...!...,....!..
011670: CD 2C 05 D9 E1 D1 C1 CD FA 09 D9 E1 CD 08 10 CD .,..............
011680: F2 09 CD 46 0C D9 E1 D1 C1 CD FF 09 CD 46 0E D9 ...F.........F..
011690: E1 D1 C1 CD F2 09 D9 21 0F F1 CD D1 05 C3 A7 3F .......!.......?
0116A0: 21 0A 00 E5 CD 78 21 C3 C7 3F 2A 0D F1 E5 21 00 !....x!..?*...!.
0116B0: 00 D1 CD 7F 06 CB 45 CA C7 3F 21 00 00 CD 08 10 ......E..?!.....
0116C0: D9 21 0F F1 CD D1 05 21 0F F1 CD 2C 05 D9 01 1E .!.....!...,....
0116D0: 00 11 F7 F0 C3 22 05 01 0F 03 21 E8 ED CD 08 05 ....."....!.....
0116E0: FD E1 E1 7D 32 F9 EF E1 22 FA EF FD E5 2A FA EF ...}2..."....*..
0116F0: CD 3A 05 CD 4D 05 05 69 64 66 63 74 CD 8D 06 CB .:..M..idfct....
011700: 45 CA 45 40 2A FA EF 11 07 00 19 CD 3A 05 21 28 E.E@*.......:.!(
011710: 00 65 2E 01 E5 CD 3D 08 2A FA EF 11 12 00 19 5E .e....=.*......^
011720: 23 56 EB E5 2A F9 EF 26 00 E5 CD 53 2D CD 3D 08 #V..*..&...S-.=.
011730: 21 29 00 65 2E 01 E5 CD 3D 08 06 FA 21 FC EF CD !).e....=...!...
011740: E2 05 C3 0F 44 2A FA EF CD 3A 05 CD 4D 05 06 6E ....D*...:..M..n
011750: 6F 6D 62 72 65 CD 8D 06 CB 45 CA 72 40 2A FA EF ombre....E.r@*..
011760: 11 07 00 19 CD 3A 05 06 FA 21 FC EF CD E2 05 C3 .....:...!......
011770: 0F 44 2A FA EF CD 3A 05 CD 4D 05 05 70 61 72 61 .D*...:..M..para
011780: 6D CD 8D 06 CB 45 CA B1 40 CD 4D 05 02 70 28 2A m....E..@.M..p(*
011790: FA EF 11 07 00 19 CD 3A 05 CD 3D 08 21 29 00 65 .......:..=.!).e
0117A0: 2E 01 E5 CD 3D 08 06 FA 21 FC EF CD E2 05 C3 0F ....=...!.......
0117B0: 44 2A FA EF CD 3A 05 CD 4D 05 06 76 61 72 69 61 D*...:..M..varia
0117C0: 62 CD 8D 06 CB 45 CA DD 40 2A F9 EF 26 00 65 2E b....E..@*..&.e.
0117D0: 01 E5 06 FA 21 FC EF CD E2 05 C3 0F 44 2A FA EF ....!.......D*..
0117E0: CD 3A 05 CD 4D 05 04 70 6C 75 73 CD 8D 06 E5 2A .:..M..plus....*
0117F0: FA EF CD 3A 05 CD 4D 05 05 6D 6F 69 6E 73 CD 8D ...:..M..moins..
011800: 06 D1 7D B3 6F CB 45 CA 78 43 2A FA EF 11 12 00 ..}.o.E.xC*.....
011810: 19 5E 23 56 EB E5 2A F9 EF 26 00 E5 CD 53 2D 06 .^#V..*..&...S-.
011820: FA 21 F6 EE CD E2 05 2A FA EF 11 14 00 19 5E 23 .!.....*......^#
011830: 56 EB E5 2A F9 EF 26 00 E5 CD 53 2D 06 FA 21 FB V..*..&...S-..!.
011840: ED CD E2 05 2A FA EF 11 12 00 19 5E 23 56 EB 11 ....*......^#V..
011850: 07 00 19 CD 3A 05 21 2B 00 65 2E 01 E5 CD 8D 06 ....:.!+.e......
011860: E5 2A FA EF 11 12 00 19 5E 23 56 EB 11 07 00 19 .*......^#V.....
011870: CD 3A 05 21 2D 00 65 2E 01 E5 CD 8D 06 D1 7D B3 .:.!-.e.......}.
011880: 6F E5 2A FA EF 11 07 00 19 CD 3A 05 21 2B 00 65 o.*.......:.!+.e
011890: 2E 01 E5 CD 8D 06 D1 7D A3 6F CB 45 CA C1 41 21 .......}£o.E..A!
0118A0: F6 EE E5 21 01 00 E5 21 01 00 CD F3 08 21 F6 EE ...!...!.....!..
0118B0: E5 21 F6 EE CD 3A 05 CD A3 08 E5 21 01 00 CD F3 .!...:..£..!....
0118C0: 08 2A FA EF 11 14 00 19 5E 23 56 EB 11 07 00 19 .*......^#V.....
0118D0: CD 3A 05 21 2B 00 65 2E 01 E5 CD 8D 06 E5 2A FA .:.!+.e.......*.
0118E0: EF 11 14 00 19 5E 23 56 EB 11 07 00 19 CD 3A 05 .....^#V......:.
0118F0: 21 2D 00 65 2E 01 E5 CD 8D 06 D1 7D B3 6F CB 45 !-.e.......}.o.E
011900: CA 25 42 21 FB ED E5 21 01 00 E5 21 01 00 CD F3 .%B!...!...!....
011910: 08 21 FB ED E5 21 FB ED CD 3A 05 CD A3 08 E5 21 .!...!...:..£..!
011920: 01 00 CD F3 08 21 01 00 CD 08 10 D9 21 F5 ED CD .....!......!...
011930: D1 05 2A FA EF 11 12 00 19 5E 23 56 EB CD 3A 05 ..*......^#V..:.
011940: CD 4D 05 06 6E 6F 6D 62 72 65 CD 8D 06 CB 45 CA .M..nombre....E.
011950: 6E 42 2A FA EF 11 12 00 19 5E 23 56 EB 11 07 00 nB*......^#V....
011960: 19 CD 3A 05 21 F5 ED E5 21 F3 ED CD F3 1E 2A FA ..:.!...!.....*.
011970: EF 11 12 00 19 5E 23 56 EB 11 07 00 19 CD 3A 05 .....^#V......:.
011980: 21 2A 00 65 2E 01 E5 CD 8D 06 E5 2A FA EF 11 12 !*.e.......*....
011990: 00 19 5E 23 56 EB 11 14 00 19 5E 23 56 EB CD 3A ..^#V.....^#V..:
0119A0: 05 CD 4D 05 06 6E 6F 6D 62 72 65 CD 8D 06 D1 7D ..M..nombre....}
0119B0: A3 6F CB 45 CA DB 42 2A FA EF 11 12 00 19 5E 23 £o.E..B*......^#
0119C0: 56 EB 11 14 00 19 5E 23 56 EB 11 07 00 19 CD 3A V.....^#V......:
0119D0: 05 21 F5 ED E5 21 F3 ED CD F3 1E 2A FA EF 11 07 .!...!.....*....
0119E0: 00 19 CD 3A 05 21 2B 00 65 2E 01 E5 CD 8D 06 E5 ...:.!+.e.......
0119F0: 21 F5 ED CD 2C 05 C5 D5 E5 21 00 00 CD 08 10 D9 !...,....!......
011A00: E1 D1 C1 CD E9 06 D1 7D A3 6F CB 45 CA 3D 43 21 .......}£o.E.=C!
011A10: 28 00 E5 21 FB ED CD 3A 05 CD A2 09 CD 3D 08 21 (..!...:.....=.!
011A20: F6 EE CD 3A 05 CD 3D 08 21 29 00 65 2E 01 E5 CD ...:..=.!).e....
011A30: 3D 08 06 FA 21 FC EF CD E2 05 C3 75 43 21 28 00 =...!......uC!(.
011A40: E5 21 FB ED CD 3A 05 CD A2 09 CD 3D 08 2A FA EF .!...:.....=.*..
011A50: 11 07 00 19 CD 3A 05 CD 3D 08 21 F6 EE CD 3A 05 .....:..=.!...:.
011A60: CD 3D 08 21 29 00 65 2E 01 E5 CD 3D 08 06 FA 21 .=.!).e....=...!
011A70: FC EF CD E2 05 C3 0F 44 2A FA EF CD 3A 05 CD 4D .......D*...:..M
011A80: 05 06 64 69 76 69 73 65 CD 8D 06 E5 2A FA EF CD ..divise....*...
011A90: 3A 05 CD 4D 05 05 6D 75 6C 74 69 CD 8D 06 D1 7D :..M..multi....}
011AA0: B3 6F E5 2A FA EF CD 3A 05 CD 4D 05 05 70 75 69 .o.*...:..M..pui
011AB0: 73 73 CD 8D 06 D1 7D B3 6F CB 45 CA 03 44 2A FA ss....}.o.E..D*.
011AC0: EF 11 14 00 19 5E 23 56 EB E5 2A F9 EF 26 00 E5 .....^#V..*..&..
011AD0: CD 53 2D 2A FA EF 11 07 00 19 CD 3A 05 CD 3D 08 .S-*.......:..=.
011AE0: 2A FA EF 11 12 00 19 5E 23 56 EB E5 2A F9 EF 26 *......^#V..*..&
011AF0: 00 E5 CD 53 2D CD 3D 08 06 FA 21 FC EF CD E2 05 ...S-.=...!.....
011B00: C3 0F 44 CD 4D 05 00 06 FA 21 FC EF CD E2 05 FD ..D.M....!......
011B10: E1 21 FC EF CD 3A 05 FD E5 01 0F 03 11 E8 ED C3 .!...:..........
011B20: 22 05 01 1A 00 21 CE ED CD 08 05 FD E1 E1 22 E4 "....!........".
011B30: ED FD E5 2A E4 ED 5E 23 56 EB 11 07 00 19 CD 3A ...*..^#V......:
011B40: 05 21 2A 00 65 2E 01 E5 CD 8D 06 E5 2A E4 ED 5E .!*.e.......*..^
011B50: 23 56 EB 11 14 00 19 5E 23 56 EB CD 3A 05 CD 4D #V.....^#V..:..M
011B60: 05 06 6E 6F 6D 62 72 65 CD 8D 06 D1 7D A3 6F CB ..nombre....}£o.
011B70: 45 CA E4 44 21 DA ED E5 21 16 00 CD E5 1C CD 4D E..D!...!......M
011B80: 05 05 6D 75 6C 74 69 06 06 2A DA ED CD E2 05 2A ..multi..*.....*
011B90: DA ED 11 07 00 19 E5 21 2A 00 65 2E 01 E5 06 0A .......!*.e.....
011BA0: CD 01 06 2A DA ED 11 12 00 19 E5 2A E4 ED 5E 23 ...*.......*..^#
011BB0: 56 EB 11 12 00 19 5E 23 56 EB EB E1 73 23 72 2A V.....^#V...s#r*
011BC0: DA ED 11 14 00 19 E5 2A E4 ED 5E 23 56 EB 11 14 .......*..^#V...
011BD0: 00 19 E5 CD 50 2D EB E1 73 23 72 2A DA ED 22 E6 ....P-..s#r*..".
011BE0: ED C3 19 49 2A E4 ED 5E 23 56 EB 11 07 00 19 CD ...I*..^#V......
011BF0: 3A 05 21 2A 00 65 2E 01 E5 CD 8D 06 E5 2A E4 ED :.!*.e.......*..
011C00: 66 75 6E 63 74 69 6F 6E 20 63 61 6C 63 75 6C 28 function calcul(
011C10: 66 3A 66 6F 6E 63 74 69 6F 6E 3B 78 3A 72 65 61 f:fonction;x:rea
011C20: 6C 29 3A 72 65 61 6C 3B 0D 0A 66 6F 72 77 61 72 l):real;..forwar
011C30: 64 3B 0D 0A 0D 0A 66 75 6E 63 74 69 6F 6E 20 6F d;....function o
011C40: 70 70 6F 73 65 28 76 61 72 20 66 3A 66 6F 6E 63 ppose(var f:fonc
011C50: 74 69 6F 6E 29 3A 66 6F 6E 63 74 69 6F 6E 3B 0D tion):fonction;.
011C60: 0A 66 6F 72 77 61 72 64 3B 0D 0A 0D 0A 66 75 6E .forward;....fun
011C70: 63 74 69 6F 6E 20 20 74 61 70 65 66 6F 6E 63 74 ction tapefonct
011C80: 69 6F 6E 28 66 3A 66 6F 6E 63 74 69 6F 6E 3B 76 ion(f:fonction;v
011C90: 3A 63 68 61 72 29 3A 73 74 72 32 30 30 3B 0D 0A :char):str200;..
011CA0: 66 6F 72 77 61 72 64 3B 0D 0A 0D 0A 70 72 6F 63 forward;....proc
011CB0: 65 64 75 72 65 20 73 69 6D 70 6C 69 66 28 76 61 edure simplif(va
011CC0: 72 20 66 3A 66 6F 6E 63 74 69 6F 6E 29 3B 0D 0A r f:fonction);..
011CD0: 76 61 72 20 68 3A 66 6F 6E 63 74 69 6F 6E 3B 6E var h:fonction;n
011CE0: 62 72 65 3A 72 65 61 6C 3B 0D 0A 62 65 67 69 6E bre:real;..begin
011CF0: 0D 0A 69 66 20 66 3C 3E 6E 69 6C 20 74 68 65 6E ..if f<>nil then
011D00: 0D 0A 20 20 62 65 67 69 6E 0D 0A 20 20 20 69 66 .. begin.. if
011D10: 20 28 28 66 5E 2E 64 5E 2E 6E 61 74 75 72 65 3D ((f^.d^.nature=
011D20: 27 6E 6F 6D 62 72 65 27 29 61 6E 64 28 66 5E 2E 'nombre')and(f^.
011D30: 67 5E 2E 6E 61 74 75 72 65 3D 27 6E 6F 6D 62 72 g^.nature='nombr
011D40: 65 27 29 61 6E 64 28 66 5E 2E 76 61 6C 65 75 72 e')and(f^.valeur
011D50: 3C 3E 27 2F 27 29 29 0D 0A 20 20 20 20 74 68 65 <>'/')).. the
011D60: 6E 20 20 20 20 20 62 65 67 69 6E 0D 0A 20 20 20 n begin..
011D70: 20 20 20 20 20 20 6E 62 72 65 3A 3D 63 61 6C 63 nbre:=calc
011D80: 75 6C 28 66 2C 30 29 3B 69 66 20 66 72 61 63 28 ul(f,0);if frac(
011D90: 6E 62 72 65 29 3D 30 20 74 68 65 6E 20 73 74 72 nbre)=0 then str
011DA0: 28 72 6F 75 6E 64 28 6E 62 72 65 29 2C 66 5E 2E (round(nbre),f^.
011DB0: 76 61 6C 65 75 72 29 0D 0A 20 20 20 20 20 20 65 valeur).. e
011DC0: 6C 73 65 0D 0A 20 20 20 20 20 20 62 65 67 69 6E lse.. begin
011DD0: 0D 0A 20 20 20 20 20 20 73 74 72 28 6E 62 72 65 .. str(nbre
011DE0: 3A 38 3A 33 2C 66 5E 2E 76 61 6C 65 75 72 29 3B :8:3,f^.valeur);
011DF0: 0D 0A 20 20 20 20 20 20 77 68 69 6C 65 20 70 6F .. while po
011E00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
011E10: 0F 00 00 00 02 09 4E E5 0F 00 41 02 00 00 00 02 ......N...A.....
011E20: 0F 00 42 02 00 00 00 02 0F 00 43 02 00 00 00 02 ..B.......C.....
011E30: 0F 00 44 02 00 00 00 02 0F 00 45 02 00 00 00 02 ..D.......E.....
011E40: 0F 00 46 02 00 00 00 02 0F 00 47 02 00 00 00 02 ..F.......G.....
011E50: 0F 00 48 02 00 00 00 02 0F 00 49 02 00 00 00 02 ..H.......I.....
011E60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011E70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011E80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011E90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011EA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011EB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011EC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011ED0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011EE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011EF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
011F00: 73 28 27 20 27 2C 66 5E 2E 76 61 6C 65 75 72 29 s(' ',f^.valeur)
011F10: 3C 3E 30 20 64 6F 20 64 65 6C 65 74 65 28 66 5E <>0 do delete(f^
011F20: 2E 76 61 6C 65 75 72 2C 31 2C 31 29 3B 0D 0A 20 .valeur,1,1);..
011F30: 20 20 20 20 20 65 6E 64 3B 0D 0A 20 20 20 20 20 end;..
011F40: 20 66 5E 2E 6E 61 74 75 72 65 3A 3D 27 6E 6F 6D f^.nature:='nom
011F50: 62 72 65 27 3B 0D 0A 20 20 20 20 20 20 66 5E 2E bre';.. f^.
011F60: 67 3A 3D 6E 69 6C 3B 66 5E 2E 64 3A 3D 6E 69 6C g:=nil;f^.d:=nil
011F70: 3B 72 65 73 75 6C 74 3A 3D 31 3B 0D 0A 20 20 20 ;result:=1;..
011F80: 20 20 20 20 20 65 6E 64 0D 0A 20 20 20 20 20 20 end..
011F90: 20 20 65 6C 73 65 0D 0A 20 20 20 69 66 20 28 28 else.. if ((
011FA0: 66 5E 2E 76 61 6C 65 75 72 3D 27 2A 27 29 20 61 f^.valeur='*') a
011FB0: 6E 64 20 28 66 5E 2E 64 5E 2E 6E 61 74 75 72 65 nd (f^.d^.nature
011FC0: 3D 27 6E 6F 6D 62 72 65 27 29 20 61 6E 64 20 28 ='nombre') and (
011FD0: 66 5E 2E 64 5E 2E 76 61 6C 65 75 72 3D 27 31 27 f^.d^.valeur='1'
011FE0: 29 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 74 )).. t
011FF0: 68 65 6E 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 hen begin..
012000: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
012010: 66 3A 3D 66 5E 2E 67 3B 0D 0A 20 20 20 20 20 20 f:=f^.g;..
012020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 s
012030: 69 6D 70 6C 69 66 28 66 29 3B 72 65 73 75 6C 74 implif(f);result
012040: 3A 3D 31 0D 0A 20 20 20 20 20 20 20 20 20 20 20 :=1..
012050: 20 20 20 20 20 20 65 6E 64 0D 0A 20 20 20 20 20 end..
012060: 20 20 65 6C 73 65 0D 0A 20 20 20 69 66 20 28 28 else.. if ((
012070: 66 5E 2E 76 61 6C 65 75 72 3D 27 2A 27 29 20 61 f^.valeur='*') a
012080: 6E 64 20 28 66 5E 2E 67 5E 2E 6E 61 74 75 72 65 nd (f^.g^.nature
012090: 3D 27 6E 6F 6D 62 72 65 27 29 20 61 6E 64 20 28 ='nombre') and (
0120A0: 66 5E 2E 67 5E 2E 76 61 6C 65 75 72 3D 27 31 27 f^.g^.valeur='1'
0120B0: 29 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 74 )).. t
0120C0: 68 65 6E 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 hen begin..
0120D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0120E0: 66 3A 3D 66 5E 2E 64 3B 0D 0A 20 20 20 20 20 20 f:=f^.d;..
0120F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 s
012100: 69 6D 70 6C 69 66 28 66 29 3B 72 65 73 75 6C 74 implif(f);result
012110: 3A 3D 31 0D 0A 20 20 20 20 20 20 20 20 20 20 20 :=1..
012120: 20 20 20 20 20 20 65 6E 64 0D 0A 20 20 20 20 20 end..
012130: 20 20 65 6C 73 65 0D 0A 20 20 20 69 66 20 28 28 else.. if ((
012140: 28 66 5E 2E 76 61 6C 65 75 72 3D 27 2A 27 29 20 (f^.valeur='*')
012150: 6F 72 28 66 5E 2E 76 61 6C 65 75 72 3D 27 2F 27 or(f^.valeur='/'
012160: 29 29 61 6E 64 20 28 28 28 66 5E 2E 67 5E 2E 6E ))and (((f^.g^.n
012170: 61 74 75 72 65 3D 27 6E 6F 6D 62 72 65 27 29 0D ature='nombre').
012180: 0A 20 20 20 20 61 6E 64 20 28 66 5E 2E 67 5E 2E . and (f^.g^.
012190: 76 61 6C 65 75 72 3D 27 30 27 29 29 20 6F 72 20 valeur='0')) or
0121A0: 28 66 5E 2E 67 3D 6E 69 6C 29 29 29 0D 0A 20 20 (f^.g=nil)))..
0121B0: 20 20 74 68 65 6E 0D 0A 20 20 20 20 20 20 20 20 then..
0121C0: 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 begin..
0121D0: 20 20 20 20 20 20 20 66 3A 3D 6E 69 6C 3B 72 65 f:=nil;re
0121E0: 73 75 6C 74 3A 3D 31 3B 0D 0A 20 20 20 20 20 20 sult:=1;..
0121F0: 20 20 20 20 20 65 6E 64 0D 0A 20 20 20 20 20 20 end..
012200: 20 65 6C 73 65 0D 0A 20 20 20 69 66 20 28 28 66 else.. if ((f
012210: 5E 2E 76 61 6C 65 75 72 3D 27 2A 27 29 20 61 6E ^.valeur='*') an
012220: 64 20 28 28 28 66 5E 2E 64 5E 2E 6E 61 74 75 72 d (((f^.d^.natur
012230: 65 3D 27 6E 6F 6D 62 72 65 27 29 20 61 6E 64 20 e='nombre') and
012240: 28 66 5E 2E 64 5E 2E 76 61 6C 65 75 72 3D 27 30 (f^.d^.valeur='0
012250: 27 29 29 0D 0A 20 20 20 6F 72 20 28 66 5E 2E 64 ')).. or (f^.d
012260: 3D 6E 69 6C 29 29 29 20 74 68 65 6E 0D 0A 20 20 =nil))) then..
012270: 20 20 20 20 20 20 20 20 62 65 67 69 6E 0D 0A 20 begin..
012280: 20 20 20 20 20 20 20 20 20 20 20 20 20 66 3A 3D f:=
012290: 6E 69 6C 3B 72 65 73 75 6C 74 3A 3D 31 3B 0D 0A nil;result:=1;..
0122A0: 20 20 20 20 20 20 20 20 20 20 20 65 6E 64 0D 0A end..
0122B0: 20 20 20 20 20 20 20 65 6C 73 65 0D 0A 20 20 20 else..
0122C0: 69 66 20 28 28 66 5E 2E 76 61 6C 65 75 72 3D 27 if ((f^.valeur='
0122D0: 2A 27 29 20 61 6E 64 20 28 66 5E 2E 67 5E 2E 6E *') and (f^.g^.n
0122E0: 61 74 75 72 65 3D 27 6E 6F 6D 62 72 65 27 29 20 ature='nombre')
0122F0: 61 6E 64 20 28 66 5E 2E 64 5E 2E 76 61 6C 65 75 and (f^.d^.valeu
012300: 72 3D 27 2A 27 29 0D 0A 20 20 20 61 6E 64 20 28 r='*').. and (
012310: 66 5E 2E 64 5E 2E 67 5E 2E 6E 61 74 75 72 65 3D f^.d^.g^.nature=
012320: 27 6E 6F 6D 62 72 65 27 29 29 0D 0A 20 20 20 74 'nombre')).. t
012330: 68 65 6E 20 62 65 67 69 6E 20 68 3A 3D 66 5E 2E hen begin h:=f^.
012340: 64 3B 66 5E 2E 64 3A 3D 66 5E 2E 67 3B 66 5E 2E d;f^.d:=f^.g;f^.
012350: 67 3A 3D 68 3B 0D 0A 20 20 20 20 20 20 20 20 20 g:=h;..
012360: 20 20 20 20 20 68 3A 3D 66 5E 2E 67 5E 2E 64 3B h:=f^.g^.d;
012370: 66 5E 2E 67 5E 2E 64 3A 3D 66 5E 2E 64 3B 66 5E f^.g^.d:=f^.d;f^
012380: 2E 64 3A 3D 68 3B 73 69 6D 70 6C 69 66 28 66 5E .d:=h;simplif(f^
012390: 2E 64 29 3B 73 69 6D 70 6C 69 66 28 66 29 3B 0D .d);simplif(f);.
0123A0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 72 . r
0123B0: 65 73 75 6C 74 3A 3D 31 0D 0A 20 20 20 20 20 20 esult:=1..
0123C0: 20 20 65 6E 64 0D 0A 20 20 20 20 20 20 20 65 6C end.. el
0123D0: 73 65 0D 0A 20 20 69 66 20 28 28 28 66 5E 2E 6E se.. if (((f^.n
0123E0: 61 74 75 72 65 3D 27 70 6C 75 73 27 29 20 6F 72 ature='plus') or
0123F0: 20 28 66 5E 2E 6E 61 74 75 72 65 3D 27 6D 6F 69 (f^.nature='moi
012400: 6E 73 27 29 29 20 61 6E 64 20 28 28 66 5E 2E 64 ns')) and ((f^.d
012410: 3D 6E 69 6C 29 0D 0A 20 20 6F 72 20 28 66 5E 2E =nil).. or (f^.
012420: 64 5E 2E 76 61 6C 65 75 72 3D 27 30 27 29 29 29 d^.valeur='0')))
012430: 0D 0A 20 20 74 68 65 6E 0D 0A 20 20 20 20 62 65 .. then.. be
012440: 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 20 20 66 gin.. f
012450: 3A 3D 66 5E 2E 67 3B 0D 0A 20 20 20 20 20 20 20 :=f^.g;..
012460: 20 20 20 73 69 6D 70 6C 69 66 28 66 29 3B 72 65 simplif(f);re
012470: 73 75 6C 74 3A 3D 31 0D 0A 20 20 20 20 65 6E 64 sult:=1.. end
012480: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
012490: 20 20 20 20 20 20 20 20 65 6C 73 65 0D 0A 20 20 else..
0124A0: 20 20 69 66 20 28 28 28 66 5E 2E 6E 61 74 75 72 if (((f^.natur
0124B0: 65 3D 27 70 6C 75 73 27 29 20 6F 72 20 28 66 5E e='plus') or (f^
0124C0: 2E 6E 61 74 75 72 65 3D 27 6D 6F 69 6E 73 27 29 .nature='moins')
0124D0: 29 20 61 6E 64 0D 0A 20 20 20 20 20 28 28 66 5E ) and.. ((f^
0124E0: 2E 67 3D 6E 69 6C 29 20 6F 72 20 28 66 5E 2E 67 .g=nil) or (f^.g
0124F0: 5E 2E 76 61 6C 65 75 72 3D 27 30 27 29 29 29 0D ^.valeur='0'))).
012500: 00 00 00 00 EF FF 03 00 00 00 40 FE FF FF 07 00 ..........@.....
012510: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 C3 ................
012520: 69 2C 01 0A 00 21 9B F1 CD 08 05 FD E1 E1 22 A3 i,...!........"£
012530: F1 FD E5 2A A3 F1 5E 23 56 EB E5 21 00 00 D1 CD ...*£.^#V..!....
012540: 92 06 CB 45 CA 6E 21 2A A3 F1 E5 21 16 00 CD 7A ...E.n!*£..!...z
012550: 1D 21 00 00 EB 2A A3 F1 73 23 72 21 B2 F1 E5 2A .!...*£.s#r!...*
012560: 96 F2 29 D1 19 E5 21 00 00 EB E1 73 23 72 01 0A ..)...!....s#r..
012570: 00 11 9B F1 C3 22 05 01 0A 00 21 91 F1 CD 08 05 ....."....!.....
012580: FD E1 E1 22 99 F1 FD E5 CD 9B 14 CD CD 17 CD 1B ..."............
012590: 20 CD 9B 14 CD BA 17 1F 45 72 72 65 75 72 20 64 .......Erreur d
0125A0: 65 20 73 79 6E 74 61 78 65 20 61 20 6C 27 65 6E e syntaxe a l'en
0125B0: 74 72 65 65 20 6E 2E CD 1B 20 2A 99 F1 CD 9B 14 tree n... *.....
0125C0: E5 21 00 00 CD 26 17 CD CD 17 CD 1B 20 21 A4 F2 .!...&...... !..
0125D0: E5 2A 96 F2 29 D1 19 E5 CD 22 21 21 A4 F2 E5 2A .*..)...."!!...*
0125E0: 96 F2 29 D1 19 E5 CD 1F 21 01 0A 00 11 91 F1 C3 ..).....!.......
0125F0: 22 05 01 08 00 21 89 F1 CD 08 05 21 BA 00 CD A9 "....!.....!....
012600: 14 21 A3 F2 CD 44 16 CD 1B 20 2A A3 F2 26 00 E5 .!£..D... *£.&..
012610: 21 FF 20 01 20 00 CD 5D 05 CD 4F 13 E5 2A A3 F2 !. . ..]..O..*£.
012620: 26 00 E5 21 0D 00 D1 CD 7F 06 D1 7D B3 6F CB 45 &..!.......}.o.E
012630: CA FB 21 2A A3 F2 26 00 CD 9B 14 CD 22 17 CD 1B ..!*£.&....."...
012640: 20 01 08 00 11 89 F1 C3 22 05 01 08 00 21 81 F1 ......."....!..
012650: CD 08 05 CD F2 21 2A A3 F2 26 00 65 2E 01 E5 06 .....!*£.&.e....
012660: 0A 21 98 F2 CD E2 05 2A A3 F2 26 00 E5 CD 81 05 .!.....*£.&.....
012670: 21 30 00 E5 21 39 00 CD 9B 05 CD 4F 13 E5 21 98 !0..!9.....O..!.
012680: F2 CD 3A 05 CD A3 08 E5 21 06 00 D1 CD E0 06 D1 ..:..£..!.......
012690: 7D A3 6F CB 45 CA B8 22 CD F2 21 21 98 F2 CD 3A }£o.E.."..!!...:
0126A0: 05 2A A3 F2 26 00 65 2E 01 E5 CD 3D 08 06 0A 21 .*£.&.e....=...!
0126B0: 98 F2 CD E2 05 C3 67 22 21 98 F2 CD 3A 05 21 01 ......g"!...:.!.
0126C0: 00 E5 21 98 F2 CD 3A 05 CD A3 08 E5 21 01 00 D1 ..!...:..£..!...
0126D0: EB B7 ED 52 CD 6B 08 06 0A 21 98 F2 CD E2 05 01 ...R.k...!......
0126E0: 08 00 11 81 F1 C3 22 05 01 0C 00 21 75 F1 CD 08 ......"....!u...
0126F0: 05 FD E1 E1 22 7F F1 FD E5 CD F2 21 2A A3 F2 26 ...."......!*£.&
012700: 00 E5 21 28 00 D1 CD 92 06 CB 45 CA 18 23 21 01 ..!(......E..#!.
012710: 00 E5 CD 77 21 C3 CA 23 CD 4A 22 2A A3 F2 26 00 ...w!..#.J"*£.&.
012720: E5 21 29 00 D1 CD 92 06 CB 45 CA 37 23 21 02 00 .!)......E.7#!..
012730: E5 CD 77 21 C3 CA 23 2A 7F F1 5E 23 56 EB E5 CD ..w!..#*..^#V...
012740: 4D 05 05 70 61 72 61 6D 06 06 CD 01 06 2A 7F F1 M..param.....*..
012750: 5E 23 56 EB 11 07 00 19 E5 21 98 F2 CD 3A 05 06 ^#V......!...:..
012760: 0A CD 01 06 2A 7F F1 5E 23 56 EB 11 12 00 19 E5 ....*..^#V......
012770: 21 00 00 EB E1 73 23 72 2A 7F F1 5E 23 56 EB 11 !....s#r*..^#V..
012780: 14 00 19 E5 21 00 00 EB E1 73 23 72 21 98 F2 CD ....!....s#r!...
012790: 3A 05 21 75 F1 E5 21 92 F2 CD F4 1E 21 B2 F1 E5 :.!u..!.....!...
0127A0: 2A 96 F2 29 D1 19 5E 23 56 EB E5 2A 75 F1 D1 CD *..)..^#V..*u...
0127B0: E0 06 CB 45 CA CA 23 21 B2 F1 E5 2A 96 F2 29 D1 ...E..#!...*..).
0127C0: 19 E5 2A 75 F1 EB E1 73 23 72 CD F2 21 01 0C 00 ..*u...s#r..!...
0127D0: 11 75 F1 C3 22 05 01 0A 00 21 6B F1 CD 08 05 FD .u.."....!k.....
0127E0: E1 E1 22 73 F1 FD E5 2A 73 F1 5E 23 56 EB E5 CD .."s...*s.^#V...
0127F0: 4D 05 06 76 61 72 69 61 62 06 06 CD 01 06 2A 73 M..variab.....*s
012800: F1 5E 23 56 EB 11 07 00 19 E5 21 78 00 65 2E 01 .^#V......!x.e..
012810: E5 06 0A CD 01 06 2A 73 F1 5E 23 56 EB 11 12 00 ......*s.^#V....
012820: 19 E5 21 00 00 EB E1 73 23 72 2A 73 F1 5E 23 56 ..!....s#r*s.^#V
012830: EB 11 14 00 19 E5 21 00 00 EB E1 73 23 72 CD F2 ......!....s#r..
012840: 21 01 0A 00 11 6B F1 C3 22 05 C3 C6 2A 01 0A 00 !....k.."...*...
012850: 21 61 F1 CD 08 05 FD E1 E1 22 69 F1 FD E5 2A A3 !a......."i...*£
012860: F2 26 00 65 2E 01 E5 06 0A 21 98 F2 CD E2 05 2A .&.e.....!.....*
012870: A3 F2 26 00 E5 CD 81 05 21 61 00 E5 21 7A 00 CD £.&.....!a..!z..
012880: 9B 05 CD 4F 13 E5 21 98 F2 CD 3A 05 CD A3 08 E5 ...O..!...:..£..
012890: 21 07 00 D1 CD E0 06 D1 7D A3 6F CB 45 CA C0 24 !.......}£o.E..$
0128A0: CD F2 21 21 98 F2 CD 3A 05 2A A3 F2 26 00 65 2E ..!!...:.*£.&.e.
0128B0: 01 E5 CD 3D 08 06 0A 21 98 F2 CD E2 05 C3 6F 24 ...=...!......o$
0128C0: 21 98 F2 CD 3A 05 21 01 00 E5 21 98 F2 CD 3A 05 !...:.!...!...:.
0128D0: CD A3 08 E5 21 01 00 D1 EB B7 ED 52 CD 6B 08 06 .£..!......R.k..
0128E0: 0A 21 98 F2 CD E2 05 21 98 F2 CD 3A 05 CD 4D 05 .!.....!...:..M.
0128F0: 03 73 69 6E CD 8D 06 E5 21 98 F2 CD 3A 05 CD 4D .sin....!...:..M
012900: 05 03 63 6F 73 CD 8D 06 D1 7D B3 6F E5 21 98 F2 ..cos....}.o.!..
012910: CD 3A 05 CD 4D 05 04 74 61 6E 67 CD 8D 06 D1 7D .:..M..tang....}
012920: B3 6F E5 21 98 F2 CD 3A 05 CD 4D 05 03 65 78 70 .o.!...:..M..exp
012930: CD 8D 06 D1 7D B3 6F E5 21 98 F2 CD 3A 05 CD 4D ....}.o.!...:..M
012940: 05 02 6C 6E CD 8D 06 D1 7D B3 6F E5 21 98 F2 CD ..ln....}.o.!...
012950: 3A 05 CD 4D 05 06 61 72 63 74 61 6E CD 8D 06 D1 :..M..arctan....
012960: 7D B3 6F E5 21 98 F2 CD 3A 05 CD 4D 05 03 69 6E }.o.!...:..M..in
012970: 74 CD 8D 06 D1 7D B3 6F E5 21 98 F2 CD 3A 05 CD t....}.o.!...:..
012980: 4D 05 03 61 62 73 CD 8D 06 D1 7D B3 6F E5 21 98 M..abs....}.o.!.
012990: F2 CD 3A 05 CD 4D 05 04 73 71 72 74 CD 8D 06 D1 ..:..M..sqrt....
0129A0: 7D B3 6F E5 21 98 F2 CD 3A 05 CD 4D 05 02 73 68 }.o.!...:..M..sh
0129B0: CD 8D 06 D1 7D B3 6F E5 21 98 F2 CD 3A 05 CD 4D ....}.o.!...:..M
0129C0: 05 02 63 68 CD 8D 06 D1 7D B3 6F E5 21 98 F2 CD ..ch....}.o.!...
0129D0: 3A 05 CD 4D 05 02 74 68 CD 8D 06 D1 7D B3 6F E5 :..M..th....}.o.
0129E0: 21 98 F2 CD 3A 05 CD 4D 05 06 61 72 63 73 69 6E !...:..M..arcsin
0129F0: CD 8D 06 D1 7D B3 6F E5 21 98 F2 CD 3A 05 CD 4D ....}.o.!...:..M
012A00: 05 06 61 72 63 63 6F 73 CD 8D 06 D1 7D B3 6F CB ..arccos....}.o.
012A10: 45 CA A5 26 2A 69 F1 5E 23 56 EB E5 CD 4D 05 05 E..&*i.^#V...M..
012A20: 69 64 66 63 74 06 06 CD 01 06 2A 69 F1 5E 23 56 idfct.....*i.^#V
012A30: EB 11 07 00 19 E5 21 98 F2 CD 3A 05 06 0A CD 01 ......!...:.....
012A40: 06 2A 69 F1 5E 23 56 EB 11 14 00 19 E5 21 00 00 .*i.^#V......!..
012A50: EB E1 73 23 72 2A A3 F2 26 00 E5 21 28 00 D1 CD ..s#r*£.&..!(...
012A60: 7F 06 CB 45 CA 9B 26 CD F2 21 2A 69 F1 5E 23 56 ...E..&..!*i.^#V
012A70: EB 11 12 00 19 E5 CD 4A 24 2A A3 F2 26 00 E5 21 .......J$*£.&..!
012A80: 29 00 D1 CD 92 06 CB 45 CA 95 26 21 03 00 E5 CD )......E..&!....
012A90: 77 21 C3 98 26 CD F2 21 C3 A2 26 21 04 00 E5 CD w!..&..!..&!....
012AA0: 77 21 C3 AC 26 21 05 00 E5 CD 77 21 01 0A 00 11 w!..&!....w!....
012AB0: 61 F1 C3 22 05 C3 E0 28 01 0C 00 21 55 F1 CD 08 a.."...(...!U...
012AC0: 05 FD E1 E1 22 5F F1 FD E5 21 55 F1 E5 21 16 00 ...."_...!U..!..
012AD0: CD E5 1C 2A 55 F1 11 14 00 19 E5 2A 5F F1 5E 23 ...*U......*_.^#
012AE0: 56 EB EB E1 73 23 72 2A 55 F1 EB 2A 5F F1 73 23 V...s#r*U..*_.s#
012AF0: 72 2A 5F F1 5E 23 56 EB E5 CD 4D 05 05 70 75 69 r*_.^#V...M..pui
012B00: 73 73 06 06 CD 01 06 2A 5F F1 5E 23 56 EB 11 07 ss.....*_.^#V...
012B10: 00 19 E5 21 5E 00 65 2E 01 E5 06 0A CD 01 06 2A ...!^.e........*
012B20: 5F F1 5E 23 56 EB 11 12 00 19 E5 21 16 00 CD E5 _.^#V......!....
012B30: 1C CD F2 21 2A 5F F1 5E 23 56 EB 11 12 00 19 E5 ...!*_.^#V......
012B40: CD B5 26 01 0C 00 11 55 F1 C3 22 05 01 10 00 21 ..&....U.."....!
012B50: 45 F1 CD 08 05 FD E1 E1 22 53 F1 FD E5 2A A3 F2 E......."S...*£.
012B60: 26 00 65 2E 01 E5 06 0A 21 98 F2 CD E2 05 21 30 &.e.....!.....!0
012B70: 00 7D 32 A3 F2 2A A3 F2 26 00 E5 CD 81 05 21 30 .}2£.*£.&.....!0
012B80: 00 E5 21 39 00 CD 9B 05 CD 4F 13 E5 21 98 F2 CD ..!9.....O..!...
012B90: 3A 05 CD A3 08 E5 21 0A 00 D1 CD E0 06 D1 7D A3 :..£..!.......}£
012BA0: 6F CB 45 CA C6 27 CD F2 21 21 98 F2 CD 3A 05 2A o.E..'..!!...:.*
012BB0: A3 F2 26 00 65 2E 01 E5 CD 3D 08 06 0A 21 98 F2 £.&.e....=...!..
012BC0: CD E2 05 C3 75 27 2A A3 F2 26 00 E5 21 2E 00 D1 ....u'*£.&..!...
012BD0: CD 7F 06 CB 45 CA 30 28 21 30 00 7D 32 A3 F2 2A ....E.0(!0.}2£.*
012BE0: A3 F2 26 00 E5 CD 81 05 21 30 00 E5 21 39 00 CD £.&.....!0..!9..
012BF0: 9B 05 CD 4F 13 E5 21 98 F2 CD 3A 05 CD A3 08 E5 ...O..!...:..£..
012C00: 21 0A 00 D1 CD E0 06 D1 7D A3 6F CB 45 CA 30 28 !.......}£o.E.0(
012C10: CD F2 21 21 98 F2 CD 3A 05 2A A3 F2 26 00 65 2E ..!!...:.*£.&.e.
012C20: 01 E5 CD 3D 08 06 0A 21 98 F2 CD E2 05 C3 DF 27 ...=...!.......'
012C30: 21 98 F2 CD 3A 05 21 01 00 E5 21 98 F2 CD 3A 05 !...:.!...!...:.
012C40: CD A3 08 E5 21 01 00 D1 EB B7 ED 52 CD 6B 08 06 .£..!......R.k..
012C50: 0A 21 98 F2 CD E2 05 21 98 F2 CD 3A 05 21 45 F1 .!.....!...:.!E.
012C60: E5 21 92 F2 CD F3 1E 2A 92 F2 E5 21 00 00 D1 CD .!.....*...!....
012C70: 92 06 CB 45 CA 81 28 21 06 00 E5 CD 77 21 C3 D7 ...E..(!....w!..
012C80: 28 2A 53 F1 5E 23 56 EB E5 CD 4D 05 06 6E 6F 6D (*S.^#V...M..nom
012C90: 62 72 65 06 06 CD 01 06 2A 53 F1 5E 23 56 EB 11 bre.....*S.^#V..
012CA0: 07 00 19 E5 21 98 F2 CD 3A 05 06 0A CD 01 06 2A ....!...:......*
012CB0: 53 F1 5E 23 56 EB 11 12 00 19 E5 21 00 00 EB E1 S.^#V......!....
012CC0: 73 23 72 2A 53 F1 5E 23 56 EB 11 14 00 19 E5 21 s#r*S.^#V......!
012CD0: 00 00 EB E1 73 23 72 01 10 00 11 45 F1 C3 22 05 ....s#r....E..".
012CE0: 01 0A 00 21 3B F1 CD 08 05 FD E1 E1 22 43 F1 FD ...!;......."C..
012CF0: E5 2A A3 F2 26 00 11 70 00 B7 ED 52 C2 09 29 2A .*£.&..p...R..)*
012D00: 43 F1 E5 CD E8 22 C3 B8 29 19 11 78 00 B7 ED 52 C...."..)..x...R
012D10: C2 1D 29 2A 43 F1 E5 CD D6 23 C3 B8 29 19 11 28 ..)*C....#..)..(
012D20: 00 B7 ED 52 C2 53 29 CD F2 21 2A 43 F1 E5 CD 4A ...R.S)..!*C...J
012D30: 24 2A A3 F2 26 00 E5 21 29 00 D1 CD 92 06 CB 45 $*£.&..!)......E
012D40: CA 4D 29 21 07 00 E5 CD 77 21 C3 50 29 CD F2 21 .M)!....w!.P)..!
012D50: C3 B8 29 19 11 2B 00 B7 ED 52 CA 77 29 19 11 2D ..)..+...R.w)..-
012D60: 00 B7 ED 52 CA 77 29 19 11 30 00 01 0A 00 B7 ED ...R.w)..0......
012D70: 52 B7 ED 42 D2 81 29 2A 43 F1 E5 CD 4C 27 C3 B8 R..B..)*C...L'..
012D80: 29 19 09 11 61 00 01 17 00 B7 ED 52 B7 ED 42 DA )...a......R..B.
012D90: A7 29 19 09 11 79 00 B7 ED 52 CA A7 29 19 11 7A .)...y...R..)..z
012DA0: 00 B7 ED 52 C2 B1 29 2A 43 F1 E5 CD 4D 24 C3 B8 ...R..)*C...M$..
012DB0: 29 21 08 00 E5 CD 77 21 2A A3 F2 26 00 E5 21 5E )!....w!*£.&..!^
012DC0: 00 D1 CD 7F 06 CB 45 CA D4 29 2A 43 F1 E5 CD B8 ......E..)*C....
012DD0: 26 C3 B8 29 01 0A 00 11 3B F1 C3 22 05 01 0C 00 &..)....;.."....
012DE0: 21 2F F1 CD 08 05 FD E1 E1 22 39 F1 FD E5 2A 39 !/......."9...*9
012DF0: F1 E5 CD B5 26 2A A3 F2 26 00 E5 CD 81 05 21 2A ....&*£.&.....!*
012E00: 00 CD 91 05 21 2F 00 CD 91 05 CD 4F 13 CB 45 CA ....!/.....O..E.
012E10: BD 2A 21 2F F1 E5 21 16 00 CD E5 1C 2A 2F F1 11 .*!/..!.....*/..
012E20: 14 00 19 E5 2A 39 F1 5E 23 56 EB EB E1 73 23 72 ....*9.^#V...s#r
012E30: 2A 2F F1 EB 2A 39 F1 73 23 72 2A A3 F2 26 00 E5 */..*9.s#r*£.&..
012E40: 21 2A 00 D1 CD 7F 06 CB 45 CA 65 2A 2A 39 F1 5E !*......E.e**9.^
012E50: 23 56 EB E5 CD 4D 05 05 6D 75 6C 74 69 06 06 CD #V...M..multi...
012E60: 01 06 C3 7C 2A 2A 39 F1 5E 23 56 EB E5 CD 4D 05 ...|**9.^#V...M.
012E70: 06 64 69 76 69 73 65 06 06 CD 01 06 2A 39 F1 5E .divise.....*9.^
012E80: 23 56 EB 11 07 00 19 E5 2A A3 F2 26 00 65 2E 01 #V......*£.&.e..
012E90: E5 06 0A CD 01 06 2A 39 F1 5E 23 56 EB 11 12 00 ......*9.^#V....
012EA0: 19 E5 21 16 00 CD E5 1C CD F2 21 2A 39 F1 5E 23 ..!.......!*9.^#
012EB0: 56 EB 11 12 00 19 E5 CD B5 26 C3 F5 29 01 0C 00 V........&..)...
012EC0: 11 2F F1 C3 22 05 01 0C 00 21 23 F1 CD 08 05 FD ./.."....!#.....
012ED0: E1 E1 22 2D F1 FD E5 2A 2D F1 E5 21 16 00 CD E5 .."-...*-..!....
012EE0: 1C 2A A3 F2 26 00 E5 CD 81 05 21 2B 00 CD 91 05 .*£.&.....!+....
012EF0: 21 2D 00 CD 91 05 CD 4F 13 CB 45 CA 93 2B 2A A3 !-.....O..E..+*£
012F00: F2 26 00 E5 21 2B 00 D1 CD 7F 06 CB 45 CA 28 2B .&..!+......E.(+
012F10: 2A 2D F1 5E 23 56 EB E5 CD 4D 05 04 70 6C 75 73 *-.^#V...M..plus
012F20: 06 06 CD 01 06 C3 3E 2B 2A 2D F1 5E 23 56 EB E5 ......>+*-.^#V..
012F30: CD 4D 05 05 6D 6F 69 6E 73 06 06 CD 01 06 2A 2D .M..moins.....*-
012F40: F1 5E 23 56 EB 11 07 00 19 E5 2A A3 F2 26 00 65 .^#V......*£.&.e
012F50: 2E 01 E5 06 0A CD 01 06 2A 2D F1 5E 23 56 EB 11 ........*-.^#V..
012F60: 14 00 19 E5 21 00 00 EB E1 73 23 72 2A 2D F1 5E ....!....s#r*-.^
012F70: 23 56 EB 11 12 00 19 E5 21 16 00 CD E5 1C CD F2 #V......!.......
012F80: 21 2A 2D F1 5E 23 56 EB 11 12 00 19 E5 CD DD 29 !*-.^#V........)
012F90: C3 9A 2B 2A 2D F1 E5 CD DD 29 2A A3 F2 26 00 E5 ..+*-....)*£.&..
012FA0: CD 81 05 21 2B 00 CD 91 05 21 2D 00 CD 91 05 CD ...!+....!-.....
012FB0: 4F 13 CB 45 CA 60 2C 21 23 F1 E5 21 16 00 CD E5 O..E.`,!#..!....
012FC0: 1C 2A 23 F1 11 14 00 19 E5 2A 2D F1 5E 23 56 EB .*#......*-.^#V.
012FD0: EB E1 73 23 72 2A 23 F1 EB 2A 2D F1 73 23 72 2A ..s#r*#..*-.s#r*
012FE0: A3 F2 26 00 E5 21 2B 00 D1 CD 7F 06 CB 45 CA 09 £.&..!+......E..
012FF0: 2C 2A 2D F1 5E 23 56 EB E5 CD 4D 05 04 70 6C 75 ,*-.^#V...M..plu
013000: 73 06 06 CD 01 06 C3 1F 2C 2A 2D F1 5E 23 56 EB s.......,*-.^#V.
013010: E5 CD 4D 05 05 6D 6F 69 6E 73 06 06 CD 01 06 2A ..M..moins.....*
013020: 2D F1 5E 23 56 EB 11 07 00 19 E5 2A A3 F2 26 00 -.^#V......*£.&.
013030: 65 2E 01 E5 06 0A CD 01 06 2A 2D F1 5E 23 56 EB e........*-.^#V.
013040: 11 12 00 19 E5 21 16 00 CD E5 1C CD F2 21 2A 2D .....!.......!*-
013050: F1 5E 23 56 EB 11 12 00 19 E5 CD DD 29 C3 9A 2B .^#V........)..+
013060: 01 0C 00 11 23 F1 C3 22 05 01 0A 00 21 19 F1 CD ....#.."....!...
013070: 08 05 FD E1 E1 22 21 F1 FD E5 2A 21 F1 5E 23 56 ....."!...*!.^#V
013080: EB E5 21 00 00 D1 CD 92 06 CB 45 CA 95 2C 2A 21 ..!.......E..,*!
013090: F1 E5 CD 22 21 CD 9B 14 CD BA 17 15 45 6E 74 72 ..."!.......Entr
0130A0: 65 7A 20 76 6F 74 72 65 20 66 6F 6E 63 74 69 6F ez votre fonctio
0130B0: 6E CD CD 17 CD 1B 20 CD F2 21 2A 21 F1 E5 CD 4A n..... ..!*!...J
0130C0: 24 2A A3 F2 26 00 E5 21 0D 00 D1 CD 92 06 CB 45 $*£.&..!.......E
0130D0: CA DA 2C 21 09 00 E5 CD 77 21 01 0A 00 11 19 F1 ..,!....w!......
0130E0: C3 22 05 01 08 00 21 11 F1 CD 08 05 CD 9B 14 CD ."....!.........
0130F0: CD 17 CD 1B 20 21 01 00 E5 21 19 00 CD DB 1F CD .... !...!......
013100: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
013110: 10 00 00 00 02 09 4E E5 10 00 41 02 00 00 00 02 ......N...A.....
013120: 10 00 42 02 00 00 00 02 10 00 43 02 00 00 00 02 ..B.......C.....
013130: 10 00 44 02 00 00 00 02 10 00 45 02 00 00 00 02 ..D.......E.....
013140: 10 00 46 02 00 00 00 02 10 00 47 02 00 00 00 02 ..F.......G.....
013150: 10 00 48 02 00 00 00 02 10 00 49 02 00 00 00 02 ..H.......I.....
013160: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
013170: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
013180: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
013190: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0131A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0131B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0131C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0131D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0131E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0131F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
013200: 9B 14 CD BA 17 27 61 70 70 75 79 65 7A 20 75 6E .....'appuyez un
013210: 65 20 74 6F 75 63 68 65 20 70 6F 75 72 20 72 65 e touche pour re
013220: 76 65 6E 69 72 20 61 75 20 6D 65 6E 75 CD 1B 20 venir au menu..
013230: CD A0 00 7D EE 01 6F CB 45 CA 3F 2D C3 30 2D 01 ...}..o.E.?-.0-.
013240: 08 00 11 11 F1 C3 22 05 C3 33 36 C3 17 44 C3 CC ......"..36..D..
013250: 3F 01 12 00 21 FF F0 CD 08 05 FD E1 E1 22 0F F1 ?...!........"..
013260: FD E5 2A 0F F1 5E 23 56 EB E5 21 00 00 D1 CD 92 ..*..^#V..!.....
013270: 06 CB 45 CA 27 36 2A 0F F1 5E 23 56 EB 11 12 00 ..E.'6*..^#V....
013280: 19 5E 23 56 EB CD 3A 05 CD 4D 05 06 6E 6F 6D 62 .^#V..:..M..nomb
013290: 72 65 CD 8D 06 E5 2A 0F F1 5E 23 56 EB 11 14 00 re....*..^#V....
0132A0: 19 5E 23 56 EB CD 3A 05 CD 4D 05 06 6E 6F 6D 62 .^#V..:..M..nomb
0132B0: 72 65 CD 8D 06 D1 7D A3 6F E5 2A 0F F1 5E 23 56 re....}£o.*..^#V
0132C0: EB 11 07 00 19 CD 3A 05 21 2F 00 65 2E 01 E5 CD ......:.!/.e....
0132D0: A0 06 D1 7D A3 6F CB 45 CA DC 2E 2A 0F F1 5E 23 ...}£o.E...*..^#
0132E0: 56 EB E5 21 00 00 CD 08 10 C5 D5 E5 CD 48 2D D9 V..!.........H-.
0132F0: 21 FF F0 CD D1 05 21 FF F0 CD 2C 05 CD 34 0C C5 !.....!...,..4..
013300: D5 E5 21 00 00 CD 08 10 D9 E1 D1 C1 CD 88 06 CB ..!.............
013310: 45 CA 35 2E 21 FF F0 CD 2C 05 CD D0 0F E5 21 00 E.5.!...,.....!.
013320: 00 E5 2A 0F F1 5E 23 56 EB 11 07 00 19 06 0A CD ..*..^#V........
013330: BE 1E C3 94 2E 21 FF F0 CD 2C 05 C5 D5 E5 21 08 .....!...,....!.
013340: 00 E5 21 03 00 E5 2A 0F F1 5E 23 56 EB 11 07 00 ..!...*..^#V....
013350: 19 06 0A CD BD 1E 21 20 00 65 2E 01 E5 2A 0F F1 ......! .e...*..
013360: 5E 23 56 EB 11 07 00 19 CD 3A 05 CD B2 08 E5 21 ^#V......:.....!
013370: 00 00 D1 CD 92 06 CB 45 CA 94 2E 2A 0F F1 5E 23 .......E...*..^#
013380: 56 EB 11 07 00 19 E5 21 01 00 E5 21 01 00 CD F3 V......!...!....
013390: 08 C3 56 2E 2A 0F F1 5E 23 56 EB E5 CD 4D 05 06 ..V.*..^#V...M..
0133A0: 6E 6F 6D 62 72 65 06 06 CD 01 06 2A 0F F1 5E 23 nombre.....*..^#
0133B0: 56 EB 11 14 00 19 E5 21 00 00 EB E1 73 23 72 2A V......!....s#r*
0133C0: 0F F1 5E 23 56 EB 11 12 00 19 E5 21 00 00 EB E1 ..^#V......!....
0133D0: 73 23 72 21 01 00 22 92 F2 C3 27 36 2A 0F F1 5E s#r!.."...'6*..^
0133E0: 23 56 EB 11 07 00 19 CD 3A 05 21 2A 00 65 2E 01 #V......:.!*.e..
0133F0: E5 CD 8D 06 E5 2A 0F F1 5E 23 56 EB 11 12 00 19 .....*..^#V.....
013400: 5E 23 56 EB CD 3A 05 CD 4D 05 06 6E 6F 6D 62 72 ^#V..:..M..nombr
013410: 65 CD 8D 06 D1 7D A3 6F E5 2A 0F F1 5E 23 56 EB e....}£o.*..^#V.
013420: 11 12 00 19 5E 23 56 EB 11 07 00 19 CD 3A 05 21 ....^#V......:.!
013430: 31 00 65 2E 01 E5 CD 8D 06 D1 7D A3 6F CB 45 CA 1.e.......}£o.E.
013440: 68 2F 2A 0F F1 5E 23 56 EB 11 14 00 19 5E 23 56 h/*..^#V.....^#V
013450: EB EB 2A 0F F1 73 23 72 2A 0F F1 E5 CD 51 2D 21 ..*..s#r*....Q-!
013460: 01 00 22 92 F2 C3 27 36 2A 0F F1 5E 23 56 EB 11 .."...'6*..^#V..
013470: 07 00 19 CD 3A 05 21 2A 00 65 2E 01 E5 CD 8D 06 ....:.!*.e......
013480: E5 2A 0F F1 5E 23 56 EB 11 14 00 19 5E 23 56 EB .*..^#V.....^#V.
013490: CD 3A 05 CD 4D 05 06 6E 6F 6D 62 72 65 CD 8D 06 .:..M..nombre...
0134A0: D1 7D A3 6F E5 2A 0F F1 5E 23 56 EB 11 14 00 19 .}£o.*..^#V.....
0134B0: 5E 23 56 EB 11 07 00 19 CD 3A 05 21 31 00 65 2E ^#V......:.!1.e.
0134C0: 01 E5 CD 8D 06 D1 7D A3 6F CB 45 CA F4 2F 2A 0F ......}£o.E../*.
0134D0: F1 5E 23 56 EB 11 12 00 19 5E 23 56 EB EB 2A 0F .^#V.....^#V..*.
0134E0: F1 73 23 72 2A 0F F1 E5 CD 51 2D 21 01 00 22 92 .s#r*....Q-!..".
0134F0: F2 C3 27 36 2A 0F F1 5E 23 56 EB 11 07 00 19 CD ..'6*..^#V......
013500: 3A 05 21 2A 00 65 2E 01 E5 CD 8D 06 E5 2A 0F F1 :.!*.e.......*..
013510: 5E 23 56 EB 11 07 00 19 CD 3A 05 21 2F 00 65 2E ^#V......:.!/.e.
013520: 01 E5 CD 8D 06 D1 7D B3 6F E5 2A 0F F1 5E 23 56 ......}.o.*..^#V
013530: EB 11 14 00 19 5E 23 56 EB CD 3A 05 CD 4D 05 06 .....^#V..:..M..
013540: 6E 6F 6D 62 72 65 CD 8D 06 E5 2A 0F F1 5E 23 56 nombre....*..^#V
013550: EB 11 14 00 19 5E 23 56 EB 11 07 00 19 CD 3A 05 .....^#V......:.
013560: 21 30 00 65 2E 01 E5 CD 8D 06 D1 7D A3 6F E5 2A !0.e.......}£o.*
013570: 0F F1 5E 23 56 EB 11 14 00 19 5E 23 56 EB E5 21 ..^#V.....^#V..!
013580: 00 00 D1 CD 7F 06 D1 7D B3 6F D1 7D A3 6F CB 45 .......}.o.}£o.E
013590: CA A6 30 21 00 00 EB 2A 0F F1 73 23 72 21 01 00 ..0!...*..s#r!..
0135A0: 22 92 F2 C3 27 36 2A 0F F1 5E 23 56 EB 11 07 00 "...'6*..^#V....
0135B0: 19 CD 3A 05 21 2A 00 65 2E 01 E5 CD 8D 06 E5 2A ..:.!*.e.......*
0135C0: 0F F1 5E 23 56 EB 11 12 00 19 5E 23 56 EB CD 3A ..^#V.....^#V..:
0135D0: 05 CD 4D 05 06 6E 6F 6D 62 72 65 CD 8D 06 E5 2A ..M..nombre....*
0135E0: 0F F1 5E 23 56 EB 11 12 00 19 5E 23 56 EB 11 07 ..^#V.....^#V...
0135F0: 00 19 CD 3A 05 21 30 00 65 2E 01 E5 CD 8D 06 D1 ...:.!0.e.......
013600: 7D A3 6F E5 2A 0F F1 5E 23 56 EB 11 12 00 19 5E }£o.*..^#V.....^
013610: 23 56 EB E5 21 00 00 D1 CD 7F 06 D1 7D B3 6F D1 #V..!.......}.o.
013620: 7D A3 6F CB 45 CA 3B 31 21 00 00 EB 2A 0F F1 73 }£o.E.;1!...*..s
013630: 23 72 21 01 00 22 92 F2 C3 27 36 2A 0F F1 5E 23 #r!.."...'6*..^#
013640: 56 EB 11 07 00 19 CD 3A 05 21 2A 00 65 2E 01 E5 V......:.!*.e...
013650: CD 8D 06 E5 2A 0F F1 5E 23 56 EB 11 14 00 19 5E ....*..^#V.....^
013660: 23 56 EB CD 3A 05 CD 4D 05 06 6E 6F 6D 62 72 65 #V..:..M..nombre
013670: CD 8D 06 D1 7D A3 6F E5 2A 0F F1 5E 23 56 EB 11 ....}£o.*..^#V..
013680: 12 00 19 5E 23 56 EB 11 07 00 19 CD 3A 05 21 2A ...^#V......:.!*
013690: 00 65 2E 01 E5 CD 8D 06 D1 7D A3 6F E5 2A 0F F1 .e.......}£o.*..
0136A0: 5E 23 56 EB 11 12 00 19 5E 23 56 EB 11 14 00 19 ^#V.....^#V.....
0136B0: 5E 23 56 EB CD 3A 05 CD 4D 05 06 6E 6F 6D 62 72 ^#V..:..M..nombr
0136C0: 65 CD 8D 06 D1 7D A3 6F CB 45 CA 88 32 2A 0F F1 e....}£o.E..2*..
0136D0: 5E 23 56 EB 11 12 00 19 5E 23 56 EB 22 05 F1 2A ^#V.....^#V."..*
0136E0: 0F F1 5E 23 56 EB 11 12 00 19 E5 2A 0F F1 5E 23 ..^#V......*..^#
0136F0: 56 EB 11 14 00 19 5E 23 56 EB EB E1 73 23 72 2A V.....^#V...s#r*
013700: 0F F1 5E 23 56 EB 11 14 00 19 E5 2A 05 F1 EB E1 ..^#V......*....
013710: 73 23 72 2A 0F F1 5E 23 56 EB 11 14 00 19 5E 23 s#r*..^#V.....^#
013720: 56 EB 11 12 00 19 5E 23 56 EB 22 05 F1 2A 0F F1 V.....^#V."..*..
013730: 5E 23 56 EB 11 14 00 19 5E 23 56 EB 11 12 00 19 ^#V.....^#V.....
013740: E5 2A 0F F1 5E 23 56 EB 11 12 00 19 5E 23 56 EB .*..^#V.....^#V.
013750: EB E1 73 23 72 2A 0F F1 5E 23 56 EB 11 12 00 19 ..s#r*..^#V.....
013760: E5 2A 05 F1 EB E1 73 23 72 2A 0F F1 5E 23 56 EB .*....s#r*..^#V.
013770: 11 12 00 19 E5 CD 51 2D 2A 0F F1 E5 CD 51 2D 21 ......Q-*....Q-!
013780: 01 00 22 92 F2 C3 27 36 2A 0F F1 5E 23 56 EB CD .."...'6*..^#V..
013790: 3A 05 CD 4D 05 04 70 6C 75 73 CD 8D 06 E5 2A 0F :..M..plus....*.
0137A0: F1 5E 23 56 EB CD 3A 05 CD 4D 05 05 6D 6F 69 6E .^#V..:..M..moin
0137B0: 73 CD 8D 06 D1 7D B3 6F E5 2A 0F F1 5E 23 56 EB s....}.o.*..^#V.
0137C0: 11 12 00 19 5E 23 56 EB E5 21 00 00 D1 CD 7F 06 ....^#V..!......
0137D0: E5 2A 0F F1 5E 23 56 EB 11 12 00 19 5E 23 56 EB .*..^#V.....^#V.
0137E0: 11 07 00 19 CD 3A 05 21 30 00 65 2E 01 E5 CD 8D .....:.!0.e.....
0137F0: 06 D1 7D B3 6F D1 7D A3 6F CB 45 CA 24 33 2A 0F ..}.o.}£o.E.$3*.
013800: F1 5E 23 56 EB 11 14 00 19 5E 23 56 EB EB 2A 0F .^#V.....^#V..*.
013810: F1 73 23 72 2A 0F F1 E5 CD 51 2D 21 01 00 22 92 .s#r*....Q-!..".
013820: F2 C3 27 36 2A 0F F1 5E 23 56 EB CD 3A 05 CD 4D ..'6*..^#V..:..M
013830: 05 04 70 6C 75 73 CD 8D 06 E5 2A 0F F1 5E 23 56 ..plus....*..^#V
013840: EB CD 3A 05 CD 4D 05 05 6D 6F 69 6E 73 CD 8D 06 ..:..M..moins...
013850: D1 7D B3 6F E5 2A 0F F1 5E 23 56 EB 11 14 00 19 .}.o.*..^#V.....
013860: 5E 23 56 EB E5 21 00 00 D1 CD 7F 06 E5 2A 0F F1 ^#V..!.......*..
013870: 5E 23 56 EB 11 14 00 19 5E 23 56 EB 11 07 00 19 ^#V.....^#V.....
013880: CD 3A 05 21 30 00 65 2E 01 E5 CD 8D 06 D1 7D B3 .:.!0.e.......}.
013890: 6F D1 7D A3 6F CB 45 CA F6 33 2A 0F F1 5E 23 56 o.}£o.E..3*..^#V
0138A0: EB 11 07 00 19 CD 3A 05 21 2D 00 65 2E 01 E5 CD ......:.!-.e....
0138B0: 8D 06 CB 45 CA D0 33 2A 0F F1 5E 23 56 EB 11 12 ...E..3*..^#V...
0138C0: 00 19 E5 CD 4B 2D EB 2A 0F F1 73 23 72 C3 E6 33 ....K-.*..s#r..3
0138D0: 2A 0F F1 5E 23 56 EB 11 12 00 19 5E 23 56 EB EB *..^#V.....^#V..
0138E0: 2A 0F F1 73 23 72 2A 0F F1 E5 CD 51 2D 21 01 00 *..s#r*....Q-!..
0138F0: 22 92 F2 C3 27 36 2A 0F F1 5E 23 56 EB CD 3A 05 "...'6*..^#V..:.
013900: CD 4D 05 05 70 75 69 73 73 CD 8D 06 E5 2A 0F F1 .M..puiss....*..
013910: 5E 23 56 EB 11 12 00 19 5E 23 56 EB CD 3A 05 CD ^#V.....^#V..:..
013920: 4D 05 06 6E 6F 6D 62 72 65 CD 8D 06 D1 7D A3 6F M..nombre....}£o
013930: E5 2A 0F F1 5E 23 56 EB 11 12 00 19 5E 23 56 EB .*..^#V.....^#V.
013940: 11 07 00 19 CD 3A 05 21 31 00 65 2E 01 E5 CD 8D .....:.!1.e.....
013950: 06 D1 7D A3 6F CB 45 CA 80 34 2A 0F F1 5E 23 56 ..}£o.E..4*..^#V
013960: EB 11 14 00 19 5E 23 56 EB EB 2A 0F F1 73 23 72 .....^#V..*..s#r
013970: 2A 0F F1 E5 CD 51 2D 21 01 00 22 92 F2 C3 27 36 *....Q-!.."...'6
013980: 2A 0F F1 5E 23 56 EB CD 3A 05 CD 4D 05 05 70 75 *..^#V..:..M..pu
013990: 69 73 73 CD 8D 06 E5 2A 0F F1 5E 23 56 EB 11 12 iss....*..^#V...
0139A0: 00 19 5E 23 56 EB CD 3A 05 CD 4D 05 06 6E 6F 6D ..^#V..:..M..nom
0139B0: 62 72 65 CD 8D 06 D1 7D A3 6F E5 2A 0F F1 5E 23 bre....}£o.*..^#
0139C0: 56 EB 11 14 00 19 5E 23 56 EB CD 3A 05 CD 4D 05 V.....^#V..:..M.
0139D0: 05 70 75 69 73 73 CD 8D 06 D1 7D A3 6F E5 2A 0F .puiss....}£o.*.
0139E0: F1 5E 23 56 EB 11 14 00 19 5E 23 56 EB 11 12 00 .^#V.....^#V....
0139F0: 19 5E 23 56 EB CD 3A 05 CD 4D 05 06 6E 6F 6D 62 .^#V..:..M..nomb
013A00: 72 65 CD 8D 06 D1 7D A3 6F CB 45 CA D1 35 21 05 re....}£o.E..5!.
013A10: F1 E5 21 16 00 CD E5 1C CD 4D 05 05 6D 75 6C 74 ..!......M..mult
013A20: 69 06 06 2A 05 F1 CD E2 05 2A 05 F1 11 07 00 19 i..*.....*......
013A30: E5 21 2A 00 65 2E 01 E5 06 0A CD 01 06 2A 05 F1 .!*.e........*..
013A40: 11 12 00 19 E5 2A 0F F1 5E 23 56 EB 11 12 00 19 .....*..^#V.....
013A50: 5E 23 56 EB EB E1 73 23 72 2A 05 F1 11 14 00 19 ^#V...s#r*......
013A60: E5 2A 0F F1 5E 23 56 EB 11 14 00 19 5E 23 56 EB .*..^#V.....^#V.
013A70: 11 12 00 19 5E 23 56 EB EB E1 73 23 72 2A 0F F1 ....^#V...s#r*..
013A80: 5E 23 56 EB 11 12 00 19 E5 2A 05 F1 EB E1 73 23 ^#V......*....s#
013A90: 72 2A 0F F1 5E 23 56 EB 11 14 00 19 E5 2A 0F F1 r*..^#V......*..
013AA0: 5E 23 56 EB 11 14 00 19 5E 23 56 EB 11 14 00 19 ^#V.....^#V.....
013AB0: 5E 23 56 EB EB E1 73 23 72 2A 0F F1 5E 23 56 EB ^#V...s#r*..^#V.
013AC0: 11 12 00 19 E5 CD 51 2D 21 01 00 22 92 F2 C3 27 ......Q-!.."...'
013AD0: 36 2A 0F F1 5E 23 56 EB 11 12 00 19 5E 23 56 EB 6*..^#V.....^#V.
013AE0: E5 21 00 00 D1 CD 92 06 CB 45 CA FC 35 2A 0F F1 .!.......E..5*..
013AF0: 5E 23 56 EB 11 12 00 19 E5 CD 51 2D 2A 0F F1 5E ^#V.......Q-*..^
013B00: 23 56 EB 11 14 00 19 5E 23 56 EB E5 21 00 00 D1 #V.....^#V..!...
013B10: CD 92 06 CB 45 CA 27 36 2A 0F F1 5E 23 56 EB 11 ....E.'6*..^#V..
013B20: 14 00 19 E5 CD 51 2D 01 12 00 11 FF F0 C3 22 05 .....Q-.......".
013B30: C3 21 48 01 1E 00 21 E1 F0 CD 08 05 FD E1 E1 D1 .!H...!.........
013B40: C1 D9 21 F1 F0 CD D1 05 E1 22 F7 F0 FD E5 2A F7 ..!......"....*.
013B50: F0 CD 3A 05 CD 4D 05 06 6E 6F 6D 62 72 65 CD 8D ..:..M..nombre..
013B60: 06 CB 45 CA 8A 36 2A F7 F0 11 07 00 19 CD 3A 05 ..E..6*.......:.
013B70: 21 E3 F0 E5 21 E1 F0 CD F3 1E 21 E3 F0 CD 2C 05 !...!.....!...,.
013B80: D9 21 F9 F0 CD D1 05 C3 BC 3F 2A F7 F0 CD 3A 05 .!.......?*...:.
013B90: CD 4D 05 05 70 61 72 61 6D CD 8D 06 CB 45 CA E0 .M..param....E..
013BA0: 36 2A F7 F0 11 07 00 19 CD 3A 05 21 90 F2 E5 21 6*.......:.!...!
013BB0: E1 F0 CD F4 1E 21 C8 F1 E5 2A 90 F2 2B 29 E5 29 .....!...*..+).)
013BC0: 29 29 29 29 D1 19 D1 19 E5 2A 96 F2 29 5D 54 29 )))).....*..)]T)
013BD0: 19 D1 19 CD 2C 05 D9 21 F9 F0 CD D1 05 C3 BC 3F ....,..!.......?
013BE0: 2A F7 F0 CD 3A 05 CD 4D 05 06 76 61 72 69 61 62 *...:..M..variab
013BF0: CD 8D 06 CB 45 CA 08 37 21 F1 F0 CD 2C 05 D9 21 ....E..7!...,..!
013C00: F9 F0 CD D1 05 C3 BC 3F 2A F7 F0 CD 3A 05 CD 4D .......?*...:..M
013C10: 05 04 70 6C 75 73 CD 8D 06 CB 45 CA 62 37 2A F7 ..plus....E.b7*.
013C20: F0 11 14 00 19 5E 23 56 EB E5 21 F1 F0 CD 2C 05 .....^#V..!...,.
013C30: C5 D5 E5 CD 48 2D C5 D5 E5 2A F7 F0 11 12 00 19 ....H-...*......
013C40: 5E 23 56 EB E5 21 F1 F0 CD 2C 05 C5 D5 E5 CD 48 ^#V..!...,.....H
013C50: 2D D9 E1 D1 C1 CD E9 09 D9 21 F9 F0 CD D1 05 C3 -........!......
013C60: BC 3F 2A F7 F0 CD 3A 05 CD 4D 05 05 6D 6F 69 6E .?*...:..M..moin
013C70: 73 CD 8D 06 CB 45 CA BD 37 2A F7 F0 11 14 00 19 s....E..7*......
013C80: 5E 23 56 EB E5 21 F1 F0 CD 2C 05 C5 D5 E5 CD 48 ^#V..!...,.....H
013C90: 2D C5 D5 E5 2A F7 F0 11 12 00 19 5E 23 56 EB E5 -...*......^#V..
013CA0: 21 F1 F0 CD 2C 05 C5 D5 E5 CD 48 2D D9 E1 D1 C1 !...,.....H-....
013CB0: CD F2 09 D9 21 F9 F0 CD D1 05 C3 BC 3F 2A F7 F0 ....!.......?*..
013CC0: CD 3A 05 CD 4D 05 05 6D 75 6C 74 69 CD 8D 06 CB .:..M..multi....
013CD0: 45 CA 18 38 2A F7 F0 11 14 00 19 5E 23 56 EB E5 E..8*......^#V..
013CE0: 21 F1 F0 CD 2C 05 C5 D5 E5 CD 48 2D C5 D5 E5 2A !...,.....H-...*
013CF0: F7 F0 11 12 00 19 5E 23 56 EB E5 21 F1 F0 CD 2C ......^#V..!...,
013D00: 05 C5 D5 E5 CD 48 2D D9 E1 D1 C1 CD FA 09 D9 21 .....H-........!
013D10: F9 F0 CD D1 05 C3 BC 3F 2A F7 F0 CD 3A 05 CD 4D .......?*...:..M
013D20: 05 05 70 75 69 73 73 CD 8D 06 CB 45 CA 26 39 2A ..puiss....E.&9*
013D30: F7 F0 11 12 00 19 5E 23 56 EB E5 21 F1 F0 CD 2C ......^#V..!...,
013D40: 05 C5 D5 E5 CD 48 2D CD 34 0C C5 D5 E5 21 00 00 .....H-.4....!..
013D50: CD 08 10 D9 E1 D1 C1 CD 88 06 CB 45 CA A2 38 2A ...........E..8*
013D60: F7 F0 11 14 00 19 5E 23 56 EB E5 21 F1 F0 CD 2C ......^#V..!...,
013D70: 05 C5 D5 E5 CD 48 2D C5 D5 E5 2A F7 F0 11 12 00 .....H-...*.....
013D80: 19 5E 23 56 EB E5 21 F1 F0 CD 2C 05 C5 D5 E5 CD .^#V..!...,.....
013D90: 48 2D C5 D5 E5 CD 30 36 D9 21 F9 F0 CD D1 05 C3 H-....06.!......
013DA0: 23 39 2A F7 F0 11 14 00 19 5E 23 56 EB E5 21 F1 #9*......^#V..!.
013DB0: F0 CD 2C 05 C5 D5 E5 CD 48 2D C5 D5 E5 21 00 00 ..,.....H-...!..
013DC0: CD 08 10 D9 E1 D1 C1 CD C2 06 CB 45 CA DC 38 21 ...........E..8!
013DD0: 00 00 7D 32 B1 F1 C3 BC 3F C3 23 39 2A F7 F0 11 ..}2....?.#9*...
013DE0: 14 00 19 5E 23 56 EB E5 21 F1 F0 CD 2C 05 C5 D5 ...^#V..!...,...
013DF0: E5 CD 48 2D CD 2B 0D C5 D5 E5 2A F7 F0 11 12 00 ..H-.+....*.....
013E00: 19 5E 23 56 EB E5 21 F1 F0 CD 2C 05 C5 D5 E5 CD .^#V..!...,.....
013E10: 48 2D D9 E1 D1 C1 CD FA 09 CD B6 0D D9 21 F9 F0 H-...........!..
013E20: CD D1 05 C3 BC 3F 2A F7 F0 CD 3A 05 CD 4D 05 06 .....?*...:..M..
013E30: 64 69 76 69 73 65 CD 8D 06 CB 45 CA BC 39 2A F7 divise....E..9*.
013E40: F0 11 12 00 19 5E 23 56 EB E5 21 F1 F0 CD 2C 05 .....^#V..!...,.
013E50: C5 D5 E5 CD 48 2D C5 D5 E5 21 00 00 CD 08 10 D9 ....H-...!......
013E60: E1 D1 C1 CD 88 06 CB 45 CA 78 39 21 00 00 7D 32 .......E.x9!..}2
013E70: B1 F1 C3 BC 3F C3 B9 39 2A F7 F0 11 14 00 19 5E ....?..9*......^
013E80: 23 56 EB E5 21 F1 F0 CD 2C 05 C5 D5 E5 CD 48 2D #V..!...,.....H-
013E90: C5 D5 E5 2A F7 F0 11 12 00 19 5E 23 56 EB E5 21 ...*......^#V..!
013EA0: F1 F0 CD 2C 05 C5 D5 E5 CD 48 2D D9 E1 D1 C1 CD ...,.....H-.....
013EB0: FF 09 D9 21 F9 F0 CD D1 05 C3 BC 3F 2A F7 F0 CD ...!.......?*...
013EC0: 3A 05 CD 4D 05 05 69 64 66 63 74 CD 8D 06 CB 45 :..M..idfct....E
013ED0: CA 9F 3F 2A F7 F0 11 12 00 19 5E 23 56 EB E5 21 ..?*......^#V..!
013EE0: F1 F0 CD 2C 05 C5 D5 E5 CD 48 2D D9 21 E3 F0 CD ...,.....H-.!...
013EF0: D1 05 2A F7 F0 11 07 00 19 CD 3A 05 CD 4D 05 03 ..*.......:..M..
013F00: 63 6F 73 CD 8D 06 CB 45 CA 1E 3A 21 E3 F0 CD 2C cos....E..:!...,
013F10: 05 CD 7F 0C D9 21 F9 F0 CD D1 05 C3 9C 3F 2A F7 .....!.......?*.
013F20: F0 11 07 00 19 CD 3A 05 CD 4D 05 03 73 69 6E CD ......:..M..sin.
013F30: 8D 06 CB 45 CA 4A 3A 21 E3 F0 CD 2C 05 CD 87 0C ...E.J:!...,....
013F40: D9 21 F9 F0 CD D1 05 C3 9C 3F 2A F7 F0 11 07 00 .!.......?*.....
013F50: 19 CD 3A 05 CD 4D 05 04 74 61 6E 67 CD 8D 06 CB ..:..M..tang....
013F60: 45 CA B5 3A 21 E3 F0 CD 2C 05 CD 7F 0C C5 D5 E5 E..:!...,.......
013F70: 21 00 00 CD 08 10 D9 E1 D1 C1 CD 88 06 CB 45 CA !.............E.
013F80: 8F 3A 21 00 00 7D 32 B1 F1 C3 BC 3F C3 B2 3A 21 .:!..}2....?..:!
013F90: E3 F0 CD 2C 05 CD 87 0C C5 D5 E5 21 E3 F0 CD 2C ...,.......!...,
013FA0: 05 CD 7F 0C D9 E1 D1 C1 CD FF 09 D9 21 F9 F0 CD ............!...
013FB0: D1 05 C3 9C 3F 2A F7 F0 11 07 00 19 CD 3A 05 CD ....?*.......:..
013FC0: 4D 05 03 69 6E 74 CD 8D 06 CB 45 CA E1 3A 21 E3 M..int....E..:!.
013FD0: F0 CD 2C 05 CD FD 0B D9 21 F9 F0 CD D1 05 C3 9C ..,.....!.......
013FE0: 3F 2A F7 F0 11 07 00 19 CD 3A 05 CD 4D 05 03 61 ?*.......:..M..a
013FF0: 62 73 CD 8D 06 CB 45 CA 0C 3B 21 E3 F0 CD 2C 05 bs....E..;!...,.
014000: CB B8 D9 21 F9 F0 CD D1 05 C3 9C 3F 2A F7 F0 11 ...!.......?*...
014010: 07 00 19 CD 3A 05 CD 4D 05 06 61 72 63 74 61 6E ....:..M..arctan
014020: CD 8D 06 CB 45 CA 3B 3B 21 E3 F0 CD 2C 05 CD 46 ....E.;;!...,..F
014030: 0E D9 21 F9 F0 CD D1 05 C3 9C 3F 2A F7 F0 11 07 ..!.......?*....
014040: 00 19 CD 3A 05 CD 4D 05 03 65 78 70 CD 8D 06 CB ...:..M..exp....
014050: 45 CA 67 3B 21 E3 F0 CD 2C 05 CD B6 0D D9 21 F9 E.g;!...,.....!.
014060: F0 CD D1 05 C3 9C 3F 2A F7 F0 11 07 00 19 CD 3A ......?*.......:
014070: 05 CD 4D 05 02 6C 6E CD 8D 06 CB 45 CA BA 3B 21 ..M..ln....E..;!
014080: E3 F0 CD 2C 05 C5 D5 E5 21 00 00 CD 08 10 D9 E1 ...,....!.......
014090: D1 C1 CD C2 06 CB 45 CA A7 3B 21 00 00 7D 32 B1 ......E..;!..}2.
0140A0: F1 C3 BC 3F C3 B7 3B 21 E3 F0 CD 2C 05 CD 2B 0D ...?..;!...,..+.
0140B0: D9 21 F9 F0 CD D1 05 C3 9C 3F 2A F7 F0 11 07 00 .!.......?*.....
0140C0: 19 CD 3A 05 CD 4D 05 04 73 71 72 74 CD 8D 06 CB ..:..M..sqrt....
0140D0: 45 CA 0F 3C 21 E3 F0 CD 2C 05 C5 D5 E5 21 00 00 E..<!...,....!..
0140E0: CD 08 10 D9 E1 D1 C1 CD E9 06 CB 45 CA FC 3B 21 ...........E..;!
0140F0: 00 00 7D 32 B1 F1 C3 BC 3F C3 0C 3C 21 E3 F0 CD ..}2....?..<!...
014100: 2C 05 CD 46 0C D9 21 F9 F0 CD D1 05 C3 9C 3F 2A ,..F..!.......?*
014110: F7 F0 11 07 00 19 CD 3A 05 CD 4D 05 02 73 68 CD .......:..M..sh.
014120: 8D 06 CB 45 CA 70 3C 21 80 00 11 00 00 01 00 00 ...E.p<!........
014130: C5 D5 E5 21 E3 F0 CD 2C 05 CD B6 0D C5 D5 E5 21 ...!...,.......!
014140: E3 F0 CD 2C 05 C5 D5 E5 21 FF FF CD 08 10 D9 E1 ...,....!.......
014150: D1 C1 CD FA 09 CD B6 0D D9 E1 D1 C1 CD F2 09 D9 ................
014160: E1 D1 C1 CD FA 09 D9 21 F9 F0 CD D1 05 C3 9C 3F .......!.......?
014170: 2A F7 F0 11 07 00 19 CD 3A 05 CD 4D 05 02 63 68 *.......:..M..ch
014180: CD 8D 06 CB 45 CA D1 3C 21 80 00 11 00 00 01 00 ....E..<!.......
014190: 00 C5 D5 E5 21 E3 F0 CD 2C 05 CD B6 0D C5 D5 E5 ....!...,.......
0141A0: 21 E3 F0 CD 2C 05 C5 D5 E5 21 FF FF CD 08 10 D9 !...,....!......
0141B0: E1 D1 C1 CD FA 09 CD B6 0D D9 E1 D1 C1 CD E9 09 ................
0141C0: D9 E1 D1 C1 CD FA 09 D9 21 F9 F0 CD D1 05 C3 9C ........!.......
0141D0: 3F 2A F7 F0 11 07 00 19 CD 3A 05 CD 4D 05 02 74 ?*.......:..M..t
0141E0: 68 CD 8D 06 CB 45 CA 55 3D 21 E3 F0 CD 2C 05 CD h....E.U=!...,..
0141F0: B6 0D C5 D5 E5 21 E3 F0 CD 2C 05 C5 D5 E5 21 FF .....!...,....!.
014200: 0D 0A 70 72 6F 63 65 64 75 72 65 20 20 67 72 61 ..procedure gra
014210: 70 68 65 3B 0D 0A 0D 0A 76 61 72 0D 0A 78 6F 2C phe;....var..xo,
014220: 79 6F 2C 78 78 64 2C 78 78 61 2C 75 78 2C 75 79 yo,xxd,xxa,ux,uy
014230: 2C 70 61 73 3A 72 65 61 6C 3B 0D 0A 78 70 2C 79 ,pas:real;..xp,y
014240: 70 2C 6E 62 66 6F 6E 63 2C 7A 2C 62 6B 2C 69 6E p,nbfonc,z,bk,in
014250: 64 65 78 2C 63 68 6F 69 78 62 69 73 3A 69 6E 74 dex,choixbis:int
014260: 65 67 65 72 3B 0D 0A 70 72 65 63 65 64 65 3A 62 eger;..precede:b
014270: 6F 6F 6C 65 61 6E 3B 0D 0A 66 78 2C 66 79 3A 61 oolean;..fx,fy:a
014280: 72 72 61 79 5B 31 2E 2E 31 30 5D 20 6F 66 20 69 rray[1..10] of i
014290: 6E 74 65 67 65 72 3B 0D 0A 6C 64 61 3A 61 72 72 nteger;..lda:arr
0142A0: 61 79 5B 31 2E 2E 32 30 5D 20 6F 66 20 72 65 61 ay[1..20] of rea
0142B0: 6C 3B 0D 0A 62 65 67 69 6E 0D 0A 20 63 6C 72 73 l;..begin.. clrs
0142C0: 63 72 3B 0D 0A 20 20 69 66 20 72 65 76 6F 69 72 cr;.. if revoir
0142D0: 3D 30 20 74 68 65 6E 0D 0A 20 20 62 65 67 69 6E =0 then.. begin
0142E0: 0D 0A 20 20 20 77 72 69 74 65 6C 6E 28 27 31 2D .. writeln('1-
0142F0: 43 6F 75 72 62 65 20 79 3D 66 28 78 29 27 29 3B Courbe y=f(x)');
014300: 77 72 69 74 65 6C 6E 3B 0D 0A 20 20 20 77 72 69 writeln;.. wri
014310: 74 65 6C 6E 28 27 32 2D 43 6F 75 72 62 65 20 78 teln('2-Courbe x
014320: 3D 66 28 74 29 3B 79 3D 66 28 74 29 27 29 3B 77 =f(t);y=f(t)');w
014330: 72 69 74 65 6C 6E 3B 0D 0A 20 20 20 77 72 69 74 riteln;.. writ
014340: 65 6C 6E 28 27 33 2D 43 6F 75 72 62 65 20 70 6F eln('3-Courbe po
014350: 6C 61 69 72 65 20 72 3D 66 28 74 29 27 29 3B 77 laire r=f(t)');w
014360: 72 69 74 65 6C 6E 3B 0D 0A 20 20 20 77 72 69 74 riteln;.. writ
014370: 65 28 27 56 6F 74 72 65 20 63 68 6F 69 78 3F 20 e('Votre choix?
014380: 27 29 3B 0D 0A 20 20 20 72 65 70 65 61 74 0D 0A ');.. repeat..
014390: 20 20 20 72 65 61 64 28 6B 62 64 2C 63 61 72 29 read(kbd,car)
0143A0: 3B 0D 0A 20 20 20 75 6E 74 69 6C 20 28 28 63 61 ;.. until ((ca
0143B0: 72 3E 27 30 27 29 20 61 6E 64 20 28 63 61 72 3C r>'0') and (car<
0143C0: 27 34 27 29 29 3B 0D 0A 20 20 20 77 72 69 74 65 '4'));.. write
0143D0: 6C 6E 3B 0D 0A 20 20 20 76 61 6C 28 63 61 72 2C ln;.. val(car,
0143E0: 63 68 6F 69 78 2C 72 65 73 75 6C 74 29 3B 0D 0A choix,result);..
0143F0: 20 20 20 77 72 69 74 65 6C 6E 3B 0D 0A 20 20 65 writeln;.. e
014400: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
014410: 11 00 00 00 02 09 4E E5 11 00 41 02 00 00 00 02 ......N...A.....
014420: 11 00 42 02 00 00 00 02 11 00 43 02 00 00 00 02 ..B.......C.....
014430: 11 00 44 02 00 00 00 02 11 00 45 02 00 00 00 02 ..D.......E.....
014440: 11 00 46 02 00 00 00 02 11 00 47 02 00 00 00 02 ..F.......G.....
014450: 11 00 48 02 00 00 00 02 11 00 49 02 00 00 00 02 ..H.......I.....
014460: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014470: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014480: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014490: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0144A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0144B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0144C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0144D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0144E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0144F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
014500: 6E 64 3B 0D 0A 20 20 77 72 69 74 65 6C 6E 3B 0D nd;.. writeln;.
014510: 0A 20 20 77 72 69 74 65 28 27 41 62 73 63 69 73 . write('Abscis
014520: 73 65 20 6F 72 69 67 69 6E 65 20 27 29 3B 72 65 se origine ');re
014530: 61 64 6C 6E 28 78 6F 29 3B 0D 0A 20 20 77 72 69 adln(xo);.. wri
014540: 74 65 28 27 4F 72 64 6F 6E 6E 65 65 20 6F 72 69 te('Ordonnee ori
014550: 67 69 6E 65 20 27 29 3B 72 65 61 64 6C 6E 28 79 gine ');readln(y
014560: 6F 29 3B 0D 0A 20 20 77 72 69 74 65 28 27 42 6F o);.. write('Bo
014570: 72 6E 65 20 69 6E 66 65 72 69 65 75 72 65 20 69 rne inferieure i
014580: 6E 74 20 64 27 27 65 74 75 64 65 20 27 29 3B 72 nt d''etude ');r
014590: 65 61 64 6C 6E 28 78 78 64 29 3B 0D 0A 20 20 77 eadln(xxd);.. w
0145A0: 72 69 74 65 28 27 42 6F 72 6E 65 20 73 75 70 65 rite('Borne supe
0145B0: 72 69 65 75 72 65 20 69 6E 74 20 64 27 27 65 74 rieure int d''et
0145C0: 75 64 65 20 27 29 3B 72 65 61 64 6C 6E 28 78 78 ude ');readln(xx
0145D0: 61 29 3B 0D 0A 20 20 77 72 69 74 65 28 27 55 6E a);.. write('Un
0145E0: 69 74 65 20 61 62 73 63 69 73 73 65 20 27 29 3B ite abscisse ');
0145F0: 72 65 61 64 6C 6E 28 75 78 29 3B 0D 0A 20 20 77 readln(ux);.. w
014600: 72 69 74 65 28 27 55 6E 69 74 65 20 6F 72 64 6F rite('Unite ordo
014610: 6E 6E 65 65 20 27 29 3B 72 65 61 64 6C 6E 28 75 nnee ');readln(u
014620: 79 29 3B 0D 0A 20 20 77 72 69 74 65 28 27 50 61 y);.. write('Pa
014630: 73 20 64 27 27 65 74 75 64 65 20 27 29 3B 72 65 s d''etude ');re
014640: 61 64 6C 6E 28 70 61 73 29 3B 0D 0A 0D 0A 69 66 adln(pas);....if
014650: 20 72 65 76 6F 69 72 3D 30 20 74 68 65 6E 0D 0A revoir=0 then..
014660: 20 62 65 67 69 6E 0D 0A 20 20 77 72 69 74 65 28 begin.. write(
014670: 27 4E 6F 6D 62 72 65 20 64 65 20 67 72 61 70 68 'Nombre de graph
014680: 65 73 20 73 75 72 20 6C 65 20 6D 65 6D 65 20 65 es sur le meme e
014690: 63 72 61 6E 20 28 31 20 61 20 39 29 3F 27 29 3B cran (1 a 9)?');
0146A0: 0D 0A 20 20 6E 62 66 6F 6E 63 3A 3D 6E 75 6D 66 .. nbfonc:=numf
0146B0: 6F 6E 63 3B 0D 0A 20 20 69 6E 64 65 78 3A 3D 30 onc;.. index:=0
0146C0: 3B 0D 0A 20 20 66 6F 72 20 7A 3A 3D 31 20 74 6F ;.. for z:=1 to
0146D0: 20 6E 62 66 6F 6E 63 20 64 6F 0D 0A 20 20 62 65 nbfonc do.. be
0146E0: 67 69 6E 0D 0A 20 20 20 63 61 73 65 20 63 68 6F gin.. case cho
0146F0: 69 78 20 6F 66 0D 0A 20 20 20 20 31 3A 20 62 65 ix of.. 1: be
014700: 7B 24 41 2D 7D 0D 0A 70 72 6F 67 72 61 6D 20 20 {$A-}..program
014710: 20 20 20 63 6F 75 72 62 65 3B 0D 0A 74 79 70 65 courbe;..type
014720: 0D 0A 20 66 6F 6E 63 74 69 6F 6E 3D 5E 73 6F 6D .. fonction=^som
014730: 6D 65 74 3B 0D 0A 20 73 6F 6D 6D 65 74 3D 72 65 met;.. sommet=re
014740: 63 6F 72 64 0D 0A 20 20 20 20 20 20 20 20 20 20 cord..
014750: 20 20 20 20 6E 61 74 75 72 65 3A 73 74 72 69 6E nature:strin
014760: 67 5B 36 5D 3B 0D 0A 20 20 20 20 20 20 20 20 20 g[6];..
014770: 20 20 20 20 20 76 61 6C 65 75 72 3A 73 74 72 69 valeur:stri
014780: 6E 67 5B 31 30 5D 3B 0D 0A 20 20 20 20 20 20 20 ng[10];..
014790: 20 20 20 20 20 20 20 64 3A 20 66 6F 6E 63 74 69 d: foncti
0147A0: 6F 6E 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 on;..
0147B0: 20 20 20 67 3A 20 66 6F 6E 63 74 69 6F 6E 3B 0D g: fonction;.
0147C0: 0A 20 20 20 20 20 20 20 20 65 6E 64 3B 0D 0A 20 . end;..
0147D0: 73 74 72 32 30 30 3D 73 74 72 69 6E 67 5B 32 35 str200=string[25
0147E0: 30 5D 3B 0D 0A 20 73 74 72 31 30 3D 73 74 72 69 0];.. str10=stri
0147F0: 6E 67 5B 31 30 5D 3B 0D 0A 63 6F 6E 73 74 0D 0A ng[10];..const..
014800: 20 66 69 6C 74 72 65 3A 73 65 74 20 6F 66 20 63 filtre:set of c
014810: 68 61 72 3D 5B 27 2B 27 2C 27 2A 27 2C 27 2D 27 har=['+','*','-'
014820: 2C 27 2F 27 2C 27 5E 27 2C 27 2E 27 2C 27 28 27 ,'/','^','.','('
014830: 2C 27 29 27 2C 27 61 27 2E 2E 27 7A 27 2C 27 30 ,')','a'..'z','0
014840: 27 2E 2E 27 39 27 5D 3B 0D 0A 0D 0A 76 61 72 0D '..'9'];....var.
014850: 0A 20 66 3A 61 72 72 61 79 5B 31 2E 2E 31 30 5D . f:array[1..10]
014860: 20 6F 66 20 66 6F 6E 63 74 69 6F 6E 3B 0D 0A 20 of fonction;..
014870: 63 61 72 3A 63 68 61 72 3B 0D 0A 20 69 64 66 3A car:char;.. idf:
014880: 73 74 72 69 6E 67 5B 31 30 5D 3B 0D 0A 20 69 2C string[10];.. i,
014890: 6A 2C 72 65 73 75 6C 74 3A 69 6E 74 65 67 65 72 j,result:integer
0148A0: 3B 0D 0A 20 69 6E 64 69 63 65 2C 63 68 6F 69 78 ;.. indice,choix
0148B0: 3A 69 6E 74 65 67 65 72 3B 0D 0A 20 70 3A 61 72 :integer;.. p:ar
0148C0: 72 61 79 5B 31 2E 2E 33 2C 31 2E 2E 31 30 5D 20 ray[1..3,1..10]
0148D0: 6F 66 20 72 65 61 6C 3B 0D 0A 20 6D 3A 61 72 72 of real;.. m:arr
0148E0: 61 79 5B 31 2E 2E 31 30 5D 20 6F 66 20 69 6E 74 ay[1..10] of int
0148F0: 65 67 65 72 3B 0D 0A 20 64 65 66 69 6E 69 3A 62 eger;.. defini:b
014900: 6F 6F 6C 65 61 6E 3B 0D 0A 20 78 2C 72 65 73 75 oolean;.. x,resu
014910: 6C 74 61 74 3A 72 65 61 6C 3B 0D 0A 0D 0A 7B 24 ltat:real;....{$
014920: 49 20 6C 69 72 65 66 6F 6E 63 2E 70 61 73 7D 0D I lirefonc.pas}.
014930: 0A 7B 24 49 20 63 61 6C 63 75 6C 66 2E 70 61 73 .{$I calculf.pas
014940: 7D 0D 0A 7B 24 49 20 61 6C 67 65 62 72 65 2E 70 }..{$I algebre.p
014950: 61 73 7D 0D 0A 7B 24 49 20 64 65 72 69 76 65 65 as}..{$I derivee
014960: 2E 70 61 73 7D 0D 0A 7B 24 49 20 6D 65 6E 75 2E .pas}..{$I menu.
014970: 70 61 73 7D 0D 0A 0D 0A 62 65 67 69 6E 0D 0A 66 pas}....begin..f
014980: 6F 72 20 69 3A 3D 31 20 74 6F 20 31 30 20 64 6F or i:=1 to 10 do
014990: 20 62 65 67 69 6E 20 66 5B 69 5D 3A 3D 6E 69 6C begin f[i]:=nil
0149A0: 3B 6D 5B 69 5D 3A 3D 30 3B 20 65 6E 64 3B 0D 0A ;m[i]:=0; end;..
0149B0: 62 6F 75 63 6C 65 3B 0D 0A 65 6E 64 2E 1A 1A 1A boucle;..end....
0149C0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0149D0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0149E0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0149F0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
014A00: 0A 20 62 65 67 69 6E 0D 0A 20 20 6E 65 77 28 75 . begin.. new(u
014A10: 29 3B 75 5E 2E 6E 61 74 75 72 65 3A 3D 27 6D 75 );u^.nature:='mu
014A20: 6C 74 69 27 3B 75 5E 2E 76 61 6C 65 75 72 3A 3D lti';u^.valeur:=
014A30: 27 2A 27 3B 75 5E 2E 64 3A 3D 66 5E 2E 64 3B 0D '*';u^.d:=f^.d;.
014A40: 0A 20 20 75 5E 2E 67 3A 3D 6F 70 70 6F 73 65 28 . u^.g:=oppose(
014A50: 66 5E 2E 67 29 3B 6F 70 70 6F 73 65 3A 3D 75 3B f^.g);oppose:=u;
014A60: 0D 0A 20 65 6E 64 0D 0A 20 65 6C 73 65 0D 0A 69 .. end.. else..i
014A70: 66 20 28 28 66 5E 2E 76 61 6C 65 75 72 3D 27 78 f ((f^.valeur='x
014A80: 27 29 20 6F 72 20 28 66 5E 2E 76 61 6C 65 75 72 ') or (f^.valeur
014A90: 3D 27 5E 27 29 29 20 74 68 65 6E 0D 0A 20 62 65 ='^')) then.. be
014AA0: 67 69 6E 0D 0A 20 20 6E 65 77 28 75 29 3B 75 5E gin.. new(u);u^
014AB0: 2E 6E 61 74 75 72 65 3A 3D 27 6D 75 6C 74 69 27 .nature:='multi'
014AC0: 3B 75 5E 2E 76 61 6C 65 75 72 3A 3D 27 2A 27 3B ;u^.valeur:='*';
014AD0: 75 5E 2E 64 3A 3D 66 3B 0D 0A 20 20 6E 65 77 28 u^.d:=f;.. new(
014AE0: 76 29 3B 76 5E 2E 6E 61 74 75 72 65 3A 3D 27 6E v);v^.nature:='n
014AF0: 6F 6D 62 72 65 27 3B 76 5E 2E 76 61 6C 65 75 72 ombre';v^.valeur
014B00: FF CD 08 10 D9 E1 D1 C1 CD FA 09 CD B6 0D D9 E1 ................
014B10: D1 C1 CD F2 09 C5 D5 E5 21 E3 F0 CD 2C 05 CD B6 ........!...,...
014B20: 0D C5 D5 E5 21 E3 F0 CD 2C 05 C5 D5 E5 21 FF FF ....!...,....!..
014B30: CD 08 10 D9 E1 D1 C1 CD FA 09 CD B6 0D D9 E1 D1 ................
014B40: C1 CD E9 09 D9 E1 D1 C1 CD FF 09 D9 21 F9 F0 CD ............!...
014B50: D1 05 C3 9C 3F 2A F7 F0 11 07 00 19 CD 3A 05 CD ....?*.......:..
014B60: 4D 05 06 61 72 63 73 69 6E CD 8D 06 CB 45 CA 78 M..arcsin....E.x
014B70: 3E 21 E3 F0 CD 2C 05 C5 D5 E5 21 FF FF CD 08 10 >!...,....!.....
014B80: D9 E1 D1 C1 CD 88 06 CB 45 CA B2 3D 21 80 00 11 ........E..=!...
014B90: 00 00 01 00 80 C5 D5 E5 21 82 21 11 A2 DA 01 0F ........!.!.....
014BA0: 49 D9 E1 D1 C1 CD FA 09 D9 21 F9 F0 CD D1 05 C3 I........!......
014BB0: 75 3E 21 E3 F0 CD 2C 05 C5 D5 E5 21 01 00 CD 08 u>!...,....!....
014BC0: 10 D9 E1 D1 C1 CD 88 06 CB 45 CA F3 3D 21 80 00 .........E..=!..
014BD0: 11 00 00 01 00 00 C5 D5 E5 21 82 21 11 A2 DA 01 .........!.!....
014BE0: 0F 49 D9 E1 D1 C1 CD FA 09 D9 21 F9 F0 CD D1 05 .I........!.....
014BF0: C3 75 3E 21 E3 F0 CD 2C 05 C5 D5 E5 21 FF FF CD .u>!...,....!...
014C00: 08 10 D9 E1 D1 C1 CD E9 06 E5 21 E3 F0 CD 2C 05 ..........!...,.
014C10: C5 D5 E5 21 01 00 CD 08 10 D9 E1 D1 C1 CD D6 06 ...!............
014C20: D1 7D B3 6F CB 45 CA 36 3E 21 00 00 7D 32 B1 F1 .}.o.E.6>!..}2..
014C30: C3 BC 3F C3 75 3E 21 E3 F0 CD 2C 05 C5 D5 E5 21 ..?.u>!...,....!
014C40: 01 00 E5 21 E3 F0 CD 2C 05 C5 D5 E5 21 E3 F0 CD ...!...,....!...
014C50: 2C 05 D9 E1 D1 C1 CD FA 09 D9 E1 CD 08 10 CD F2 ,...............
014C60: 09 CD 46 0C D9 E1 D1 C1 CD FF 09 CD 46 0E D9 21 ..F.........F..!
014C70: F9 F0 CD D1 05 C3 9C 3F 2A F7 F0 11 07 00 19 CD .......?*.......
014C80: 3A 05 CD 4D 05 06 61 72 63 63 6F 73 CD 8D 06 CB :..M..arccos....
014C90: 45 CA 95 3F 21 E3 F0 CD 2C 05 C5 D5 E5 21 FF FF E..?!...,....!..
014CA0: CD 08 10 D9 E1 D1 C1 CD 88 06 CB 45 CA C2 3E 21 ...........E..>!
014CB0: 82 21 11 A2 DA 01 0F 49 D9 21 F9 F0 CD D1 05 C3 .!.....I.!......
014CC0: 92 3F 21 E3 F0 CD 2C 05 C5 D5 E5 21 01 00 CD 08 .?!...,....!....
014CD0: 10 D9 E1 D1 C1 CD 88 06 CB 45 CA ED 3E 21 00 00 .........E..>!..
014CE0: CD 08 10 D9 21 F9 F0 CD D1 05 C3 92 3F 21 E3 F0 ....!.......?!..
014CF0: CD 2C 05 C5 D5 E5 21 FF FF CD 08 10 D9 E1 D1 C1 .,....!.........
014D00: CD E9 06 E5 21 E3 F0 CD 2C 05 C5 D5 E5 21 01 00 ....!...,....!..
014D10: CD 08 10 D9 E1 D1 C1 CD D6 06 D1 7D B3 6F CB 45 ...........}.o.E
014D20: CA 30 3F 21 00 00 7D 32 B1 F1 C3 BC 3F C3 92 3F .0?!..}2....?..?
014D30: 21 82 21 11 A2 DA 01 0F 49 C5 D5 E5 21 02 00 CD !.!.....I...!...
014D40: 08 10 D9 E1 D1 C1 CD FF 09 C5 D5 E5 21 E3 F0 CD ............!...
014D50: 2C 05 C5 D5 E5 21 01 00 E5 21 E3 F0 CD 2C 05 C5 ,....!...!...,..
014D60: D5 E5 21 E3 F0 CD 2C 05 D9 E1 D1 C1 CD FA 09 D9 ..!...,.........
014D70: E1 CD 08 10 CD F2 09 CD 46 0C D9 E1 D1 C1 CD FF ........F.......
014D80: 09 CD 46 0E D9 E1 D1 C1 CD F2 09 D9 21 F9 F0 CD ..F.........!...
014D90: D1 05 C3 9C 3F 21 0A 00 E5 CD 77 21 C3 BC 3F 2A ....?!....w!..?*
014DA0: F7 F0 E5 21 00 00 D1 CD 7F 06 CB 45 CA BC 3F 21 ...!.......E..?!
014DB0: 00 00 CD 08 10 D9 21 F9 F0 CD D1 05 21 F9 F0 CD ......!.....!...
014DC0: 2C 05 D9 01 1E 00 11 E1 F0 C3 22 05 01 0F 03 21 ,........."....!
014DD0: D2 ED CD 08 05 FD E1 E1 7D 32 E3 EF E1 22 E4 EF ........}2..."..
014DE0: FD E5 2A E4 EF CD 3A 05 CD 4D 05 05 69 64 66 63 ..*...:..M..idfc
014DF0: 74 CD 8D 06 CB 45 CA 3A 40 2A E4 EF 11 07 00 19 t....E.:@*......
014E00: CD 3A 05 21 28 00 65 2E 01 E5 CD 3D 08 2A E4 EF .:.!(.e....=.*..
014E10: 11 12 00 19 5E 23 56 EB E5 2A E3 EF 26 00 E5 CD ....^#V..*..&...
014E20: 4E 2D CD 3D 08 21 29 00 65 2E 01 E5 CD 3D 08 06 N-.=.!).e....=..
014E30: FA 21 E6 EF CD E2 05 C3 04 44 2A E4 EF CD 3A 05 .!.......D*...:.
014E40: CD 4D 05 06 6E 6F 6D 62 72 65 CD 8D 06 CB 45 CA .M..nombre....E.
014E50: 67 40 2A E4 EF 11 07 00 19 CD 3A 05 06 FA 21 E6 g@*.......:...!.
014E60: EF CD E2 05 C3 04 44 2A E4 EF CD 3A 05 CD 4D 05 ......D*...:..M.
014E70: 05 70 61 72 61 6D CD 8D 06 CB 45 CA A6 40 CD 4D .param....E..@.M
014E80: 05 02 70 28 2A E4 EF 11 07 00 19 CD 3A 05 CD 3D ..p(*.......:..=
014E90: 08 21 29 00 65 2E 01 E5 CD 3D 08 06 FA 21 E6 EF .!).e....=...!..
014EA0: CD E2 05 C3 04 44 2A E4 EF CD 3A 05 CD 4D 05 06 .....D*...:..M..
014EB0: 76 61 72 69 61 62 CD 8D 06 CB 45 CA D2 40 2A E3 variab....E..@*.
014EC0: EF 26 00 65 2E 01 E5 06 FA 21 E6 EF CD E2 05 C3 .&.e.....!......
014ED0: 04 44 2A E4 EF CD 3A 05 CD 4D 05 04 70 6C 75 73 .D*...:..M..plus
014EE0: CD 8D 06 E5 2A E4 EF CD 3A 05 CD 4D 05 05 6D 6F ....*...:..M..mo
014EF0: 69 6E 73 CD 8D 06 D1 7D B3 6F CB 45 CA 6D 43 2A ins....}.o.E.mC*
014F00: E4 EF 11 12 00 19 5E 23 56 EB E5 2A E3 EF 26 00 ......^#V..*..&.
014F10: E5 CD 4E 2D 06 FA 21 E0 EE CD E2 05 2A E4 EF 11 ..N-..!.....*...
014F20: 14 00 19 5E 23 56 EB E5 2A E3 EF 26 00 E5 CD 4E ...^#V..*..&...N
014F30: 2D 06 FA 21 E5 ED CD E2 05 2A E4 EF 11 12 00 19 -..!.....*......
014F40: 5E 23 56 EB 11 07 00 19 CD 3A 05 21 2B 00 65 2E ^#V......:.!+.e.
014F50: 01 E5 CD 8D 06 E5 2A E4 EF 11 12 00 19 5E 23 56 ......*......^#V
014F60: EB 11 07 00 19 CD 3A 05 21 2D 00 65 2E 01 E5 CD ......:.!-.e....
014F70: 8D 06 D1 7D B3 6F E5 2A E4 EF 11 07 00 19 CD 3A ...}.o.*.......:
014F80: 05 21 2B 00 65 2E 01 E5 CD 8D 06 D1 7D A3 6F CB .!+.e.......}£o.
014F90: 45 CA B6 41 21 E0 EE E5 21 01 00 E5 21 01 00 CD E..A!...!...!...
014FA0: F3 08 21 E0 EE E5 21 E0 EE CD 3A 05 CD A3 08 E5 ..!...!...:..£..
014FB0: 21 01 00 CD F3 08 2A E4 EF 11 14 00 19 5E 23 56 !.....*......^#V
014FC0: EB 11 07 00 19 CD 3A 05 21 2B 00 65 2E 01 E5 CD ......:.!+.e....
014FD0: 8D 06 E5 2A E4 EF 11 14 00 19 5E 23 56 EB 11 07 ...*......^#V...
014FE0: 00 19 CD 3A 05 21 2D 00 65 2E 01 E5 CD 8D 06 D1 ...:.!-.e.......
014FF0: 7D B3 6F CB 45 CA 1A 42 21 E5 ED E5 21 01 00 E5 }.o.E..B!...!...
015000: 21 01 00 CD F3 08 21 E5 ED E5 21 E5 ED CD 3A 05 !.....!...!...:.
015010: CD A3 08 E5 21 01 00 CD F3 08 21 01 00 CD 08 10 .£..!.....!.....
015020: D9 21 DF ED CD D1 05 2A E4 EF 11 12 00 19 5E 23 .!.....*......^#
015030: 56 EB CD 3A 05 CD 4D 05 06 6E 6F 6D 62 72 65 CD V..:..M..nombre.
015040: 8D 06 CB 45 CA 63 42 2A E4 EF 11 12 00 19 5E 23 ...E.cB*......^#
015050: 56 EB 11 07 00 19 CD 3A 05 21 DF ED E5 21 DD ED V......:.!...!..
015060: CD F3 1E 2A E4 EF 11 12 00 19 5E 23 56 EB 11 07 ...*......^#V...
015070: 00 19 CD 3A 05 21 2A 00 65 2E 01 E5 CD 8D 06 E5 ...:.!*.e.......
015080: 2A E4 EF 11 12 00 19 5E 23 56 EB 11 14 00 19 5E *......^#V.....^
015090: 23 56 EB CD 3A 05 CD 4D 05 06 6E 6F 6D 62 72 65 #V..:..M..nombre
0150A0: CD 8D 06 D1 7D A3 6F CB 45 CA D0 42 2A E4 EF 11 ....}£o.E..B*...
0150B0: 12 00 19 5E 23 56 EB 11 14 00 19 5E 23 56 EB 11 ...^#V.....^#V..
0150C0: 07 00 19 CD 3A 05 21 DF ED E5 21 DD ED CD F3 1E ....:.!...!.....
0150D0: 2A E4 EF 11 07 00 19 CD 3A 05 21 2B 00 65 2E 01 *.......:.!+.e..
0150E0: E5 CD 8D 06 E5 21 DF ED CD 2C 05 C5 D5 E5 21 00 .....!...,....!.
0150F0: 00 CD 08 10 D9 E1 D1 C1 CD E9 06 D1 7D A3 6F CB ............}£o.
015100: 45 CA 32 43 21 28 00 E5 21 E5 ED CD 3A 05 CD A2 E.2C!(..!...:...
015110: 09 CD 3D 08 21 E0 EE CD 3A 05 CD 3D 08 21 29 00 ..=.!...:..=.!).
015120: 65 2E 01 E5 CD 3D 08 06 FA 21 E6 EF CD E2 05 C3 e....=...!......
015130: 6A 43 21 28 00 E5 21 E5 ED CD 3A 05 CD A2 09 CD jC!(..!...:.....
015140: 3D 08 2A E4 EF 11 07 00 19 CD 3A 05 CD 3D 08 21 =.*.......:..=.!
015150: E0 EE CD 3A 05 CD 3D 08 21 29 00 65 2E 01 E5 CD ...:..=.!).e....
015160: 3D 08 06 FA 21 E6 EF CD E2 05 C3 04 44 2A E4 EF =...!.......D*..
015170: CD 3A 05 CD 4D 05 06 64 69 76 69 73 65 CD 8D 06 .:..M..divise...
015180: E5 2A E4 EF CD 3A 05 CD 4D 05 05 6D 75 6C 74 69 .*...:..M..multi
015190: CD 8D 06 D1 7D B3 6F E5 2A E4 EF CD 3A 05 CD 4D ....}.o.*...:..M
0151A0: 05 05 70 75 69 73 73 CD 8D 06 D1 7D B3 6F CB 45 ..puiss....}.o.E
0151B0: CA F8 43 2A E4 EF 11 14 00 19 5E 23 56 EB E5 2A ..C*......^#V..*
0151C0: E3 EF 26 00 E5 CD 4E 2D 2A E4 EF 11 07 00 19 CD ..&...N-*.......
0151D0: 3A 05 CD 3D 08 2A E4 EF 11 12 00 19 5E 23 56 EB :..=.*......^#V.
0151E0: E5 2A E3 EF 26 00 E5 CD 4E 2D CD 3D 08 06 FA 21 .*..&...N-.=...!
0151F0: E6 EF CD E2 05 C3 04 44 CD 4D 05 00 06 FA 21 E6 .......D.M....!.
015200: EF CD E2 05 FD E1 21 E6 EF CD 3A 05 FD E5 01 0F ......!...:.....
015210: 03 11 D2 ED C3 22 05 01 1A 00 21 B8 ED CD 08 05 ....."....!.....
015220: FD E1 E1 22 CE ED FD E5 2A CE ED 5E 23 56 EB 11 ..."....*..^#V..
015230: 07 00 19 CD 3A 05 21 2A 00 65 2E 01 E5 CD 8D 06 ....:.!*.e......
015240: E5 2A CE ED 5E 23 56 EB 11 14 00 19 5E 23 56 EB .*..^#V.....^#V.
015250: CD 3A 05 CD 4D 05 06 6E 6F 6D 62 72 65 CD 8D 06 .:..M..nombre...
015260: D1 7D A3 6F CB 45 CA D9 44 21 C4 ED E5 21 16 00 .}£o.E..D!...!..
015270: CD E5 1C CD 4D 05 05 6D 75 6C 74 69 06 06 2A C4 ....M..multi..*.
015280: ED CD E2 05 2A C4 ED 11 07 00 19 E5 21 2A 00 65 ....*.......!*.e
015290: 2E 01 E5 06 0A CD 01 06 2A C4 ED 11 12 00 19 E5 ........*.......
0152A0: 2A CE ED 5E 23 56 EB 11 12 00 19 5E 23 56 EB EB *..^#V.....^#V..
0152B0: E1 73 23 72 2A C4 ED 11 14 00 19 E5 2A CE ED 5E .s#r*.......*..^
0152C0: 23 56 EB 11 14 00 19 E5 CD 4B 2D EB E1 73 23 72 #V.......K-..s#r
0152D0: 2A C4 ED 22 D0 ED C3 14 48 2A CE ED 5E 23 56 EB *.."....H*..^#V.
0152E0: 11 07 00 19 CD 3A 05 21 78 00 65 2E 01 E5 CD 8D .....:.!x.e.....
0152F0: 06 E5 2A CE ED 5E 23 56 EB 11 07 00 19 CD 3A 05 ..*..^#V......:.
015300: 21 5E 00 65 2E 01 E5 CD 8D 06 D1 7D B3 6F CB 45 !^.e.......}.o.E
015310: CA BE 45 21 C4 ED E5 21 16 00 CD E5 1C CD 4D 05 ..E!...!......M.
015320: 05 6D 75 6C 74 69 06 06 2A C4 ED CD E2 05 2A C4 .multi..*.....*.
015330: ED 11 07 00 19 E5 21 2A 00 65 2E 01 E5 06 0A CD ......!*.e......
015340: 01 06 2A C4 ED 11 12 00 19 E5 2A CE ED 5E 23 56 ..*.......*..^#V
015350: EB EB E1 73 23 72 21 C2 ED E5 21 16 00 CD E5 1C ...s#r!...!.....
015360: CD 4D 05 06 6E 6F 6D 62 72 65 06 06 2A C2 ED CD .M..nombre..*...
015370: E2 05 2A C2 ED 11 07 00 19 E5 CD 4D 05 02 2D 31 ..*........M..-1
015380: 06 0A CD 01 06 2A C2 ED 11 12 00 19 E5 21 00 00 .....*.......!..
015390: EB E1 73 23 72 2A C2 ED 11 14 00 19 E5 21 00 00 ..s#r*.......!..
0153A0: EB E1 73 23 72 2A C4 ED 11 14 00 19 E5 2A C2 ED ..s#r*.......*..
0153B0: EB E1 73 23 72 2A C4 ED 22 D0 ED C3 14 48 2A CE ..s#r*.."....H*.
0153C0: ED 5E 23 56 EB CD 3A 05 CD 4D 05 06 6E 6F 6D 62 .^#V..:..M..nomb
0153D0: 72 65 CD 8D 06 CB 45 CA E2 46 21 C4 ED E5 21 16 re....E..F!...!.
0153E0: 00 CD E5 1C CD 4D 05 06 6E 6F 6D 62 72 65 06 06 .....M..nombre..
0153F0: 2A C4 ED CD E2 05 2A C4 ED 11 12 00 19 E5 21 00 *.....*.......!.
015400: 00 EB E1 73 23 72 2A C4 ED 11 14 00 19 E5 21 00 ...s#r*.......!.
015410: 00 EB E1 73 23 72 2A CE ED 5E 23 56 EB 11 07 00 ...s#r*..^#V....
015420: 19 CD 3A 05 21 B8 ED E5 21 BE ED CD F3 1E 21 B8 ..:.!...!.....!.
015430: ED CD 2C 05 C5 D5 E5 21 FF FF CD 08 10 D9 E1 D1 ..,....!........
015440: C1 CD FA 09 D9 21 B8 ED CD D1 05 21 B8 ED CD 2C .....!.....!...,
015450: 05 CD 34 0C C5 D5 E5 21 00 00 CD 08 10 D9 E1 D1 ..4....!........
015460: C1 CD 88 06 CB 45 CA 86 46 21 B8 ED CD 2C 05 CD .....E..F!...,..
015470: D0 0F E5 21 00 00 E5 2A C4 ED 11 07 00 19 06 0A ...!...*........
015480: CD BE 1E C3 D9 46 21 B8 ED CD 2C 05 C5 D5 E5 21 .....F!...,....!
015490: 0A 00 E5 21 05 00 E5 2A C4 ED 11 07 00 19 06 0A ...!...*........
0154A0: CD BD 1E 21 20 00 65 2E 01 E5 2A C4 ED 11 07 00 ...! .e...*.....
0154B0: 19 CD 3A 05 CD B2 08 E5 21 00 00 D1 CD 92 06 CB ..:.....!.......
0154C0: 45 CA D9 46 2A C4 ED 11 07 00 19 E5 21 01 00 E5 E..F*.......!...
0154D0: 21 01 00 CD F3 08 C3 A3 46 2A C4 ED 22 D0 ED C3 !......£F*.."...
0154E0: 14 48 2A CE ED 5E 23 56 EB 11 07 00 19 CD 3A 05 .H*..^#V......:.
0154F0: 21 2B 00 65 2E 01 E5 CD 8D 06 CB 45 CA 6E 47 21 !+.e.......E.nG!
015500: C4 ED E5 21 16 00 CD E5 1C CD 4D 05 04 70 6C 75 ...!......M..plu
015510: 73 06 06 2A C4 ED CD E2 05 2A C4 ED 11 07 00 19 s..*.....*......
015520: E5 21 2B 00 65 2E 01 E5 06 0A CD 01 06 2A C4 ED .!+.e........*..
015530: 11 14 00 19 E5 2A CE ED 5E 23 56 EB 11 14 00 19 .....*..^#V.....
015540: E5 CD 4B 2D EB E1 73 23 72 2A C4 ED 11 12 00 19 ..K-..s#r*......
015550: E5 2A CE ED 5E 23 56 EB 11 12 00 19 E5 CD 4B 2D .*..^#V.......K-
015560: EB E1 73 23 72 2A C4 ED 22 D0 ED C3 14 48 2A CE ..s#r*.."....H*.
015570: ED 5E 23 56 EB 11 07 00 19 CD 3A 05 21 2D 00 65 .^#V......:.!-.e
015580: 2E 01 E5 CD 8D 06 CB 45 CA FA 47 21 C4 ED E5 21 .......E..G!...!
015590: 16 00 CD E5 1C CD 4D 05 04 70 6C 75 73 06 06 2A ......M..plus..*
0155A0: C4 ED CD E2 05 2A C4 ED 11 07 00 19 E5 21 2B 00 .....*.......!+.
0155B0: 65 2E 01 E5 06 0A CD 01 06 2A C4 ED 11 14 00 19 e........*......
0155C0: E5 2A CE ED 5E 23 56 EB 11 14 00 19 E5 CD 4B 2D .*..^#V.......K-
0155D0: EB E1 73 23 72 2A C4 ED 11 12 00 19 E5 2A CE ED ..s#r*.......*..
0155E0: 5E 23 56 EB 11 12 00 19 5E 23 56 EB EB E1 73 23 ^#V.....^#V...s#
0155F0: 72 2A C4 ED 22 D0 ED C3 14 48 2A CE ED 5E 23 56 r*.."....H*..^#V
015600: EB E5 21 00 00 D1 CD 7F 06 CB 45 CA 14 48 21 00 ..!.......E..H!.
015610: 00 22 D0 ED 2A D0 ED D9 01 1A 00 11 B8 ED C3 22 ."..*.........."
015620: 05 01 1C 00 21 9C ED CD 08 05 FD E1 E1 D1 C1 D9 ....!...........
015630: 21 A6 ED CD D1 05 E1 D1 C1 D9 21 AC ED CD D1 05 !.........!.....
015640: FD E5 21 A6 ED CD 2C 05 CD D0 0F 22 9C ED 21 AC ..!...,...."..!.
015650: ED CD 2C 05 C5 D5 E5 21 00 00 CD 08 10 D9 E1 D1 ..,....!........
015660: C1 CD 88 06 CB 45 CA 79 48 21 00 00 CD 08 10 D9 .....E.yH!......
015670: 21 B2 ED CD D1 05 C3 5A 49 2A 9C ED E5 21 00 00 !......ZI*...!..
015680: D1 CD 7F 06 CB 45 CA 99 48 21 01 00 CD 08 10 D9 .....E..H!......
015690: 21 B2 ED CD D1 05 C3 5A 49 2A 9C ED E5 21 00 00 !......ZI*...!..
0156A0: D1 CD CC 06 CB 45 CA F5 48 21 A6 ED CD 2C 05 C5 .....E..H!...,..
0156B0: D5 E5 21 01 00 CD 08 10 D9 E1 D1 C1 CD F2 09 D9 ..!.............
0156C0: 21 A6 ED CD D1 05 21 AC ED CD 2C 05 C5 D5 E5 21 !.....!...,....!
0156D0: AC ED CD 2C 05 C5 D5 E5 21 A6 ED CD 2C 05 C5 D5 ...,....!...,...
0156E0: E5 CD 30 36 D9 E1 D1 C1 CD FA 09 D9 21 B2 ED CD ..06........!...
0156F0: D1 05 C3 5A 49 2A 9C ED E5 21 00 00 D1 CD E0 06 ...ZI*...!......
015700: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
015710: 12 00 00 00 02 09 4E E5 12 00 41 02 00 00 00 02 ......N...A.....
015720: 12 00 42 02 00 00 00 02 12 00 43 02 00 00 00 02 ..B.......C.....
015730: 12 00 44 02 00 00 00 02 12 00 45 02 00 00 00 02 ..D.......E.....
015740: 12 00 46 02 00 00 00 02 12 00 47 02 00 00 00 02 ..F.......G.....
015750: 12 00 48 02 00 00 00 02 12 00 49 02 00 00 00 02 ..H.......I.....
015760: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
015770: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
015780: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
015790: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0157A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0157B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0157C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0157D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0157E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0157F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
015800: CB 45 CA 5A 49 21 A6 ED CD 2C 05 C5 D5 E5 21 01 .E.ZI!...,....!.
015810: 00 CD 08 10 D9 E1 D1 C1 CD E9 09 D9 21 A6 ED CD ............!...
015820: D1 05 21 01 00 E5 21 AC ED CD 2C 05 D9 E1 CD 08 ..!...!...,.....
015830: 10 CD FF 09 C5 D5 E5 21 AC ED CD 2C 05 C5 D5 E5 .......!...,....
015840: 21 A6 ED CD 2C 05 C5 D5 E5 CD 30 36 D9 E1 D1 C1 !...,.....06....
015850: CD FA 09 D9 21 B2 ED CD D1 05 21 B2 ED CD 2C 05 ....!.....!...,.
015860: D9 01 1C 00 11 9C ED C3 22 05 01 20 00 21 7C ED ........".. .!|.
015870: CD 08 05 FD E1 E1 22 9A ED FD E5 CD 3E 02 CD 9B ......".....>...
015880: 14 CD BA 17 0D 76 61 6C 65 75 72 20 64 65 20 78 .....valeur de x
015890: 20 3F CD 1B 20 21 AB F1 CD CB 14 CD 72 16 CD 1B ?.. !......r...
0158A0: 20 21 01 00 7D 32 B1 F1 2A 9A ED E5 21 AB F1 CD !..}2..*...!...
0158B0: 2C 05 C5 D5 E5 CD 48 2D D9 21 A5 F1 CD D1 05 21 ,.....H-.!.....!
0158C0: AB F1 CD 2C 05 CD 34 0C C5 D5 E5 21 00 00 CD 08 ...,..4....!....
0158D0: 10 D9 E1 D1 C1 CD 88 06 CB 45 CA F6 49 21 AB F1 .........E..I!..
0158E0: CD 2C 05 CD D0 0F E5 21 00 00 E5 21 87 ED 06 0A .,.....!...!....
0158F0: CD BE 1E C3 0F 4A 21 AB F1 CD 2C 05 C5 D5 E5 21 .....J!...,....!
015900: 08 00 E5 21 03 00 E5 21 87 ED 06 0A CD BD 1E 2A ...!...!.......*
015910: B1 F1 26 00 E5 21 01 00 D1 CD 7F 06 CB 45 CA B7 ..&..!.......E..
015920: 4A CD 9B 14 21 66 00 CD 22 17 2A 96 F2 E5 21 00 J...!f..".*...!.
015930: 00 CD 26 17 21 28 00 CD 22 17 21 87 ED CD 3A 05 ..&.!(..".!...:.
015940: 21 00 00 CD AA 17 CD BA 17 02 29 3D CD 1B 20 21 !.........)=.. !
015950: A5 F1 CD 2C 05 CD 34 0C C5 D5 E5 21 00 00 CD 08 ...,..4....!....
015960: 10 D9 E1 D1 C1 CD 88 06 CB 45 CA 86 4A 21 A5 F1 .........E..J!..
015970: CD 2C 05 CD D0 0F E5 21 00 00 E5 21 7C ED 06 0A .,.....!...!|...
015980: CD BE 1E C3 9F 4A 21 A5 F1 CD 2C 05 C5 D5 E5 21 .....J!...,....!
015990: 08 00 E5 21 03 00 E5 21 7C ED 06 0A CD BD 1E 21 ...!...!|......!
0159A0: 7C ED CD 3A 05 CD 9B 14 21 00 00 CD AA 17 CD CD |..:....!.......
0159B0: 17 CD 1B 20 C3 F9 4A CD 9B 14 21 66 00 CD 22 17 ... ..J...!f..".
0159C0: 2A 96 F2 E5 21 00 00 CD 26 17 21 28 00 CD 22 17 *...!...&.!(..".
0159D0: 21 87 ED CD 3A 05 21 00 00 CD AA 17 CD BA 17 13 !...:.!.........
0159E0: 29 20 6E 27 65 73 74 20 70 61 73 20 64 65 66 69 ) n'est pas defi
0159F0: 6E 69 65 CD CD 17 CD 1B 20 CD 9B 14 CD BA 17 23 nie..... ......#
015A00: 3C 31 3E 20 55 6E 20 61 75 74 72 65 20 78 3F 20 <1> Un autre x?
015A10: 3C 32 3E 20 52 65 74 6F 75 72 20 61 75 20 6D 65 <2> Retour au me
015A20: 6E 75 20 CD CD 17 CD 1B 20 21 BA 00 CD A9 14 21 nu ..... !.....!
015A30: A3 F2 CD 44 16 CD 1B 20 2A A3 F2 26 00 E5 21 31 £..D... *£.&..!1
015A40: 00 D1 CD 7F 06 E5 2A A3 F2 26 00 E5 21 32 00 D1 ......*£.&..!2..
015A50: CD 7F 06 D1 7D B3 6F CB 45 CA 29 4B 2A A3 F2 26 ....}.o.E.)K*£.&
015A60: 00 65 2E 01 E5 21 8E F2 E5 21 92 F2 CD F4 1E CD .e...!...!......
015A70: 9B 14 CD CD 17 CD 1B 20 2A 8E F2 E5 21 02 00 D1 ....... *...!...
015A80: CD 7F 06 CB 45 CA 7E 49 01 20 00 11 7C ED C3 22 ....E.~I. ..|.."
015A90: 05 01 0A 00 21 72 ED CD 08 05 CD 3E 02 CD 9B 14 ....!r.....>....
015AA0: CD CD 17 CD 1B 20 CD 9B 14 CD BA 17 09 20 4D 20 ..... ....... M
015AB0: 45 20 4E 20 55 20 CD CD 17 CD 1B 20 CD 9B 14 CD E N U ..... ....
015AC0: CD 17 CD 1B 20 CD 9B 14 CD BA 17 19 3C 31 3E 20 .... .......<1>
015AD0: 45 6E 74 72 65 65 20 64 65 20 6C 61 20 66 6F 6E Entree de la fon
015AE0: 63 74 69 6F 6E CD CD 17 CD 1B 20 CD 9B 14 CD CD ction..... .....
015AF0: 17 CD 1B 20 CD 9B 14 CD BA 17 1D 3C 32 3E 20 43 ... .......<2> C
015B00: 61 6C 63 75 6C 20 64 65 20 76 61 6C 65 75 72 73 alcul de valeurs
015B10: 20 64 65 20 66 28 78 29 CD CD 17 CD 1B 20 CD 9B de f(x)..... ..
015B20: 14 CD CD 17 CD 1B 20 CD 9B 14 CD BA 17 18 3C 33 ...... .......<3
015B30: 3E 20 47 72 61 70 68 65 73 20 64 65 20 66 6F 6E > Graphes de fon
015B40: 63 74 69 6F 6E 73 CD CD 17 CD 1B 20 CD 9B 14 CD ctions..... ....
015B50: CD 17 CD 1B 20 CD 9B 14 CD BA 17 14 3C 34 3E 20 .... .......<4>
015B60: 46 69 6E 20 64 75 20 70 72 6F 67 72 61 6D 6D 65 Fin du programme
015B70: CD CD 17 CD 1B 20 CD 9B 14 CD CD 17 CD 1B 20 CD ..... ........ .
015B80: 9B 14 CD BA 17 0E 20 56 4F 54 52 45 20 43 48 4F ...... VOTRE CHO
015B90: 49 58 3F 20 CD CD 17 CD 1B 20 21 BA 00 CD A9 14 IX? ..... !.....
015BA0: 21 A3 F2 CD 44 16 CD 1B 20 2A A3 F2 26 00 E5 21 !£..D... *£.&..!
015BB0: 30 00 D1 CD CC 06 E5 2A A3 F2 26 00 E5 21 35 00 0......*£.&..!5.
015BC0: D1 CD E0 06 D1 7D A3 6F CB 45 CA 9A 4C 2A A3 F2 .....}£o.E..L*£.
015BD0: 26 00 65 2E 01 E5 21 8E F2 E5 21 92 F2 CD F4 1E &.e...!...!.....
015BE0: 2A 8E F2 22 7A ED 2A 7A ED D9 01 0A 00 11 72 ED *.."z.*z......r.
015BF0: C3 22 05 01 0C 00 21 66 ED CD 08 05 21 20 00 7D ."....!f....! .}
015C00: 32 A3 F2 21 BA 00 CD A9 14 21 A3 F2 CD 44 16 CD 2£.!.....!£..D..
015C10: 1B 20 2A A3 F2 26 00 E5 21 30 00 D1 CD CC 06 E5 . *£.&..!0......
015C20: 2A A3 F2 26 00 E5 21 3A 00 D1 CD E0 06 D1 7D A3 *£.&..!:......}£
015C30: 6F CB 45 CA 03 4D CD 9B 14 CD CD 17 CD 1B 20 2A o.E..M........ *
015C40: A3 F2 26 00 65 2E 01 E5 21 66 ED E5 21 92 F2 CD £.&.e...!f..!...
015C50: F4 1E 2A 66 ED 22 70 ED 2A 70 ED D9 01 0C 00 11 ..*f."p.*p......
015C60: 66 ED C3 22 05 C3 C1 51 01 0A 00 21 5C ED CD 08 f.."...Q...!\...
015C70: 05 CD 91 4B 22 8E F2 2A 8E F2 11 01 00 B7 ED 52 ...K"..*.......R
015C80: C2 D9 4D CD 9B 14 CD BA 17 1A 4E 6F 20 64 65 20 ..M.......No de
015C90: 6C 61 20 66 6F 6E 63 74 69 6F 6E 20 28 31 20 61 la fonction (1 a
015CA0: 20 39 29 3F CD 1B 20 CD F3 4C 22 96 F2 CD 3E 02 9)?.. ..L"...>.
015CB0: 21 20 00 7D 32 A3 F2 21 A4 F2 E5 2A 96 F2 29 D1 ! .}2£.!...*..).
015CC0: 19 E5 CD 1F 21 21 A4 F2 E5 2A 96 F2 29 D1 19 E5 ....!!...*..)...
015CD0: CD 51 2D CD E3 2C C3 DC 4E 19 11 02 00 B7 ED 52 .Q-..,..N......R
015CE0: C2 CB 4E CD 3E 02 CD 9B 14 CD BA 17 1A 4E 6F 20 ..N.>........No
015CF0: 64 65 20 6C 61 20 66 6F 6E 63 74 69 6F 6E 20 28 de la fonction (
015D00: 31 20 61 20 39 29 3F CD 1B 20 CD F3 4C 22 96 F2 1 a 9)?.. ..L"..
015D10: 21 B2 F1 E5 2A 96 F2 29 D1 19 5E 23 56 EB E5 21 !...*..)..^#V..!
015D20: 00 00 D1 CD CC 06 CB 45 CA B6 4E 21 01 00 E5 21 .......E..N!...!
015D30: B2 F1 E5 2A 96 F2 29 D1 19 5E 23 56 EB D1 CD 66 ...*..)..^#V...f
015D40: 06 7A B3 CA B6 4E D5 22 5C ED CD 9B 14 CD BA 17 .z...N."\.......
015D50: 16 56 61 6C 65 75 72 20 64 75 20 70 61 72 61 6D .Valeur du param
015D60: 65 74 72 65 20 6E 2E CD 1B 20 2A 5C ED CD 9B 14 etre n... *\....
015D70: E5 21 00 00 CD 26 17 CD 1B 20 CD 9B 14 CD BA 17 .!...&... ......
015D80: 02 20 3D CD 1B 20 21 C8 F1 E5 2A 5C ED 2B 29 E5 . =.. !...*\.+).
015D90: 29 29 29 29 29 D1 19 D1 19 E5 2A 96 F2 29 5D 54 ))))).....*..)]T
015DA0: 29 19 D1 19 CD CB 14 CD 72 16 CD 1B 20 2A 5C ED ).......r... *\.
015DB0: 23 D1 1B C3 41 4E 21 A4 F2 E5 2A 96 F2 29 D1 19 #...AN!...*..)..
015DC0: 5E 23 56 EB E5 CD 6A 49 C3 DC 4E 19 11 03 00 B7 ^#V...jI..N.....
015DD0: ED 52 C2 DC 4E 21 00 00 E5 CD 65 4D 2A 8E F2 E5 .R..N!....eM*...
015DE0: 21 04 00 D1 CD 7F 06 CB 45 CA 71 4D 01 0A 00 11 !.......E.qM....
015DF0: 5C ED C3 22 05 01 0C 00 21 50 ED CD 08 05 FD E1 \.."....!P......
015E00: E1 22 58 ED E1 22 5A ED FD E5 2A 5A ED EB 2A 58 ."X.."Z...*Z..*X
015E10: ED CD 5A FC F9 BB 01 0C 00 11 50 ED C3 22 05 01 ..Z.......P.."..
015E20: 0C 00 21 44 ED CD 08 05 FD E1 E1 22 4C ED E1 22 ..!D......."L.."
015E30: 4E ED FD E5 2A 4E ED EB 2A 4C ED CD 5A FC F6 BB N...*N..*L..Z...
015E40: 01 0C 00 11 44 ED C3 22 05 01 0C 00 21 38 ED CD ....D.."....!8..
015E50: 08 05 FD E1 E1 22 40 ED E1 22 42 ED FD E5 2A 42 ....."@.."B...*B
015E60: ED EB 2A 40 ED CD 5A FC C0 BB 01 0C 00 11 38 ED ..*@..Z.......8.
015E70: C3 22 05 01 0C 00 21 2C ED CD 08 05 FD E1 E1 22 ."....!,......."
015E80: 34 ED E1 22 36 ED FD E5 2A 36 ED EB 2A 34 ED CD 4.."6...*6..*4..
015E90: 5A FC C3 BB 01 0C 00 11 2C ED C3 22 05 01 0C 00 Z.......,.."....
015EA0: 21 20 ED CD 08 05 FD E1 E1 22 28 ED E1 22 2A ED ! ......."(.."*.
015EB0: FD E5 2A 2A ED EB 2A 28 ED CD 5A FC EA BB 01 0C ..**..*(..Z.....
015EC0: 00 11 20 ED C3 22 05 01 0C 00 21 14 ED CD 08 05 .. .."....!.....
015ED0: FD E1 E1 22 1C ED E1 22 1E ED FD E5 2A 1E ED EB ..."..."....*...
015EE0: 2A 1C ED CD 5A FC ED BB 01 0C 00 11 14 ED C3 22 *...Z.........."
015EF0: 05 01 0C 00 21 08 ED CD 08 05 FD E1 E1 22 10 ED ....!........"..
015F00: E1 22 12 ED FD E5 2A 12 ED EB 2A 10 ED CD 5A FC ."....*...*...Z.
015F10: C9 BB 01 0C 00 11 08 ED C3 22 05 01 0A 00 21 FE ........."....!.
015F20: EC CD 08 05 FD E1 E1 7D 32 06 ED E1 7D 32 07 ED .......}2...}2..
015F30: FD E5 3A 07 ED 47 3A 06 ED 4F CD 5A FC 38 BC 01 ..:..G:..O.Z.8..
015F40: 0A 00 11 FE EC C3 22 05 01 0E 00 21 F0 EC CD 08 ......"....!....
015F50: 05 FD E1 E1 22 F9 EC E1 22 FB EC FD E5 2A FB EC ...."..."....*..
015F60: EB 2A F9 EC CD 5A FC F0 BB 32 F0 EC 2A F0 EC 26 .*...Z...2..*..&
015F70: 00 7D 32 FD EC 2A FD EC 26 00 D9 01 0E 00 11 F0 .}2..*..&.......
015F80: EC C3 22 05 01 10 00 21 E0 EC CD 08 05 21 BC 00 .."....!.....!..
015F90: CD BA 14 21 1B 00 CD 22 17 21 40 00 CD 22 17 21 ...!...".!@..".!
015FA0: 1B 00 CD 22 17 21 33 00 CD 22 17 21 15 00 CD 22 ...".!3..".!..."
015FB0: 17 CD 1B 20 21 00 00 E5 21 1C 00 D1 CD 66 06 7A ... !...!....f.z
015FC0: B3 CA 9D 51 D5 22 E4 EC 21 BC 00 CD BA 14 21 1B ...Q."..!.....!.
015FD0: 00 CD 22 17 21 2A 00 CD 22 17 21 03 00 CD 22 17 ..".!*..".!...".
015FE0: 21 00 00 CD 22 17 21 05 00 CD 22 17 CD 1B 20 21 !...".!..."... !
015FF0: 00 00 E5 21 7F 02 D1 CD 66 06 7A B3 CA 7F 51 D5 ...!....f.z...Q.
016000: 22 E6 EC 21 00 00 22 E0 EC 21 00 00 E5 21 06 00 "..!.."..!...!..
016010: D1 CD 66 06 7A B3 CA 61 51 D5 22 E2 EC 2A E0 EC ..f.z..aQ."..*..
016020: E5 21 02 00 D1 CD F5 06 E5 2A E6 EC E5 21 8E 01 .!.......*...!..
016030: E5 2A E4 EC E5 21 07 00 D1 CD F5 06 E5 2A E2 EC .*...!.......*..
016040: D1 19 E5 21 02 00 D1 CD F5 06 D1 EB B7 ED 52 E5 ...!..........R.
016050: CD 48 50 D1 19 22 E0 EC 2A E2 EC 23 D1 1B C3 14 .HP.."..*..#....
016060: 51 21 BC 00 CD BA 14 2A E0 EC CD 22 17 2A E0 EC Q!.....*...".*..
016070: CD 22 17 CD 1B 20 2A E6 EC 23 D1 1B C3 FA 50 21 ."... *..#....P!
016080: BC 00 CD BA 14 21 0D 00 CD 22 17 21 0A 00 CD 22 .....!...".!..."
016090: 17 CD 1B 20 2A E4 EC 23 D1 1B C3 BF 50 21 BC 00 ... *..#....P!..
0160A0: CD BA 14 21 0D 00 CD 22 17 21 1B 00 CD 22 17 21 ...!...".!...".!
0160B0: 40 00 CD 22 17 CD 1B 20 01 10 00 11 E0 EC C3 22 @.."... ......."
0160C0: 05 01 E3 00 21 FD EB CD 08 05 FD E1 E1 22 DE EC ....!........"..
0160D0: FD E5 CD 3E 02 2A DE EC E5 21 00 00 D1 CD 7F 06 ...>.*...!......
0160E0: CB 45 CA D2 52 CD 9B 14 CD BA 17 0F 31 2D 43 6F .E..R.......1-Co
0160F0: 75 72 62 65 20 79 3D 66 28 78 29 CD CD 17 CD 1B urbe y=f(x).....
016100: 20 CD 9B 14 CD CD 17 CD 1B 20 CD 9B 14 CD BA 17 ........ ......
016110: 16 32 2D 43 6F 75 72 62 65 20 78 3D 66 28 74 29 .2-Courbe x=f(t)
016120: 3B 79 3D 66 28 74 29 CD CD 17 CD 1B 20 CD 9B 14 ;y=f(t)..... ...
016130: CD CD 17 CD 1B 20 CD 9B 14 CD BA 17 17 33 2D 43 ..... .......3-C
016140: 6F 75 72 62 65 20 70 6F 6C 61 69 72 65 20 72 3D ourbe polaire r=
016150: 66 28 74 29 CD CD 17 CD 1B 20 CD 9B 14 CD CD 17 f(t)..... ......
016160: CD 1B 20 CD 9B 14 CD BA 17 0D 56 6F 74 72 65 20 .. .......Votre
016170: 63 68 6F 69 78 3F 20 CD 1B 20 21 BA 00 CD A9 14 choix? .. !.....
016180: 21 A3 F2 CD 44 16 CD 1B 20 2A A3 F2 26 00 E5 21 !£..D... *£.&..!
016190: 30 00 D1 CD CC 06 E5 2A A3 F2 26 00 E5 21 34 00 0......*£.&..!4.
0161A0: D1 CD E0 06 D1 7D A3 6F CB 45 CA 7A 52 CD 9B 14 .....}£o.E.zR...
0161B0: CD CD 17 CD 1B 20 2A A3 F2 26 00 65 2E 01 E5 21 ..... *£.&.e...!
0161C0: 8E F2 E5 21 92 F2 CD F4 1E CD 9B 14 CD CD 17 CD ...!............
0161D0: 1B 20 CD 9B 14 CD CD 17 CD 1B 20 CD 9B 14 CD BA . ........ .....
0161E0: 17 11 41 62 73 63 69 73 73 65 20 6F 72 69 67 69 ..Abscisse origi
0161F0: 6E 65 20 CD 1B 20 21 D0 EC CD CB 14 CD 72 16 CD ne .. !......r..
016200: 1B 20 CD 9B 14 CD BA 17 11 4F 72 64 6F 6E 6E 65 . .......Ordonne
016210: 65 20 6F 72 69 67 69 6E 65 20 CD 1B 20 21 CA EC e origine .. !..
016220: CD CB 14 CD 72 16 CD 1B 20 CD 9B 14 CD BA 17 1D ....r... .......
016230: 42 6F 72 6E 65 20 69 6E 66 65 72 69 65 75 72 65 Borne inferieure
016240: 20 69 6E 74 20 64 27 65 74 75 64 65 20 CD 1B 20 int d'etude ..
016250: 21 C4 EC CD CB 14 CD 72 16 CD 1B 20 CD 9B 14 CD !......r... ....
016260: BA 17 1D 42 6F 72 6E 65 20 73 75 70 65 72 69 65 ...Borne superie
016270: 75 72 65 20 69 6E 74 20 64 27 65 74 75 64 65 20 ure int d'etude
016280: CD 1B 20 21 BE EC CD CB 14 CD 72 16 CD 1B 20 CD .. !......r... .
016290: 9B 14 CD BA 17 0F 55 6E 69 74 65 20 61 62 73 63 ......Unite absc
0162A0: 69 73 73 65 20 CD 1B 20 21 B8 EC CD CB 14 CD 72 isse .. !......r
0162B0: 16 CD 1B 20 CD 9B 14 CD BA 17 0F 55 6E 69 74 65 ... .......Unite
0162C0: 20 6F 72 64 6F 6E 6E 65 65 20 CD 1B 20 21 B2 EC ordonnee .. !..
0162D0: CD CB 14 CD 72 16 CD 1B 20 CD 9B 14 CD BA 17 0C ....r... .......
0162E0: 50 61 73 20 64 27 65 74 75 64 65 20 CD 1B 20 21 Pas d'etude .. !
0162F0: AC EC CD CB 14 CD 72 16 CD 1B 20 2A DE EC E5 21 ......r... *...!
016300: 00 00 D1 CD 7F 06 CB 45 CA AC 5A CD 9B 14 CD BA .......E..Z.....
016310: 17 2C 4E 6F 6D 62 72 65 20 64 65 20 67 72 61 70 .,Nombre de grap
016320: 68 65 73 20 73 75 72 20 6C 65 20 6D 65 6D 65 20 hes sur le meme
016330: 65 63 72 61 6E 20 28 31 20 61 20 39 29 3F CD 1B ecran (1 a 9)?..
016340: 20 CD F3 4C 22 A6 EC 21 00 00 22 A0 EC 21 01 00 ..L"..!.."..!..
016350: E5 2A A6 EC D1 CD 66 06 7A B3 CA AC 5A D5 22 A4 .*....f.z...Z.".
016360: EC 2A 8E F2 11 01 00 B7 ED 52 C2 D3 55 CD 9B 14 .*.......R..U...
016370: CD BA 17 1B 4E 6F 20 64 65 20 6C 61 20 66 6F 6E ....No de la fon
016380: 63 74 69 6F 6E 20 79 3D 66 28 78 29 20 6E 2E 2A ction y=f(x) n.*
016390: A4 EC E5 21 00 00 CD 26 17 CD BA 17 02 20 3D CD ...!...&..... =.
0163A0: 1B 20 21 89 EC E5 2A A4 EC 2B 29 D1 19 E5 CD F3 . !...*..+).....
0163B0: 4C EB E1 73 23 72 21 A4 F2 E5 21 89 EC E5 2A A4 L..s#r!...!...*.
0163C0: EC 2B 29 D1 19 5E 23 56 EB 29 D1 19 5E 23 56 EB .+)..^#V.)..^#V.
0163D0: E5 21 00 00 D1 CD 7F 06 CB 45 CA 21 55 21 A4 F2 .!.......E.!U!..
0163E0: E5 21 89 EC E5 2A A4 EC 2B 29 D1 19 5E 23 56 EB .!...*..+)..^#V.
0163F0: 29 D1 19 E5 CD 1F 21 21 B2 F1 E5 21 89 EC E5 2A ).....!!...!...*
016400: A4 EC 2B 29 D1 19 5E 23 56 EB 29 D1 19 E5 21 B2 ..+)..^#V.)...!.
016410: F1 E5 2A 96 F2 29 D1 19 5E 23 56 EB EB E1 73 23 ..*..)..^#V...s#
016420: 72 21 B2 F1 E5 21 89 EC E5 2A A4 EC 2B 29 D1 19 r!...!...*..+)..
016430: 5E 23 56 EB 29 D1 19 5E 23 56 EB E5 21 00 00 D1 ^#V.)..^#V..!...
016440: CD CC 06 CB 45 CA D0 55 21 01 00 E5 21 B2 F1 E5 ....E..U!...!...
016450: 21 89 EC E5 2A A4 EC 2B 29 D1 19 5E 23 56 EB 29 !...*..+)..^#V.)
016460: D1 19 5E 23 56 EB D1 CD 66 06 7A B3 CA D0 55 D5 ..^#V...f.z...U.
016470: 22 A2 EC 2A A0 EC E5 21 01 00 D1 19 22 A0 EC CD "..*...!...."...
016480: 9B 14 CD BA 17 16 56 61 6C 65 75 72 20 64 75 20 ......Valeur du
016490: 70 61 72 61 6D 65 74 72 65 20 6E 2E 2A A2 EC E5 parametre n.*...
0164A0: 21 00 00 CD 26 17 CD BA 17 02 20 3D CD 1B 20 21 !...&..... =.. !
0164B0: FD EB E5 2A A0 EC 2B 29 5D 54 29 19 D1 19 CD CB ...*..+)]T).....
0164C0: 14 CD 72 16 CD 1B 20 2A A2 EC 23 D1 1B C3 6A 55 ..r... *..#...jU
0164D0: C3 A3 5A 19 11 02 00 B7 ED 52 C2 36 59 CD 9B 14 .£Z......R.6Y...
0164E0: CD BA 17 1B 4E 6F 20 64 65 20 6C 61 20 66 6F 6E ....No de la fon
0164F0: 63 74 69 6F 6E 20 78 3D 66 28 74 29 20 6E 2E 2A ction x=f(t) n.*
016500: A4 EC E5 21 00 00 CD 26 17 CD BA 17 02 20 3D CD ...!...&..... =.
016510: 1B 20 21 89 EC E5 2A A4 EC 2B 29 D1 19 E5 CD F3 . !...*..+).....
016520: 4C EB E1 73 23 72 21 A4 F2 E5 21 89 EC E5 2A A4 L..s#r!...!...*.
016530: EC 2B 29 D1 19 5E 23 56 EB 29 D1 19 5E 23 56 EB .+)..^#V.)..^#V.
016540: E5 21 00 00 D1 CD 7F 06 CB 45 CA 91 56 21 A4 F2 .!.......E..V!..
016550: E5 21 89 EC E5 2A A4 EC 2B 29 D1 19 5E 23 56 EB .!...*..+)..^#V.
016560: 29 D1 19 E5 CD 1F 21 21 B2 F1 E5 21 89 EC E5 2A ).....!!...!...*
016570: A4 EC 2B 29 D1 19 5E 23 56 EB 29 D1 19 E5 21 B2 ..+)..^#V.)...!.
016580: F1 E5 2A 96 F2 29 D1 19 5E 23 56 EB EB E1 73 23 ..*..)..^#V...s#
016590: 72 21 B2 F1 E5 21 89 EC E5 2A A4 EC 2B 29 D1 19 r!...!...*..+)..
0165A0: 5E 23 56 EB 29 D1 19 5E 23 56 EB E5 21 00 00 D1 ^#V.)..^#V..!...
0165B0: CD CC 06 CB 45 CA 40 57 21 01 00 E5 21 B2 F1 E5 ....E.@W!...!...
0165C0: 21 89 EC E5 2A A4 EC 2B 29 D1 19 5E 23 56 EB 29 !...*..+)..^#V.)
0165D0: D1 19 5E 23 56 EB D1 CD 66 06 7A B3 CA 40 57 D5 ..^#V...f.z..@W.
0165E0: 22 A2 EC 2A A0 EC E5 21 01 00 D1 19 22 A0 EC CD "..*...!...."...
0165F0: 9B 14 CD BA 17 16 56 61 6C 65 75 72 20 64 75 20 ......Valeur du
016600: 70 61 72 61 6D 65 74 72 65 20 6E 2E 2A A2 EC E5 parametre n.*...
016610: 21 00 00 CD 26 17 CD BA 17 02 20 3D CD 1B 20 21 !...&..... =.. !
016620: FD EB E5 2A A0 EC 2B 29 5D 54 29 19 D1 19 CD CB ...*..+)]T).....
016630: 14 CD 72 16 CD 1B 20 2A A2 EC 23 D1 1B C3 DA 56 ..r... *..#....V
016640: CD 9B 14 CD BA 17 1B 4E 6F 20 64 65 20 6C 61 20 .......No de la
016650: 66 6F 6E 63 74 69 6F 6E 20 79 3D 66 28 74 29 20 fonction y=f(t)
016660: 6E 2E 2A A4 EC E5 21 00 00 CD 26 17 CD BA 17 02 n.*...!...&.....
016670: 20 3D CD 1B 20 21 75 EC E5 2A A4 EC 2B 29 D1 19 =.. !u..*..+)..
016680: E5 CD F3 4C EB E1 73 23 72 21 A4 F2 E5 21 75 EC ...L..s#r!...!u.
016690: E5 2A A4 EC 2B 29 D1 19 5E 23 56 EB 29 D1 19 5E .*..+)..^#V.)..^
0166A0: 23 56 EB E5 21 00 00 D1 CD 7F 06 CB 45 CA F4 57 #V..!.......E..W
0166B0: 21 A4 F2 E5 21 75 EC E5 2A A4 EC 2B 29 D1 19 5E !...!u..*..+)..^
0166C0: 23 56 EB 29 D1 19 E5 CD 1F 21 21 B2 F1 E5 21 75 #V.).....!!...!u
0166D0: EC E5 2A A4 EC 2B 29 D1 19 5E 23 56 EB 29 D1 19 ..*..+)..^#V.)..
0166E0: E5 21 B2 F1 E5 2A 96 F2 29 D1 19 5E 23 56 EB EB .!...*..)..^#V..
0166F0: E1 73 23 72 21 75 EC E5 2A A4 EC 2B 29 D1 19 5E .s#r!u..*..+)..^
016700: 23 56 EB E5 21 89 EC E5 2A A4 EC 2B 29 D1 19 5E #V..!...*..+)..^
016710: 23 56 EB D1 CD 7F 06 CB 45 CA 84 58 21 75 EC E5 #V......E..X!u..
016720: 2A A4 EC 2B 29 D1 19 E5 21 00 00 EB E1 73 23 72 *..+)...!....s#r
016730: 21 A4 F2 E5 21 00 00 29 D1 19 E5 21 A4 F2 E5 21 !...!..)...!...!
016740: 89 EC E5 2A A4 EC 2B 29 D1 19 5E 23 56 EB 29 D1 ...*..+)..^#V.).
016750: 19 5E 23 56 EB EB E1 73 23 72 21 B2 F1 E5 21 00 .^#V...s#r!...!.
016760: 00 29 D1 19 E5 21 B2 F1 E5 21 89 EC E5 2A A4 EC .)...!...!...*..
016770: 2B 29 D1 19 5E 23 56 EB 29 D1 19 5E 23 56 EB EB +)..^#V.)..^#V..
016780: E1 73 23 72 21 B2 F1 E5 21 75 EC E5 2A A4 EC 2B .s#r!...!u..*..+
016790: 29 D1 19 5E 23 56 EB 29 D1 19 5E 23 56 EB E5 21 )..^#V.)..^#V..!
0167A0: 00 00 D1 CD CC 06 CB 45 CA 33 59 21 01 00 E5 21 .......E.3Y!...!
0167B0: B2 F1 E5 21 75 EC E5 2A A4 EC 2B 29 D1 19 5E 23 ...!u..*..+)..^#
0167C0: 56 EB 29 D1 19 5E 23 56 EB D1 CD 66 06 7A B3 CA V.)..^#V...f.z..
0167D0: 33 59 D5 22 A2 EC 2A A0 EC E5 21 01 00 D1 19 22 3Y."..*...!...."
0167E0: A0 EC CD 9B 14 CD BA 17 16 56 61 6C 65 75 72 20 .........Valeur
0167F0: 64 75 20 70 61 72 61 6D 65 74 72 65 20 6E 2E 2A du parametre n.*
016800: 20 28 28 66 5E 2E 67 5E 2E 76 61 6C 65 75 72 3D ((f^.g^.valeur=
016810: 27 2B 27 29 6F 72 28 66 5E 2E 67 5E 2E 76 61 6C '+')or(f^.g^.val
016820: 65 75 72 3D 27 2D 27 29 29 20 74 68 65 6E 0D 0A eur='-')) then..
016830: 20 20 20 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 begin..
016840: 20 64 65 6C 65 74 65 28 77 77 78 2C 31 2C 31 29 delete(wwx,1,1)
016850: 3B 64 65 6C 65 74 65 28 77 77 78 2C 6C 65 6E 67 ;delete(wwx,leng
016860: 74 68 28 77 77 78 29 2C 31 29 3B 0D 0A 20 20 20 th(wwx),1);..
016870: 20 20 65 6E 64 3B 63 6F 65 66 66 3A 3D 31 3B 0D end;coeff:=1;.
016880: 0A 20 20 20 20 20 69 66 20 66 5E 2E 64 5E 2E 6E . if f^.d^.n
016890: 61 74 75 72 65 3D 27 6E 6F 6D 62 72 65 27 20 74 ature='nombre' t
0168A0: 68 65 6E 20 76 61 6C 28 66 5E 2E 64 5E 2E 76 61 hen val(f^.d^.va
0168B0: 6C 65 75 72 2C 63 6F 65 66 66 2C 72 65 73 75 6C leur,coeff,resul
0168C0: 74 61 74 29 3B 0D 0A 20 20 20 20 20 69 66 20 28 tat);.. if (
0168D0: 28 66 5E 2E 64 5E 2E 76 61 6C 65 75 72 3D 27 2A (f^.d^.valeur='*
0168E0: 27 29 61 6E 64 20 28 66 5E 2E 64 5E 2E 67 5E 2E ')and (f^.d^.g^.
0168F0: 6E 61 74 75 72 65 3D 27 6E 6F 6D 62 72 65 27 29 nature='nombre')
016900: 29 20 74 68 65 6E 0D 0A 20 20 20 20 20 76 61 6C ) then.. val
016910: 28 66 5E 2E 64 5E 2E 67 5E 2E 76 61 6C 65 75 72 (f^.d^.g^.valeur
016920: 2C 63 6F 65 66 66 2C 72 65 73 75 6C 74 61 74 29 ,coeff,resultat)
016930: 3B 0D 0A 20 20 20 20 20 69 66 20 28 28 66 5E 2E ;.. if ((f^.
016940: 76 61 6C 65 75 72 3D 27 2B 27 29 20 61 6E 64 20 valeur='+') and
016950: 28 63 6F 65 66 66 3C 30 29 29 20 74 68 65 6E 0D (coeff<0)) then.
016960: 0A 20 20 20 20 74 61 70 65 66 6F 6E 63 74 69 6F . tapefonctio
016970: 6E 3A 3D 27 28 27 2B 77 77 78 2B 77 77 77 2B 27 n:='('+wwx+www+'
016980: 29 27 20 65 6C 73 65 0D 0A 20 20 20 74 61 70 65 )' else.. tape
016990: 66 6F 6E 63 74 69 6F 6E 3A 3D 27 28 27 2B 77 77 fonction:='('+ww
0169A0: 78 2B 66 5E 2E 76 61 6C 65 75 72 2B 77 77 77 2B x+f^.valeur+www+
0169B0: 27 29 27 0D 0A 20 20 20 65 6E 64 0D 0A 20 20 20 ')'.. end..
0169C0: 65 6C 73 65 0D 0A 69 66 20 28 28 66 5E 2E 6E 61 else..if ((f^.na
0169D0: 74 75 72 65 3D 27 64 69 76 69 73 65 27 29 20 6F ture='divise') o
0169E0: 72 20 28 66 5E 2E 6E 61 74 75 72 65 3D 27 6D 75 r (f^.nature='mu
0169F0: 6C 74 69 27 29 20 6F 72 20 28 66 5E 2E 6E 61 74 lti') or (f^.nat
016A00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
016A10: 13 00 00 00 02 09 4E E5 13 00 41 02 00 00 00 02 ......N...A.....
016A20: 13 00 42 02 00 00 00 02 13 00 43 02 00 00 00 02 ..B.......C.....
016A30: 13 00 44 02 00 00 00 02 13 00 45 02 00 00 00 02 ..D.......E.....
016A40: 13 00 46 02 00 00 00 02 13 00 47 02 00 00 00 02 ..F.......G.....
016A50: 13 00 48 02 00 00 00 02 13 00 49 02 00 00 00 02 ..H.......I.....
016A60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016A70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016A80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016A90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016AA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016AB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016AC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016AD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016AE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016AF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
016B00: 75 72 65 3D 27 70 75 69 73 73 27 29 29 0D 0A 74 ure='puiss'))..t
016B10: 68 65 6E 20 74 61 70 65 66 6F 6E 63 74 69 6F 6E hen tapefonction
016B20: 3A 3D 74 61 70 65 66 6F 6E 63 74 69 6F 6E 28 66 :=tapefonction(f
016B30: 5E 2E 67 2C 76 29 2B 66 5E 2E 76 61 6C 65 75 72 ^.g,v)+f^.valeur
016B40: 2B 74 61 70 65 66 6F 6E 63 74 69 6F 6E 28 66 5E +tapefonction(f^
016B50: 2E 64 2C 76 29 20 65 6C 73 65 0D 0A 74 61 70 65 .d,v) else..tape
016B60: 66 6F 6E 63 74 69 6F 6E 3A 3D 27 27 3B 0D 0A 65 fonction:='';..e
016B70: 6E 64 3B 0D 0A 0D 0A 66 75 6E 63 74 69 6F 6E 20 nd;....function
016B80: 6F 70 70 6F 73 65 3B 0D 0A 76 61 72 0D 0A 75 2C oppose;..var..u,
016B90: 76 3A 66 6F 6E 63 74 69 6F 6E 3B 0D 0A 63 6F 65 v:fonction;..coe
016BA0: 66 66 2C 72 65 73 75 6C 74 61 74 3A 69 6E 74 65 ff,resultat:inte
016BB0: 67 65 72 3B 0D 0A 63 6F 65 66 32 3A 72 65 61 6C ger;..coef2:real
016BC0: 3B 0D 0A 62 65 67 69 6E 0D 0A 69 66 20 28 28 66 ;..begin..if ((f
016BD0: 5E 2E 76 61 6C 65 75 72 3D 27 2A 27 29 20 61 6E ^.valeur='*') an
016BE0: 64 20 28 66 5E 2E 67 5E 2E 6E 61 74 75 72 65 3D d (f^.g^.nature=
016BF0: 27 6E 6F 6D 62 72 65 27 29 29 20 74 68 65 6E 0D 'nombre')) then.
016C00: 0A 20 62 65 67 69 6E 0D 0A 20 20 6E 65 77 28 75 . begin.. new(u
016C10: 29 3B 75 5E 2E 6E 61 74 75 72 65 3A 3D 27 6D 75 );u^.nature:='mu
016C20: 6C 74 69 27 3B 75 5E 2E 76 61 6C 65 75 72 3A 3D lti';u^.valeur:=
016C30: 27 2A 27 3B 75 5E 2E 64 3A 3D 66 5E 2E 64 3B 0D '*';u^.d:=f^.d;.
016C40: 0A 20 20 75 5E 2E 67 3A 3D 6F 70 70 6F 73 65 28 . u^.g:=oppose(
016C50: 66 5E 2E 67 29 3B 6F 70 70 6F 73 65 3A 3D 75 3B f^.g);oppose:=u;
016C60: 0D 0A 20 65 6E 64 0D 0A 20 65 6C 73 65 0D 0A 69 .. end.. else..i
016C70: 66 20 28 28 66 5E 2E 76 61 6C 65 75 72 3D 27 2A f ((f^.valeur='*
016C80: 27 29 20 6F 72 20 28 66 5E 2E 76 61 6C 65 75 72 ') or (f^.valeur
016C90: 3D 27 2F 27 29 20 74 68 65 6E 0D 0A 20 62 65 67 ='/') then.. beg
016CA0: 69 6E 0D 0A 20 20 6E 65 77 28 75 29 3B 75 5E 2E in.. new(u);u^.
016CB0: 6E 61 74 75 72 65 3A 3D 27 6D 75 6C 74 69 27 3B nature:='multi';
016CC0: 75 5E 2E 76 61 6C 65 75 72 3A 3D 27 2A 27 3B 75 u^.valeur:='*';u
016CD0: 5E 2E 64 3A 3D 66 3B 6E 65 77 28 75 5E 2E 67 29 ^.d:=f;new(u^.g)
016CE0: 3B 0D 0A 20 20 75 5E 2E 67 5E 2E 6E 61 74 75 72 ;.. u^.g^.natur
016CF0: 65 3A 3D 27 6E 6F 6D 62 72 65 27 3B 75 5E 2E 67 e:='nombre';u^.g
016D00: 5E 2E 76 61 6C 65 75 72 3A 3D 27 2D 31 27 3B 75 ^.valeur:='-1';u
016D10: 5E 2E 67 5E 2E 67 3A 3D 6E 69 6C 3B 75 5E 2E 67 ^.g^.g:=nil;u^.g
016D20: 5E 2E 64 3A 3D 6E 69 6C 3B 0D 0A 20 20 6F 70 70 ^.d:=nil;.. opp
016D30: 6F 73 65 3A 3D 75 3B 0D 0A 20 65 6E 64 0D 0A 20 ose:=u;.. end..
016D40: 65 6C 73 65 0D 0A 69 66 20 28 28 66 5E 2E 76 61 else..if ((f^.va
016D50: 6C 65 75 72 3D 27 78 27 29 20 6F 72 20 28 66 5E leur='x') or (f^
016D60: 2E 76 61 6C 65 75 72 3D 27 5E 27 29 29 20 74 68 .valeur='^')) th
016D70: 65 6E 0D 0A 20 62 65 67 69 6E 0D 0A 20 20 6E 65 en.. begin.. ne
016D80: 77 28 75 29 3B 75 5E 2E 6E 61 74 75 72 65 3A 3D w(u);u^.nature:=
016D90: 27 6D 75 6C 74 69 27 3B 75 5E 2E 76 61 6C 65 75 'multi';u^.valeu
016DA0: 72 3A 3D 27 2A 27 3B 75 5E 2E 64 3A 3D 66 3B 0D r:='*';u^.d:=f;.
016DB0: 0A 20 20 6E 65 77 28 76 29 3B 76 5E 2E 6E 61 74 . new(v);v^.nat
016DC0: 75 72 65 3A 3D 27 6E 6F 6D 62 72 65 27 3B 76 5E ure:='nombre';v^
016DD0: 2E 76 61 6C 65 75 72 3A 3D 27 2D 31 27 3B 76 5E .valeur:='-1';v^
016DE0: 2E 64 3A 3D 6E 69 6C 3B 76 5E 2E 67 3A 3D 6E 69 .d:=nil;v^.g:=ni
016DF0: 6C 3B 0D 0A 20 20 75 5E 2E 67 3A 3D 76 3B 6F 70 l;.. u^.g:=v;op
016E00: 70 6F 73 65 3A 3D 75 3B 0D 0A 20 65 6E 64 0D 0A pose:=u;.. end..
016E10: 20 65 6C 73 65 0D 0A 69 66 20 66 5E 2E 6E 61 74 else..if f^.nat
016E20: 75 72 65 3D 27 6E 6F 6D 62 72 65 27 20 74 68 65 ure='nombre' the
016E30: 6E 0D 0A 20 62 65 67 69 6E 0D 0A 20 20 6E 65 77 n.. begin.. new
016E40: 28 75 29 3B 75 5E 2E 6E 61 74 75 72 65 3A 3D 27 (u);u^.nature:='
016E50: 6E 6F 6D 62 72 65 27 3B 75 5E 2E 64 3A 3D 6E 69 nombre';u^.d:=ni
016E60: 6C 3B 75 5E 2E 67 3A 3D 6E 69 6C 3B 0D 0A 20 20 l;u^.g:=nil;..
016E70: 76 61 6C 28 66 5E 2E 76 61 6C 65 75 72 2C 63 6F val(f^.valeur,co
016E80: 65 66 32 2C 72 65 73 75 6C 74 61 74 29 3B 63 6F ef2,resultat);co
016E90: 65 66 32 3A 3D 63 6F 65 66 32 2A 28 2D 31 29 3B ef2:=coef2*(-1);
016EA0: 0D 0A 20 20 69 66 20 66 72 61 63 28 63 6F 65 66 .. if frac(coef
016EB0: 32 29 3D 30 20 74 68 65 6E 20 73 74 72 28 72 6F 2)=0 then str(ro
016EC0: 75 6E 64 28 63 6F 65 66 32 29 2C 75 5E 2E 76 61 und(coef2),u^.va
016ED0: 6C 65 75 72 29 0D 0A 20 20 20 20 65 6C 73 65 0D leur).. else.
016EE0: 0A 20 20 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 . begin..
016EF0: 73 74 72 28 63 6F 65 66 32 3A 31 30 3A 35 2C 75 str(coef2:10:5,u
016F00: 5E 2E 76 61 6C 65 75 72 29 3B 0D 0A 20 20 20 20 ^.valeur);..
016F10: 77 68 69 6C 65 20 70 6F 73 28 27 20 27 2C 75 5E while pos(' ',u^
016F20: 2E 76 61 6C 65 75 72 29 3C 3E 30 20 64 6F 20 64 .valeur)<>0 do d
016F30: 65 6C 65 74 65 28 75 5E 2E 76 61 6C 65 75 72 2C elete(u^.valeur,
016F40: 31 2C 31 29 3B 0D 0A 20 20 20 20 65 6E 64 3B 0D 1,1);.. end;.
016F50: 0A 20 20 6F 70 70 6F 73 65 3A 3D 75 3B 0D 0A 20 . oppose:=u;..
016F60: 65 6E 64 0D 0A 20 65 6C 73 65 0D 0A 69 66 20 66 end.. else..if f
016F70: 5E 2E 76 61 6C 65 75 72 3D 27 2B 27 20 74 68 65 ^.valeur='+' the
016F80: 6E 0D 0A 20 20 62 65 67 69 6E 20 6E 65 77 28 75 n.. begin new(u
016F90: 29 3B 75 5E 2E 6E 61 74 75 72 65 3A 3D 27 70 6C );u^.nature:='pl
016FA0: 75 73 27 3B 75 5E 2E 76 61 6C 65 75 72 3A 3D 27 us';u^.valeur:='
016FB0: 2B 27 3B 0D 0A 20 20 75 5E 2E 67 3A 3D 6F 70 70 +';.. u^.g:=opp
016FC0: 6F 73 65 28 66 5E 2E 67 29 3B 75 5E 2E 64 3A 3D ose(f^.g);u^.d:=
016FD0: 6F 70 70 6F 73 65 28 66 5E 2E 64 29 3B 6F 70 70 oppose(f^.d);opp
016FE0: 6F 73 65 3A 3D 75 20 65 6E 64 0D 0A 20 65 6C 73 ose:=u end.. els
016FF0: 65 0D 0A 69 66 20 66 5E 2E 76 61 6C 65 75 72 3D e..if f^.valeur=
017000: 27 2D 27 20 74 68 65 6E 0D 0A 20 20 62 65 67 69 '-' then.. begi
017010: 6E 20 6E 65 77 28 75 29 3B 75 5E 2E 6E 61 74 75 n new(u);u^.natu
017020: 72 65 3A 3D 27 70 6C 75 73 27 3B 75 5E 2E 76 61 re:='plus';u^.va
017030: 6C 65 75 72 3A 3D 27 2B 27 3B 75 5E 2E 67 3A 3D leur:='+';u^.g:=
017040: 6F 70 70 6F 73 65 28 66 5E 2E 67 29 3B 75 5E 2E oppose(f^.g);u^.
017050: 64 3A 3D 66 5E 2E 64 3B 0D 0A 20 20 6F 70 70 6F d:=f^.d;.. oppo
017060: 73 65 3A 3D 75 20 65 6E 64 0D 0A 20 20 65 6C 73 se:=u end.. els
017070: 65 0D 0A 69 66 20 66 3D 6E 69 6C 20 74 68 65 6E e..if f=nil then
017080: 20 6F 70 70 6F 73 65 3A 3D 6E 69 6C 3B 0D 0A 65 oppose:=nil;..e
017090: 6E 64 3B 0D 0A 0D 0A 0D 0A 0D 0A 66 75 6E 63 74 nd;........funct
0170A0: 69 6F 6E 20 20 65 78 70 6F 73 61 6E 74 3B 0D 0A ion exposant;..
0170B0: 76 61 72 0D 0A 6C 6C 3A 69 6E 74 65 67 65 72 3B var..ll:integer;
0170C0: 0D 0A 62 65 67 69 6E 0D 0A 6C 6C 3A 3D 72 6F 75 ..begin..ll:=rou
0170D0: 6E 64 28 6C 29 3B 0D 0A 69 66 20 6B 3D 30 20 74 nd(l);..if k=0 t
0170E0: 68 65 6E 20 65 78 70 6F 73 61 6E 74 3A 3D 30 20 hen exposant:=0
0170F0: 65 6C 73 65 0D 0A 69 66 20 6C 6C 3D 30 20 74 68 else..if ll=0 th
017100: 0D 0A 20 20 20 20 51 55 45 4C 51 55 45 53 20 50 .. QUELQUES P
017110: 52 45 43 49 53 49 4F 4E 53 20 53 55 52 20 43 45 RECISIONS SUR CE
017120: 53 20 50 52 4F 47 52 41 4D 4D 45 53 20 44 27 41 S PROGRAMMES D'A
017130: 4E 41 4C 59 53 45 0D 0A 20 20 20 20 2A 2A 2A 2A NALYSE.. ****
017140: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
017150: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
017160: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D 0A 0D *************...
017170: 0A 20 20 43 65 73 20 70 72 6F 67 72 61 6D 6D 65 . Ces programme
017180: 73 20 73 6F 6E 74 20 65 63 72 69 74 73 20 65 6E s sont ecrits en
017190: 20 3C 54 55 52 42 4F 20 50 41 53 43 41 4C 3E 2E <TURBO PASCAL>.
0171A0: 0D 0A 20 20 56 6F 75 73 20 74 72 6F 75 76 65 72 .. Vous trouver
0171B0: 65 7A 20 73 75 72 20 63 65 74 74 65 20 64 69 73 ez sur cette dis
0171C0: 71 75 65 74 74 65 20 6C 65 73 20 70 72 6F 67 72 quette les progr
0171D0: 61 6D 6D 65 73 20 63 6F 6D 70 69 6C 65 73 20 28 ammes compiles (
0171E0: 2A 2E 43 4F 4D 29 2E 0D 0A 0D 0A 20 20 49 6C 20 *.COM)..... Il
0171F0: 6E 27 65 73 74 20 64 6F 6E 63 20 70 61 73 20 6E n'est donc pas n
017200: 65 63 65 73 73 61 69 72 65 20 64 65 20 70 6F 73 ecessaire de pos
017210: 73 65 64 65 72 20 54 55 52 42 4F 20 50 41 53 43 seder TURBO PASC
017220: 41 4C 20 70 6F 75 72 0D 0A 20 20 6C 65 73 20 65 AL pour.. les e
017230: 78 65 63 75 74 65 72 2E 0D 0A 0D 0A 20 20 43 65 xecuter..... Ce
017240: 70 65 6E 64 61 6E 74 2C 20 6C 65 73 20 70 72 6F pendant, les pro
017250: 67 72 61 6D 6D 65 73 20 73 6F 75 72 63 65 73 20 grammes sources
017260: 73 6F 6E 74 20 61 20 76 6F 74 72 65 20 64 69 73 sont a votre dis
017270: 70 6F 73 69 74 69 6F 6E 20 28 2A 2E 50 41 53 29 position (*.PAS)
017280: 0D 0A 20 20 73 75 72 20 6C 61 20 64 69 73 71 75 .. sur la disqu
017290: 65 74 74 65 2C 20 61 69 6E 73 69 20 71 75 27 75 ette, ainsi qu'u
0172A0: 6E 20 66 69 63 68 69 65 72 20 64 27 65 78 70 6C n fichier d'expl
0172B0: 69 63 61 74 69 6F 6E 73 20 71 75 65 20 76 6F 75 ications que vou
0172C0: 73 0D 0A 20 20 70 6F 75 76 65 7A 20 6C 69 72 65 s.. pouvez lire
0172D0: 20 6F 75 20 69 6D 70 72 69 6D 65 72 20 28 20 73 ou imprimer ( s
0172E0: 6F 75 73 20 43 50 4D 3A 20 54 59 50 45 20 2B 20 ous CPM: TYPE +
0172F0: 43 54 52 4C 20 50 29 2C 20 63 65 20 66 69 63 68 CTRL P), ce fich
017300: 69 65 72 20 74 72 65 73 0D 0A 20 20 64 65 74 61 ier tres.. deta
017310: 69 6C 6C 65 20 65 73 74 20 6E 6F 6D 6D 65 20 3C ille est nomme <
017320: 3C 20 53 4F 55 52 43 45 53 2E 44 4F 43 20 3E 3E < SOURCES.DOC >>
017330: 2E 0D 0A 0D 0A 20 20 43 65 73 20 70 72 6F 67 72 ..... Ces progr
017340: 61 6D 6D 65 73 20 73 6F 6E 74 20 65 78 65 63 75 ammes sont execu
017350: 74 61 62 6C 65 73 20 73 6F 75 73 20 43 50 4D 20 tables sous CPM
017360: 70 6C 75 73 2C 0D 0A 20 20 63 27 65 73 74 20 61 plus,.. c'est a
017370: 20 64 69 72 65 20 73 75 72 20 43 50 43 20 36 31 dire sur CPC 61
017380: 32 38 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 28..
017390: 20 20 20 6F 75 20 20 43 50 43 20 34 36 34 2F 36 ou CPC 464/6
0173A0: 36 34 20 61 76 65 63 20 52 41 4D 20 73 75 70 70 64 avec RAM supp
0173B0: 6C 65 6D 65 6E 74 61 69 72 65 2B 43 50 4D 20 70 lementaire+CPM p
0173C0: 6C 75 73 2E 0D 0A 0D 0A 20 20 4C 61 20 70 61 72 lus..... La par
0173D0: 74 69 65 20 61 6C 67 65 62 72 69 71 75 65 20 74 tie algebrique t
0173E0: 6F 75 72 6E 65 20 66 6F 72 74 20 62 69 65 6E 0D ourne fort bien.
0173F0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
017400: 73 75 72 20 50 43 57 20 32 35 36 2F 35 31 32 20 sur PCW 256/512
017410: 6D 61 69 73 20 69 6C 20 66 61 75 64 72 61 20 72 mais il faudra r
017420: 65 64 69 67 65 72 20 75 6E 65 0D 0A 20 20 20 20 ediger une..
017430: 20 20 20 20 20 20 20 20 20 20 20 62 69 62 6C 69 bibli
017440: 6F 74 68 65 71 75 65 20 67 72 61 70 68 69 71 75 otheque graphiqu
017450: 65 20 70 6F 75 72 20 74 72 61 63 65 72 20 6C 65 e pour tracer le
017460: 73 20 63 6F 75 72 62 65 73 2E 0D 0A 0D 0A 20 20 s courbes.....
017470: 55 6E 65 20 76 65 72 73 69 6F 6E 20 63 6F 6D 70 Une version comp
017480: 61 74 69 62 6C 65 20 49 42 4D 20 73 6F 75 73 20 atible IBM sous
017490: 4D 53 2F 44 4F 53 20 65 78 69 73 74 65 20 65 67 MS/DOS existe eg
0174A0: 61 6C 65 6D 65 6E 74 2E 0D 0A 0D 0A 0D 0A 20 20 alement.......
0174B0: 50 4F 55 52 20 44 45 53 20 52 41 49 53 4F 4E 53 POUR DES RAISONS
0174C0: 20 44 45 20 50 4C 41 43 45 20 44 49 53 50 4F 4E DE PLACE DISPON
0174D0: 49 42 4C 45 20 53 4F 55 53 20 43 50 4D 2B 0D 0A IBLE SOUS CPM+..
0174E0: 20 20 20 20 4C 65 20 70 72 6F 67 72 61 6D 6D 65 Le programme
0174F0: 20 65 73 74 20 73 63 69 6E 64 65 20 65 6E 20 64 est scinde en d
017500: 0A 20 20 20 20 74 68 65 6E 0D 0A 20 20 20 20 20 . then..
017510: 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 begin..
017520: 20 20 20 20 20 20 69 66 20 66 5E 2E 76 61 6C 65 if f^.vale
017530: 75 72 3D 27 2D 27 20 74 68 65 6E 20 66 3A 3D 6F ur='-' then f:=o
017540: 70 70 6F 73 65 28 66 5E 2E 64 29 20 65 6C 73 65 ppose(f^.d) else
017550: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 66 .. f
017560: 3A 3D 66 5E 2E 64 3B 0D 0A 20 20 20 20 20 20 20 :=f^.d;..
017570: 20 20 20 20 20 20 73 69 6D 70 6C 69 66 28 66 29 simplif(f)
017580: 3B 72 65 73 75 6C 74 3A 3D 31 0D 0A 20 20 20 20 ;result:=1..
017590: 20 20 20 65 6E 64 0D 0A 20 20 20 20 20 20 20 20 end..
0175A0: 20 20 20 20 20 20 20 20 20 65 6C 73 65 0D 0A 20 else..
0175B0: 20 20 20 69 66 20 28 28 66 5E 2E 6E 61 74 75 72 if ((f^.natur
0175C0: 65 3D 27 70 75 69 73 73 27 29 20 61 6E 64 20 28 e='puiss') and (
0175D0: 66 5E 2E 64 5E 2E 6E 61 74 75 72 65 3D 27 6E 6F f^.d^.nature='no
0175E0: 6D 62 72 65 27 29 0D 0A 20 20 20 20 20 61 6E 64 mbre').. and
0175F0: 20 28 66 5E 2E 64 5E 2E 76 61 6C 65 75 72 3D 27 (f^.d^.valeur='
017600: 31 27 29 29 0D 0A 20 20 20 20 74 68 65 6E 0D 0A 1')).. then..
017610: 20 20 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 begin..
017620: 20 20 20 20 20 66 3A 3D 66 5E 2E 67 3B 0D 0A 20 f:=f^.g;..
017630: 20 20 20 20 20 20 20 20 20 73 69 6D 70 6C 69 66 simplif
017640: 28 66 29 3B 72 65 73 75 6C 74 3A 3D 31 0D 0A 20 (f);result:=1..
017650: 20 20 20 20 65 6E 64 0D 0A 20 20 20 20 20 65 6C end.. el
017660: 73 65 0D 0A 20 20 20 20 69 66 20 28 28 66 5E 2E se.. if ((f^.
017670: 6E 61 74 75 72 65 3D 27 70 75 69 73 73 27 29 61 nature='puiss')a
017680: 6E 64 28 66 5E 2E 64 5E 2E 6E 61 74 75 72 65 3D nd(f^.d^.nature=
017690: 27 6E 6F 6D 62 72 65 27 29 61 6E 64 0D 0A 20 20 'nombre')and..
0176A0: 20 20 28 66 5E 2E 67 5E 2E 6E 61 74 75 72 65 3D (f^.g^.nature=
0176B0: 27 70 75 69 73 73 27 29 61 6E 64 28 66 5E 2E 67 'puiss')and(f^.g
0176C0: 5E 2E 64 5E 2E 6E 61 74 75 72 65 3D 27 6E 6F 6D ^.d^.nature='nom
0176D0: 62 72 65 27 29 29 20 74 68 65 6E 0D 0A 20 20 20 bre')) then..
0176E0: 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 begin..
0176F0: 20 20 6E 65 77 28 68 29 3B 68 5E 2E 6E 61 74 75 new(h);h^.natu
017700: 72 65 3A 3D 27 6D 75 6C 74 69 27 3B 68 5E 2E 76 re:='multi';h^.v
017710: 61 6C 65 75 72 3A 3D 27 2A 27 3B 68 5E 2E 64 3A aleur:='*';h^.d:
017720: 3D 66 5E 2E 64 3B 68 5E 2E 67 3A 3D 66 5E 2E 67 =f^.d;h^.g:=f^.g
017730: 5E 2E 64 3B 0D 0A 20 20 20 20 20 20 20 20 20 66 ^.d;.. f
017740: 5E 2E 64 3A 3D 68 3B 66 5E 2E 67 3A 3D 66 5E 2E ^.d:=h;f^.g:=f^.
017750: 67 5E 2E 67 3B 73 69 6D 70 6C 69 66 28 66 5E 2E g^.g;simplif(f^.
017760: 64 29 3B 72 65 73 75 6C 74 3A 3D 31 0D 0A 20 20 d);result:=1..
017770: 20 20 20 65 6E 64 0D 0A 20 20 20 20 20 65 6C 73 end.. els
017780: 65 0D 0A 20 20 20 20 20 62 65 67 69 6E 0D 0A 20 e.. begin..
017790: 20 20 20 20 69 66 20 66 5E 2E 64 3C 3E 6E 69 6C if f^.d<>nil
0177A0: 20 74 68 65 6E 20 73 69 6D 70 6C 69 66 28 66 5E then simplif(f^
0177B0: 2E 64 29 3B 0D 0A 20 20 20 20 20 69 66 20 66 5E .d);.. if f^
0177C0: 2E 67 3C 3E 6E 69 6C 20 74 68 65 6E 20 73 69 6D .g<>nil then sim
0177D0: 70 6C 69 66 28 66 5E 2E 67 29 3B 0D 0A 20 20 20 plif(f^.g);..
0177E0: 65 6E 64 3B 0D 0A 20 20 20 65 6E 64 3B 0D 0A 20 end;.. end;..
0177F0: 65 6E 64 3B 0D 0A 0D 0A 66 75 6E 63 74 69 6F 6E end;....function
017800: 20 20 20 65 78 70 6F 73 61 6E 74 28 6B 2C 6C 3A exposant(k,l:
017810: 72 65 61 6C 29 3A 72 65 61 6C 3B 0D 0A 66 6F 72 real):real;..for
017820: 77 61 72 64 3B 0D 0A 0D 0A 66 75 6E 63 74 69 6F ward;....functio
017830: 6E 20 20 20 63 61 6C 63 75 6C 3B 0D 0A 6C 61 62 n calcul;..lab
017840: 65 6C 20 66 69 6E 63 61 6C 63 75 6C 3B 0D 0A 76 el fincalcul;..v
017850: 61 72 20 6E 62 72 65 3A 72 65 61 6C 3B 72 65 73 ar nbre:real;res
017860: 75 6C 74 61 74 3A 69 6E 74 65 67 65 72 3B 0D 0A ultat:integer;..
017870: 62 65 67 69 6E 0D 0A 20 20 69 66 20 66 5E 2E 6E begin.. if f^.n
017880: 61 74 75 72 65 3D 27 6E 6F 6D 62 72 65 27 20 74 ature='nombre' t
017890: 68 65 6E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 hen..
0178A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0178B0: 20 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 begin..
0178C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0178D0: 20 20 20 20 20 20 20 20 76 61 6C 28 66 5E 2E 76 val(f^.v
0178E0: 61 6C 65 75 72 2C 6E 62 72 65 2C 72 65 73 75 6C aleur,nbre,resul
0178F0: 74 61 74 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 tat);..
017900: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
017910: 20 20 20 20 20 63 61 6C 63 75 6C 3A 3D 6E 62 72 calcul:=nbr
017920: 65 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 e;..
017930: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
017940: 20 20 65 6E 64 0D 0A 20 20 20 20 20 20 20 20 20 end..
017950: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
017960: 20 20 20 20 20 20 65 6C 73 65 0D 0A 20 20 69 66 else.. if
017970: 20 66 5E 2E 6E 61 74 75 72 65 3D 27 70 61 72 61 f^.nature='para
017980: 6D 27 20 74 68 65 6E 0D 0A 20 20 20 20 20 20 20 m' then..
017990: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0179A0: 20 20 20 20 20 20 20 62 65 67 69 6E 0D 0A 20 20 begin..
0179B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0179C0: 20 20 20 20 20 20 20 20 20 20 20 20 76 61 6C 28 val(
0179D0: 66 5E 2E 76 61 6C 65 75 72 2C 69 6E 64 69 63 65 f^.valeur,indice
0179E0: 2C 72 65 73 75 6C 74 61 74 29 3B 0D 0A 20 20 20 ,resultat);..
0179F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
017A00: 20 20 20 20 20 20 20 20 20 20 20 63 61 6C 63 75 calcu
017A10: 6C 3A 3D 70 5B 69 6E 64 69 63 65 2C 69 5D 3B 0D l:=p[indice,i];.
017A20: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
017A30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 e
017A40: 6E 64 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 nd..
017A50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
017A60: 20 20 65 6C 73 65 0D 0A 20 20 69 66 20 66 5E 2E else.. if f^.
017A70: 6E 61 74 75 72 65 3D 27 76 61 72 69 61 62 27 20 nature='variab'
017A80: 74 68 65 6E 20 63 61 6C 63 75 6C 3A 3D 78 20 65 then calcul:=x e
017A90: 6C 73 65 0D 0A 20 20 69 66 20 66 5E 2E 6E 61 74 lse.. if f^.nat
017AA0: 75 72 65 3D 27 70 6C 75 73 27 20 74 68 65 6E 20 ure='plus' then
017AB0: 63 61 6C 63 75 6C 3A 3D 63 61 6C 63 75 6C 28 66 calcul:=calcul(f
017AC0: 5E 2E 67 2C 78 29 2B 63 61 6C 63 75 6C 28 66 5E ^.g,x)+calcul(f^
017AD0: 2E 64 2C 78 29 20 65 6C 73 65 0D 0A 20 20 69 66 .d,x) else.. if
017AE0: 20 66 5E 2E 6E 61 74 75 72 65 3D 27 6D 6F 69 6E f^.nature='moin
017AF0: 73 27 20 74 68 65 6E 20 63 61 6C 63 75 6C 3A 3D s' then calcul:=
017B00: 63 61 6C 63 75 6C 28 66 5E 2E 67 2C 78 29 2D 63 calcul(f^.g,x)-c
017B10: 61 6C 63 75 6C 28 66 5E 2E 64 2C 78 29 20 65 6C alcul(f^.d,x) el
017B20: 73 65 0D 0A 20 20 69 66 20 66 5E 2E 6E 61 74 75 se.. if f^.natu
017B30: 72 65 3D 27 6D 75 6C 74 69 27 20 74 68 65 6E 20 re='multi' then
017B40: 63 61 6C 63 75 6C 3A 3D 63 61 6C 63 75 6C 28 66 calcul:=calcul(f
017B50: 5E 2E 67 2C 78 29 2A 63 61 6C 63 75 6C 28 66 5E ^.g,x)*calcul(f^
017B60: 2E 64 2C 78 29 20 65 6C 73 65 0D 0A 20 20 69 66 .d,x) else.. if
017B70: 20 66 5E 2E 6E 61 74 75 72 65 3D 27 70 75 69 73 f^.nature='puis
017B80: 73 27 20 74 68 65 6E 0D 0A 20 20 20 20 20 20 20 s' then..
017B90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 be
017BA0: 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 gin..
017BB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
017BC0: 20 69 66 20 66 72 61 63 28 63 61 6C 63 75 6C 28 if frac(calcul(
017BD0: 66 5E 2E 64 2C 78 29 29 3D 30 20 74 68 65 6E 0D f^.d,x))=0 then.
017BE0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
017BF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 63 61 6C cal
017C00: 63 75 6C 3A 3D 65 78 70 6F 73 61 6E 74 28 63 61 cul:=exposant(ca
017C10: 6C 63 75 6C 28 66 5E 2E 67 2C 78 29 2C 63 61 6C lcul(f^.g,x),cal
017C20: 63 75 6C 28 66 5E 2E 64 2C 78 29 29 0D 0A 20 20 cul(f^.d,x))..
017C30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
017C40: 20 20 20 20 20 20 20 20 20 20 65 6C 73 65 0D 0A else..
017C50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
017C60: 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6E 0D begin.
017C70: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
017C80: 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 if
017C90: 63 61 6C 63 75 6C 28 66 5E 2E 67 2C 78 29 3C 3D calcul(f^.g,x)<=
017CA0: 30 20 74 68 65 6E 0D 0A 20 20 20 20 20 20 20 20 0 then..
017CB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
017CC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
017CD0: 20 20 20 20 20 20 20 20 20 62 65 67 69 6E 0D 0A begin..
017CE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
017CF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
017D00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
017D10: 14 00 00 00 02 09 4E E5 14 00 41 02 00 00 00 02 ......N...A.....
017D20: 14 00 42 02 00 00 00 02 14 00 43 02 00 00 00 02 ..B.......C.....
017D30: 14 00 44 02 00 00 00 02 14 00 45 02 00 00 00 02 ..D.......E.....
017D40: 14 00 46 02 00 00 00 02 14 00 47 02 00 00 00 02 ..F.......G.....
017D50: 14 00 48 02 00 00 00 02 14 00 49 02 00 00 00 02 ..H.......I.....
017D60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017D70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017D80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017D90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017DA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017DB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017DC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017DD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017DE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017DF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
017E00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
017E10: 20 20 20 64 65 66 69 6E 69 3A 3D 66 61 6C 73 65 defini:=false
017E20: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
017E30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
017E40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
017E50: 20 20 20 20 20 20 67 6F 74 6F 20 66 69 6E 63 61 goto finca
017E60: 6C 63 75 6C 3B 0D 0A 20 20 20 20 20 20 20 20 20 lcul;..
017E70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
017E80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
017E90: 20 20 20 20 20 20 20 20 20 65 6E 64 0D 0A 20 20 end..
017EA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
017EB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
017EC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
017ED0: 20 20 20 65 6C 73 65 0D 0A 20 20 20 20 20 20 20 else..
017EE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
017EF0: 20 20 20 20 20 63 61 6C 63 75 6C 3A 3D 65 78 70 calcul:=exp
017F00: 28 28 6C 6E 28 63 61 6C 63 75 6C 28 66 5E 2E 67 ((ln(calcul(f^.g
017F10: 2C 78 29 29 29 2A 63 61 6C 63 75 6C 28 66 5E 2E ,x)))*calcul(f^.
017F20: 64 2C 78 29 29 0D 0A 20 20 20 20 20 20 20 20 20 d,x))..
017F30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
017F40: 20 65 6E 64 0D 0A 20 20 20 20 20 20 20 20 20 20 end..
017F50: 20 20 20 20 20 20 20 20 20 20 20 65 6E 64 0D 0A end..
017F60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
017F70: 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6C 73 els
017F80: 65 0D 0A 20 20 69 66 20 66 5E 2E 6E 61 74 75 72 e.. if f^.natur
017F90: 65 3D 27 64 69 76 69 73 65 27 20 74 68 65 6E 0D e='divise' then.
017FA0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
017FB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 beg
017FC0: 69 6E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 in..
017FD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
017FE0: 69 66 20 63 61 6C 63 75 6C 28 66 5E 2E 64 2C 78 if calcul(f^.d,x
017FF0: 29 3D 30 20 74 68 65 6E 20 62 65 67 69 6E 0D 0A )=0 then begin..
018000: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018030: 20 20 20 64 65 66 69 6E 69 3A 3D 66 61 6C 73 65 defini:=false
018040: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
018050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018070: 20 20 20 20 20 20 67 6F 74 6F 20 66 69 6E 63 61 goto finca
018080: 6C 63 75 6C 3B 0D 0A 20 20 20 20 20 20 20 20 20 lcul;..
018090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0180A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0180B0: 20 20 20 20 20 20 20 20 20 20 65 6E 64 0D 0A 20 end..
0180C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0180D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0180E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0180F0: 20 20 20 20 20 65 6C 73 65 0D 0A 20 20 20 20 20 else..
018100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018110: 20 20 20 20 20 20 20 20 63 61 6C 63 75 6C 3A 3D calcul:=
018120: 63 61 6C 63 75 6C 28 66 5E 2E 67 2C 78 29 2F 63 calcul(f^.g,x)/c
018130: 61 6C 63 75 6C 28 66 5E 2E 64 2C 78 29 0D 0A 20 alcul(f^.d,x)..
018140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018150: 20 20 20 20 20 20 20 20 20 20 20 65 6E 64 0D 0A end..
018160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018170: 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6C 73 els
018180: 65 0D 0A 20 20 69 66 20 66 5E 2E 6E 61 74 75 72 e.. if f^.natur
018190: 65 3D 27 69 64 66 63 74 27 20 74 68 65 6E 0D 0A e='idfct' then..
0181A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0181B0: 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 begi
0181C0: 6E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 n..
0181D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0181E0: 6E 62 72 65 3A 3D 63 61 6C 63 75 6C 28 66 5E 2E nbre:=calcul(f^.
0181F0: 64 2C 78 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 d,x);..
018200: 20 20 20 20 20 20 20 69 66 20 66 5E 2E 76 61 6C if f^.val
018210: 65 75 72 3D 27 63 6F 73 27 20 74 68 65 6E 20 63 eur='cos' then c
018220: 61 6C 63 75 6C 3A 3D 63 6F 73 28 6E 62 72 65 29 alcul:=cos(nbre)
018230: 20 65 6C 73 65 0D 0A 20 20 20 20 20 20 20 20 20 else..
018240: 20 20 20 20 20 20 20 69 66 20 66 5E 2E 76 61 6C if f^.val
018250: 65 75 72 3D 27 73 69 6E 27 20 74 68 65 6E 20 63 eur='sin' then c
018260: 61 6C 63 75 6C 3A 3D 73 69 6E 28 6E 62 72 65 29 alcul:=sin(nbre)
018270: 20 65 6C 73 65 0D 0A 20 20 20 20 20 20 20 20 20 else..
018280: 20 20 20 20 20 20 20 69 66 20 66 5E 2E 76 61 6C if f^.val
018290: 65 75 72 3D 27 74 61 6E 67 27 20 74 68 65 6E 20 eur='tang' then
0182A0: 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 20 begin..
0182B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0182C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 i
0182D0: 66 20 63 6F 73 28 6E 62 72 65 29 3D 30 20 74 68 f cos(nbre)=0 th
0182E0: 65 6E 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 en begin..
0182F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018300: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018310: 20 20 20 20 20 64 65 66 69 6E 69 3A 3D 66 61 6C defini:=fal
018320: 73 65 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 se;..
018330: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018340: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018350: 67 6F 74 6F 20 66 69 6E 63 61 6C 63 75 6C 3B 0D goto fincalcul;.
018360: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
018370: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018380: 20 20 20 20 20 20 20 20 20 20 20 20 65 6E 64 20 end
018390: 65 6C 73 65 0D 0A 20 20 20 20 20 20 20 20 20 20 else..
0183A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0183B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 63 c
0183C0: 61 6C 63 75 6C 3A 3D 73 69 6E 28 6E 62 72 65 29 alcul:=sin(nbre)
0183D0: 2F 63 6F 73 28 6E 62 72 65 29 0D 0A 20 20 20 20 /cos(nbre)..
0183E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0183F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018400: 20 20 20 20 20 20 65 6E 64 0D 0A 20 20 20 20 20 end..
018410: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018420: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018430: 20 20 20 20 20 65 6C 73 65 0D 0A 20 20 20 20 20 else..
018440: 20 20 20 20 20 20 20 20 20 20 20 69 66 20 66 5E if f^
018450: 2E 76 61 6C 65 75 72 3D 27 69 6E 74 27 20 74 68 .valeur='int' th
018460: 65 6E 20 63 61 6C 63 75 6C 3A 3D 69 6E 74 28 6E en calcul:=int(n
018470: 62 72 65 29 20 65 6C 73 65 0D 0A 20 20 20 20 20 bre) else..
018480: 20 20 20 20 20 20 20 20 20 20 20 69 66 20 66 5E if f^
018490: 2E 76 61 6C 65 75 72 3D 27 61 62 73 27 20 74 68 .valeur='abs' th
0184A0: 65 6E 20 63 61 6C 63 75 6C 3A 3D 61 62 73 28 6E en calcul:=abs(n
0184B0: 62 72 65 29 20 65 6C 73 65 0D 0A 20 20 20 20 20 bre) else..
0184C0: 20 20 20 20 20 20 20 20 20 20 20 69 66 20 66 5E if f^
0184D0: 2E 76 61 6C 65 75 72 3D 27 61 72 63 74 61 6E 27 .valeur='arctan'
0184E0: 20 74 68 65 6E 20 63 61 6C 63 75 6C 3A 3D 61 72 then calcul:=ar
0184F0: 63 74 61 6E 28 6E 62 72 65 29 20 65 6C 73 65 0D ctan(nbre) else.
018500: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
018510: 20 69 66 20 66 5E 2E 76 61 6C 65 75 72 3D 27 65 if f^.valeur='e
018520: 78 70 27 20 74 68 65 6E 20 63 61 6C 63 75 6C 3A xp' then calcul:
018530: 3D 65 78 70 28 6E 62 72 65 29 20 65 6C 73 65 0D =exp(nbre) else.
018540: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
018550: 20 69 66 20 66 5E 2E 76 61 6C 65 75 72 3D 27 6C if f^.valeur='l
018560: 6E 27 20 74 68 65 6E 0D 0A 20 20 20 20 20 20 20 n' then..
018570: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018580: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018590: 20 20 20 20 20 20 20 20 20 20 62 65 67 69 6E 0D begin.
0185A0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
0185B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0185C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0185D0: 20 20 69 66 20 6E 62 72 65 3C 3D 30 20 74 68 65 if nbre<=0 the
0185E0: 6E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 n..
0185F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018600: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018610: 20 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 beg
018620: 69 6E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 in..
018630: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018640: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018650: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 64 65 de
018660: 66 69 6E 69 3A 3D 66 61 6C 73 65 3B 0D 0A 20 20 fini:=false;..
018670: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018680: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018690: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0186A0: 20 20 20 20 20 20 20 20 67 6F 74 6F 20 66 69 6E goto fin
0186B0: 63 61 6C 63 75 6C 3B 0D 0A 20 20 20 20 20 20 20 calcul;..
0186C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0186D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0186E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0186F0: 20 20 20 65 6E 64 0D 0A 20 20 20 20 20 20 20 20 end..
018700: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018710: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018720: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018730: 20 20 20 65 6C 73 65 0D 0A 20 20 20 20 20 20 20 else..
018740: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018750: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018760: 20 20 20 20 20 20 20 20 20 20 63 61 6C 63 75 6C calcul
018770: 3A 3D 6C 6E 28 6E 62 72 65 29 0D 0A 20 20 20 20 :=ln(nbre)..
018780: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018790: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0187A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6E 64 end
0187B0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
0187C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0187D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0187E0: 20 20 20 20 65 6C 73 65 0D 0A 20 20 20 20 20 20 else..
0187F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018800: 20 20 20 20 20 20 20 69 66 20 66 5E 2E 76 61 6C if f^.val
018810: 65 75 72 3D 27 73 71 72 74 27 20 74 68 65 6E 0D eur='sqrt' then.
018820: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
018830: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018840: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018850: 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 begin..
018860: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018870: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018880: 20 20 20 20 20 20 20 20 20 20 69 66 20 6E 62 72 if nbr
018890: 65 3C 30 20 74 68 65 6E 0D 0A 20 20 20 20 20 20 e<0 then..
0188A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0188B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0188C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0188D0: 20 20 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 begin..
0188E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0188F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018900: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018910: 20 20 20 20 20 64 65 66 69 6E 69 3A 3D 66 61 6C defini:=fal
018920: 73 65 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 se;..
018930: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018940: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018950: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 g
018960: 6F 74 6F 20 66 69 6E 63 61 6C 63 75 6C 3B 0D 0A oto fincalcul;..
018970: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018980: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018990: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0189A0: 20 20 20 20 20 20 20 20 20 20 65 6E 64 0D 0A 20 end..
0189B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0189C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0189D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0189E0: 20 20 20 20 20 20 20 20 20 20 20 65 6C 73 65 0D else.
0189F0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
018A00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018A10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018A20: 20 20 63 61 6C 63 75 6C 3A 3D 73 71 72 74 28 6E calcul:=sqrt(n
018A30: 62 72 65 29 0D 0A 20 20 20 20 20 20 20 20 20 20 bre)..
018A40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018A50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018A60: 20 20 20 20 20 20 20 65 6E 64 0D 0A 20 20 20 20 end..
018A70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018A80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018A90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6C el
018AA0: 73 65 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 se..
018AB0: 20 20 69 66 20 66 5E 2E 76 61 6C 65 75 72 3D 27 if f^.valeur='
018AC0: 73 68 27 20 74 68 65 6E 20 63 61 6C 63 75 6C 3A sh' then calcul:
018AD0: 3D 30 2E 35 2A 28 65 78 70 28 6E 62 72 65 29 2D =0.5*(exp(nbre)-
018AE0: 65 78 70 28 6E 62 72 65 2A 2D 31 29 29 0D 0A 20 exp(nbre*-1))..
018AF0: 20 20 20 20 20 20 65 6C 73 65 20 20 20 69 66 20 else if
018B00: 66 5E 2E 76 61 6C 65 75 72 3D 27 63 68 27 20 74 f^.valeur='ch' t
018B10: 68 65 6E 20 63 61 6C 63 75 6C 3A 3D 30 2E 35 2A hen calcul:=0.5*
018B20: 28 65 78 70 28 6E 62 72 65 29 2B 65 78 70 28 6E (exp(nbre)+exp(n
018B30: 62 72 65 2A 2D 31 29 29 0D 0A 20 20 20 20 20 20 bre*-1))..
018B40: 20 65 6C 73 65 20 20 20 69 66 20 66 5E 2E 76 61 else if f^.va
018B50: 6C 65 75 72 3D 27 74 68 27 20 74 68 65 6E 0D 0A leur='th' then..
018B60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018B70: 63 61 6C 63 75 6C 3A 3D 28 65 78 70 28 6E 62 72 calcul:=(exp(nbr
018B80: 65 29 2D 65 78 70 28 6E 62 72 65 2A 2D 31 29 29 e)-exp(nbre*-1))
018B90: 2F 28 65 78 70 28 6E 62 72 65 29 2B 65 78 70 28 /(exp(nbre)+exp(
018BA0: 6E 62 72 65 2A 2D 31 29 29 0D 0A 20 20 20 20 20 nbre*-1))..
018BB0: 20 20 65 6C 73 65 20 20 20 69 66 20 66 5E 2E 76 else if f^.v
018BC0: 61 6C 65 75 72 3D 27 61 72 63 73 69 6E 27 20 74 aleur='arcsin' t
018BD0: 68 65 6E 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 hen begin..
018BE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018BF0: 20 20 20 20 20 20 20 20 69 66 20 6E 62 72 65 3D if nbre=
018C00: 2D 31 20 74 68 65 6E 20 63 61 6C 63 75 6C 3A 3D -1 then calcul:=
018C10: 2D 30 2E 35 2A 70 69 20 65 6C 73 65 0D 0A 20 20 -0.5*pi else..
018C20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018C30: 20 20 20 20 20 20 20 20 20 20 20 69 66 20 6E 62 if nb
018C40: 72 65 3D 31 20 74 68 65 6E 20 63 61 6C 63 75 6C re=1 then calcul
018C50: 3A 3D 30 2E 35 2A 70 69 20 65 6C 73 65 0D 0A 20 :=0.5*pi else..
018C60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018C70: 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 28 if (
018C80: 28 6E 62 72 65 3C 2D 31 29 6F 72 28 6E 62 72 65 (nbre<-1)or(nbre
018C90: 3E 31 29 29 20 74 68 65 6E 0D 0A 20 20 20 20 20 >1)) then..
018CA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018CB0: 20 20 20 20 20 20 20 20 62 65 67 69 6E 20 64 65 begin de
018CC0: 66 69 6E 69 3A 3D 66 61 6C 73 65 3B 67 6F 74 6F fini:=false;goto
018CD0: 20 66 69 6E 63 61 6C 63 75 6C 3B 0D 0A 20 20 20 fincalcul;..
018CE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018CF0: 20 20 20 20 20 20 20 20 20 20 65 6E 64 20 20 65 end e
018D00: 6C 73 65 0D 0A 20 20 20 20 20 20 20 20 20 20 20 lse..
018D10: 20 63 61 6C 63 75 6C 3A 3D 61 72 63 74 61 6E 28 calcul:=arctan(
018D20: 6E 62 72 65 2F 73 71 72 74 28 31 2D 6E 62 72 65 nbre/sqrt(1-nbre
018D30: 2A 6E 62 72 65 29 29 3B 0D 0A 20 20 20 20 20 20 *nbre));..
018D40: 20 20 20 20 20 20 65 6E 64 0D 0A 20 20 20 20 20 end..
018D50: 20 20 65 6C 73 65 0D 0A 20 20 20 20 20 20 20 20 else..
018D60: 20 20 20 20 20 20 20 69 66 20 66 5E 2E 76 61 6C if f^.val
018D70: 65 75 72 3D 27 61 72 63 63 6F 73 27 20 74 68 65 eur='arccos' the
018D80: 6E 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 n begin..
018D90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018DA0: 20 20 20 20 20 20 69 66 20 6E 62 72 65 3D 2D 31 if nbre=-1
018DB0: 20 74 68 65 6E 20 63 61 6C 63 75 6C 3A 3D 70 69 then calcul:=pi
018DC0: 20 65 6C 73 65 0D 0A 20 20 20 20 20 20 20 20 20 else..
018DD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018DE0: 20 20 20 20 69 66 20 6E 62 72 65 3D 31 20 74 68 if nbre=1 th
018DF0: 65 6E 20 63 61 6C 63 75 6C 3A 3D 30 20 65 6C 73 en calcul:=0 els
018E00: 65 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 e..
018E10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018E20: 69 66 20 28 28 6E 62 72 65 3C 2D 31 29 6F 72 28 if ((nbre<-1)or(
018E30: 6E 62 72 65 3E 31 29 29 20 74 68 65 6E 0D 0A 20 nbre>1)) then..
018E40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
018E50: 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 begi
018E60: 6E 20 64 65 66 69 6E 69 3A 3D 66 61 6C 73 65 3B n defini:=false;
018E70: 67 6F 74 6F 20 66 69 6E 63 61 6C 63 75 6C 3B 0D goto fincalcul;.
018E80: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
018E90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6E en
018EA0: 64 20 20 65 6C 73 65 0D 0A 20 20 20 20 20 20 20 d else..
018EB0: 20 20 20 20 20 63 61 6C 63 75 6C 3A 3D 28 70 69 calcul:=(pi
018EC0: 2F 32 29 2D 61 72 63 74 61 6E 28 6E 62 72 65 2F /2)-arctan(nbre/
018ED0: 73 71 72 74 28 31 2D 6E 62 72 65 2A 6E 62 72 65 sqrt(1-nbre*nbre
018EE0: 29 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ));..
018EF0: 20 65 6E 64 0D 0A 20 20 20 20 20 20 20 65 6C 73 end.. els
018F00: 65 0D 0A 20 20 65 72 72 65 75 72 28 31 30 29 0D e.. erreur(10).
018F10: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
018F20: 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6E 64 end
018F30: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
018F40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6C el
018F50: 73 65 0D 0A 20 20 69 66 20 66 3D 6E 69 6C 20 74 se.. if f=nil t
018F60: 68 65 6E 20 63 61 6C 63 75 6C 3A 3D 30 3B 0D 0A hen calcul:=0;..
018F70: 20 20 66 69 6E 63 61 6C 63 75 6C 3A 3B 0D 0A 65 fincalcul:;..e
018F80: 6E 64 3B 0D 0A 0D 0A 66 75 6E 63 74 69 6F 6E 20 nd;....function
018F90: 20 74 61 70 65 66 6F 6E 63 74 69 6F 6E 3B 0D 0A tapefonction;..
018FA0: 76 61 72 0D 0A 77 77 77 2C 77 77 78 3A 73 74 72 var..www,wwx:str
018FB0: 32 30 30 3B 0D 0A 63 6F 65 66 66 3A 72 65 61 6C 200;..coeff:real
018FC0: 3B 72 65 73 75 6C 74 61 74 3A 69 6E 74 65 67 65 ;resultat:intege
018FD0: 72 3B 0D 0A 66 6F 72 6D 61 74 3A 73 74 72 31 30 r;..format:str10
018FE0: 3B 0D 0A 62 65 67 69 6E 0D 0A 69 66 20 66 5E 2E ;..begin..if f^.
018FF0: 6E 61 74 75 72 65 3D 27 69 64 66 63 74 27 20 74 nature='idfct' t
019000: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
019010: 15 00 00 00 02 09 4E E5 15 00 41 02 00 00 00 02 ......N...A.....
019020: 15 00 42 02 00 00 00 02 15 00 43 02 00 00 00 02 ..B.......C.....
019030: 15 00 44 02 00 00 00 02 15 00 45 02 00 00 00 02 ..D.......E.....
019040: 15 00 46 02 00 00 00 02 15 00 47 02 00 00 00 02 ..F.......G.....
019050: 15 00 48 02 00 00 00 02 15 00 49 02 00 00 00 02 ..H.......I.....
019060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
019070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
019080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
019090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0190A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0190B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0190C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0190D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0190E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0190F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
019100: 68 65 6E 0D 0A 74 61 70 65 66 6F 6E 63 74 69 6F hen..tapefonctio
019110: 6E 3A 3D 66 5E 2E 76 61 6C 65 75 72 2B 27 28 27 n:=f^.valeur+'('
019120: 2B 74 61 70 65 66 6F 6E 63 74 69 6F 6E 28 66 5E +tapefonction(f^
019130: 2E 64 2C 76 29 2B 27 29 27 20 65 6C 73 65 0D 0A .d,v)+')' else..
019140: 69 66 20 66 5E 2E 6E 61 74 75 72 65 3D 27 6E 6F if f^.nature='no
019150: 6D 62 72 65 27 20 74 68 65 6E 20 20 74 61 70 65 mbre' then tape
019160: 66 6F 6E 63 74 69 6F 6E 3A 3D 66 5E 2E 76 61 6C fonction:=f^.val
019170: 65 75 72 20 65 6C 73 65 0D 0A 69 66 20 66 5E 2E eur else..if f^.
019180: 6E 61 74 75 72 65 3D 27 70 61 72 61 6D 27 20 74 nature='param' t
019190: 68 65 6E 0D 0A 74 61 70 65 66 6F 6E 63 74 69 6F hen..tapefonctio
0191A0: 6E 3A 3D 27 70 28 27 2B 66 5E 2E 76 61 6C 65 75 n:='p('+f^.valeu
0191B0: 72 2B 27 29 27 20 65 6C 73 65 0D 0A 69 66 20 66 r+')' else..if f
0191C0: 5E 2E 6E 61 74 75 72 65 3D 27 76 61 72 69 61 62 ^.nature='variab
0191D0: 27 20 74 68 65 6E 0D 0A 74 61 70 65 66 6F 6E 63 ' then..tapefonc
0191E0: 74 69 6F 6E 3A 3D 76 20 65 6C 73 65 0D 0A 69 66 tion:=v else..if
0191F0: 20 28 28 66 5E 2E 6E 61 74 75 72 65 3D 27 70 6C ((f^.nature='pl
019200: 75 73 27 29 20 6F 72 20 28 66 5E 2E 6E 61 74 75 us') or (f^.natu
019210: 72 65 3D 27 6D 6F 69 6E 73 27 29 29 20 74 68 65 re='moins')) the
019220: 6E 0D 0A 20 20 20 20 62 65 67 69 6E 0D 0A 20 20 n.. begin..
019230: 20 20 77 77 77 3A 3D 74 61 70 65 66 6F 6E 63 74 www:=tapefonct
019240: 69 6F 6E 28 66 5E 2E 64 2C 76 29 3B 77 77 78 3A ion(f^.d,v);wwx:
019250: 3D 74 61 70 65 66 6F 6E 63 74 69 6F 6E 28 66 5E =tapefonction(f^
019260: 2E 67 2C 76 29 3B 0D 0A 20 20 20 20 69 66 20 28 .g,v);.. if (
019270: 28 28 66 5E 2E 64 5E 2E 76 61 6C 65 75 72 3D 27 ((f^.d^.valeur='
019280: 2B 27 29 6F 72 28 66 5E 2E 64 5E 2E 76 61 6C 65 +')or(f^.d^.vale
019290: 75 72 3D 27 2D 27 29 29 61 6E 64 28 66 5E 2E 76 ur='-'))and(f^.v
0192A0: 61 6C 65 75 72 3D 27 2B 27 29 29 20 74 68 65 6E aleur='+')) then
0192B0: 0D 0A 20 20 20 20 20 62 65 67 69 6E 0D 0A 20 20 .. begin..
0192C0: 20 20 20 64 65 6C 65 74 65 28 77 77 77 2C 31 2C delete(www,1,
0192D0: 31 29 3B 64 65 6C 65 74 65 28 77 77 77 2C 6C 65 1);delete(www,le
0192E0: 6E 67 74 68 28 77 77 77 29 2C 31 29 3B 0D 0A 20 ngth(www),1);..
0192F0: 20 20 20 20 65 6E 64 3B 0D 0A 20 20 20 20 69 66 end;.. if
019300: 20 28 28 66 5E 2E 67 5E 2E 76 61 6C 65 75 72 3D ((f^.g^.valeur=
019310: 27 2B 27 29 6F 72 28 66 5E 2E 67 5E 2E 76 61 6C '+')or(f^.g^.val
019320: 65 75 72 3D 27 2D 27 29 29 20 74 68 65 6E 0D 0A eur='-')) then..
019330: 20 20 20 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 begin..
019340: 20 64 65 6C 65 74 65 28 77 77 78 2C 31 2C 31 29 delete(wwx,1,1)
019350: 3B 64 65 6C 65 74 65 28 77 77 78 2C 6C 65 6E 67 ;delete(wwx,leng
019360: 74 68 28 77 77 78 29 2C 31 29 3B 0D 0A 20 20 20 th(wwx),1);..
019370: 20 20 65 6E 64 3B 63 6F 65 66 66 3A 3D 31 3B 0D end;coeff:=1;.
019380: 0A 20 20 20 20 20 69 66 20 66 5E 2E 64 5E 2E 6E . if f^.d^.n
019390: 61 74 75 72 65 3D 27 6E 6F 6D 62 72 65 27 20 74 ature='nombre' t
0193A0: 68 65 6E 20 76 61 6C 28 66 5E 2E 64 5E 2E 76 61 hen val(f^.d^.va
0193B0: 6C 65 75 72 2C 63 6F 65 66 66 2C 72 65 73 75 6C leur,coeff,resul
0193C0: 74 61 74 29 3B 0D 0A 20 20 20 20 20 69 66 20 28 tat);.. if (
0193D0: 28 66 5E 2E 64 5E 2E 76 61 6C 65 75 72 3D 27 2A (f^.d^.valeur='*
0193E0: 27 29 61 6E 64 20 28 66 5E 2E 64 5E 2E 67 5E 2E ')and (f^.d^.g^.
0193F0: 6E 61 74 75 72 65 3D 27 6E 6F 6D 62 72 65 27 29 nature='nombre')
019400: 29 20 74 68 65 6E 0D 0A 20 20 20 20 20 76 61 6C ) then.. val
019410: 28 66 5E 2E 64 5E 2E 67 5E 2E 76 61 6C 65 75 72 (f^.d^.g^.valeur
019420: 2C 63 6F 65 66 66 2C 72 65 73 75 6C 74 61 74 29 ,coeff,resultat)
019430: 3B 0D 0A 20 20 20 20 20 69 66 20 28 28 66 5E 2E ;.. if ((f^.
019440: 76 61 6C 65 75 72 3D 27 2B 27 29 20 61 6E 64 20 valeur='+') and
019450: 28 63 6F 65 66 66 3C 30 29 29 20 74 68 65 6E 0D (coeff<0)) then.
019460: 0A 20 20 20 20 74 61 70 65 66 6F 6E 63 74 69 6F . tapefonctio
019470: 6E 3A 3D 27 28 27 2B 77 77 78 2B 77 77 77 2B 27 n:='('+wwx+www+'
019480: 29 27 20 65 6C 73 65 0D 0A 20 20 20 74 61 70 65 )' else.. tape
019490: 66 6F 6E 63 74 69 6F 6E 3A 3D 27 28 27 2B 77 77 fonction:='('+ww
0194A0: 78 2B 66 5E 2E 76 61 6C 65 75 72 2B 77 77 77 2B x+f^.valeur+www+
0194B0: 27 29 27 0D 0A 20 20 20 65 6E 64 0D 0A 20 20 20 ')'.. end..
0194C0: 65 6C 73 65 0D 0A 69 66 20 28 28 66 5E 2E 6E 61 else..if ((f^.na
0194D0: 74 75 72 65 3D 27 64 69 76 69 73 65 27 29 20 6F ture='divise') o
0194E0: 72 20 28 66 5E 2E 6E 61 74 75 72 65 3D 27 6D 75 r (f^.nature='mu
0194F0: 6C 74 69 27 29 20 6F 72 20 28 66 5E 2E 6E 61 74 lti') or (f^.nat
019500: 75 72 65 3D 27 70 75 69 73 73 27 29 29 0D 0A 74 ure='puiss'))..t
019510: 68 65 6E 20 74 61 70 65 66 6F 6E 63 74 69 6F 6E hen tapefonction
019520: 3A 3D 74 61 70 65 66 6F 6E 63 74 69 6F 6E 28 66 :=tapefonction(f
019530: 5E 2E 67 2C 76 29 2B 66 5E 2E 76 61 6C 65 75 72 ^.g,v)+f^.valeur
019540: 2B 74 61 70 65 66 6F 6E 63 74 69 6F 6E 28 66 5E +tapefonction(f^
019550: 2E 64 2C 76 29 20 65 6C 73 65 0D 0A 74 61 70 65 .d,v) else..tape
019560: 66 6F 6E 63 74 69 6F 6E 3A 3D 27 27 3B 0D 0A 65 fonction:='';..e
019570: 6E 64 3B 0D 0A 0D 0A 66 75 6E 63 74 69 6F 6E 20 nd;....function
019580: 6F 70 70 6F 73 65 3B 0D 0A 76 61 72 0D 0A 75 2C oppose;..var..u,
019590: 76 3A 66 6F 6E 63 74 69 6F 6E 3B 0D 0A 63 6F 65 v:fonction;..coe
0195A0: 66 66 2C 72 65 73 75 6C 74 61 74 3A 69 6E 74 65 ff,resultat:inte
0195B0: 67 65 72 3B 0D 0A 63 6F 65 66 32 3A 72 65 61 6C ger;..coef2:real
0195C0: 3B 0D 0A 62 65 67 69 6E 0D 0A 69 66 20 28 28 66 ;..begin..if ((f
0195D0: 5E 2E 76 61 6C 65 75 72 3D 27 2A 27 29 20 61 6E ^.valeur='*') an
0195E0: 64 20 28 66 5E 2E 67 5E 2E 6E 61 74 75 72 65 3D d (f^.g^.nature=
0195F0: 27 6E 6F 6D 62 72 65 27 29 29 20 74 68 65 6E 0D 'nombre')) then.
019600: 0A 20 62 65 67 69 6E 0D 0A 20 20 6E 65 77 28 75 . begin.. new(u
019610: 29 3B 75 5E 2E 6E 61 74 75 72 65 3A 3D 27 6D 75 );u^.nature:='mu
019620: 6C 74 69 27 3B 75 5E 2E 76 61 6C 65 75 72 3A 3D lti';u^.valeur:=
019630: 27 2A 27 3B 75 5E 2E 64 3A 3D 66 5E 2E 64 3B 0D '*';u^.d:=f^.d;.
019640: 0A 20 20 75 5E 2E 67 3A 3D 6F 70 70 6F 73 65 28 . u^.g:=oppose(
019650: 66 5E 2E 67 29 3B 6F 70 70 6F 73 65 3A 3D 75 3B f^.g);oppose:=u;
019660: 0D 0A 20 65 6E 64 0D 0A 20 65 6C 73 65 0D 0A 69 .. end.. else..i
019670: 66 20 28 28 66 5E 2E 76 61 6C 65 75 72 3D 27 2A f ((f^.valeur='*
019680: 27 29 20 6F 72 20 28 66 5E 2E 76 61 6C 65 75 72 ') or (f^.valeur
019690: 3D 27 2F 27 29 29 20 74 68 65 6E 0D 0A 20 62 65 ='/')) then.. be
0196A0: 67 69 6E 0D 0A 20 20 6E 65 77 28 75 29 3B 75 5E gin.. new(u);u^
0196B0: 2E 6E 61 74 75 72 65 3A 3D 27 6D 75 6C 74 69 27 .nature:='multi'
0196C0: 3B 75 5E 2E 76 61 6C 65 75 72 3A 3D 27 2A 27 3B ;u^.valeur:='*';
0196D0: 75 5E 2E 64 3A 3D 66 3B 6E 65 77 28 75 5E 2E 67 u^.d:=f;new(u^.g
0196E0: 29 3B 0D 0A 20 20 75 5E 2E 67 5E 2E 6E 61 74 75 );.. u^.g^.natu
0196F0: 72 65 3A 3D 27 6E 6F 6D 62 72 65 27 3B 75 5E 2E re:='nombre';u^.
019700: 67 5E 2E 76 61 6C 65 75 72 3A 3D 27 2D 31 27 3B g^.valeur:='-1';
019710: 75 5E 2E 67 5E 2E 67 3A 3D 6E 69 6C 3B 75 5E 2E u^.g^.g:=nil;u^.
019720: 67 5E 2E 64 3A 3D 6E 69 6C 3B 0D 0A 20 20 6F 70 g^.d:=nil;.. op
019730: 70 6F 73 65 3A 3D 75 3B 0D 0A 20 65 6E 64 0D 0A pose:=u;.. end..
019740: 20 65 6C 73 65 0D 0A 69 66 20 28 28 66 5E 2E 76 else..if ((f^.v
019750: 61 6C 65 75 72 3D 27 78 27 29 20 6F 72 20 28 66 aleur='x') or (f
019760: 5E 2E 76 61 6C 65 75 72 3D 27 5E 27 29 29 20 74 ^.valeur='^')) t
019770: 68 65 6E 0D 0A 20 62 65 67 69 6E 0D 0A 20 20 6E hen.. begin.. n
019780: 65 77 28 75 29 3B 75 5E 2E 6E 61 74 75 72 65 3A ew(u);u^.nature:
019790: 3D 27 6D 75 6C 74 69 27 3B 75 5E 2E 76 61 6C 65 ='multi';u^.vale
0197A0: 75 72 3A 3D 27 2A 27 3B 75 5E 2E 64 3A 3D 66 3B ur:='*';u^.d:=f;
0197B0: 0D 0A 20 20 6E 65 77 28 76 29 3B 76 5E 2E 6E 61 .. new(v);v^.na
0197C0: 74 75 72 65 3A 3D 27 6E 6F 6D 62 72 65 27 3B 76 ture:='nombre';v
0197D0: 5E 2E 76 61 6C 65 75 72 3A 3D 27 2D 31 27 3B 76 ^.valeur:='-1';v
0197E0: 5E 2E 64 3A 3D 6E 69 6C 3B 76 5E 2E 67 3A 3D 6E ^.d:=nil;v^.g:=n
0197F0: 69 6C 3B 0D 0A 20 20 75 5E 2E 67 3A 3D 76 3B 6F il;.. u^.g:=v;o
019800: 70 70 6F 73 65 3A 3D 75 3B 0D 0A 20 65 6E 64 0D ppose:=u;.. end.
019810: 0A 20 65 6C 73 65 0D 0A 69 66 20 66 5E 2E 6E 61 . else..if f^.na
019820: 74 75 72 65 3D 27 6E 6F 6D 62 72 65 27 20 74 68 ture='nombre' th
019830: 65 6E 0D 0A 20 62 65 67 69 6E 0D 0A 20 20 6E 65 en.. begin.. ne
019840: 77 28 75 29 3B 75 5E 2E 6E 61 74 75 72 65 3A 3D w(u);u^.nature:=
019850: 27 6E 6F 6D 62 72 65 27 3B 75 5E 2E 64 3A 3D 6E 'nombre';u^.d:=n
019860: 69 6C 3B 75 5E 2E 67 3A 3D 6E 69 6C 3B 0D 0A 20 il;u^.g:=nil;..
019870: 20 76 61 6C 28 66 5E 2E 76 61 6C 65 75 72 2C 63 val(f^.valeur,c
019880: 6F 65 66 32 2C 72 65 73 75 6C 74 61 74 29 3B 63 oef2,resultat);c
019890: 6F 65 66 32 3A 3D 63 6F 65 66 32 2A 28 2D 31 29 oef2:=coef2*(-1)
0198A0: 3B 0D 0A 20 20 69 66 20 66 72 61 63 28 63 6F 65 ;.. if frac(coe
0198B0: 66 32 29 3D 30 20 74 68 65 6E 20 73 74 72 28 72 f2)=0 then str(r
0198C0: 6F 75 6E 64 28 63 6F 65 66 32 29 2C 75 5E 2E 76 ound(coef2),u^.v
0198D0: 61 6C 65 75 72 29 0D 0A 20 20 20 20 65 6C 73 65 aleur).. else
0198E0: 0D 0A 20 20 20 20 62 65 67 69 6E 0D 0A 20 20 20 .. begin..
0198F0: 20 73 74 72 28 63 6F 65 66 32 3A 31 30 3A 35 2C str(coef2:10:5,
019900: 75 5E 2E 76 61 6C 65 75 72 29 3B 0D 0A 20 20 20 u^.valeur);..
019910: 20 77 68 69 6C 65 20 70 6F 73 28 27 20 27 2C 75 while pos(' ',u
019920: 5E 2E 76 61 6C 65 75 72 29 3C 3E 30 20 64 6F 20 ^.valeur)<>0 do
019930: 64 65 6C 65 74 65 28 75 5E 2E 76 61 6C 65 75 72 delete(u^.valeur
019940: 2C 31 2C 31 29 3B 0D 0A 20 20 20 20 65 6E 64 3B ,1,1);.. end;
019950: 0D 0A 20 20 6F 70 70 6F 73 65 3A 3D 75 3B 0D 0A .. oppose:=u;..
019960: 20 65 6E 64 0D 0A 20 65 6C 73 65 0D 0A 69 66 20 end.. else..if
019970: 66 5E 2E 76 61 6C 65 75 72 3D 27 2B 27 20 74 68 f^.valeur='+' th
019980: 65 6E 0D 0A 20 20 62 65 67 69 6E 20 6E 65 77 28 en.. begin new(
019990: 75 29 3B 75 5E 2E 6E 61 74 75 72 65 3A 3D 27 70 u);u^.nature:='p
0199A0: 6C 75 73 27 3B 75 5E 2E 76 61 6C 65 75 72 3A 3D lus';u^.valeur:=
0199B0: 27 2B 27 3B 0D 0A 20 20 75 5E 2E 67 3A 3D 6F 70 '+';.. u^.g:=op
0199C0: 70 6F 73 65 28 66 5E 2E 67 29 3B 75 5E 2E 64 3A pose(f^.g);u^.d:
0199D0: 3D 6F 70 70 6F 73 65 28 66 5E 2E 64 29 3B 6F 70 =oppose(f^.d);op
0199E0: 70 6F 73 65 3A 3D 75 20 65 6E 64 0D 0A 20 65 6C pose:=u end.. el
0199F0: 73 65 0D 0A 69 66 20 66 5E 2E 76 61 6C 65 75 72 se..if f^.valeur
019A00: 3D 27 2D 27 20 74 68 65 6E 0D 0A 20 20 62 65 67 ='-' then.. beg
019A10: 69 6E 20 6E 65 77 28 75 29 3B 75 5E 2E 6E 61 74 in new(u);u^.nat
019A20: 75 72 65 3A 3D 27 70 6C 75 73 27 3B 75 5E 2E 76 ure:='plus';u^.v
019A30: 61 6C 65 75 72 3A 3D 27 2B 27 3B 75 5E 2E 67 3A aleur:='+';u^.g:
019A40: 3D 6F 70 70 6F 73 65 28 66 5E 2E 67 29 3B 75 5E =oppose(f^.g);u^
019A50: 2E 64 3A 3D 66 5E 2E 64 3B 0D 0A 20 20 6F 70 70 .d:=f^.d;.. opp
019A60: 6F 73 65 3A 3D 75 20 65 6E 64 0D 0A 20 20 65 6C ose:=u end.. el
019A70: 73 65 0D 0A 69 66 20 66 3D 6E 69 6C 20 74 68 65 se..if f=nil the
019A80: 6E 20 6F 70 70 6F 73 65 3A 3D 6E 69 6C 3B 0D 0A n oppose:=nil;..
019A90: 65 6E 64 3B 0D 0A 0D 0A 0D 0A 0D 0A 66 75 6E 63 end;........func
019AA0: 74 69 6F 6E 20 20 65 78 70 6F 73 61 6E 74 3B 0D tion exposant;.
019AB0: 0A 76 61 72 0D 0A 6C 6C 3A 69 6E 74 65 67 65 72 .var..ll:integer
019AC0: 3B 0D 0A 62 65 67 69 6E 0D 0A 6C 6C 3A 3D 72 6F ;..begin..ll:=ro
019AD0: 75 6E 64 28 6C 29 3B 0D 0A 69 66 20 6B 3D 30 20 und(l);..if k=0
019AE0: 74 68 65 6E 20 65 78 70 6F 73 61 6E 74 3A 3D 30 then exposant:=0
019AF0: 20 65 6C 73 65 0D 0A 69 66 20 6C 6C 3D 30 20 74 else..if ll=0 t
019B00: 68 65 6E 20 65 78 70 6F 73 61 6E 74 3A 3D 31 20 hen exposant:=1
019B10: 65 6C 73 65 0D 0A 69 66 20 6C 6C 3E 30 20 74 68 else..if ll>0 th
019B20: 65 6E 20 62 65 67 69 6E 20 6C 3A 3D 6C 2D 31 3B en begin l:=l-1;
019B30: 65 78 70 6F 73 61 6E 74 3A 3D 6B 2A 65 78 70 6F exposant:=k*expo
019B40: 73 61 6E 74 28 6B 2C 6C 29 20 65 6E 64 20 65 6C sant(k,l) end el
019B50: 73 65 0D 0A 69 66 20 6C 6C 3C 30 20 74 68 65 6E se..if ll<0 then
019B60: 20 62 65 67 69 6E 20 6C 3A 3D 6C 2B 31 3B 65 78 begin l:=l+1;ex
019B70: 70 6F 73 61 6E 74 3A 3D 28 31 2F 6B 29 2A 65 78 posant:=(1/k)*ex
019B80: 70 6F 73 61 6E 74 28 6B 2C 6C 29 20 65 6E 64 3B posant(k,l) end;
019B90: 0D 0A 65 6E 64 3B 0D 0A 0D 0A 0D 0A 70 72 6F 63 ..end;......proc
019BA0: 65 64 75 72 65 20 20 20 20 63 61 6C 63 75 6C 66 edure calculf
019BB0: 6F 6E 63 74 69 6F 6E 28 66 3A 66 6F 6E 63 74 69 onction(f:foncti
019BC0: 6F 6E 29 3B 0D 0A 76 61 72 0D 0A 63 68 78 2C 63 on);..var..chx,c
019BD0: 68 79 3A 73 74 72 31 30 3B 0D 0A 62 65 67 69 6E hy:str10;..begin
019BE0: 0D 0A 20 63 6C 72 73 63 72 3B 0D 0A 20 72 65 70 .. clrscr;.. rep
019BF0: 65 61 74 0D 0A 20 77 72 69 74 65 28 27 76 61 6C eat.. write('val
019C00: 65 75 72 20 64 65 20 78 20 3F 27 29 3B 0D 0A 20 eur de x ?');..
019C10: 72 65 61 64 6C 6E 28 78 29 3B 0D 0A 20 64 65 66 readln(x);.. def
019C20: 69 6E 69 3A 3D 74 72 75 65 3B 72 65 73 75 6C 74 ini:=true;result
019C30: 61 74 3A 3D 63 61 6C 63 75 6C 28 66 2C 78 29 3B at:=calcul(f,x);
019C40: 0D 0A 20 69 66 20 66 72 61 63 28 78 29 3D 30 20 .. if frac(x)=0
019C50: 74 68 65 6E 20 73 74 72 28 72 6F 75 6E 64 28 78 then str(round(x
019C60: 29 2C 63 68 78 29 20 65 6C 73 65 20 73 74 72 28 ),chx) else str(
019C70: 78 3A 38 3A 33 2C 63 68 78 29 3B 0D 0A 20 69 66 x:8:3,chx);.. if
019C80: 20 64 65 66 69 6E 69 3D 74 72 75 65 20 74 68 65 defini=true the
019C90: 6E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 n..
019CA0: 20 20 20 20 20 20 20 62 65 67 69 6E 0D 0A 20 20 begin..
019CB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
019CC0: 20 20 77 72 69 74 65 28 27 66 27 2C 69 2C 27 28 write('f',i,'(
019CD0: 27 2C 63 68 78 2C 27 29 3D 27 29 3B 0D 0A 20 20 ',chx,')=');..
019CE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
019CF0: 20 20 69 66 20 66 72 61 63 28 72 65 73 75 6C 74 if frac(result
019D00: 61 74 29 3D 30 20 74 68 65 6E 20 73 74 72 28 72 at)=0 then str(r
019D10: 6F 75 6E 64 28 72 65 73 75 6C 74 61 74 29 2C 63 ound(resultat),c
019D20: 68 79 29 20 65 6C 73 65 0D 0A 20 20 20 20 20 20 hy) else..
019D30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 73 74 st
019D40: 72 28 72 65 73 75 6C 74 61 74 3A 38 3A 33 2C 63 r(resultat:8:3,c
019D50: 68 79 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 hy);..
019D60: 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 6C writel
019D70: 6E 28 63 68 79 29 3B 0D 0A 20 20 20 20 20 20 20 n(chy);..
019D80: 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6E 64 end
019D90: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
019DA0: 20 20 20 20 20 20 65 6C 73 65 0D 0A 20 20 20 20 else..
019DB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
019DC0: 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 20 begin..
019DD0: 20 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 write
019DE0: 6C 6E 28 27 66 27 2C 69 2C 27 28 27 2C 63 68 78 ln('f',i,'(',chx
019DF0: 2C 27 29 20 6E 27 27 65 73 74 20 70 61 73 20 64 ,') n''est pas d
019E00: 65 66 69 6E 69 65 27 29 3B 0D 0A 20 20 20 20 20 efinie');..
019E10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 e
019E20: 6E 64 3B 0D 0A 20 77 72 69 74 65 6C 6E 28 27 3C nd;.. writeln('<
019E30: 31 3E 20 55 6E 20 61 75 74 72 65 20 78 3F 20 3C 1> Un autre x? <
019E40: 32 3E 20 52 65 74 6F 75 72 20 61 75 20 6D 65 6E 2> Retour au men
019E50: 75 20 27 29 3B 0D 0A 20 20 20 72 65 70 65 61 74 u ');.. repeat
019E60: 0D 0A 20 20 20 72 65 61 64 28 6B 62 64 2C 63 61 .. read(kbd,ca
019E70: 72 29 3B 0D 0A 20 20 20 75 6E 74 69 6C 20 28 28 r);.. until ((
019E80: 63 61 72 3D 27 31 27 29 20 6F 72 20 28 63 61 72 car='1') or (car
019E90: 3D 27 32 27 29 29 3B 0D 0A 20 20 20 76 61 6C 28 ='2'));.. val(
019EA0: 63 61 72 2C 63 68 6F 69 78 2C 72 65 73 75 6C 74 car,choix,result
019EB0: 29 3B 0D 0A 20 77 72 69 74 65 6C 6E 3B 0D 0A 20 );.. writeln;..
019EC0: 75 6E 74 69 6C 20 63 68 6F 69 78 3D 32 0D 0A 65 until choix=2..e
019ED0: 6E 64 3B 0D 0A 0D 0D 0D 0D 1A 1A 1A 1A 1A 1A 1A nd;.............
019EE0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
019EF0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
019F00: 5E 23 56 EB 11 07 00 19 CD 3A 05 21 2F 00 65 2E ^#V......:.!/.e.
019F10: 01 E5 CD 8D 06 D1 7D B3 6F CB 45 CA DE 45 21 DA ......}.o.E..E!.
019F20: ED E5 21 16 00 CD E5 1C CD 4D 05 05 6D 75 6C 74 ..!......M..mult
019F30: 69 06 06 2A DA ED CD E2 05 2A DA ED 11 07 00 19 i..*.....*......
019F40: E5 21 2A 00 65 2E 01 E5 06 0A CD 01 06 2A DA ED .!*.e........*..
019F50: 11 12 00 19 E5 2A E4 ED 5E 23 56 EB EB E1 73 23 .....*..^#V...s#
019F60: 72 2A DA ED 11 14 00 19 E5 21 16 00 CD E5 1C 2A r*.......!.....*
019F70: DA ED 11 14 00 19 5E 23 56 EB E5 CD 4D 05 06 6E ......^#V...M..n
019F80: 6F 6D 62 72 65 06 06 CD 01 06 2A DA ED 11 14 00 ombre.....*.....
019F90: 19 5E 23 56 EB 11 07 00 19 E5 CD 4D 05 02 2D 31 .^#V.......M..-1
019FA0: 06 0A CD 01 06 2A DA ED 11 14 00 19 5E 23 56 EB .....*......^#V.
019FB0: 11 14 00 19 E5 21 00 00 EB E1 73 23 72 2A DA ED .....!....s#r*..
019FC0: 11 14 00 19 5E 23 56 EB 11 12 00 19 E5 21 00 00 ....^#V......!..
019FD0: EB E1 73 23 72 2A DA ED 22 E6 ED C3 19 49 2A E4 ..s#r*.."....I*.
019FE0: ED 5E 23 56 EB 11 07 00 19 CD 3A 05 21 78 00 65 .^#V......:.!x.e
019FF0: 2E 01 E5 CD 8D 06 E5 2A E4 ED 5E 23 56 EB 11 07 .......*..^#V...
01A000: 00 19 CD 3A 05 21 5E 00 65 2E 01 E5 CD 8D 06 D1 ...:.!^.e.......
01A010: 7D B3 6F CB 45 CA C3 46 21 DA ED E5 21 16 00 CD }.o.E..F!...!...
01A020: E5 1C CD 4D 05 05 6D 75 6C 74 69 06 06 2A DA ED ...M..multi..*..
01A030: CD E2 05 2A DA ED 11 07 00 19 E5 21 2A 00 65 2E ...*.......!*.e.
01A040: 01 E5 06 0A CD 01 06 2A DA ED 11 12 00 19 E5 2A .......*.......*
01A050: E4 ED 5E 23 56 EB EB E1 73 23 72 21 D8 ED E5 21 ..^#V...s#r!...!
01A060: 16 00 CD E5 1C CD 4D 05 06 6E 6F 6D 62 72 65 06 ......M..nombre.
01A070: 06 2A D8 ED CD E2 05 2A D8 ED 11 07 00 19 E5 CD .*.....*........
01A080: 4D 05 02 2D 31 06 0A CD 01 06 2A D8 ED 11 12 00 M..-1.....*.....
01A090: 19 E5 21 00 00 EB E1 73 23 72 2A D8 ED 11 14 00 ..!....s#r*.....
01A0A0: 19 E5 21 00 00 EB E1 73 23 72 2A DA ED 11 14 00 ..!....s#r*.....
01A0B0: 19 E5 2A D8 ED EB E1 73 23 72 2A DA ED 22 E6 ED ..*....s#r*.."..
01A0C0: C3 19 49 2A E4 ED 5E 23 56 EB CD 3A 05 CD 4D 05 ..I*..^#V..:..M.
01A0D0: 06 6E 6F 6D 62 72 65 CD 8D 06 CB 45 CA E7 47 21 .nombre....E..G!
01A0E0: DA ED E5 21 16 00 CD E5 1C CD 4D 05 06 6E 6F 6D ...!......M..nom
01A0F0: 62 72 65 06 06 2A DA ED CD E2 05 2A DA ED 11 12 bre..*.....*....
01A100: 00 19 E5 21 00 00 EB E1 73 23 72 2A DA ED 11 14 ...!....s#r*....
01A110: 00 19 E5 21 00 00 EB E1 73 23 72 2A E4 ED 5E 23 ...!....s#r*..^#
01A120: 56 EB 11 07 00 19 CD 3A 05 21 CE ED E5 21 D4 ED V......:.!...!..
01A130: CD F3 1E 21 CE ED CD 2C 05 C5 D5 E5 21 FF FF CD ...!...,....!...
01A140: 08 10 D9 E1 D1 C1 CD FA 09 D9 21 CE ED CD D1 05 ..........!.....
01A150: 21 CE ED CD 2C 05 CD 34 0C C5 D5 E5 21 00 00 CD !...,..4....!...
01A160: 08 10 D9 E1 D1 C1 CD 88 06 CB 45 CA 8B 47 21 CE ..........E..G!.
01A170: ED CD 2C 05 CD D0 0F E5 21 00 00 E5 2A DA ED 11 ..,.....!...*...
01A180: 07 00 19 06 0A CD BE 1E C3 DE 47 21 CE ED CD 2C ..........G!...,
01A190: 05 C5 D5 E5 21 0A 00 E5 21 05 00 E5 2A DA ED 11 ....!...!...*...
01A1A0: 07 00 19 06 0A CD BD 1E 21 20 00 65 2E 01 E5 2A ........! .e...*
01A1B0: DA ED 11 07 00 19 CD 3A 05 CD B2 08 E5 21 00 00 .......:.....!..
01A1C0: D1 CD 92 06 CB 45 CA DE 47 2A DA ED 11 07 00 19 .....E..G*......
01A1D0: E5 21 01 00 E5 21 01 00 CD F3 08 C3 A8 47 2A DA .!...!.......G*.
01A1E0: ED 22 E6 ED C3 19 49 2A E4 ED 5E 23 56 EB 11 07 ."....I*..^#V...
01A1F0: 00 19 CD 3A 05 21 2B 00 65 2E 01 E5 CD 8D 06 CB ...:.!+.e.......
01A200: 45 CA 73 48 21 DA ED E5 21 16 00 CD E5 1C CD 4D E.sH!...!......M
01A210: 05 04 70 6C 75 73 06 06 2A DA ED CD E2 05 2A DA ..plus..*.....*.
01A220: ED 11 07 00 19 E5 21 2B 00 65 2E 01 E5 06 0A CD ......!+.e......
01A230: 01 06 2A DA ED 11 14 00 19 E5 2A E4 ED 5E 23 56 ..*.......*..^#V
01A240: EB 11 14 00 19 E5 CD 50 2D EB E1 73 23 72 2A DA .......P-..s#r*.
01A250: ED 11 12 00 19 E5 2A E4 ED 5E 23 56 EB 11 12 00 ......*..^#V....
01A260: 19 E5 CD 50 2D EB E1 73 23 72 2A DA ED 22 E6 ED ...P-..s#r*.."..
01A270: C3 19 49 2A E4 ED 5E 23 56 EB 11 07 00 19 CD 3A ..I*..^#V......:
01A280: 05 21 2D 00 65 2E 01 E5 CD 8D 06 CB 45 CA FF 48 .!-.e.......E..H
01A290: 21 DA ED E5 21 16 00 CD E5 1C CD 4D 05 04 70 6C !...!......M..pl
01A2A0: 75 73 06 06 2A DA ED CD E2 05 2A DA ED 11 07 00 us..*.....*.....
01A2B0: 19 E5 21 2B 00 65 2E 01 E5 06 0A CD 01 06 2A DA ..!+.e........*.
01A2C0: ED 11 14 00 19 E5 2A E4 ED 5E 23 56 EB 11 14 00 ......*..^#V....
01A2D0: 19 E5 CD 50 2D EB E1 73 23 72 2A DA ED 11 12 00 ...P-..s#r*.....
01A2E0: 19 E5 2A E4 ED 5E 23 56 EB 11 12 00 19 5E 23 56 ..*..^#V.....^#V
01A2F0: EB EB E1 73 23 72 2A DA ED 22 E6 ED C3 19 49 2A ...s#r*.."....I*
01A300: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
01A310: 16 00 00 00 02 09 4E E5 16 00 41 02 00 00 00 02 ......N...A.....
01A320: 16 00 42 02 00 00 00 02 16 00 43 02 00 00 00 02 ..B.......C.....
01A330: 16 00 44 02 00 00 00 02 16 00 45 02 00 00 00 02 ..D.......E.....
01A340: 16 00 46 02 00 00 00 02 16 00 47 02 00 00 00 02 ..F.......G.....
01A350: 16 00 48 02 00 00 00 02 16 00 49 02 00 00 00 02 ..H.......I.....
01A360: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A370: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A380: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A390: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A3A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A3B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A3C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A3D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A3E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A3F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01A400: E4 ED 5E 23 56 EB E5 21 00 00 D1 CD 7F 06 CB 45 ..^#V..!.......E
01A410: CA 19 49 21 00 00 22 E6 ED 2A E6 ED D9 01 1A 00 ..I!.."..*......
01A420: 11 CE ED C3 22 05 01 1C 00 21 B2 ED CD 08 05 FD ...."....!......
01A430: E1 E1 D1 C1 D9 21 BC ED CD D1 05 E1 D1 C1 D9 21 .....!.........!
01A440: C2 ED CD D1 05 FD E5 21 BC ED CD 2C 05 CD D0 0F .......!...,....
01A450: 22 B2 ED 21 C2 ED CD 2C 05 C5 D5 E5 21 00 00 CD "..!...,....!...
01A460: 08 10 D9 E1 D1 C1 CD 88 06 CB 45 CA 7E 49 21 00 ..........E.~I!.
01A470: 00 CD 08 10 D9 21 C8 ED CD D1 05 C3 5F 4A 2A B2 .....!......_J*.
01A480: ED E5 21 00 00 D1 CD 7F 06 CB 45 CA 9E 49 21 01 ..!.......E..I!.
01A490: 00 CD 08 10 D9 21 C8 ED CD D1 05 C3 5F 4A 2A B2 .....!......_J*.
01A4A0: ED E5 21 00 00 D1 CD CC 06 CB 45 CA FA 49 21 BC ..!.......E..I!.
01A4B0: ED CD 2C 05 C5 D5 E5 21 01 00 CD 08 10 D9 E1 D1 ..,....!........
01A4C0: C1 CD F2 09 D9 21 BC ED CD D1 05 21 C2 ED CD 2C .....!.....!...,
01A4D0: 05 C5 D5 E5 21 C2 ED CD 2C 05 C5 D5 E5 21 BC ED ....!...,....!..
01A4E0: CD 2C 05 C5 D5 E5 CD 35 36 D9 E1 D1 C1 CD FA 09 .,.....56.......
01A4F0: D9 21 C8 ED CD D1 05 C3 5F 4A 2A B2 ED E5 21 00 .!......_J*...!.
01A500: 00 D1 CD E0 06 CB 45 CA 5F 4A 21 BC ED CD 2C 05 ......E._J!...,.
01A510: C5 D5 E5 21 01 00 CD 08 10 D9 E1 D1 C1 CD E9 09 ...!............
01A520: D9 21 BC ED CD D1 05 21 01 00 E5 21 C2 ED CD 2C .!.....!...!...,
01A530: 05 D9 E1 CD 08 10 CD FF 09 C5 D5 E5 21 C2 ED CD ............!...
01A540: 2C 05 C5 D5 E5 21 BC ED CD 2C 05 C5 D5 E5 CD 35 ,....!...,.....5
01A550: 36 D9 E1 D1 C1 CD FA 09 D9 21 C8 ED CD D1 05 21 6........!.....!
01A560: C8 ED CD 2C 05 D9 01 1C 00 11 B2 ED C3 22 05 01 ...,........."..
01A570: 20 00 21 92 ED CD 08 05 FD E1 E1 22 B0 ED FD E5 .!........"....
01A580: CD 3E 02 CD 9B 14 CD BA 17 0D 76 61 6C 65 75 72 .>........valeur
01A590: 20 64 65 20 78 20 3F CD 1B 20 21 C1 F1 CD CB 14 de x ?.. !.....
01A5A0: CD 72 16 CD 1B 20 21 01 00 7D 32 C7 F1 2A B0 ED .r... !..}2..*..
01A5B0: E5 21 C1 F1 CD 2C 05 C5 D5 E5 CD 4D 2D D9 21 BB .!...,.....M-.!.
01A5C0: F1 CD D1 05 21 C1 F1 CD 2C 05 CD 34 0C C5 D5 E5 ....!...,..4....
01A5D0: 21 00 00 CD 08 10 D9 E1 D1 C1 CD 88 06 CB 45 CA !.............E.
01A5E0: FB 4A 21 C1 F1 CD 2C 05 CD D0 0F E5 21 00 00 E5 .J!...,.....!...
01A5F0: 21 9D ED 06 0A CD BE 1E C3 14 4B 21 C1 F1 CD 2C !.........K!...,
01A600: 05 C5 D5 E5 21 08 00 E5 21 03 00 E5 21 9D ED 06 ....!...!...!...
01A610: 0A CD BD 1E 2A C7 F1 26 00 E5 21 01 00 D1 CD 7F ....*..&..!.....
01A620: 06 CB 45 CA BC 4B CD 9B 14 21 66 00 CD 22 17 2A ..E..K...!f..".*
01A630: 98 F2 E5 21 00 00 CD 26 17 21 28 00 CD 22 17 21 ...!...&.!(..".!
01A640: 9D ED CD 3A 05 21 00 00 CD AA 17 CD BA 17 02 29 ...:.!.........)
01A650: 3D CD 1B 20 21 BB F1 CD 2C 05 CD 34 0C C5 D5 E5 =.. !...,..4....
01A660: 21 00 00 CD 08 10 D9 E1 D1 C1 CD 88 06 CB 45 CA !.............E.
01A670: 8B 4B 21 BB F1 CD 2C 05 CD D0 0F E5 21 00 00 E5 .K!...,.....!...
01A680: 21 92 ED 06 0A CD BE 1E C3 A4 4B 21 BB F1 CD 2C !.........K!...,
01A690: 05 C5 D5 E5 21 08 00 E5 21 03 00 E5 21 92 ED 06 ....!...!...!...
01A6A0: 0A CD BD 1E 21 92 ED CD 3A 05 CD 9B 14 21 00 00 ....!...:....!..
01A6B0: CD AA 17 CD CD 17 CD 1B 20 C3 FE 4B CD 9B 14 21 ........ ..K...!
01A6C0: 66 00 CD 22 17 2A 98 F2 E5 21 00 00 CD 26 17 21 f..".*...!...&.!
01A6D0: 28 00 CD 22 17 21 9D ED CD 3A 05 21 00 00 CD AA (..".!...:.!....
01A6E0: 17 CD BA 17 13 29 20 6E 27 65 73 74 20 70 61 73 .....) n'est pas
01A6F0: 20 64 65 66 69 6E 69 65 CD CD 17 CD 1B 20 CD 9B definie..... ..
01A700: 14 CD BA 17 23 3C 31 3E 20 55 6E 20 61 75 74 72 ....#<1> Un autr
01A710: 65 20 78 3F 20 3C 32 3E 20 52 65 74 6F 75 72 20 e x? <2> Retour
01A720: 61 75 20 6D 65 6E 75 20 CD CD 17 CD 1B 20 21 BA au menu ..... !.
01A730: 00 CD A9 14 21 A5 F2 CD 44 16 CD 1B 20 2A A5 F2 ....!...D... *..
01A740: 26 00 E5 21 31 00 D1 CD 7F 06 E5 2A A5 F2 26 00 &..!1......*..&.
01A750: E5 21 32 00 D1 CD 7F 06 D1 7D B3 6F CB 45 CA 2E .!2......}.o.E..
01A760: 4C 2A A5 F2 26 00 65 2E 01 E5 21 90 F2 E5 21 94 L*..&.e...!...!.
01A770: F2 CD F4 1E CD 9B 14 CD CD 17 CD 1B 20 2A 90 F2 ............ *..
01A780: E5 21 02 00 D1 CD 7F 06 CB 45 CA 83 4A 01 20 00 .!.......E..J. .
01A790: 11 92 ED C3 22 05 C3 6A 61 C3 BF 6C 01 0E 00 21 ...."..ja..l...!
01A7A0: 84 ED CD 08 05 FD E1 E1 22 90 ED FD E5 2A 90 ED ........"....*..
01A7B0: 5E 23 56 EB 11 07 00 19 CD 3A 05 21 2A 00 65 2E ^#V......:.!*.e.
01A7C0: 01 E5 CD 8D 06 E5 2A 90 ED 5E 23 56 EB 11 14 00 ......*..^#V....
01A7D0: 19 5E 23 56 EB 11 07 00 19 CD 3A 05 21 2B 00 65 .^#V......:.!+.e
01A7E0: 2E 01 E5 CD 8D 06 E5 2A 90 ED 5E 23 56 EB 11 14 .......*..^#V...
01A7F0: 00 19 5E 23 56 EB 11 07 00 19 CD 3A 05 21 2D 00 ..^#V......:.!-.
01A800: 65 2E 01 E5 CD 8D 06 D1 7D B3 6F D1 7D A3 6F E5 e.......}.o.}£o.
01A810: 2A 90 ED 5E 23 56 EB 11 12 00 19 5E 23 56 EB CD *..^#V.....^#V..
01A820: 3A 05 CD 4D 05 05 69 64 66 63 74 CD A0 06 D1 7D :..M..idfct....}
01A830: A3 6F CB 45 CA 8C 4E 2A 90 ED 5E 23 56 EB E5 2A £o.E..N*..^#V..*
01A840: 90 ED 5E 23 56 EB 11 14 00 19 5E 23 56 EB CD 3A ..^#V.....^#V..:
01A850: 05 06 06 CD 01 06 2A 90 ED 5E 23 56 EB 11 07 00 ......*..^#V....
01A860: 19 E5 2A 90 ED 5E 23 56 EB 11 14 00 19 5E 23 56 ..*..^#V.....^#V
01A870: EB 11 07 00 19 CD 3A 05 06 0A CD 01 06 21 84 ED ......:......!..
01A880: E5 21 16 00 CD E5 1C CD 4D 05 05 6D 75 6C 74 69 .!......M..multi
01A890: 06 06 2A 84 ED CD E2 05 2A 84 ED 11 07 00 19 E5 ..*.....*.......
01A8A0: 21 2A 00 65 2E 01 E5 06 0A CD 01 06 2A 84 ED 11 !*.e........*...
01A8B0: 14 00 19 E5 2A 90 ED 5E 23 56 EB 11 14 00 19 5E ....*..^#V.....^
01A8C0: 23 56 EB 11 14 00 19 5E 23 56 EB EB E1 73 23 72 #V.....^#V...s#r
01A8D0: 2A 84 ED 11 12 00 19 E5 2A 90 ED 5E 23 56 EB 11 *.......*..^#V..
01A8E0: 12 00 19 5E 23 56 EB EB E1 73 23 72 21 86 ED E5 ...^#V...s#r!...
01A8F0: 21 16 00 CD E5 1C CD 4D 05 05 6D 75 6C 74 69 06 !......M..multi.
01A900: 06 2A 86 ED CD E2 05 2A 86 ED 11 07 00 19 E5 21 .*.....*.......!
01A910: 2A 00 65 2E 01 E5 06 0A CD 01 06 2A 86 ED 11 14 *.e........*....
01A920: 00 19 E5 2A 90 ED 5E 23 56 EB 11 14 00 19 5E 23 ...*..^#V.....^#
01A930: 56 EB 11 12 00 19 5E 23 56 EB EB E1 73 23 72 2A V.....^#V...s#r*
01A940: 86 ED 11 12 00 19 E5 2A 90 ED 5E 23 56 EB 11 12 .......*..^#V...
01A950: 00 19 5E 23 56 EB EB E1 73 23 72 2A 90 ED 5E 23 ..^#V...s#r*..^#
01A960: 56 EB 11 14 00 19 E5 2A 84 ED EB E1 73 23 72 2A V......*....s#r*
01A970: 90 ED 5E 23 56 EB 11 12 00 19 E5 2A 86 ED EB E1 ..^#V......*....
01A980: 73 23 72 21 01 00 22 94 F2 C3 7F 51 2A 90 ED 5E s#r!.."....Q*..^
01A990: 23 56 EB 11 07 00 19 CD 3A 05 21 2A 00 65 2E 01 #V......:.!*.e..
01A9A0: E5 CD 8D 06 E5 2A 90 ED 5E 23 56 EB 11 12 00 19 .....*..^#V.....
01A9B0: 5E 23 56 EB 11 07 00 19 CD 3A 05 21 2B 00 65 2E ^#V......:.!+.e.
01A9C0: 01 E5 CD 8D 06 E5 2A 90 ED 5E 23 56 EB 11 12 00 ......*..^#V....
01A9D0: 19 5E 23 56 EB 11 07 00 19 CD 3A 05 21 2D 00 65 .^#V......:.!-.e
01A9E0: 2E 01 E5 CD 8D 06 D1 7D B3 6F D1 7D A3 6F E5 2A .......}.o.}£o.*
01A9F0: 90 ED 5E 23 56 EB 11 14 00 19 5E 23 56 EB CD 3A ..^#V.....^#V..:
01AA00: 05 CD 4D 05 05 69 64 66 63 74 CD A0 06 D1 7D A3 ..M..idfct....}£
01AA10: 6F CB 45 CA 6B 50 2A 90 ED 5E 23 56 EB E5 2A 90 o.E.kP*..^#V..*.
01AA20: ED 5E 23 56 EB 11 12 00 19 5E 23 56 EB CD 3A 05 .^#V.....^#V..:.
01AA30: 06 06 CD 01 06 2A 90 ED 5E 23 56 EB 11 07 00 19 .....*..^#V.....
01AA40: E5 2A 90 ED 5E 23 56 EB 11 12 00 19 5E 23 56 EB .*..^#V.....^#V.
01AA50: 11 07 00 19 CD 3A 05 06 0A CD 01 06 21 84 ED E5 .....:......!...
01AA60: 21 16 00 CD E5 1C CD 4D 05 05 6D 75 6C 74 69 06 !......M..multi.
01AA70: 06 2A 84 ED CD E2 05 2A 84 ED 11 07 00 19 E5 21 .*.....*.......!
01AA80: 2A 00 65 2E 01 E5 06 0A CD 01 06 2A 84 ED 11 14 *.e........*....
01AA90: 00 19 E5 2A 90 ED 5E 23 56 EB 11 14 00 19 5E 23 ...*..^#V.....^#
01AAA0: 56 EB EB E1 73 23 72 2A 84 ED 11 12 00 19 E5 2A V...s#r*.......*
01AAB0: 90 ED 5E 23 56 EB 11 12 00 19 5E 23 56 EB 11 14 ..^#V.....^#V...
01AAC0: 00 19 5E 23 56 EB EB E1 73 23 72 21 86 ED E5 21 ..^#V...s#r!...!
01AAD0: 16 00 CD E5 1C CD 4D 05 05 6D 75 6C 74 69 06 06 ......M..multi..
01AAE0: 2A 86 ED CD E2 05 2A 86 ED 11 07 00 19 E5 21 2A *.....*.......!*
01AAF0: 00 65 2E 01 E5 06 0A CD 01 06 2A 86 ED 11 14 00 .e........*.....
01AB00: 19 E5 2A 90 ED 5E 23 56 EB 11 14 00 19 5E 23 56 ..*..^#V.....^#V
01AB10: EB EB E1 73 23 72 2A 86 ED 11 12 00 19 E5 2A 90 ...s#r*.......*.
01AB20: ED 5E 23 56 EB 11 12 00 19 5E 23 56 EB 11 12 00 .^#V.....^#V....
01AB30: 19 5E 23 56 EB EB E1 73 23 72 2A 90 ED 5E 23 56 .^#V...s#r*..^#V
01AB40: EB 11 12 00 19 E5 2A 86 ED EB E1 73 23 72 2A 90 ......*....s#r*.
01AB50: ED 5E 23 56 EB 11 14 00 19 E5 2A 84 ED EB E1 73 .^#V......*....s
01AB60: 23 72 21 01 00 22 94 F2 C3 7F 51 2A 90 ED 5E 23 #r!.."....Q*..^#
01AB70: 56 EB 11 07 00 19 CD 3A 05 21 5E 00 65 2E 01 E5 V......:.!^.e...
01AB80: CD 8D 06 E5 2A 90 ED 5E 23 56 EB 11 12 00 19 5E ....*..^#V.....^
01AB90: 23 56 EB 11 07 00 19 CD 3A 05 21 32 00 65 2E 01 #V......:.!2.e..
01ABA0: E5 CD 8D 06 D1 7D A3 6F E5 2A 90 ED 5E 23 56 EB .....}£o.*..^#V.
01ABB0: 11 14 00 19 5E 23 56 EB 11 07 00 19 CD 3A 05 21 ....^#V......:.!
01ABC0: 2A 00 65 2E 01 E5 CD 8D 06 D1 7D A3 6F CB 45 CA *.e.......}£o.E.
01ABD0: 29 51 2A 90 ED 5E 23 56 EB E5 CD 4D 05 05 6D 75 )Q*..^#V...M..mu
01ABE0: 6C 74 69 06 06 CD 01 06 2A 90 ED 5E 23 56 EB 11 lti.....*..^#V..
01ABF0: 07 00 19 E5 21 2A 00 65 2E 01 E5 06 0A CD 01 06 ....!*.e........
01AC00: 2A 90 ED 5E 23 56 EB 11 12 00 19 E5 2A 90 ED 5E *..^#V......*..^
01AC10: 23 56 EB 11 14 00 19 5E 23 56 EB EB E1 73 23 72 #V.....^#V...s#r
01AC20: 21 01 00 22 94 F2 C3 7F 51 2A 90 ED 5E 23 56 EB !.."....Q*..^#V.
01AC30: 11 14 00 19 5E 23 56 EB E5 21 00 00 D1 CD 92 06 ....^#V..!......
01AC40: CB 45 CA 54 51 2A 90 ED 5E 23 56 EB 11 14 00 19 .E.TQ*..^#V.....
01AC50: E5 CD 9C 4C 2A 90 ED 5E 23 56 EB 11 12 00 19 5E ...L*..^#V.....^
01AC60: 23 56 EB E5 21 00 00 D1 CD 92 06 CB 45 CA 7F 51 #V..!.......E..Q
01AC70: 2A 90 ED 5E 23 56 EB 11 12 00 19 E5 CD 9C 4C 01 *..^#V........L.
01AC80: 0E 00 11 84 ED C3 22 05 01 0E 00 21 76 ED CD 08 ......"....!v...
01AC90: 05 FD E1 E1 22 82 ED FD E5 2A 82 ED 5E 23 56 EB ...."....*..^#V.
01ACA0: 11 07 00 19 CD 3A 05 21 2B 00 65 2E 01 E5 CD 8D .....:.!+.e.....
01ACB0: 06 E5 2A 82 ED 5E 23 56 EB 11 07 00 19 CD 3A 05 ..*..^#V......:.
01ACC0: 21 2D 00 65 2E 01 E5 CD 8D 06 D1 7D B3 6F E5 2A !-.e.......}.o.*
01ACD0: 82 ED 5E 23 56 EB 11 12 00 19 5E 23 56 EB E5 CD ..^#V.....^#V...
01ACE0: 99 4C E5 21 00 00 D1 CD A5 06 D1 7D A3 6F E5 2A .L.!.......}£o.*
01ACF0: 82 ED 5E 23 56 EB 11 12 00 19 5E 23 56 EB E5 CD ..^#V.....^#V...
01AD00: 99 4C E5 2A 82 ED 5E 23 56 EB 11 14 00 19 5E 23 .L.*..^#V.....^#
01AD10: 56 EB E5 CD 99 4C D1 CD 7F 06 D1 7D A3 6F CB 45 V....L.....}£o.E
01AD20: CA 68 57 2A 82 ED 5E 23 56 EB 11 12 00 19 5E 23 .hW*..^#V.....^#
01AD30: 56 EB 11 07 00 19 CD 3A 05 21 2A 00 65 2E 01 E5 V......:.!*.e...
01AD40: CD 8D 06 E5 2A 82 ED 5E 23 56 EB 11 14 00 19 5E ....*..^#V.....^
01AD50: 23 56 EB 11 07 00 19 CD 3A 05 21 2A 00 65 2E 01 #V......:.!*.e..
01AD60: E5 CD 8D 06 D1 7D A3 6F CB 45 CA 76 54 2A 82 ED .....}£o.E.vT*..
01AD70: 5E 23 56 EB 11 14 00 19 5E 23 56 EB 11 12 00 19 ^#V.....^#V.....
01AD80: 5E 23 56 EB 11 07 00 19 CD 3A 05 21 78 00 65 2E ^#V......:.!x.e.
01AD90: 01 E5 CD 8D 06 E5 2A 82 ED 5E 23 56 EB 11 12 00 ......*..^#V....
01ADA0: 19 5E 23 56 EB 11 12 00 19 5E 23 56 EB 11 07 00 .^#V.....^#V....
01ADB0: 19 CD 3A 05 21 78 00 65 2E 01 E5 CD 8D 06 D1 7D ..:.!x.e.......}
01ADC0: A3 6F E5 2A 82 ED 5E 23 56 EB 11 14 00 19 5E 23 £o.*..^#V.....^#
01ADD0: 56 EB 11 12 00 19 5E 23 56 EB 11 07 00 19 CD 3A V.....^#V......:
01ADE0: 05 21 5E 00 65 2E 01 E5 CD 8D 06 E5 2A 82 ED 5E .!^.e.......*..^
01ADF0: 23 56 EB 11 12 00 19 5E 23 56 EB 11 12 00 19 5E #V.....^#V.....^
01AE00: 23 56 EB 11 07 00 19 CD 3A 05 21 5E 00 65 2E 01 #V......:.!^.e..
01AE10: E5 CD 8D 06 D1 7D A3 6F E5 2A 82 ED 5E 23 56 EB .....}£o.*..^#V.
01AE20: 11 14 00 19 5E 23 56 EB 11 12 00 19 5E 23 56 EB ....^#V.....^#V.
01AE30: 11 12 00 19 5E 23 56 EB 11 07 00 19 CD 3A 05 2A ....^#V......:.*
01AE40: 82 ED 5E 23 56 EB 11 12 00 19 5E 23 56 EB 11 12 ..^#V.....^#V...
01AE50: 00 19 5E 23 56 EB 11 12 00 19 5E 23 56 EB 11 07 ..^#V.....^#V...
01AE60: 00 19 CD 3A 05 CD 8D 06 D1 7D A3 6F D1 7D B3 6F ...:.....}£o.}.o
01AE70: CB 45 CA 73 54 21 78 ED E5 21 16 00 CD E5 1C 2A .E.sT!x..!.....*
01AE80: 82 ED 5E 23 56 EB CD 3A 05 06 06 2A 78 ED CD E2 ..^#V..:...*x...
01AE90: 05 2A 78 ED 11 07 00 19 E5 2A 82 ED 5E 23 56 EB .*x......*..^#V.
01AEA0: 11 07 00 19 CD 3A 05 06 0A CD 01 06 2A 82 ED 5E .....:......*..^
01AEB0: 23 56 EB E5 CD 4D 05 05 6D 75 6C 74 69 06 06 CD #V...M..multi...
01AEC0: 01 06 2A 82 ED 5E 23 56 EB 11 07 00 19 E5 21 2A ..*..^#V......!*
01AED0: 00 65 2E 01 E5 06 0A CD 01 06 2A 78 ED 11 12 00 .e........*x....
01AEE0: 19 E5 2A 82 ED 5E 23 56 EB 11 12 00 19 5E 23 56 ..*..^#V.....^#V
01AEF0: EB 11 14 00 19 5E 23 56 EB EB E1 73 23 72 2A 78 .....^#V...s#r*x
01AF00: ED 11 14 00 19 E5 2A 82 ED 5E 23 56 EB 11 14 00 ......*..^#V....
01AF10: 19 5E 23 56 EB 11 14 00 19 5E 23 56 EB EB E1 73 .^#V.....^#V...s
01AF20: 23 72 2A 82 ED 5E 23 56 EB 11 14 00 19 E5 2A 78 #r*..^#V......*x
01AF30: ED EB E1 73 23 72 2A 82 ED 5E 23 56 EB 11 12 00 ...s#r*..^#V....
01AF40: 19 E5 2A 82 ED 5E 23 56 EB 11 12 00 19 5E 23 56 ..*..^#V.....^#V
01AF50: EB 11 12 00 19 5E 23 56 EB EB E1 73 23 72 2A 82 .....^#V...s#r*.
01AF60: ED 5E 23 56 EB 11 14 00 19 E5 CD 56 2D 21 01 00 .^#V.......V-!..
01AF70: 22 94 F2 C3 65 57 2A 82 ED 5E 23 56 EB 11 12 00 "...eW*..^#V....
01AF80: 19 5E 23 56 EB 11 07 00 19 CD 3A 05 21 78 00 65 .^#V......:.!x.e
01AF90: 2E 01 E5 CD 8D 06 E5 2A 82 ED 5E 23 56 EB 11 12 .......*..^#V...
01AFA0: 00 19 5E 23 56 EB 11 07 00 19 CD 3A 05 21 5E 00 ..^#V......:.!^.
01AFB0: 65 2E 01 E5 CD 8D 06 E5 2A 82 ED 5E 23 56 EB 11 e.......*..^#V..
01AFC0: 12 00 19 5E 23 56 EB 11 14 00 19 5E 23 56 EB 11 ...^#V.....^#V..
01AFD0: 07 00 19 CD 3A 05 21 78 00 65 2E 01 E5 CD 8D 06 ....:.!x.e......
01AFE0: D1 7D A3 6F D1 7D B3 6F CB 45 CA BC 55 21 78 ED .}£o.}.o.E..U!x.
01AFF0: E5 21 16 00 CD E5 1C CD 4D 05 05 6D 75 6C 74 69 .!......M..multi
01B000: 06 06 2A 78 ED CD E2 05 2A 78 ED 11 07 00 19 E5 ..*x....*x......
01B010: 21 2A 00 65 2E 01 E5 06 0A CD 01 06 21 76 ED E5 !*.e........!v..
01B020: 21 16 00 CD E5 1C CD 4D 05 06 6E 6F 6D 62 72 65 !......M..nombre
01B030: 06 06 2A 76 ED CD E2 05 2A 76 ED 11 07 00 19 E5 ..*v....*v......
01B040: 21 31 00 65 2E 01 E5 06 0A CD 01 06 2A 76 ED 11 !1.e........*v..
01B050: 12 00 19 E5 21 00 00 EB E1 73 23 72 2A 76 ED 11 ....!....s#r*v..
01B060: 14 00 19 E5 21 00 00 EB E1 73 23 72 2A 78 ED 11 ....!....s#r*x..
01B070: 14 00 19 E5 2A 76 ED EB E1 73 23 72 2A 78 ED 11 ....*v...s#r*x..
01B080: 12 00 19 E5 2A 82 ED 5E 23 56 EB 11 12 00 19 5E ....*..^#V.....^
01B090: 23 56 EB EB E1 73 23 72 2A 82 ED 5E 23 56 EB 11 #V...s#r*..^#V..
01B0A0: 12 00 19 E5 2A 78 ED EB E1 73 23 72 2A 82 ED E5 ....*x...s#r*...
01B0B0: CD 88 51 21 01 00 22 94 F2 C3 0F 57 2A 82 ED 5E ..Q!.."....W*..^
01B0C0: 23 56 EB 11 14 00 19 5E 23 56 EB 11 07 00 19 CD #V.....^#V......
01B0D0: 3A 05 21 78 00 65 2E 01 E5 CD 8D 06 E5 2A 82 ED :.!x.e.......*..
01B0E0: 5E 23 56 EB 11 14 00 19 5E 23 56 EB 11 07 00 19 ^#V.....^#V.....
01B0F0: CD 3A 05 21 5E 00 65 2E 01 E5 CD 8D 06 E5 2A 82 .:.!^.e.......*.
01B100: ED 5E 23 56 EB 11 14 00 19 5E 23 56 EB 11 14 00 .^#V.....^#V....
01B110: 19 5E 23 56 EB 11 07 00 19 CD 3A 05 21 78 00 65 .^#V......:.!x.e
01B120: 2E 01 E5 CD 8D 06 D1 7D A3 6F D1 7D B3 6F CB 45 .......}£o.}.o.E
01B130: CA 02 57 21 78 ED E5 21 16 00 CD E5 1C CD 4D 05 ..W!x..!......M.
01B140: 05 6D 75 6C 74 69 06 06 2A 78 ED CD E2 05 2A 78 .multi..*x....*x
01B150: ED 11 07 00 19 E5 21 2A 00 65 2E 01 E5 06 0A CD ......!*.e......
01B160: 01 06 21 76 ED E5 21 16 00 CD E5 1C CD 4D 05 06 ..!v..!......M..
01B170: 6E 6F 6D 62 72 65 06 06 2A 76 ED CD E2 05 2A 76 nombre..*v....*v
01B180: ED 11 07 00 19 E5 21 31 00 65 2E 01 E5 06 0A CD ......!1.e......
01B190: 01 06 2A 76 ED 11 12 00 19 E5 21 00 00 EB E1 73 ..*v......!....s
01B1A0: 23 72 2A 76 ED 11 14 00 19 E5 21 00 00 EB E1 73 #r*v......!....s
01B1B0: 23 72 2A 78 ED 11 14 00 19 E5 2A 76 ED EB E1 73 #r*x......*v...s
01B1C0: 23 72 2A 78 ED 11 12 00 19 E5 2A 82 ED 5E 23 56 #r*x......*..^#V
01B1D0: EB 11 14 00 19 5E 23 56 EB EB E1 73 23 72 2A 82 .....^#V...s#r*.
01B1E0: ED 5E 23 56 EB 11 14 00 19 E5 2A 78 ED EB E1 73 .^#V......*x...s
01B1F0: 23 72 2A 82 ED E5 CD 88 51 21 01 00 22 94 F2 C3 #r*.....Q!.."...
01B200: 0F 57 2A 82 ED E5 CD 56 2D 21 01 00 22 94 F2 2A .W*....V-!.."..*
01B210: 82 ED 5E 23 56 EB 11 12 00 19 5E 23 56 EB E5 21 ..^#V.....^#V..!
01B220: 00 00 D1 CD 92 06 CB 45 CA 3A 57 2A 82 ED 5E 23 .......E.:W*..^#
01B230: 56 EB 11 12 00 19 E5 CD 88 51 2A 82 ED 5E 23 56 V........Q*..^#V
01B240: EB 11 14 00 19 5E 23 56 EB E5 21 00 00 D1 CD 92 .....^#V..!.....
01B250: 06 CB 45 CA 65 57 2A 82 ED 5E 23 56 EB 11 14 00 ..E.eW*..^#V....
01B260: 19 E5 CD 88 51 C3 BE 57 2A 82 ED 5E 23 56 EB 11 ....Q..W*..^#V..
01B270: 12 00 19 5E 23 56 EB E5 21 00 00 D1 CD 92 06 CB ...^#V..!.......
01B280: 45 CA 93 57 2A 82 ED 5E 23 56 EB 11 12 00 19 E5 E..W*..^#V......
01B290: CD 88 51 2A 82 ED 5E 23 56 EB 11 14 00 19 5E 23 ..Q*..^#V.....^#
01B2A0: 56 EB E5 21 00 00 D1 CD 92 06 CB 45 CA BE 57 2A V..!.......E..W*
01B2B0: 82 ED 5E 23 56 EB 11 14 00 19 E5 CD 88 51 01 0E ..^#V........Q..
01B2C0: 00 11 76 ED C3 22 05 01 0E 00 21 68 ED CD 08 05 ..v.."....!h....
01B2D0: FD E1 E1 22 74 ED FD E5 2A 74 ED 5E 23 56 EB 11 ..."t...*t.^#V..
01B2E0: 07 00 19 CD 3A 05 21 2A 00 65 2E 01 E5 CD 8D 06 ....:.!*.e......
01B2F0: CB 45 CA 0B 61 2A 74 ED 5E 23 56 EB 11 12 00 19 .E..a*t.^#V.....
01B300: E5 CD 96 4C 2A 74 ED 5E 23 56 EB 11 14 00 19 E5 ...L*t.^#V......
01B310: CD 96 4C 2A 74 ED E5 CD 96 4C 2A 74 ED 5E 23 56 ..L*t....L*t.^#V
01B320: EB 11 12 00 19 5E 23 56 EB 11 07 00 19 CD 3A 05 .....^#V......:.
01B330: 21 2A 00 65 2E 01 E5 CD 8D 06 E5 2A 74 ED 5E 23 !*.e.......*t.^#
01B340: 56 EB 11 14 00 19 5E 23 56 EB CD 3A 05 CD 4D 05 V.....^#V..:..M.
01B350: 06 6E 6F 6D 62 72 65 CD 8D 06 D1 7D A3 6F E5 2A .nombre....}£o.*
01B360: 74 ED 5E 23 56 EB 11 12 00 19 5E 23 56 EB 11 14 t.^#V.....^#V...
01B370: 00 19 5E 23 56 EB CD 3A 05 CD 4D 05 06 6E 6F 6D ..^#V..:..M..nom
01B380: 62 72 65 CD 8D 06 D1 7D A3 6F CB 45 CA 52 59 21 bre....}£o.E.RY!
01B390: 68 ED E5 21 16 00 CD E5 1C 2A 68 ED 11 12 00 19 h..!.....*h.....
01B3A0: E5 2A 74 ED 5E 23 56 EB 11 14 00 19 5E 23 56 EB .*t.^#V.....^#V.
01B3B0: EB E1 73 23 72 2A 68 ED 11 14 00 19 E5 2A 74 ED ..s#r*h......*t.
01B3C0: 5E 23 56 EB 11 12 00 19 5E 23 56 EB 11 14 00 19 ^#V.....^#V.....
01B3D0: 5E 23 56 EB EB E1 73 23 72 CD 4D 05 05 6D 75 6C ^#V...s#r.M..mul
01B3E0: 74 69 06 06 2A 68 ED CD E2 05 2A 68 ED 11 07 00 ti..*h....*h....
01B3F0: 19 E5 21 2A 00 65 2E 01 E5 06 0A CD 01 06 2A 74 ..!*.e........*t
01B400: ED 5E 23 56 EB 11 12 00 19 E5 2A 74 ED 5E 23 56 .^#V......*t.^#V
01B410: EB 11 12 00 19 5E 23 56 EB 11 12 00 19 5E 23 56 .....^#V.....^#V
01B420: EB EB E1 73 23 72 2A 74 ED 5E 23 56 EB 11 14 00 ...s#r*t.^#V....
01B430: 19 E5 2A 68 ED EB E1 73 23 72 2A 74 ED 5E 23 56 ..*h...s#r*t.^#V
01B440: EB 11 14 00 19 E5 CD 56 2D 21 01 00 22 94 F2 C3 .......V-!.."...
01B450: 08 61 2A 74 ED 5E 23 56 EB 11 14 00 19 5E 23 56 .a*t.^#V.....^#V
01B460: EB 11 07 00 19 CD 3A 05 21 2A 00 65 2E 01 E5 CD ......:.!*.e....
01B470: 8D 06 E5 2A 74 ED 5E 23 56 EB 11 14 00 19 5E 23 ...*t.^#V.....^#
01B480: 56 EB 11 14 00 19 5E 23 56 EB CD 3A 05 CD 4D 05 V.....^#V..:..M.
01B490: 06 6E 6F 6D 62 72 65 CD 8D 06 D1 7D A3 6F E5 2A .nombre....}£o.*
01B4A0: 74 ED 5E 23 56 EB 11 12 00 19 5E 23 56 EB CD 3A t.^#V.....^#V..:
01B4B0: 05 CD 4D 05 06 6E 6F 6D 62 72 65 CD 8D 06 D1 7D ..M..nombre....}
01B4C0: A3 6F CB 45 CA 8A 5A 21 68 ED E5 21 16 00 CD E5 £o.E..Z!h..!....
01B4D0: 1C 2A 68 ED 11 14 00 19 E5 2A 74 ED 5E 23 56 EB .*h......*t.^#V.
01B4E0: 11 14 00 19 5E 23 56 EB 11 14 00 19 5E 23 56 EB ....^#V.....^#V.
01B4F0: EB E1 73 23 72 2A 68 ED 11 12 00 19 E5 2A 74 ED ..s#r*h......*t.
01B500: 5E 23 56 EB 11 12 00 19 5E 23 56 EB EB E1 73 23 ^#V.....^#V...s#
01B510: 72 CD 4D 05 05 6D 75 6C 74 69 06 06 2A 68 ED CD r.M..multi..*h..
01B520: E2 05 2A 68 ED 11 07 00 19 E5 21 2A 00 65 2E 01 ..*h......!*.e..
01B530: E5 06 0A CD 01 06 2A 74 ED 5E 23 56 EB 11 12 00 ......*t.^#V....
01B540: 19 E5 2A 74 ED 5E 23 56 EB 11 14 00 19 5E 23 56 ..*t.^#V.....^#V
01B550: EB 11 12 00 19 5E 23 56 EB EB E1 73 23 72 2A 74 .....^#V...s#r*t
01B560: ED 5E 23 56 EB 11 14 00 19 E5 2A 68 ED EB E1 73 .^#V......*h...s
01B570: 23 72 2A 74 ED 5E 23 56 EB 11 14 00 19 E5 CD 56 #r*t.^#V.......V
01B580: 2D 21 01 00 22 94 F2 C3 08 61 2A 74 ED 5E 23 56 -!.."....a*t.^#V
01B590: EB 11 12 00 19 5E 23 56 EB 11 07 00 19 CD 3A 05 .....^#V......:.
01B5A0: 21 2A 00 65 2E 01 E5 CD 8D 06 E5 2A 74 ED 5E 23 !*.e.......*t.^#
01B5B0: 56 EB 11 14 00 19 5E 23 56 EB 11 07 00 19 CD 3A V.....^#V......:
01B5C0: 05 21 2A 00 65 2E 01 E5 CD 8D 06 D1 7D A3 6F E5 .!*.e.......}£o.
01B5D0: 2A 74 ED 5E 23 56 EB 11 14 00 19 5E 23 56 EB 11 *t.^#V.....^#V..
01B5E0: 14 00 19 5E 23 56 EB CD 3A 05 CD 4D 05 06 6E 6F ...^#V..:..M..no
01B5F0: 6D 62 72 65 CD 8D 06 D1 7D A3 6F E5 2A 74 ED 5E mbre....}£o.*t.^
01B600: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
01B610: 17 00 00 00 02 09 4E E5 17 00 41 02 00 00 00 02 ......N...A.....
01B620: 17 00 42 02 00 00 00 02 17 00 43 02 00 00 00 02 ..B.......C.....
01B630: 17 00 44 02 00 00 00 02 17 00 45 02 00 00 00 02 ..D.......E.....
01B640: 17 00 46 02 00 00 00 02 17 00 47 02 00 00 00 02 ..F.......G.....
01B650: 17 00 48 02 00 00 00 02 17 00 49 02 00 00 00 02 ..H.......I.....
01B660: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B670: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B680: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B690: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B6A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B6B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B6C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B6D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B6E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B6F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01B700: 23 56 EB 11 12 00 19 5E 23 56 EB 11 14 00 19 5E #V.....^#V.....^
01B710: 23 56 EB CD 3A 05 CD 4D 05 06 6E 6F 6D 62 72 65 #V..:..M..nombre
01B720: CD 8D 06 D1 7D A3 6F CB 45 CA 5A 5C 21 6A ED E5 ....}£o.E.Z\!j..
01B730: 21 16 00 CD E5 1C CD 4D 05 05 6D 75 6C 74 69 06 !......M..multi.
01B740: 06 2A 6A ED CD E2 05 2A 6A ED 11 07 00 19 E5 21 .*j....*j......!
01B750: 2A 00 65 2E 01 E5 06 0A CD 01 06 2A 6A ED 11 14 *.e........*j...
01B760: 00 19 E5 2A 74 ED 5E 23 56 EB 11 14 00 19 5E 23 ...*t.^#V.....^#
01B770: 56 EB 11 14 00 19 5E 23 56 EB EB E1 73 23 72 2A V.....^#V...s#r*
01B780: 6A ED 11 12 00 19 E5 2A 74 ED 5E 23 56 EB 11 12 j......*t.^#V...
01B790: 00 19 5E 23 56 EB 11 14 00 19 5E 23 56 EB EB E1 ..^#V.....^#V...
01B7A0: 73 23 72 21 68 ED E5 21 16 00 CD E5 1C CD 4D 05 s#r!h..!......M.
01B7B0: 05 6D 75 6C 74 69 06 06 2A 68 ED CD E2 05 2A 68 .multi..*h....*h
01B7C0: ED 11 07 00 19 E5 21 2A 00 65 2E 01 E5 06 0A CD ......!*.e......
01B7D0: 01 06 2A 68 ED 11 14 00 19 E5 2A 74 ED 5E 23 56 ..*h......*t.^#V
01B7E0: EB 11 14 00 19 5E 23 56 EB 11 12 00 19 5E 23 56 .....^#V.....^#V
01B7F0: EB EB E1 73 23 72 2A 68 ED 11 12 00 19 E5 2A 74 ...s#r*h......*t
01B800: ED 5E 23 56 EB 11 12 00 19 5E 23 56 EB 11 12 00 .^#V.....^#V....
01B810: 19 5E 23 56 EB EB E1 73 23 72 2A 74 ED 5E 23 56 .^#V...s#r*t.^#V
01B820: EB 11 14 00 19 E5 2A 6A ED EB E1 73 23 72 2A 74 ......*j...s#r*t
01B830: ED 5E 23 56 EB 11 12 00 19 E5 2A 68 ED EB E1 73 .^#V......*h...s
01B840: 23 72 2A 74 ED 5E 23 56 EB 11 14 00 19 E5 CD 56 #r*t.^#V.......V
01B850: 2D 21 01 00 22 94 F2 C3 08 61 2A 74 ED 5E 23 56 -!.."....a*t.^#V
01B860: EB 11 14 00 19 5E 23 56 EB 11 07 00 19 CD 3A 05 .....^#V......:.
01B870: 21 78 00 65 2E 01 E5 CD 8D 06 E5 2A 74 ED 5E 23 !x.e.......*t.^#
01B880: 56 EB 11 14 00 19 5E 23 56 EB 11 07 00 19 CD 3A V.....^#V......:
01B890: 05 21 5E 00 65 2E 01 E5 CD 8D 06 E5 2A 74 ED 5E .!^.e.......*t.^
01B8A0: 23 56 EB 11 14 00 19 5E 23 56 EB 11 14 00 19 5E #V.....^#V.....^
01B8B0: 23 56 EB 11 07 00 19 CD 3A 05 21 78 00 65 2E 01 #V......:.!x.e..
01B8C0: E5 CD 8D 06 D1 7D A3 6F D1 7D B3 6F E5 2A 74 ED .....}£o.}.o.*t.
01B8D0: 5E 23 56 EB 11 12 00 19 5E 23 56 EB 11 07 00 19 ^#V.....^#V.....
01B8E0: CD 3A 05 21 78 00 65 2E 01 E5 CD 8D 06 E5 2A 74 .:.!x.e.......*t
01B8F0: ED 5E 23 56 EB 11 12 00 19 5E 23 56 EB 11 07 00 .^#V.....^#V....
01B900: 19 CD 3A 05 21 5E 00 65 2E 01 E5 CD 8D 06 E5 2A ..:.!^.e.......*
01B910: 74 ED 5E 23 56 EB 11 12 00 19 5E 23 56 EB 11 14 t.^#V.....^#V...
01B920: 00 19 5E 23 56 EB 11 07 00 19 CD 3A 05 21 78 00 ..^#V......:.!x.
01B930: 65 2E 01 E5 CD 8D 06 D1 7D A3 6F D1 7D B3 6F D1 e.......}£o.}.o.
01B940: 7D A3 6F CB 45 CA 70 5F 2A 74 ED 5E 23 56 EB E5 }£o.E.p_*t.^#V..
01B950: CD 4D 05 05 70 75 69 73 73 06 06 CD 01 06 2A 74 .M..puiss.....*t
01B960: ED 5E 23 56 EB 11 07 00 19 E5 21 5E 00 65 2E 01 .^#V......!^.e..
01B970: E5 06 0A CD 01 06 21 6A ED E5 21 16 00 CD E5 1C ......!j..!.....
01B980: CD 4D 05 04 70 6C 75 73 06 06 2A 6A ED CD E2 05 .M..plus..*j....
01B990: 2A 6A ED 11 07 00 19 E5 21 2B 00 65 2E 01 E5 06 *j......!+.e....
01B9A0: 0A CD 01 06 2A 74 ED 5E 23 56 EB 11 14 00 19 5E ....*t.^#V.....^
01B9B0: 23 56 EB 11 07 00 19 CD 3A 05 21 78 00 65 2E 01 #V......:.!x.e..
01B9C0: E5 CD 8D 06 CB 45 CA 2C 5E 21 68 ED E5 21 16 00 .....E.,^!h..!..
01B9D0: CD E5 1C CD 4D 05 06 6E 6F 6D 62 72 65 06 06 2A ....M..nombre..*
01B9E0: 68 ED CD E2 05 2A 68 ED 11 07 00 19 E5 21 31 00 h....*h......!1.
01B9F0: 65 2E 01 E5 06 0A CD 01 06 2A 68 ED 11 12 00 19 e........*h.....
01BA00: E5 21 00 00 EB E1 73 23 72 2A 68 ED 11 14 00 19 .!....s#r*h.....
01BA10: E5 21 00 00 EB E1 73 23 72 2A 6A ED 11 14 00 19 .!....s#r*j.....
01BA20: E5 2A 68 ED EB E1 73 23 72 C3 50 5E 2A 6A ED 11 .*h...s#r.P^*j..
01BA30: 14 00 19 E5 2A 74 ED 5E 23 56 EB 11 14 00 19 5E ....*t.^#V.....^
01BA40: 23 56 EB 11 12 00 19 5E 23 56 EB EB E1 73 23 72 #V.....^#V...s#r
01BA50: 2A 74 ED 5E 23 56 EB 11 12 00 19 5E 23 56 EB 11 *t.^#V.....^#V..
01BA60: 07 00 19 CD 3A 05 21 78 00 65 2E 01 E5 CD 8D 06 ....:.!x.e......
01BA70: CB 45 CA F8 5E 21 68 ED E5 21 16 00 CD E5 1C CD .E..^!h..!......
01BA80: 4D 05 06 6E 6F 6D 62 72 65 06 06 2A 68 ED CD E2 M..nombre..*h...
01BA90: 05 2A 68 ED 11 07 00 19 E5 21 31 00 65 2E 01 E5 .*h......!1.e...
01BAA0: 06 0A CD 01 06 2A 68 ED 11 14 00 19 E5 21 00 00 .....*h......!..
01BAB0: EB E1 73 23 72 2A 68 ED 11 12 00 19 E5 21 00 00 ..s#r*h......!..
01BAC0: EB E1 73 23 72 2A 6A ED 11 12 00 19 E5 2A 68 ED ..s#r*j......*h.
01BAD0: EB E1 73 23 72 2A 74 ED 5E 23 56 EB 11 14 00 19 ..s#r*t.^#V.....
01BAE0: E5 2A 74 ED 5E 23 56 EB 11 12 00 19 5E 23 56 EB .*t.^#V.....^#V.
01BAF0: EB E1 73 23 72 C3 44 5F 2A 6A ED 11 12 00 19 E5 ..s#r.D_*j......
01BB00: 2A 74 ED 5E 23 56 EB 11 12 00 19 5E 23 56 EB 11 *t.^#V.....^#V..
01BB10: 12 00 19 5E 23 56 EB EB E1 73 23 72 2A 74 ED 5E ...^#V...s#r*t.^
01BB20: 23 56 EB 11 14 00 19 E5 2A 74 ED 5E 23 56 EB 11 #V......*t.^#V..
01BB30: 12 00 19 5E 23 56 EB 11 14 00 19 5E 23 56 EB EB ...^#V.....^#V..
01BB40: E1 73 23 72 2A 74 ED 5E 23 56 EB 11 12 00 19 E5 .s#r*t.^#V......
01BB50: 2A 6A ED EB E1 73 23 72 2A 74 ED 5E 23 56 EB 11 *j...s#r*t.^#V..
01BB60: 12 00 19 E5 CD 56 2D 21 01 00 22 94 F2 C3 08 61 .....V-!.."....a
01BB70: 2A 74 ED 5E 23 56 EB 11 14 00 19 5E 23 56 EB 11 *t.^#V.....^#V..
01BB80: 07 00 19 CD 3A 05 21 2A 00 65 2E 01 E5 CD 8D 06 ....:.!*.e......
01BB90: E5 2A 74 ED 5E 23 56 EB 11 12 00 19 5E 23 56 EB .*t.^#V.....^#V.
01BBA0: 11 07 00 19 CD 3A 05 21 78 00 65 2E 01 E5 CD 8D .....:.!x.e.....
01BBB0: 06 E5 2A 74 ED 5E 23 56 EB 11 12 00 19 5E 23 56 ..*t.^#V.....^#V
01BBC0: EB 11 07 00 19 CD 3A 05 21 5E 00 65 2E 01 E5 CD ......:.!^.e....
01BBD0: 8D 06 D1 7D B3 6F D1 7D A3 6F CB 45 CA B2 60 2A ...}.o.}£o.E..`*
01BBE0: 74 ED 5E 23 56 EB 11 14 00 19 E5 CD 96 4C 21 6A t.^#V........L!j
01BBF0: ED E5 21 16 00 CD E5 1C CD 4D 05 05 6D 75 6C 74 ..!......M..mult
01BC00: 69 06 06 2A 6A ED CD E2 05 2A 6A ED 11 07 00 19 i..*j....*j.....
01BC10: E5 21 2A 00 65 2E 01 E5 06 0A CD 01 06 2A 6A ED .!*.e........*j.
01BC20: 11 12 00 19 E5 2A 74 ED 5E 23 56 EB 11 12 00 19 .....*t.^#V.....
01BC30: 5E 23 56 EB EB E1 73 23 72 2A 6A ED 11 14 00 19 ^#V...s#r*j.....
01BC40: E5 2A 74 ED 5E 23 56 EB 11 14 00 19 5E 23 56 EB .*t.^#V.....^#V.
01BC50: 11 12 00 19 5E 23 56 EB EB E1 73 23 72 2A 74 ED ....^#V...s#r*t.
01BC60: 5E 23 56 EB 11 12 00 19 E5 2A 6A ED EB E1 73 23 ^#V......*j...s#
01BC70: 72 2A 74 ED 5E 23 56 EB 11 14 00 19 E5 2A 74 ED r*t.^#V......*t.
01BC80: 5E 23 56 EB 11 14 00 19 5E 23 56 EB 11 14 00 19 ^#V.....^#V.....
01BC90: 5E 23 56 EB EB E1 73 23 72 2A 74 ED 5E 23 56 EB ^#V...s#r*t.^#V.
01BCA0: 11 12 00 19 E5 CD C7 57 2A 74 ED E5 CD 96 4C C3 .......W*t....L.
01BCB0: 08 61 2A 74 ED 5E 23 56 EB 11 14 00 19 5E 23 56 .a*t.^#V.....^#V
01BCC0: EB E5 21 00 00 D1 CD 92 06 CB 45 CA DD 60 2A 74 ..!.......E..`*t
01BCD0: ED 5E 23 56 EB 11 14 00 19 E5 CD C7 57 2A 74 ED .^#V........W*t.
01BCE0: 5E 23 56 EB 11 12 00 19 5E 23 56 EB E5 21 00 00 ^#V.....^#V..!..
01BCF0: D1 CD 92 06 CB 45 CA 08 61 2A 74 ED 5E 23 56 EB .....E..a*t.^#V.
01BD00: 11 12 00 19 E5 CD C7 57 C3 61 61 2A 74 ED 5E 23 .......W.aa*t.^#
01BD10: 56 EB 11 14 00 19 5E 23 56 EB E5 21 00 00 D1 CD V.....^#V..!....
01BD20: 92 06 CB 45 CA 36 61 2A 74 ED 5E 23 56 EB 11 14 ...E.6a*t.^#V...
01BD30: 00 19 E5 CD C7 57 2A 74 ED 5E 23 56 EB 11 12 00 .....W*t.^#V....
01BD40: 19 5E 23 56 EB E5 21 00 00 D1 CD 92 06 CB 45 CA .^#V..!.......E.
01BD50: 61 61 2A 74 ED 5E 23 56 EB 11 12 00 19 E5 CD C7 aa*t.^#V........
01BD60: 57 01 0E 00 11 68 ED C3 22 05 01 0C 00 21 5C ED W....h.."....!\.
01BD70: CD 08 05 FD E1 E1 22 66 ED FD E5 2A 66 ED 5E 23 ......"f...*f.^#
01BD80: 56 EB 11 07 00 19 CD 3A 05 21 2B 00 65 2E 01 E5 V......:.!+.e...
01BD90: CD 8D 06 E5 2A 66 ED 5E 23 56 EB 11 07 00 19 CD ....*f.^#V......
01BDA0: 3A 05 21 2D 00 65 2E 01 E5 CD 8D 06 D1 7D B3 6F :.!-.e.......}.o
01BDB0: CB 45 CA 16 6B 2A 66 ED 5E 23 56 EB 11 07 00 19 .E..k*f.^#V.....
01BDC0: CD 3A 05 21 2D 00 65 2E 01 E5 CD 8D 06 CB 45 CA .:.!-.e.......E.
01BDD0: 1F 62 2A 66 ED 5E 23 56 EB E5 CD 4D 05 04 70 6C .b*f.^#V...M..pl
01BDE0: 75 73 06 06 CD 01 06 2A 66 ED 5E 23 56 EB 11 07 us.....*f.^#V...
01BDF0: 00 19 E5 21 2B 00 65 2E 01 E5 06 0A CD 01 06 2A ...!+.e........*
01BE00: 66 ED 5E 23 56 EB 11 12 00 19 E5 2A 66 ED 5E 23 f.^#V......*f.^#
01BE10: 56 EB 11 12 00 19 E5 CD 50 2D EB E1 73 23 72 2A V.......P-..s#r*
01BE20: 66 ED 5E 23 56 EB 11 14 00 19 5E 23 56 EB 11 07 f.^#V.....^#V...
01BE30: 00 19 CD 3A 05 21 2B 00 65 2E 01 E5 CD 8D 06 E5 ...:.!+.e.......
01BE40: 2A 66 ED 5E 23 56 EB 11 14 00 19 5E 23 56 EB 11 *f.^#V.....^#V..
01BE50: 07 00 19 CD 3A 05 21 2D 00 65 2E 01 E5 CD 8D 06 ....:.!-.e......
01BE60: D1 7D B3 6F E5 2A 66 ED 5E 23 56 EB 11 12 00 19 .}.o.*f.^#V.....
01BE70: 5E 23 56 EB 11 07 00 19 CD 3A 05 21 2B 00 65 2E ^#V......:.!+.e.
01BE80: 01 E5 CD 8D 06 E5 2A 66 ED 5E 23 56 EB 11 12 00 ......*f.^#V....
01BE90: 19 5E 23 56 EB 11 07 00 19 CD 3A 05 21 2D 00 65 .^#V......:.!-.e
01BEA0: 2E 01 E5 CD 8D 06 D1 7D B3 6F D1 7D A3 6F CB 45 .......}.o.}£o.E
01BEB0: CA D4 65 2A 66 ED 5E 23 56 EB 11 12 00 19 E5 CD ..e*f.^#V.......
01BEC0: 96 4C 2A 66 ED 5E 23 56 EB 11 14 00 19 E5 CD 96 .L*f.^#V........
01BED0: 4C 2A 66 ED 5E 23 56 EB 11 14 00 19 5E 23 56 EB L*f.^#V.....^#V.
01BEE0: 11 12 00 19 5E 23 56 EB E5 CD 99 4C E5 21 00 00 ....^#V....L.!..
01BEF0: D1 CD A5 06 E5 2A 66 ED 5E 23 56 EB 11 14 00 19 .....*f.^#V.....
01BF00: 5E 23 56 EB 11 12 00 19 5E 23 56 EB E5 CD 99 4C ^#V.....^#V....L
01BF10: E5 2A 66 ED 5E 23 56 EB 11 12 00 19 5E 23 56 EB .*f.^#V.....^#V.
01BF20: 11 14 00 19 5E 23 56 EB E5 CD 99 4C D1 CD E0 06 ....^#V....L....
01BF30: D1 7D A3 6F CB 45 CA D1 65 2A 66 ED 5E 23 56 EB .}£o.E..e*f.^#V.
01BF40: 11 14 00 19 5E 23 56 EB 11 07 00 19 CD 3A 05 21 ....^#V......:.!
01BF50: 2D 00 65 2E 01 E5 CD 8D 06 CB 45 CA CB 63 2A 66 -.e.......E..c*f
01BF60: ED 5E 23 56 EB 11 14 00 19 5E 23 56 EB E5 CD 4D .^#V.....^#V...M
01BF70: 05 04 70 6C 75 73 06 06 CD 01 06 2A 66 ED 5E 23 ..plus.....*f.^#
01BF80: 56 EB 11 14 00 19 5E 23 56 EB 11 07 00 19 E5 21 V.....^#V......!
01BF90: 2B 00 65 2E 01 E5 06 0A CD 01 06 2A 66 ED 5E 23 +.e........*f.^#
01BFA0: 56 EB 11 14 00 19 5E 23 56 EB 11 12 00 19 E5 2A V.....^#V......*
01BFB0: 66 ED 5E 23 56 EB 11 14 00 19 5E 23 56 EB 11 12 f.^#V.....^#V...
01BFC0: 00 19 E5 CD 50 2D EB E1 73 23 72 2A 66 ED 5E 23 ....P-..s#r*f.^#
01BFD0: 56 EB 11 12 00 19 5E 23 56 EB 11 07 00 19 CD 3A V.....^#V......:
01BFE0: 05 21 2D 00 65 2E 01 E5 CD 8D 06 CB 45 CA 5D 64 .!-.e.......E.]d
01BFF0: 2A 66 ED 5E 23 56 EB 11 12 00 19 5E 23 56 EB E5 *f.^#V.....^#V..
01C000: CD 4D 05 04 70 6C 75 73 06 06 CD 01 06 2A 66 ED .M..plus.....*f.
01C010: 5E 23 56 EB 11 12 00 19 5E 23 56 EB 11 07 00 19 ^#V.....^#V.....
01C020: E5 21 2B 00 65 2E 01 E5 06 0A CD 01 06 2A 66 ED .!+.e........*f.
01C030: 5E 23 56 EB 11 12 00 19 5E 23 56 EB 11 12 00 19 ^#V.....^#V.....
01C040: E5 2A 66 ED 5E 23 56 EB 11 12 00 19 5E 23 56 EB .*f.^#V.....^#V.
01C050: 11 12 00 19 E5 CD 50 2D EB E1 73 23 72 21 5C ED ......P-..s#r!\.
01C060: E5 21 16 00 CD E5 1C CD 4D 05 04 70 6C 75 73 06 .!......M..plus.
01C070: 06 2A 5C ED CD E2 05 2A 5C ED 11 07 00 19 E5 21 .*\....*\......!
01C080: 2B 00 65 2E 01 E5 06 0A CD 01 06 2A 5C ED 11 12 +.e........*\...
01C090: 00 19 E5 21 16 00 CD E5 1C 2A 5C ED 11 12 00 19 ...!.....*\.....
01C0A0: 5E 23 56 EB E5 CD 4D 05 04 70 6C 75 73 06 06 CD ^#V...M..plus...
01C0B0: 01 06 2A 5C ED 11 12 00 19 5E 23 56 EB 11 07 00 ..*\.....^#V....
01C0C0: 19 E5 21 2B 00 65 2E 01 E5 06 0A CD 01 06 2A 5C ..!+.e........*\
01C0D0: ED 11 12 00 19 5E 23 56 EB 11 12 00 19 E5 2A 66 .....^#V......*f
01C0E0: ED 5E 23 56 EB 11 12 00 19 5E 23 56 EB 11 12 00 .^#V.....^#V....
01C0F0: 19 5E 23 56 EB EB E1 73 23 72 2A 5C ED 11 12 00 .^#V...s#r*\....
01C100: 19 5E 23 56 EB 11 14 00 19 E5 2A 66 ED 5E 23 56 .^#V......*f.^#V
01C110: EB 11 14 00 19 5E 23 56 EB 11 12 00 19 5E 23 56 .....^#V.....^#V
01C120: EB EB E1 73 23 72 2A 5C ED 11 14 00 19 E5 21 16 ...s#r*\......!.
01C130: 00 CD E5 1C 2A 5C ED 11 14 00 19 5E 23 56 EB 11 ....*\.....^#V..
01C140: 07 00 19 E5 21 2B 00 65 2E 01 E5 06 0A CD 01 06 ....!+.e........
01C150: 2A 5C ED 11 14 00 19 5E 23 56 EB E5 CD 4D 05 04 *\.....^#V...M..
01C160: 70 6C 75 73 06 06 CD 01 06 2A 5C ED 11 14 00 19 plus.....*\.....
01C170: 5E 23 56 EB 11 14 00 19 E5 2A 66 ED 5E 23 56 EB ^#V......*f.^#V.
01C180: 11 14 00 19 5E 23 56 EB 11 14 00 19 5E 23 56 EB ....^#V.....^#V.
01C190: EB E1 73 23 72 2A 5C ED 11 14 00 19 5E 23 56 EB ..s#r*\.....^#V.
01C1A0: 11 12 00 19 E5 2A 66 ED 5E 23 56 EB 11 12 00 19 .....*f.^#V.....
01C1B0: 5E 23 56 EB 11 14 00 19 5E 23 56 EB EB E1 73 23 ^#V.....^#V...s#
01C1C0: 72 2A 66 ED 5E 23 56 EB 22 5C ED 21 01 00 22 94 r*f.^#V."\.!..".
01C1D0: F2 C3 13 6B 2A 66 ED 5E 23 56 EB 11 07 00 19 CD ...k*f.^#V......
01C1E0: 3A 05 21 2B 00 65 2E 01 E5 CD 8D 06 E5 2A 66 ED :.!+.e.......*f.
01C1F0: 5E 23 56 EB 11 07 00 19 CD 3A 05 21 2D 00 65 2E ^#V......:.!-.e.
01C200: 01 E5 CD 8D 06 D1 7D B3 6F E5 2A 66 ED 5E 23 56 ......}.o.*f.^#V
01C210: EB 11 14 00 19 5E 23 56 EB 11 07 00 19 CD 3A 05 .....^#V......:.
01C220: 21 2B 00 65 2E 01 E5 CD 8D 06 E5 2A 66 ED 5E 23 !+.e.......*f.^#
01C230: 56 EB 11 14 00 19 5E 23 56 EB 11 07 00 19 CD 3A V.....^#V......:
01C240: 05 21 2D 00 65 2E 01 E5 CD 8D 06 D1 7D B3 6F D1 .!-.e.......}.o.
01C250: 7D A3 6F CB 45 CA 0C 68 2A 66 ED 5E 23 56 EB 11 }£o.E..h*f.^#V..
01C260: 14 00 19 E5 CD 96 4C 2A 66 ED 5E 23 56 EB 11 14 ......L*f.^#V...
01C270: 00 19 5E 23 56 EB 11 12 00 19 5E 23 56 EB E5 CD ..^#V.....^#V...
01C280: 99 4C E5 21 00 00 D1 CD A5 06 E5 2A 66 ED 5E 23 .L.!.......*f.^#
01C290: 56 EB 11 14 00 19 5E 23 56 EB 11 12 00 19 5E 23 V.....^#V.....^#
01C2A0: 56 EB E5 CD 99 4C E5 2A 66 ED 5E 23 56 EB 11 12 V....L.*f.^#V...
01C2B0: 00 19 5E 23 56 EB E5 CD 99 4C D1 CD E0 06 D1 7D ..^#V....L.....}
01C2C0: A3 6F CB 45 CA 09 68 2A 66 ED 5E 23 56 EB 11 14 £o.E..h*f.^#V...
01C2D0: 00 19 5E 23 56 EB 11 07 00 19 CD 3A 05 21 2D 00 ..^#V......:.!-.
01C2E0: 65 2E 01 E5 CD 8D 06 CB 45 CA 59 67 2A 66 ED 5E e.......E.Yg*f.^
01C2F0: 23 56 EB 11 14 00 19 5E 23 56 EB E5 CD 4D 05 04 #V.....^#V...M..
01C300: 70 6C 75 73 06 06 CD 01 06 2A 66 ED 5E 23 56 EB plus.....*f.^#V.
01C310: 11 14 00 19 5E 23 56 EB 11 07 00 19 E5 21 2B 00 ....^#V......!+.
01C320: 65 2E 01 E5 06 0A CD 01 06 2A 66 ED 5E 23 56 EB e........*f.^#V.
01C330: 11 14 00 19 5E 23 56 EB 11 12 00 19 E5 2A 66 ED ....^#V......*f.
01C340: 5E 23 56 EB 11 14 00 19 5E 23 56 EB 11 12 00 19 ^#V.....^#V.....
01C350: E5 CD 50 2D EB E1 73 23 72 21 5C ED E5 21 16 00 ..P-..s#r!\..!..
01C360: CD E5 1C CD 4D 05 04 70 6C 75 73 06 06 2A 5C ED ....M..plus..*\.
01C370: CD E2 05 2A 5C ED 11 07 00 19 E5 21 2B 00 65 2E ...*\......!+.e.
01C380: 01 E5 06 0A CD 01 06 2A 5C ED 11 14 00 19 E5 2A .......*\......*
01C390: 66 ED 5E 23 56 EB 11 14 00 19 5E 23 56 EB 11 14 f.^#V.....^#V...
01C3A0: 00 19 5E 23 56 EB EB E1 73 23 72 2A 5C ED 11 12 ..^#V...s#r*\...
01C3B0: 00 19 E5 2A 66 ED 5E 23 56 EB 11 12 00 19 5E 23 ...*f.^#V.....^#
01C3C0: 56 EB EB E1 73 23 72 2A 66 ED 5E 23 56 EB 11 12 V...s#r*f.^#V...
01C3D0: 00 19 E5 2A 66 ED 5E 23 56 EB 11 14 00 19 5E 23 ...*f.^#V.....^#
01C3E0: 56 EB 11 12 00 19 5E 23 56 EB EB E1 73 23 72 2A V.....^#V...s#r*
01C3F0: 66 ED 5E 23 56 EB 11 14 00 19 E5 2A 5C ED EB E1 f.^#V......*\...
01C400: 73 23 72 21 01 00 22 94 F2 C3 13 6B 2A 66 ED 5E s#r!.."....k*f.^
01C410: 23 56 EB 11 07 00 19 CD 3A 05 21 2B 00 65 2E 01 #V......:.!+.e..
01C420: E5 CD 8D 06 E5 2A 66 ED 5E 23 56 EB 11 07 00 19 .....*f.^#V.....
01C430: CD 3A 05 21 2D 00 65 2E 01 E5 CD 8D 06 D1 7D B3 .:.!-.e.......}.
01C440: 6F E5 2A 66 ED 5E 23 56 EB 11 12 00 19 5E 23 56 o.*f.^#V.....^#V
01C450: EB 11 07 00 19 CD 3A 05 21 2B 00 65 2E 01 E5 CD ......:.!+.e....
01C460: 8D 06 E5 2A 66 ED 5E 23 56 EB 11 12 00 19 5E 23 ...*f.^#V.....^#
01C470: 56 EB 11 07 00 19 CD 3A 05 21 2D 00 65 2E 01 E5 V......:.!-.e...
01C480: CD 8D 06 D1 7D B3 6F D1 7D A3 6F CB 45 CA 3D 6A ....}.o.}£o.E.=j
01C490: 2A 66 ED 5E 23 56 EB 11 12 00 19 E5 CD 96 4C 2A *f.^#V........L*
01C4A0: 66 ED 5E 23 56 EB 11 14 00 19 5E 23 56 EB E5 CD f.^#V.....^#V...
01C4B0: 99 4C E5 21 00 00 D1 CD A5 06 E5 2A 66 ED 5E 23 .L.!.......*f.^#
01C4C0: 56 EB 11 14 00 19 5E 23 56 EB E5 CD 99 4C E5 2A V.....^#V....L.*
01C4D0: 66 ED 5E 23 56 EB 11 12 00 19 5E 23 56 EB 11 14 f.^#V.....^#V...
01C4E0: 00 19 5E 23 56 EB E5 CD 99 4C D1 CD E0 06 D1 7D ..^#V....L.....}
01C4F0: A3 6F CB 45 CA 3A 6A 2A 66 ED 5E 23 56 EB 11 12 £o.E.:j*f.^#V...
01C500: 00 19 5E 23 56 EB 11 07 00 19 CD 3A 05 21 2D 00 ..^#V......:.!-.
01C510: 65 2E 01 E5 CD 8D 06 CB 45 CA 89 69 2A 66 ED 5E e.......E..i*f.^
01C520: 23 56 EB 11 12 00 19 5E 23 56 EB E5 CD 4D 05 04 #V.....^#V...M..
01C530: 70 6C 75 73 06 06 CD 01 06 2A 66 ED 5E 23 56 EB plus.....*f.^#V.
01C540: 11 12 00 19 5E 23 56 EB 11 07 00 19 E5 21 2B 00 ....^#V......!+.
01C550: 65 2E 01 E5 06 0A CD 01 06 2A 66 ED 5E 23 56 EB e........*f.^#V.
01C560: 11 12 00 19 5E 23 56 EB 11 12 00 19 E5 2A 66 ED ....^#V......*f.
01C570: 5E 23 56 EB 11 12 00 19 5E 23 56 EB 11 12 00 19 ^#V.....^#V.....
01C580: E5 CD 50 2D EB E1 73 23 72 2A 66 ED 5E 23 56 EB ..P-..s#r*f.^#V.
01C590: 11 14 00 19 5E 23 56 EB 22 5C ED 2A 66 ED 5E 23 ....^#V."\.*f.^#
01C5A0: 56 EB 11 14 00 19 E5 2A 66 ED 5E 23 56 EB 11 12 V......*f.^#V...
01C5B0: 00 19 5E 23 56 EB 11 14 00 19 5E 23 56 EB EB E1 ..^#V.....^#V...
01C5C0: 73 23 72 2A 66 ED 5E 23 56 EB 11 12 00 19 5E 23 s#r*f.^#V.....^#
01C5D0: 56 EB 11 14 00 19 E5 2A 5C ED EB E1 73 23 72 2A V......*\...s#r*
01C5E0: 66 ED 5E 23 56 EB 11 12 00 19 E5 CD 88 51 2A 66 f.^#V........Q*f
01C5F0: ED 5E 23 56 EB 11 12 00 19 5E 23 56 EB 22 5C ED .^#V.....^#V."\.
01C600: 2A 66 ED 5E 23 56 EB 11 12 00 19 E5 2A 66 ED 5E *f.^#V......*f.^
01C610: 23 56 EB 11 14 00 19 5E 23 56 EB EB E1 73 23 72 #V.....^#V...s#r
01C620: 2A 66 ED 5E 23 56 EB 11 14 00 19 E5 2A 5C ED EB *f.^#V......*\..
01C630: E1 73 23 72 21 01 00 22 94 F2 C3 13 6B 2A 66 ED .s#r!.."....k*f.
01C640: 5E 23 56 EB 11 07 00 19 CD 3A 05 21 2B 00 65 2E ^#V......:.!+.e.
01C650: 01 E5 CD 8D 06 E5 2A 66 ED 5E 23 56 EB 11 07 00 ......*f.^#V....
01C660: 19 CD 3A 05 21 2D 00 65 2E 01 E5 CD 8D 06 D1 7D ..:.!-.e.......}
01C670: B3 6F E5 2A 66 ED 5E 23 56 EB 11 14 00 19 5E 23 .o.*f.^#V.....^#
01C680: 56 EB E5 CD 99 4C E5 21 00 00 D1 CD A5 06 D1 7D V....L.!.......}
01C690: A3 6F E5 2A 66 ED 5E 23 56 EB 11 14 00 19 5E 23 £o.*f.^#V.....^#
01C6A0: 56 EB E5 CD 99 4C E5 2A 66 ED 5E 23 56 EB 11 12 V....L.*f.^#V...
01C6B0: 00 19 5E 23 56 EB E5 CD 99 4C D1 CD E0 06 D1 7D ..^#V....L.....}
01C6C0: A3 6F CB 45 CA 13 6B 2A 66 ED 5E 23 56 EB 11 12 £o.E..k*f.^#V...
01C6D0: 00 19 5E 23 56 EB 22 5C ED 2A 66 ED 5E 23 56 EB ..^#V."\.*f.^#V.
01C6E0: 11 12 00 19 E5 2A 66 ED 5E 23 56 EB 11 14 00 19 .....*f.^#V.....
01C6F0: 5E 23 56 EB EB E1 73 23 72 2A 66 ED 5E 23 56 EB ^#V...s#r*f.^#V.
01C700: 11 14 00 19 E5 2A 5C ED EB E1 73 23 72 21 01 00 .....*\...s#r!..
01C710: 22 94 F2 C3 60 6C 2A 66 ED 5E 23 56 EB 11 07 00 "...`l*f.^#V....
01C720: 19 CD 3A 05 21 2A 00 65 2E 01 E5 CD 8D 06 E5 2A ..:.!*.e.......*
01C730: 66 ED 5E 23 56 EB 11 14 00 19 5E 23 56 EB 11 07 f.^#V.....^#V...
01C740: 00 19 CD 3A 05 21 78 00 65 2E 01 E5 CD 8D 06 E5 ...:.!x.e.......
01C750: 2A 66 ED 5E 23 56 EB 11 14 00 19 5E 23 56 EB 11 *f.^#V.....^#V..
01C760: 07 00 19 CD 3A 05 21 5E 00 65 2E 01 E5 CD 8D 06 ....:.!^.e......
01C770: E5 2A 66 ED 5E 23 56 EB 11 14 00 19 5E 23 56 EB .*f.^#V.....^#V.
01C780: 11 14 00 19 5E 23 56 EB 11 07 00 19 CD 3A 05 21 ....^#V......:.!
01C790: 78 00 65 2E 01 E5 CD 8D 06 D1 7D A3 6F D1 7D B3 x.e.......}£o.}.
01C7A0: 6F D1 7D A3 6F CB 45 CA 60 6C 2A 66 ED 5E 23 56 o.}£o.E.`l*f.^#V
01C7B0: EB 11 07 00 19 CD 3A 05 21 2D 00 65 2E 01 E5 CD ......:.!-.e....
01C7C0: 8D 06 CB 45 CA 14 6C 2A 66 ED 5E 23 56 EB E5 CD ...E..l*f.^#V...
01C7D0: 4D 05 04 70 6C 75 73 06 06 CD 01 06 2A 66 ED 5E M..plus.....*f.^
01C7E0: 23 56 EB 11 07 00 19 E5 21 2B 00 65 2E 01 E5 06 #V......!+.e....
01C7F0: 0A CD 01 06 2A 66 ED 5E 23 56 EB 11 12 00 19 E5 ....*f.^#V......
01C800: 2A 66 ED 5E 23 56 EB 11 12 00 19 E5 CD 50 2D EB *f.^#V.......P-.
01C810: E1 73 23 72 2A 66 ED 5E 23 56 EB 11 12 00 19 5E .s#r*f.^#V.....^
01C820: 23 56 EB 22 5C ED 2A 66 ED 5E 23 56 EB 11 12 00 #V."\.*f.^#V....
01C830: 19 E5 2A 66 ED 5E 23 56 EB 11 14 00 19 5E 23 56 ..*f.^#V.....^#V
01C840: EB EB E1 73 23 72 2A 66 ED 5E 23 56 EB 11 14 00 ...s#r*f.^#V....
01C850: 19 E5 2A 5C ED EB E1 73 23 72 21 01 00 22 94 F2 ..*\...s#r!.."..
01C860: 2A 66 ED 5E 23 56 EB 11 12 00 19 5E 23 56 EB E5 *f.^#V.....^#V..
01C870: 21 00 00 D1 CD 92 06 CB 45 CA 8B 6C 2A 66 ED 5E !.......E..l*f.^
01C880: 23 56 EB 11 12 00 19 E5 CD 96 4C 2A 66 ED 5E 23 #V........L*f.^#
01C890: 56 EB 11 14 00 19 5E 23 56 EB E5 21 00 00 D1 CD V.....^#V..!....
01C8A0: 92 06 CB 45 CA B6 6C 2A 66 ED 5E 23 56 EB 11 14 ...E..l*f.^#V...
01C8B0: 00 19 E5 CD 96 4C 01 0C 00 11 5C ED C3 22 05 01 .....L....\.."..
01C8C0: 10 00 21 4C ED CD 08 05 FD E1 E1 22 58 ED FD E5 ..!L......."X...
01C8D0: 2A 58 ED 11 07 00 19 CD 3A 05 21 2A 00 65 2E 01 *X......:.!*.e..
01C8E0: E5 CD 8D 06 CB 45 CA 35 6E 2A 58 ED 11 14 00 19 .....E.5n*X.....
01C8F0: 5E 23 56 EB CD 3A 05 CD 4D 05 06 6E 6F 6D 62 72 ^#V..:..M..nombr
01C900: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
01C910: 18 00 00 00 02 09 4E E5 18 00 41 02 00 00 00 02 ......N...A.....
01C920: 18 00 42 02 00 00 00 02 18 00 43 02 00 00 00 02 ..B.......C.....
01C930: 18 00 44 02 00 00 00 02 18 00 45 02 00 00 00 02 ..D.......E.....
01C940: 18 00 46 02 00 00 00 02 18 00 47 02 00 00 00 02 ..F.......G.....
01C950: 18 00 48 02 00 00 00 02 18 00 49 02 00 00 00 02 ..H.......I.....
01C960: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C970: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C980: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C990: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C9A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C9B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C9C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C9D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C9E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01C9F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01CA00: 65 CD 8D 06 E5 2A 58 ED 11 12 00 19 5E 23 56 EB e....*X.....^#V.
01CA10: CD 3A 05 CD 4D 05 06 6E 6F 6D 62 72 65 CD 8D 06 .:..M..nombre...
01CA20: D1 7D A3 6F CB 45 CA 32 6D 21 00 00 22 5A ED C3 .}£o.E.2m!.."Z..
01CA30: 32 6E 2A 58 ED 11 14 00 19 5E 23 56 EB CD 3A 05 2n*X.....^#V..:.
01CA40: CD 4D 05 06 6E 6F 6D 62 72 65 CD 8D 06 E5 2A 58 .M..nombre....*X
01CA50: ED 11 12 00 19 5E 23 56 EB 11 07 00 19 CD 3A 05 .....^#V......:.
01CA60: 21 78 00 65 2E 01 E5 CD 8D 06 D1 7D A3 6F CB 45 !x.e.......}£o.E
01CA70: CA 7C 6D 21 01 00 22 5A ED C3 32 6E 2A 58 ED 11 .|m!.."Z..2n*X..
01CA80: 14 00 19 5E 23 56 EB CD 3A 05 CD 4D 05 06 6E 6F ...^#V..:..M..no
01CA90: 6D 62 72 65 CD 8D 06 E5 2A 58 ED 11 12 00 19 5E mbre....*X.....^
01CAA0: 23 56 EB 11 07 00 19 CD 3A 05 21 5E 00 65 2E 01 #V......:.!^.e..
01CAB0: E5 CD 8D 06 D1 7D A3 6F E5 2A 58 ED 11 12 00 19 .....}£o.*X.....
01CAC0: 5E 23 56 EB 11 14 00 19 5E 23 56 EB 11 07 00 19 ^#V.....^#V.....
01CAD0: CD 3A 05 21 78 00 65 2E 01 E5 CD 8D 06 D1 7D A3 .:.!x.e.......}£
01CAE0: 6F CB 45 CA 2C 6E 2A 58 ED 11 12 00 19 5E 23 56 o.E.,n*X.....^#V
01CAF0: EB 11 12 00 19 5E 23 56 EB 11 07 00 19 CD 3A 05 .....^#V......:.
01CB00: 21 4E ED E5 21 4C ED CD F4 1E 2A 4C ED E5 21 00 !N..!L....*L..!.
01CB10: 00 D1 CD 7F 06 CB 45 CA 23 6E 2A 4E ED 22 5A ED ......E.#n*N."Z.
01CB20: C3 29 6E 21 FF FF 22 5A ED C3 32 6E 21 FF FF 22 .)n!.."Z..2n!.."
01CB30: 5A ED C3 16 6F 2A 58 ED 11 07 00 19 CD 3A 05 21 Z...o*X......:.!
01CB40: 78 00 65 2E 01 E5 CD 8D 06 CB 45 CA 57 6E 21 01 x.e.......E.Wn!.
01CB50: 00 22 5A ED C3 16 6F 2A 58 ED CD 3A 05 CD 4D 05 ."Z...o*X..:..M.
01CB60: 06 6E 6F 6D 62 72 65 CD 8D 06 CB 45 CA 78 6E 21 .nombre....E.xn!
01CB70: 00 00 22 5A ED C3 16 6F 2A 58 ED 11 07 00 19 CD .."Z...o*X......
01CB80: 3A 05 21 5E 00 65 2E 01 E5 CD 8D 06 E5 2A 58 ED :.!^.e.......*X.
01CB90: 11 14 00 19 5E 23 56 EB 11 07 00 19 CD 3A 05 21 ....^#V......:.!
01CBA0: 78 00 65 2E 01 E5 CD 8D 06 D1 7D A3 6F E5 2A 58 x.e.......}£o.*X
01CBB0: ED 11 12 00 19 5E 23 56 EB CD 3A 05 CD 4D 05 06 .....^#V..:..M..
01CBC0: 6E 6F 6D 62 72 65 CD 8D 06 D1 7D A3 6F CB 45 CA nombre....}£o.E.
01CBD0: 10 6F 2A 58 ED 11 12 00 19 5E 23 56 EB 11 07 00 .o*X.....^#V....
01CBE0: 19 CD 3A 05 21 4E ED E5 21 4C ED CD F4 1E 2A 4C ..:.!N..!L....*L
01CBF0: ED E5 21 00 00 D1 CD 7F 06 CB 45 CA 07 6F 2A 4E ..!.......E..o*N
01CC00: ED 22 5A ED C3 0D 6F 21 FF FF 22 5A ED C3 16 6F ."Z...o!.."Z...o
01CC10: 21 FF FF 22 5A ED 2A 5A ED D9 01 10 00 11 4C ED !.."Z.*Z......L.
01CC20: C3 22 05 01 0E 00 21 3E ED CD 08 05 FD E1 E1 22 ."....!>......."
01CC30: 4A ED FD E5 2A 4A ED 5E 23 56 EB E5 21 00 00 D1 J...*J.^#V..!...
01CC40: CD 92 06 CB 45 CA D5 75 2A 4A ED 5E 23 56 EB 11 ....E..u*J.^#V..
01CC50: 07 00 19 CD 3A 05 21 2B 00 65 2E 01 E5 CD 8D 06 ....:.!+.e......
01CC60: E5 2A 4A ED 5E 23 56 EB 11 07 00 19 CD 3A 05 21 .*J.^#V......:.!
01CC70: 2D 00 65 2E 01 E5 CD 8D 06 D1 7D B3 6F CB 45 CA -.e.......}.o.E.
01CC80: 7F 75 2A 4A ED E5 CD 88 51 2A 4A ED 5E 23 56 EB .u*J....Q*J.^#V.
01CC90: 11 12 00 19 5E 23 56 EB E5 21 00 00 D1 CD 92 06 ....^#V..!......
01CCA0: CB 45 CA B4 6F 2A 4A ED 5E 23 56 EB 11 12 00 19 .E..o*J.^#V.....
01CCB0: E5 CD 96 4C 2A 4A ED 5E 23 56 EB 11 14 00 19 5E ...L*J.^#V.....^
01CCC0: 23 56 EB E5 21 00 00 D1 CD 92 06 CB 45 CA DF 6F #V..!.......E..o
01CCD0: 2A 4A ED 5E 23 56 EB 11 14 00 19 E5 CD 96 4C 2A *J.^#V........L*
01CCE0: 4A ED 5E 23 56 EB 11 07 00 19 CD 3A 05 21 2D 00 J.^#V......:.!-.
01CCF0: 65 2E 01 E5 CD 8D 06 CB 45 CA 49 70 2A 4A ED 5E e.......E.Ip*J.^
01CD00: 23 56 EB 11 07 00 19 E5 21 2B 00 65 2E 01 E5 06 #V......!+.e....
01CD10: 0A CD 01 06 2A 4A ED 5E 23 56 EB E5 CD 4D 05 04 ....*J.^#V...M..
01CD20: 70 6C 75 73 06 06 CD 01 06 2A 4A ED 5E 23 56 EB plus.....*J.^#V.
01CD30: 11 12 00 19 E5 2A 4A ED 5E 23 56 EB 11 12 00 19 .....*J.^#V.....
01CD40: E5 CD 50 2D EB E1 73 23 72 2A 4A ED 5E 23 56 EB ..P-..s#r*J.^#V.
01CD50: 11 12 00 19 5E 23 56 EB 11 07 00 19 CD 3A 05 21 ....^#V......:.!
01CD60: 2D 00 65 2E 01 E5 CD 8D 06 CB 45 CA DB 70 2A 4A -.e.......E..p*J
01CD70: ED 5E 23 56 EB 11 12 00 19 5E 23 56 EB 11 12 00 .^#V.....^#V....
01CD80: 19 E5 2A 4A ED 5E 23 56 EB 11 12 00 19 5E 23 56 ..*J.^#V.....^#V
01CD90: EB 11 12 00 19 E5 CD 50 2D EB E1 73 23 72 2A 4A .......P-..s#r*J
01CDA0: ED 5E 23 56 EB 11 12 00 19 5E 23 56 EB 11 07 00 .^#V.....^#V....
01CDB0: 19 E5 21 2B 00 65 2E 01 E5 06 0A CD 01 06 2A 4A ..!+.e........*J
01CDC0: ED 5E 23 56 EB 11 12 00 19 5E 23 56 EB E5 CD 4D .^#V.....^#V...M
01CDD0: 05 04 70 6C 75 73 06 06 CD 01 06 2A 4A ED 5E 23 ..plus.....*J.^#
01CDE0: 56 EB 11 14 00 19 5E 23 56 EB 11 07 00 19 CD 3A V.....^#V......:
01CDF0: 05 21 2D 00 65 2E 01 E5 CD 8D 06 CB 45 CA 6D 71 .!-.e.......E.mq
01CE00: A2 EC E5 21 00 00 CD 26 17 CD BA 17 02 20 3D CD ...!...&..... =.
01CE10: 1B 20 21 FD EB E5 2A A0 EC 2B 29 5D 54 29 19 D1 . !...*..+)]T)..
01CE20: 19 CD CB 14 CD 72 16 CD 1B 20 2A A2 EC 23 D1 1B .....r... *..#..
01CE30: C3 CD 58 C3 A3 5A 19 11 03 00 B7 ED 52 C2 A3 5A ..X.£Z......R.£Z
01CE40: CD 9B 14 CD BA 17 1B 4E 6F 20 64 65 20 6C 61 20 .......No de la
01CE50: 66 6F 6E 63 74 69 6F 6E 20 72 3D 66 28 74 29 20 fonction r=f(t)
01CE60: 6E 2E 2A A4 EC E5 21 00 00 CD 26 17 CD BA 17 02 n.*...!...&.....
01CE70: 20 3D CD 1B 20 21 89 EC E5 2A A4 EC 2B 29 D1 19 =.. !...*..+)..
01CE80: E5 CD F3 4C EB E1 73 23 72 21 A4 F2 E5 21 89 EC ...L..s#r!...!..
01CE90: E5 2A A4 EC 2B 29 D1 19 5E 23 56 EB 29 D1 19 5E .*..+)..^#V.)..^
01CEA0: 23 56 EB E5 21 00 00 D1 CD 7F 06 CB 45 CA F4 59 #V..!.......E..Y
01CEB0: 21 A4 F2 E5 21 89 EC E5 2A A4 EC 2B 29 D1 19 5E !...!...*..+)..^
01CEC0: 23 56 EB 29 D1 19 E5 CD 1F 21 21 B2 F1 E5 21 89 #V.).....!!...!.
01CED0: EC E5 2A A4 EC 2B 29 D1 19 5E 23 56 EB 29 D1 19 ..*..+)..^#V.)..
01CEE0: E5 21 B2 F1 E5 2A 96 F2 29 D1 19 5E 23 56 EB EB .!...*..)..^#V..
01CEF0: E1 73 23 72 21 B2 F1 E5 21 89 EC E5 2A A4 EC 2B .s#r!...!...*..+
01CF00: 29 D1 19 5E 23 56 EB 29 D1 19 5E 23 56 EB E5 21 )..^#V.)..^#V..!
01CF10: 00 00 D1 CD CC 06 CB 45 CA A3 5A 21 01 00 E5 21 .......E.£Z!...!
01CF20: B2 F1 E5 21 89 EC E5 2A A4 EC 2B 29 D1 19 5E 23 ...!...*..+)..^#
01CF30: 56 EB 29 D1 19 5E 23 56 EB D1 CD 66 06 7A B3 CA V.)..^#V...f.z..
01CF40: A3 5A D5 22 A2 EC 2A A0 EC E5 21 01 00 D1 19 22 £Z."..*...!...."
01CF50: A0 EC CD 9B 14 CD BA 17 16 56 61 6C 65 75 72 20 .........Valeur
01CF60: 64 75 20 70 61 72 61 6D 65 74 72 65 20 6E 2E 2A du parametre n.*
01CF70: A2 EC E5 21 00 00 CD 26 17 CD BA 17 02 20 3D CD ...!...&..... =.
01CF80: 1B 20 21 FD EB E5 2A A0 EC 2B 29 5D 54 29 19 D1 . !...*..+)]T)..
01CF90: 19 CD CB 14 CD 72 16 CD 1B 20 2A A2 EC 23 D1 1B .....r... *..#..
01CFA0: C3 3D 5A 2A A4 EC 23 D1 1B C3 58 54 CD 3E 02 21 .=Z*..#...XT.>.!
01CFB0: D0 EC CD 2C 05 CD D0 0F E5 21 CA EC CD 2C 05 CD ...,.....!...,..
01CFC0: D0 0F E5 CD F1 4F 21 00 00 E5 21 00 00 E5 CD 49 .....O!...!....I
01CFD0: 4F 21 80 02 E5 21 D0 EC CD 2C 05 CD D0 0F D1 EB O!...!...,......
01CFE0: B7 ED 52 E5 21 00 00 E5 CD F5 4E 21 80 FD E5 21 ..R.!.....N!...!
01CFF0: 00 00 E5 CD F5 4E 21 00 00 E5 21 00 00 E5 CD 49 .....N!...!....I
01D000: 4F 21 00 00 E5 21 90 01 E5 21 CA EC CD 2C 05 CD O!...!...!...,..
01D010: D0 0F D1 EB B7 ED 52 E5 CD F5 4E 21 00 00 E5 21 ......R...N!...!
01D020: 70 FE E5 CD F5 4E 21 B8 EC CD 2C 05 CD D0 0F E5 p....N!...,.....
01D030: 21 00 00 E5 CD 49 4F 21 00 00 E5 21 05 00 E5 CD !....IO!...!....
01D040: F5 4E 21 00 00 E5 21 F6 FF E5 CD F5 4E 21 00 00 .N!...!.....N!..
01D050: E5 21 B2 EC CD 2C 05 CD D0 0F E5 CD 49 4F 21 05 .!...,......IO!.
01D060: 00 E5 21 00 00 E5 CD F5 4E 21 F6 FF E5 21 00 00 ..!.....N!...!..
01D070: E5 CD F5 4E 21 00 00 22 A0 EC 21 01 00 E5 2A A6 ...N!.."..!...*.
01D080: EC D1 CD 66 06 7A B3 CA AB 62 D5 22 A4 EC 2A 8E ...f.z...b."..*.
01D090: F2 11 01 00 B7 ED 52 C2 7F 5D 21 C4 EC CD 2C 05 ......R..]!...,.
01D0A0: D9 21 AB F1 CD D1 05 21 00 00 7D 32 9D EC 21 B2 .!.....!..}2..!.
01D0B0: F1 E5 21 89 EC E5 2A A4 EC 2B 29 D1 19 5E 23 56 ..!...*..+)..^#V
01D0C0: EB 29 D1 19 5E 23 56 EB E5 21 00 00 D1 CD CC 06 .)..^#V..!......
01D0D0: CB 45 CA 57 5C 21 01 00 E5 21 B2 F1 E5 21 89 EC .E.W\!...!...!..
01D0E0: E5 2A A4 EC 2B 29 D1 19 5E 23 56 EB 29 D1 19 5E .*..+)..^#V.)..^
01D0F0: 23 56 EB D1 CD 66 06 7A B3 CA 57 5C D5 22 A2 EC #V...f.z..W\."..
01D100: 2A A0 EC E5 21 01 00 D1 19 22 A0 EC 21 C8 F1 E5 *...!...."..!...
01D110: 2A A2 EC 2B 29 E5 29 29 29 29 29 D1 19 D1 19 E5 *..+).))))).....
01D120: 21 89 EC E5 2A A4 EC 2B 29 D1 19 5E 23 56 EB 29 !...*..+)..^#V.)
01D130: 5D 54 29 19 D1 19 E5 21 FD EB E5 2A A0 EC 2B 29 ]T)....!...*..+)
01D140: 5D 54 29 19 D1 19 CD 2C 05 D9 E1 CD D1 05 2A A2 ]T)....,......*.
01D150: EC 23 D1 1B C3 F7 5B 21 AB F1 CD 2C 05 C5 D5 E5 .#....[!...,....
01D160: 21 BE EC CD 2C 05 D9 E1 D1 C1 CD E9 06 CB 45 CA !...,.........E.
01D170: 7C 5D 21 01 00 7D 32 B1 F1 21 89 EC E5 2A A4 EC |]!..}2..!...*..
01D180: 2B 29 D1 19 5E 23 56 EB 22 96 F2 21 A4 F2 E5 21 +)..^#V."..!...!
01D190: 89 EC E5 2A A4 EC 2B 29 D1 19 5E 23 56 EB 29 D1 ...*..+)..^#V.).
01D1A0: 19 5E 23 56 EB E5 21 AB F1 CD 2C 05 C5 D5 E5 CD .^#V..!...,.....
01D1B0: 48 2D D9 21 A5 F1 CD D1 05 2A B1 F1 26 00 E5 21 H-.!.....*..&..!
01D1C0: 01 00 D1 CD 7F 06 E5 21 A5 F1 CD 2C 05 CB B8 C5 .......!...,....
01D1D0: D5 E5 21 E8 03 CD 08 10 D9 E1 D1 C1 CD E9 06 D1 ..!.............
01D1E0: 7D A3 6F CB 45 CA 55 5D 21 AB F1 CD 2C 05 C5 D5 }£o.E.U]!...,...
01D1F0: E5 21 B8 EC CD 2C 05 D9 E1 D1 C1 CD FA 09 CD D0 .!...,..........
01D200: 0F 22 AA EC 21 A5 F1 CD 2C 05 C5 D5 E5 21 B2 EC ."..!...,....!..
01D210: CD 2C 05 D9 E1 D1 C1 CD FA 09 CD D0 0F 22 A8 EC .,..........."..
01D220: 2A 9D EC 26 00 E5 21 00 00 D1 CD 7F 06 CB 45 CA *..&..!.......E.
01D230: 40 5D 2A AA EC E5 2A A8 EC E5 CD 9D 4F C3 4B 5D @]*...*.....O.K]
01D240: 2A AA EC E5 2A A8 EC E5 CD 1F 4F 21 01 00 7D 32 *...*.....O!..}2
01D250: 9D EC C3 5C 5D 21 00 00 7D 32 9D EC 21 AB F1 CD ...\]!..}2..!...
01D260: 2C 05 C5 D5 E5 21 AC EC CD 2C 05 D9 E1 D1 C1 CD ,....!...,......
01D270: E9 09 D9 21 AB F1 CD D1 05 C3 57 5C C3 A2 62 19 ...!......W\..b.
01D280: 11 02 00 B7 ED 52 C2 90 60 21 C4 EC CD 2C 05 D9 .....R..`!...,..
01D290: 21 AB F1 CD D1 05 21 00 00 7D 32 9D EC 21 B2 F1 !.....!..}2..!..
01D2A0: E5 21 89 EC E5 2A A4 EC 2B 29 D1 19 5E 23 56 EB .!...*..+)..^#V.
01D2B0: 29 D1 19 5E 23 56 EB E5 21 00 00 D1 CD CC 06 CB )..^#V..!.......
01D2C0: 45 CA 46 5E 21 01 00 E5 21 B2 F1 E5 21 89 EC E5 E.F^!...!...!...
01D2D0: 2A A4 EC 2B 29 D1 19 5E 23 56 EB 29 D1 19 5E 23 *..+)..^#V.)..^#
01D2E0: 56 EB D1 CD 66 06 7A B3 CA 46 5E D5 22 A2 EC 2A V...f.z..F^."..*
01D2F0: A0 EC E5 21 01 00 D1 19 22 A0 EC 21 C8 F1 E5 2A ...!...."..!...*
01D300: A2 EC 2B 29 E5 29 29 29 29 29 D1 19 D1 19 E5 21 ..+).))))).....!
01D310: 89 EC E5 2A A4 EC 2B 29 D1 19 5E 23 56 EB 29 5D ...*..+)..^#V.)]
01D320: 54 29 19 D1 19 E5 21 FD EB E5 2A A0 EC 2B 29 5D T)....!...*..+)]
01D330: 54 29 19 D1 19 CD 2C 05 D9 E1 CD D1 05 2A A2 EC T)....,......*..
01D340: 23 D1 1B C3 E6 5D 21 B2 F1 E5 21 75 EC E5 2A A4 #....]!...!u..*.
01D350: EC 2B 29 D1 19 5E 23 56 EB 29 D1 19 5E 23 56 EB .+)..^#V.)..^#V.
01D360: E5 21 00 00 D1 CD CC 06 CB 45 CA EF 5E 21 01 00 .!.......E..^!..
01D370: E5 21 B2 F1 E5 21 75 EC E5 2A A4 EC 2B 29 D1 19 .!...!u..*..+)..
01D380: 5E 23 56 EB 29 D1 19 5E 23 56 EB D1 CD 66 06 7A ^#V.)..^#V...f.z
01D390: B3 CA EF 5E D5 22 A2 EC 2A A0 EC E5 21 01 00 D1 ...^."..*...!...
01D3A0: 19 22 A0 EC 21 C8 F1 E5 2A A2 EC 2B 29 E5 29 29 ."..!...*..+).))
01D3B0: 29 29 29 D1 19 D1 19 E5 21 75 EC E5 2A A4 EC 2B ))).....!u..*..+
01D3C0: 29 D1 19 5E 23 56 EB 29 5D 54 29 19 D1 19 E5 21 )..^#V.)]T)....!
01D3D0: FD EB E5 2A A0 EC 2B 29 5D 54 29 19 D1 19 CD 2C ...*..+)]T)....,
01D3E0: 05 D9 E1 CD D1 05 2A A2 EC 23 D1 1B C3 8F 5E 21 ......*..#....^!
01D3F0: AB F1 CD 2C 05 C5 D5 E5 21 BE EC CD 2C 05 D9 E1 ...,....!...,...
01D400: D1 C1 CD E9 06 CB 45 CA 8D 60 21 01 00 7D 32 B1 ......E..`!..}2.
01D410: F1 21 89 EC E5 2A A4 EC 2B 29 D1 19 5E 23 56 EB .!...*..+)..^#V.
01D420: 22 96 F2 21 A4 F2 E5 21 89 EC E5 2A A4 EC 2B 29 "..!...!...*..+)
01D430: D1 19 5E 23 56 EB 29 D1 19 5E 23 56 EB E5 21 AB ..^#V.)..^#V..!.
01D440: F1 CD 2C 05 C5 D5 E5 CD 48 2D D9 21 A5 F1 CD D1 ..,.....H-.!....
01D450: 05 2A B1 F1 26 00 E5 21 01 00 D1 CD 7F 06 E5 21 .*..&..!.......!
01D460: A5 F1 CD 2C 05 CB B8 C5 D5 E5 21 E8 03 CD 08 10 ...,......!.....
01D470: D9 E1 D1 C1 CD E9 06 D1 7D A3 6F CB 45 CA 66 60 ........}£o.E.f`
01D480: 21 A5 F1 CD 2C 05 C5 D5 E5 21 B8 EC CD 2C 05 D9 !...,....!...,..
01D490: E1 D1 C1 CD FA 09 CD D0 0F 22 AA EC 21 75 EC E5 ........."..!u..
01D4A0: 2A A4 EC 2B 29 D1 19 5E 23 56 EB 22 96 F2 21 A4 *..+)..^#V."..!.
01D4B0: F2 E5 21 75 EC E5 2A A4 EC 2B 29 D1 19 5E 23 56 ..!u..*..+)..^#V
01D4C0: EB 29 D1 19 5E 23 56 EB E5 21 AB F1 CD 2C 05 C5 .)..^#V..!...,..
01D4D0: D5 E5 CD 48 2D D9 21 A5 F1 CD D1 05 2A B1 F1 26 ...H-.!.....*..&
01D4E0: 00 E5 21 01 00 D1 CD 7F 06 E5 21 A5 F1 CD 2C 05 ..!.......!...,.
01D4F0: CB B8 C5 D5 E5 21 E8 03 CD 08 10 D9 E1 D1 C1 CD .....!..........
01D500: E9 06 D1 7D A3 6F CB 45 CA 5C 60 21 A5 F1 CD 2C ...}£o.E.\`!...,
01D510: 05 C5 D5 E5 21 B2 EC CD 2C 05 D9 E1 D1 C1 CD FA ....!...,.......
01D520: 09 CD D0 0F 22 A8 EC 2A 9D EC 26 00 E5 21 00 00 ...."..*..&..!..
01D530: D1 CD 7F 06 CB 45 CA 47 60 2A AA EC E5 2A A8 EC .....E.G`*...*..
01D540: E5 CD 9D 4F C3 52 60 2A AA EC E5 2A A8 EC E5 CD ...O.R`*...*....
01D550: 1F 4F 21 01 00 7D 32 9D EC C3 63 60 21 00 00 7D .O!..}2...c`!..}
01D560: 32 9D EC C3 6D 60 21 00 00 7D 32 9D EC 21 AB F1 2...m`!..}2..!..
01D570: CD 2C 05 C5 D5 E5 21 AC EC CD 2C 05 D9 E1 D1 C1 .,....!...,.....
01D580: CD E9 09 D9 21 AB F1 CD D1 05 C3 EF 5E C3 A2 62 ....!.......^..b
01D590: 19 11 03 00 B7 ED 52 C2 A2 62 21 C4 EC CD 2C 05 ......R..b!...,.
01D5A0: D9 21 AB F1 CD D1 05 21 00 00 7D 32 9D EC 21 B2 .!.....!..}2..!.
01D5B0: F1 E5 21 89 EC E5 2A A4 EC 2B 29 D1 19 5E 23 56 ..!...*..+)..^#V
01D5C0: EB 29 D1 19 5E 23 56 EB E5 21 00 00 D1 CD CC 06 .)..^#V..!......
01D5D0: CB 45 CA 57 61 21 01 00 E5 21 B2 F1 E5 21 89 EC .E.Wa!...!...!..
01D5E0: E5 2A A4 EC 2B 29 D1 19 5E 23 56 EB 29 D1 19 5E .*..+)..^#V.)..^
01D5F0: 23 56 EB D1 CD 66 06 7A B3 CA 57 61 D5 22 A2 EC #V...f.z..Wa."..
01D600: 2A A0 EC E5 21 01 00 D1 19 22 A0 EC 21 C8 F1 E5 *...!...."..!...
01D610: 2A A2 EC 2B 29 E5 29 29 29 29 29 D1 19 D1 19 E5 *..+).))))).....
01D620: 21 89 EC E5 2A A4 EC 2B 29 D1 19 5E 23 56 EB 29 !...*..+)..^#V.)
01D630: 5D 54 29 19 D1 19 E5 21 FD EB E5 2A A0 EC 2B 29 ]T)....!...*..+)
01D640: 5D 54 29 19 D1 19 CD 2C 05 D9 E1 CD D1 05 2A A2 ]T)....,......*.
01D650: EC 23 D1 1B C3 F7 60 21 AB F1 CD 2C 05 C5 D5 E5 .#....`!...,....
01D660: 21 BE EC CD 2C 05 D9 E1 D1 C1 CD E9 06 CB 45 CA !...,.........E.
01D670: A2 62 21 01 00 7D 32 B1 F1 21 89 EC E5 2A A4 EC .b!..}2..!...*..
01D680: 2B 29 D1 19 5E 23 56 EB 22 96 F2 21 A4 F2 E5 21 +)..^#V."..!...!
01D690: 89 EC E5 2A A4 EC 2B 29 D1 19 5E 23 56 EB 29 D1 ...*..+)..^#V.).
01D6A0: 19 5E 23 56 EB E5 21 AB F1 CD 2C 05 C5 D5 E5 CD .^#V..!...,.....
01D6B0: 48 2D D9 21 A5 F1 CD D1 05 2A B1 F1 26 00 E5 21 H-.!.....*..&..!
01D6C0: 01 00 D1 CD 7F 06 E5 21 A5 F1 CD 2C 05 CB B8 C5 .......!...,....
01D6D0: D5 E5 21 E8 03 CD 08 10 D9 E1 D1 C1 CD E9 06 D1 ..!.............
01D6E0: 7D A3 6F CB 45 CA 7B 62 21 A5 F1 CD 2C 05 C5 D5 }£o.E.{b!...,...
01D6F0: E5 21 AB F1 CD 2C 05 CD 7F 0C D9 E1 D1 C1 CD FA .!...,..........
01D700: 09 C5 D5 E5 21 B8 EC CD 2C 05 D9 E1 D1 C1 CD FA ....!...,.......
01D710: 09 CD D0 0F 22 AA EC 21 A5 F1 CD 2C 05 C5 D5 E5 ...."..!...,....
01D720: 21 AB F1 CD 2C 05 CD 87 0C D9 E1 D1 C1 CD FA 09 !...,...........
01D730: C5 D5 E5 21 B2 EC CD 2C 05 D9 E1 D1 C1 CD FA 09 ...!...,........
01D740: CD D0 0F 22 A8 EC 2A 9D EC 26 00 E5 21 00 00 D1 ..."..*..&..!...
01D750: CD 7F 06 CB 45 CA 66 62 2A AA EC E5 2A A8 EC E5 ....E.fb*...*...
01D760: CD 9D 4F C3 71 62 2A AA EC E5 2A A8 EC E5 CD 1F ..O.qb*...*.....
01D770: 4F 21 01 00 7D 32 9D EC C3 82 62 21 00 00 7D 32 O!..}2....b!..}2
01D780: 9D EC 21 AB F1 CD 2C 05 C5 D5 E5 21 AC EC CD 2C ..!...,....!...,
01D790: 05 D9 E1 D1 C1 CD E9 09 D9 21 AB F1 CD D1 05 C3 .........!......
01D7A0: 57 61 2A A4 EC 23 D1 1B C3 85 5B 21 01 00 E5 21 Wa*..#....[!...!
01D7B0: 18 00 CD DB 1F CD 9B 14 CD BA 17 2A 3C 31 3E 20 ...........*<1>
01D7C0: 49 6D 70 72 69 6D 65 72 20 3C 32 3E 20 52 65 76 Imprimer <2> Rev
01D7D0: 6F 69 72 20 3C 33 3E 20 52 65 74 6F 75 72 20 61 oir <3> Retour a
01D7E0: 75 20 6D 65 6E 75 CD 1B 20 21 BA 00 CD A9 14 21 u menu.. !.....!
01D7F0: A3 F2 CD 44 16 CD 1B 20 2A A3 F2 26 00 E5 21 30 £..D... *£.&..!0
01D800: 00 D1 CD CC 06 E5 2A A3 F2 26 00 E5 21 34 00 D1 ......*£.&..!4..
01D810: CD E0 06 D1 7D A3 6F CB 45 CA E9 62 2A A3 F2 26 ....}£o.E..b*£.&
01D820: 00 65 2E 01 E5 21 9E EC E5 21 92 F2 CD F4 1E 2A .e...!...!.....*
01D830: 9E EC E5 21 01 00 D1 CD 7F 06 CB 45 CA 8C 63 21 ...!.......E..c!
01D840: 01 00 E5 21 18 00 CD DB 1F CD 9B 14 CD BA 17 2B ...!...........+
01D850: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01D860: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01D870: 20 20 20 20 20 20 20 20 20 20 20 CD 1B 20 21 00 .. !.
01D880: 00 E5 21 00 00 E5 CD F1 4F CD 84 50 2A 9E EC E5 ..!.....O..P*...
01D890: 21 02 00 D1 CD 7F 06 CB 45 CA A3 63 21 01 00 E5 !.......E.£c!...
01D8A0: CD 65 4D 01 E3 00 11 FD EB C3 22 05 21 00 00 E5 .eM.......".!...
01D8B0: 21 0A 00 D1 CD 66 06 7A B3 CA EF 63 D5 22 96 F2 !....f.z...c."..
01D8C0: 21 A4 F2 E5 2A 96 F2 29 D1 19 E5 21 00 00 EB E1 !...*..)...!....
01D8D0: 73 23 72 21 B2 F1 E5 2A 96 F2 29 D1 19 E5 21 00 s#r!...*..)...!.
01D8E0: 00 EB E1 73 23 72 2A 96 F2 23 D1 1B C3 B7 63 21 ...s#r*..#....c!
01D8F0: 0A 00 E5 21 0A 00 E5 CD 1B 50 CD 68 4D C3 D4 20 ...!.....P.hM..
01D900: 0A 20 20 20 6F 72 69 67 69 6E 28 30 2C 30 29 3B . origin(0,0);
01D910: 76 69 64 61 67 65 3B 0D 0A 20 20 20 65 6E 64 3B vidage;.. end;
01D920: 0D 0A 20 20 69 66 20 63 68 6F 69 78 62 69 73 3D .. if choixbis=
01D930: 32 20 74 68 65 6E 0D 0A 20 20 67 72 61 70 68 65 2 then.. graphe
01D940: 28 31 29 3B 0D 0A 65 6E 64 3B 1A 1A 1A 1A 1A 1A (1);..end;......
01D950: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
01D960: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
01D970: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
01D980: 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 63 begin.. c
01D990: 6C 72 73 63 72 3B 77 72 69 74 65 28 27 4E 6F 20 lrscr;write('No
01D9A0: 64 65 20 6C 61 20 66 6F 6E 63 74 69 6F 6E 20 28 de la fonction (
01D9B0: 31 20 61 20 39 29 3F 27 29 3B 0D 0A 20 20 20 20 1 a 9)?');..
01D9C0: 20 20 20 69 3A 3D 6E 75 6D 66 6F 6E 63 3B 0D 0A i:=numfonc;..
01D9D0: 20 20 20 20 20 20 20 69 66 20 6D 5B 69 5D 3E 30 if m[i]>0
01D9E0: 20 74 68 65 6E 0D 0A 20 20 20 20 20 20 20 62 65 then.. be
01D9F0: 67 69 6E 0D 0A 20 20 20 20 20 20 20 66 6F 72 20 gin.. for
01DA00: 67 69 6E 0D 0A 20 20 20 20 20 20 77 72 69 74 65 gin.. write
01DA10: 28 27 4E 6F 20 64 65 20 6C 61 20 66 6F 6E 63 74 ('No de la fonct
01DA20: 69 6F 6E 20 79 3D 66 28 78 29 20 6E 2E 27 2C 7A ion y=f(x) n.',z
01DA30: 2C 27 20 3D 27 29 3B 66 78 5B 7A 5D 3A 3D 6E 75 ,' =');fx[z]:=nu
01DA40: 6D 66 6F 6E 63 3B 0D 0A 20 20 20 20 20 20 69 66 mfonc;.. if
01DA50: 20 66 5B 66 78 5B 7A 5D 5D 3D 6E 69 6C 20 74 68 f[fx[z]]=nil th
01DA60: 65 6E 0D 0A 20 20 20 20 20 20 20 62 65 67 69 6E en.. begin
01DA70: 0D 0A 20 20 20 20 20 20 20 20 6C 69 72 66 6F 6E .. lirfon
01DA80: 63 74 69 6F 6E 28 66 5B 66 78 5B 7A 5D 5D 29 3B ction(f[fx[z]]);
01DA90: 0D 0A 20 20 20 20 20 20 20 20 6D 5B 66 78 5B 7A .. m[fx[z
01DAA0: 5D 5D 3A 3D 6D 5B 69 5D 3B 0D 0A 20 20 20 20 20 ]]:=m[i];..
01DAB0: 20 65 6E 64 3B 0D 0A 20 20 20 20 20 20 69 66 20 end;.. if
01DAC0: 6D 5B 66 78 5B 7A 5D 5D 3E 30 20 74 68 65 6E 0D m[fx[z]]>0 then.
01DAD0: 0A 20 20 20 20 20 20 62 65 67 69 6E 20 66 6F 72 . begin for
01DAE0: 20 62 6B 3A 3D 31 20 74 6F 20 6D 5B 66 78 5B 7A bk:=1 to m[fx[z
01DAF0: 5D 5D 20 64 6F 0D 0A 20 20 20 20 20 20 20 20 20 ]] do..
01DB00: 62 65 67 69 6E 20 69 6E 64 65 78 3A 3D 69 6E 64 begin index:=ind
01DB10: 65 78 2B 31 3B 77 72 69 74 65 28 27 56 61 6C 65 ex+1;write('Vale
01DB20: 75 72 20 64 75 20 70 61 72 61 6D 65 74 72 65 20 ur du parametre
01DB30: 6E 2E 27 2C 62 6B 2C 27 20 3D 27 29 3B 0D 0A 20 n.',bk,' =');..
01DB40: 20 20 20 20 20 20 20 20 72 65 61 64 6C 6E 28 6C readln(l
01DB50: 64 61 5B 69 6E 64 65 78 5D 29 3B 0D 0A 20 20 20 da[index]);..
01DB60: 20 20 20 20 20 20 65 6E 64 3B 0D 0A 20 20 20 20 end;..
01DB70: 20 20 65 6E 64 3B 0D 0A 20 20 20 20 20 65 6E 64 end;.. end
01DB80: 3B 0D 0A 20 20 20 20 32 3A 20 62 65 67 69 6E 0D ;.. 2: begin.
01DB90: 0A 20 20 20 20 20 20 77 72 69 74 65 28 27 4E 6F . write('No
01DBA0: 20 64 65 20 6C 61 20 66 6F 6E 63 74 69 6F 6E 20 de la fonction
01DBB0: 78 3D 66 28 74 29 20 6E 2E 27 2C 7A 2C 27 20 3D x=f(t) n.',z,' =
01DBC0: 27 29 3B 66 78 5B 7A 5D 3A 3D 6E 75 6D 66 6F 6E ');fx[z]:=numfon
01DBD0: 63 3B 0D 0A 20 20 20 20 20 20 69 66 20 66 5B 66 c;.. if f[f
01DBE0: 78 5B 7A 5D 5D 3D 6E 69 6C 20 74 68 65 6E 0D 0A x[z]]=nil then..
01DBF0: 20 20 20 20 20 20 62 65 67 69 6E 0D 0A 20 20 20 begin..
01DC00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
01DC10: 19 00 00 00 02 09 4E E5 19 00 41 02 00 00 00 02 ......N...A.....
01DC20: 19 00 42 02 00 00 00 02 19 00 43 02 00 00 00 02 ..B.......C.....
01DC30: 19 00 44 02 00 00 00 02 19 00 45 02 00 00 00 02 ..D.......E.....
01DC40: 19 00 46 02 00 00 00 02 19 00 47 02 00 00 00 02 ..F.......G.....
01DC50: 19 00 48 02 00 00 00 02 19 00 49 02 00 00 00 02 ..H.......I.....
01DC60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DC70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DC80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DC90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DCA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DCB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DCC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DCD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DCE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DCF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01DD00: 20 20 20 20 20 6C 69 72 66 6F 6E 63 74 69 6F 6E lirfonction
01DD10: 28 66 5B 66 78 5B 7A 5D 5D 29 3B 0D 0A 20 20 20 (f[fx[z]]);..
01DD20: 20 20 20 20 20 6D 5B 66 78 5B 7A 5D 5D 3A 3D 6D m[fx[z]]:=m
01DD30: 5B 69 5D 3B 0D 0A 20 20 20 20 20 65 6E 64 3B 0D [i];.. end;.
01DD40: 0A 20 20 20 20 20 20 69 66 20 6D 5B 66 78 5B 7A . if m[fx[z
01DD50: 5D 5D 3E 30 20 74 68 65 6E 0D 0A 20 20 20 20 20 ]]>0 then..
01DD60: 20 62 65 67 69 6E 20 66 6F 72 20 62 6B 3A 3D 31 begin for bk:=1
01DD70: 20 74 6F 20 6D 5B 66 78 5B 7A 5D 5D 20 64 6F 0D to m[fx[z]] do.
01DD80: 0A 20 20 20 20 20 20 20 20 20 62 65 67 69 6E 20 . begin
01DD90: 20 69 6E 64 65 78 3A 3D 69 6E 64 65 78 2B 31 3B index:=index+1;
01DDA0: 77 72 69 74 65 28 27 56 61 6C 65 75 72 20 64 75 write('Valeur du
01DDB0: 20 70 61 72 61 6D 65 74 72 65 20 6E 2E 27 2C 62 parametre n.',b
01DDC0: 6B 2C 27 20 3D 27 29 3B 0D 0A 20 20 20 20 20 20 k,' =');..
01DDD0: 20 20 20 72 65 61 64 6C 6E 28 6C 64 61 5B 69 6E readln(lda[in
01DDE0: 64 65 78 5D 29 3B 0D 0A 20 20 20 20 20 20 20 20 dex]);..
01DDF0: 20 65 6E 64 3B 0D 0A 20 20 20 20 20 20 65 6E 64 end;.. end
01DE00: 3B 0D 0A 20 20 20 20 20 20 77 72 69 74 65 28 27 ;.. write('
01DE10: 4E 6F 20 64 65 20 6C 61 20 66 6F 6E 63 74 69 6F No de la fonctio
01DE20: 6E 20 79 3D 66 28 74 29 20 6E 2E 27 2C 7A 2C 27 n y=f(t) n.',z,'
01DE30: 20 3D 27 29 3B 66 79 5B 7A 5D 3A 3D 6E 75 6D 66 =');fy[z]:=numf
01DE40: 6F 6E 63 3B 0D 0A 20 20 20 20 20 20 69 66 20 66 onc;.. if f
01DE50: 5B 66 79 5B 7A 5D 5D 3D 6E 69 6C 20 74 68 65 6E [fy[z]]=nil then
01DE60: 0D 0A 20 20 20 20 20 20 20 62 65 67 69 6E 0D 0A .. begin..
01DE70: 20 20 20 20 20 20 20 20 20 6C 69 72 66 6F 6E 63 lirfonc
01DE80: 74 69 6F 6E 28 66 5B 66 79 5B 7A 5D 5D 29 3B 0D tion(f[fy[z]]);.
01DE90: 0A 20 20 20 20 20 20 20 20 20 6D 5B 66 79 5B 7A . m[fy[z
01DEA0: 5D 5D 3A 3D 6D 5B 69 5D 3B 0D 0A 20 20 20 20 20 ]]:=m[i];..
01DEB0: 20 65 6E 64 3B 0D 0A 20 20 20 20 20 20 69 66 20 end;.. if
01DEC0: 66 79 5B 7A 5D 3D 66 78 5B 7A 5D 20 74 68 65 6E fy[z]=fx[z] then
01DED0: 0D 0A 20 20 20 20 20 20 62 65 67 69 6E 0D 0A 20 .. begin..
01DEE0: 20 20 20 20 20 20 20 66 79 5B 7A 5D 3A 3D 30 3B fy[z]:=0;
01DEF0: 0D 0A 20 20 20 20 20 20 20 20 66 5B 30 5D 3A 3D .. f[0]:=
01DF00: 66 5B 66 78 5B 7A 5D 5D 3B 0D 0A 20 20 20 20 20 f[fx[z]];..
01DF10: 20 20 20 6D 5B 30 5D 3A 3D 6D 5B 66 78 5B 7A 5D m[0]:=m[fx[z]
01DF20: 5D 3B 0D 0A 20 20 20 20 20 20 65 6E 64 3B 0D 0A ];.. end;..
01DF30: 20 20 20 20 20 20 69 66 20 6D 5B 66 79 5B 7A 5D if m[fy[z]
01DF40: 5D 3E 30 20 74 68 65 6E 0D 0A 20 20 20 20 20 20 ]>0 then..
01DF50: 62 65 67 69 6E 20 66 6F 72 20 62 6B 3A 3D 31 20 begin for bk:=1
01DF60: 74 6F 20 6D 5B 66 79 5B 7A 5D 5D 20 64 6F 0D 0A to m[fy[z]] do..
01DF70: 20 20 20 20 20 20 20 20 20 62 65 67 69 6E 20 20 begin
01DF80: 69 6E 64 65 78 3A 3D 69 6E 64 65 78 2B 31 3B 77 index:=index+1;w
01DF90: 72 69 74 65 28 27 56 61 6C 65 75 72 20 64 75 20 rite('Valeur du
01DFA0: 70 61 72 61 6D 65 74 72 65 20 6E 2E 27 2C 62 6B parametre n.',bk
01DFB0: 2C 27 20 3D 27 29 3B 0D 0A 20 20 20 20 20 20 20 ,' =');..
01DFC0: 20 20 72 65 61 64 6C 6E 28 6C 64 61 5B 69 6E 64 readln(lda[ind
01DFD0: 65 78 5D 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 ex]);..
01DFE0: 65 6E 64 3B 0D 0A 20 20 20 20 20 20 65 6E 64 3B end;.. end;
01DFF0: 0D 0A 20 20 20 20 65 6E 64 3B 0D 0A 20 20 20 20 .. end;..
01E000: 33 3A 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 77 3: begin.. w
01E010: 72 69 74 65 28 27 4E 6F 20 64 65 20 6C 61 20 66 rite('No de la f
01E020: 6F 6E 63 74 69 6F 6E 20 72 3D 66 28 74 29 20 6E onction r=f(t) n
01E030: 2E 27 2C 7A 2C 27 20 3D 27 29 3B 66 78 5B 7A 5D .',z,' =');fx[z]
01E040: 3A 3D 6E 75 6D 66 6F 6E 63 3B 0D 0A 20 20 20 20 :=numfonc;..
01E050: 20 69 66 20 66 5B 66 78 5B 7A 5D 5D 3D 6E 69 6C if f[fx[z]]=nil
01E060: 20 74 68 65 6E 0D 0A 20 20 20 20 20 20 20 62 65 then.. be
01E070: 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 20 6C 69 gin.. li
01E080: 72 66 6F 6E 63 74 69 6F 6E 28 66 5B 66 78 5B 7A rfonction(f[fx[z
01E090: 5D 5D 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 6D ]]);.. m
01E0A0: 5B 66 78 5B 7A 5D 5D 3A 3D 6D 5B 69 5D 3B 0D 0A [fx[z]]:=m[i];..
01E0B0: 20 20 20 20 20 20 20 65 6E 64 3B 0D 0A 20 20 20 end;..
01E0C0: 20 20 69 66 20 6D 5B 66 78 5B 7A 5D 5D 3E 30 20 if m[fx[z]]>0
01E0D0: 74 68 65 6E 0D 0A 20 20 20 20 20 62 65 67 69 6E then.. begin
01E0E0: 20 66 6F 72 20 62 6B 3A 3D 31 20 74 6F 20 6D 5B for bk:=1 to m[
01E0F0: 66 78 5B 7A 5D 5D 20 64 6F 0D 0A 20 20 20 20 20 fx[z]] do..
01E100: 20 20 20 20 62 65 67 69 6E 20 20 69 6E 64 65 78 begin index
01E110: 3A 3D 69 6E 64 65 78 2B 31 3B 77 72 69 74 65 28 :=index+1;write(
01E120: 27 56 61 6C 65 75 72 20 64 75 20 70 61 72 61 6D 'Valeur du param
01E130: 65 74 72 65 20 6E 2E 27 2C 62 6B 2C 27 20 3D 27 etre n.',bk,' ='
01E140: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 72 65 61 );.. rea
01E150: 64 6C 6E 28 6C 64 61 5B 69 6E 64 65 78 5D 29 3B dln(lda[index]);
01E160: 0D 0A 20 20 20 20 20 20 20 20 20 65 6E 64 3B 0D .. end;.
01E170: 0A 20 20 20 20 20 65 6E 64 3B 0D 0A 20 20 20 20 . end;..
01E180: 20 65 6E 64 3B 0D 0A 20 20 20 20 65 6E 64 3B 0D end;.. end;.
01E190: 0A 20 20 20 65 6E 64 3B 0D 0A 20 65 6E 64 3B 0D . end;.. end;.
01E1A0: 0A 20 20 63 6C 72 73 63 72 3B 0D 0A 20 20 6F 72 . clrscr;.. or
01E1B0: 69 67 69 6E 28 72 6F 75 6E 64 28 78 6F 29 2C 72 igin(round(xo),r
01E1C0: 6F 75 6E 64 28 79 6F 29 29 3B 0D 0A 20 20 67 72 ound(yo));.. gr
01E1D0: 61 66 6D 6F 76 65 28 30 2C 30 29 3B 64 72 61 77 afmove(0,0);draw
01E1E0: 72 28 36 34 30 2D 72 6F 75 6E 64 28 78 6F 29 2C r(640-round(xo),
01E1F0: 30 29 3B 64 72 61 77 72 28 2D 36 34 30 2C 30 29 0);drawr(-640,0)
01E200: 3B 0D 0A 20 20 67 72 61 66 6D 6F 76 65 28 30 2C ;.. grafmove(0,
01E210: 30 29 3B 64 72 61 77 72 28 30 2C 34 30 30 2D 72 0);drawr(0,400-r
01E220: 6F 75 6E 64 28 79 6F 29 29 3B 64 72 61 77 72 28 ound(yo));drawr(
01E230: 30 2C 2D 34 30 30 29 3B 0D 0A 20 20 67 72 61 66 0,-400);.. graf
01E240: 6D 6F 76 65 28 72 6F 75 6E 64 28 75 78 29 2C 30 move(round(ux),0
01E250: 29 3B 64 72 61 77 72 28 30 2C 35 29 3B 64 72 61 );drawr(0,5);dra
01E260: 77 72 28 30 2C 2D 31 30 29 3B 0D 0A 20 20 67 72 wr(0,-10);.. gr
01E270: 61 66 6D 6F 76 65 28 30 2C 72 6F 75 6E 64 28 75 afmove(0,round(u
01E280: 79 29 29 3B 64 72 61 77 72 28 35 2C 30 29 3B 64 y));drawr(5,0);d
01E290: 72 61 77 72 28 2D 31 30 2C 30 29 3B 0D 0A 20 20 rawr(-10,0);..
01E2A0: 69 6E 64 65 78 3A 3D 30 3B 0D 0A 20 20 66 6F 72 index:=0;.. for
01E2B0: 20 7A 3A 3D 31 20 74 6F 20 6E 62 66 6F 6E 63 20 z:=1 to nbfonc
01E2C0: 64 6F 0D 0A 20 20 62 65 67 69 6E 0D 0A 20 20 63 do.. begin.. c
01E2D0: 61 73 65 20 63 68 6F 69 78 20 6F 66 0D 0A 20 20 ase choix of..
01E2E0: 31 3A 20 62 65 67 69 6E 0D 0A 20 20 78 3A 3D 78 1: begin.. x:=x
01E2F0: 78 64 3B 70 72 65 63 65 64 65 3A 3D 66 61 6C 73 xd;precede:=fals
01E300: 65 3B 0D 0A 20 20 20 20 69 66 20 6D 5B 66 78 5B e;.. if m[fx[
01E310: 7A 5D 5D 3E 30 20 74 68 65 6E 0D 0A 20 20 20 20 z]]>0 then..
01E320: 20 62 65 67 69 6E 20 66 6F 72 20 62 6B 3A 3D 31 begin for bk:=1
01E330: 20 74 6F 20 6D 5B 66 78 5B 7A 5D 5D 20 64 6F 0D to m[fx[z]] do.
01E340: 0A 20 20 20 20 20 20 20 20 20 62 65 67 69 6E 0D . begin.
01E350: 0A 20 20 20 20 20 20 20 20 20 69 6E 64 65 78 3A . index:
01E360: 3D 69 6E 64 65 78 2B 31 3B 70 5B 62 6B 2C 66 78 =index+1;p[bk,fx
01E370: 5B 7A 5D 5D 3A 3D 6C 64 61 5B 69 6E 64 65 78 5D [z]]:=lda[index]
01E380: 3B 0D 0A 20 20 20 20 20 20 20 20 20 65 6E 64 3B ;.. end;
01E390: 0D 0A 20 20 20 20 20 65 6E 64 3B 0D 0A 20 20 77 .. end;.. w
01E3A0: 68 69 6C 65 20 78 3C 78 78 61 20 64 6F 0D 0A 20 hile x<xxa do..
01E3B0: 20 62 65 67 69 6E 0D 0A 20 20 64 65 66 69 6E 69 begin.. defini
01E3C0: 3A 3D 74 72 75 65 3B 69 3A 3D 66 78 5B 7A 5D 3B :=true;i:=fx[z];
01E3D0: 0D 0A 20 20 20 20 20 20 20 20 20 72 65 73 75 6C .. resul
01E3E0: 74 61 74 3A 3D 63 61 6C 63 75 6C 28 66 5B 66 78 tat:=calcul(f[fx
01E3F0: 5B 7A 5D 5D 2C 78 29 3B 0D 0A 20 20 20 20 20 20 [z]],x);..
01E400: 20 20 20 69 66 20 28 28 64 65 66 69 6E 69 3D 74 if ((defini=t
01E410: 72 75 65 29 20 61 6E 64 20 28 61 62 73 28 72 65 rue) and (abs(re
01E420: 73 75 6C 74 61 74 29 3C 31 30 30 30 29 29 20 74 sultat)<1000)) t
01E430: 68 65 6E 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 hen begin..
01E440: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01E450: 20 20 20 20 20 20 20 20 20 78 70 3A 3D 72 6F 75 xp:=rou
01E460: 6E 64 28 78 2A 75 78 29 3B 0D 0A 20 20 20 20 20 nd(x*ux);..
01E470: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01E480: 20 20 20 20 20 20 20 20 20 79 70 3A 3D 72 6F 75 yp:=rou
01E490: 6E 64 28 72 65 73 75 6C 74 61 74 2A 75 79 29 3B nd(resultat*uy);
01E4A0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
01E4B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01E4C0: 69 66 20 70 72 65 63 65 64 65 3D 66 61 6C 73 65 if precede=false
01E4D0: 20 74 68 65 6E 20 70 6C 6F 74 28 78 70 2C 79 70 then plot(xp,yp
01E4E0: 29 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 )..
01E4F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01E500: 20 65 6C 73 65 20 64 72 61 77 28 78 70 2C 79 70 else draw(xp,yp
01E510: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 );..
01E520: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01E530: 20 20 70 72 65 63 65 64 65 3A 3D 74 72 75 65 3B precede:=true;
01E540: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
01E550: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 e
01E560: 6E 64 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 nd..
01E570: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01E580: 20 65 6C 73 65 0D 0A 20 20 20 20 20 20 20 20 20 else..
01E590: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
01E5A0: 20 20 20 20 70 72 65 63 65 64 65 3A 3D 66 61 6C precede:=fal
01E5B0: 73 65 3B 0D 0A 20 20 20 20 20 20 20 20 78 3A 3D se;.. x:=
01E5C0: 78 2B 70 61 73 3B 0D 0A 20 20 20 20 20 65 6E 64 x+pas;.. end
01E5D0: 3B 0D 0A 20 20 20 20 65 6E 64 3B 0D 0A 20 20 20 ;.. end;..
01E5E0: 32 3A 20 62 65 67 69 6E 0D 0A 20 20 20 78 3A 3D 2: begin.. x:=
01E5F0: 78 78 64 3B 70 72 65 63 65 64 65 3A 3D 66 61 6C xxd;precede:=fal
01E600: 73 65 3B 0D 0A 20 20 20 20 69 66 20 6D 5B 66 78 se;.. if m[fx
01E610: 5B 7A 5D 5D 3E 30 20 74 68 65 6E 0D 0A 20 20 20 [z]]>0 then..
01E620: 20 62 65 67 69 6E 20 66 6F 72 20 62 6B 3A 3D 31 begin for bk:=1
01E630: 20 74 6F 20 6D 5B 66 78 5B 7A 5D 5D 20 64 6F 0D to m[fx[z]] do.
01E640: 0A 20 20 20 20 20 20 20 20 20 62 65 67 69 6E 0D . begin.
01E650: 0A 20 20 20 20 20 20 20 20 20 69 6E 64 65 78 3A . index:
01E660: 3D 69 6E 64 65 78 2B 31 3B 70 5B 62 6B 2C 66 78 =index+1;p[bk,fx
01E670: 5B 7A 5D 5D 3A 3D 6C 64 61 5B 69 6E 64 65 78 5D [z]]:=lda[index]
01E680: 3B 0D 0A 20 20 20 20 20 20 20 20 20 65 6E 64 3B ;.. end;
01E690: 0D 0A 20 20 20 20 65 6E 64 3B 0D 0A 20 20 20 20 .. end;..
01E6A0: 69 66 20 6D 5B 66 79 5B 7A 5D 5D 3E 30 20 74 68 if m[fy[z]]>0 th
01E6B0: 65 6E 0D 0A 20 20 20 20 62 65 67 69 6E 20 66 6F en.. begin fo
01E6C0: 72 20 62 6B 3A 3D 31 20 74 6F 20 6D 5B 66 79 5B r bk:=1 to m[fy[
01E6D0: 7A 5D 5D 20 64 6F 0D 0A 20 20 20 20 20 20 20 20 z]] do..
01E6E0: 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 begin..
01E6F0: 20 69 6E 64 65 78 3A 3D 69 6E 64 65 78 2B 31 3B index:=index+1;
01E700: 70 5B 62 6B 2C 66 79 5B 7A 5D 5D 3A 3D 6C 64 61 p[bk,fy[z]]:=lda
01E710: 5B 69 6E 64 65 78 5D 3B 0D 0A 20 20 20 20 20 20 [index];..
01E720: 20 20 20 65 6E 64 3B 0D 0A 20 20 20 20 65 6E 64 end;.. end
01E730: 3B 0D 0A 20 20 20 77 68 69 6C 65 20 78 3C 78 78 ;.. while x<xx
01E740: 61 20 64 6F 0D 0A 20 20 20 62 65 67 69 6E 0D 0A a do.. begin..
01E750: 20 20 20 64 65 66 69 6E 69 3A 3D 74 72 75 65 3B defini:=true;
01E760: 69 3A 3D 66 78 5B 7A 5D 3B 0D 0A 20 20 20 20 20 i:=fx[z];..
01E770: 20 20 20 20 20 72 65 73 75 6C 74 61 74 3A 3D 63 resultat:=c
01E780: 61 6C 63 75 6C 28 66 5B 66 78 5B 7A 5D 5D 2C 78 alcul(f[fx[z]],x
01E790: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 69 66 );.. if
01E7A0: 20 28 28 64 65 66 69 6E 69 3D 74 72 75 65 29 20 ((defini=true)
01E7B0: 61 6E 64 20 28 61 62 73 28 72 65 73 75 6C 74 61 and (abs(resulta
01E7C0: 74 29 3C 31 30 30 30 29 29 20 74 68 65 6E 20 62 t)<1000)) then b
01E7D0: 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 20 20 egin..
01E7E0: 78 70 3A 3D 72 6F 75 6E 64 28 72 65 73 75 6C 74 xp:=round(result
01E7F0: 61 74 2A 75 78 29 3B 69 3A 3D 66 79 5B 7A 5D 3B at*ux);i:=fy[z];
01E800: 0D 0A 20 20 20 20 20 20 20 20 20 20 72 65 73 75 .. resu
01E810: 6C 74 61 74 3A 3D 63 61 6C 63 75 6C 28 66 5B 66 ltat:=calcul(f[f
01E820: 79 5B 7A 5D 5D 2C 78 29 3B 0D 0A 20 20 20 20 20 y[z]],x);..
01E830: 20 20 20 20 20 69 66 20 28 28 64 65 66 69 6E 69 if ((defini
01E840: 3D 74 72 75 65 29 20 61 6E 64 20 28 61 62 73 28 =true) and (abs(
01E850: 72 65 73 75 6C 74 61 74 29 3C 31 30 30 30 29 29 resultat)<1000))
01E860: 20 74 68 65 6E 20 62 65 67 69 6E 0D 0A 20 20 20 then begin..
01E870: 20 20 20 20 20 20 20 79 70 3A 3D 72 6F 75 6E 64 yp:=round
01E880: 28 72 65 73 75 6C 74 61 74 2A 75 79 29 3B 0D 0A (resultat*uy);..
01E890: 20 20 20 20 20 20 20 20 20 20 69 66 20 70 72 65 if pre
01E8A0: 63 65 64 65 3D 66 61 6C 73 65 20 74 68 65 6E 20 cede=false then
01E8B0: 70 6C 6F 74 28 78 70 2C 79 70 29 20 65 6C 73 65 plot(xp,yp) else
01E8C0: 20 64 72 61 77 28 78 70 2C 79 70 29 3B 0D 0A 20 draw(xp,yp);..
01E8D0: 20 20 20 20 20 20 20 20 20 70 72 65 63 65 64 65 precede
01E8E0: 3A 3D 74 72 75 65 3B 0D 0A 20 20 20 20 20 20 20 :=true;..
01E8F0: 20 20 20 65 6E 64 0D 0A 20 20 20 20 20 20 20 20 end..
01E900: 20 20 65 6C 73 65 20 70 72 65 63 65 64 65 3A 3D else precede:=
01E910: 66 61 6C 73 65 0D 0A 20 20 20 20 20 20 20 20 20 false..
01E920: 20 65 6E 64 0D 0A 20 20 20 20 20 20 20 20 20 20 end..
01E930: 65 6C 73 65 20 70 72 65 63 65 64 65 3A 3D 66 61 else precede:=fa
01E940: 6C 73 65 3B 0D 0A 20 20 20 20 20 20 20 78 3A 3D lse;.. x:=
01E950: 78 2B 70 61 73 3B 0D 0A 20 20 20 20 20 65 6E 64 x+pas;.. end
01E960: 3B 0D 0A 20 20 20 65 6E 64 3B 0D 0A 20 20 33 3A ;.. end;.. 3:
01E970: 62 65 67 69 6E 0D 0A 20 20 78 3A 3D 78 78 64 3B begin.. x:=xxd;
01E980: 70 72 65 63 65 64 65 3A 3D 66 61 6C 73 65 3B 0D precede:=false;.
01E990: 0A 20 20 20 69 66 20 6D 5B 66 78 5B 7A 5D 5D 3E . if m[fx[z]]>
01E9A0: 30 20 74 68 65 6E 0D 0A 20 20 20 62 65 67 69 6E 0 then.. begin
01E9B0: 20 20 66 6F 72 20 62 6B 3A 3D 31 20 74 6F 20 6D for bk:=1 to m
01E9C0: 5B 66 78 5B 7A 5D 5D 20 64 6F 0D 0A 20 20 20 20 [fx[z]] do..
01E9D0: 20 20 20 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 begin..
01E9E0: 20 20 20 20 20 69 6E 64 65 78 3A 3D 69 6E 64 65 index:=inde
01E9F0: 78 2B 31 3B 70 5B 62 6B 2C 66 78 5B 7A 5D 5D 3A x+1;p[bk,fx[z]]:
01EA00: 3D 6C 64 61 5B 69 6E 64 65 78 5D 3B 0D 0A 20 20 =lda[index];..
01EA10: 20 20 20 20 20 20 20 65 6E 64 3B 0D 0A 20 20 20 end;..
01EA20: 65 6E 64 3B 0D 0A 20 20 77 68 69 6C 65 20 78 3C end;.. while x<
01EA30: 78 78 61 20 64 6F 0D 0A 20 20 62 65 67 69 6E 0D xxa do.. begin.
01EA40: 0A 20 20 20 64 65 66 69 6E 69 3A 3D 74 72 75 65 . defini:=true
01EA50: 3B 69 3A 3D 66 78 5B 7A 5D 3B 0D 0A 20 20 20 20 ;i:=fx[z];..
01EA60: 20 20 20 20 20 72 65 73 75 6C 74 61 74 3A 3D 63 resultat:=c
01EA70: 61 6C 63 75 6C 28 66 5B 66 78 5B 7A 5D 5D 2C 78 alcul(f[fx[z]],x
01EA80: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 69 66 20 );.. if
01EA90: 28 28 64 65 66 69 6E 69 3D 74 72 75 65 29 20 61 ((defini=true) a
01EAA0: 6E 64 20 28 61 62 73 28 72 65 73 75 6C 74 61 74 nd (abs(resultat
01EAB0: 29 3C 31 30 30 30 29 29 20 74 68 65 6E 0D 0A 20 )<1000)) then..
01EAC0: 20 20 20 20 20 20 20 20 62 65 67 69 6E 0D 0A 20 begin..
01EAD0: 20 20 20 20 20 20 20 20 20 20 78 70 3A 3D 72 6F xp:=ro
01EAE0: 75 6E 64 28 72 65 73 75 6C 74 61 74 2A 63 6F 73 und(resultat*cos
01EAF0: 28 78 29 2A 75 78 29 3B 0D 0A 20 20 20 20 20 20 (x)*ux);..
01EB00: 70 72 6F 63 65 64 75 72 65 20 20 6F 72 64 72 65 procedure ordre
01EB10: 28 76 61 72 20 66 3A 66 6F 6E 63 74 69 6F 6E 29 (var f:fonction)
01EB20: 3B 0D 0A 66 6F 72 77 61 72 64 3B 0D 0A 0D 0A 66 ;..forward;....f
01EB30: 75 6E 63 74 69 6F 6E 20 20 6D 6F 6E 6F 6D 65 28 unction monome(
01EB40: 66 3A 66 6F 6E 63 74 69 6F 6E 29 3A 69 6E 74 65 f:fonction):inte
01EB50: 67 65 72 3B 0D 0A 66 6F 72 77 61 72 64 3B 0D 0A ger;..forward;..
01EB60: 0D 0A 70 72 6F 63 65 64 75 72 65 20 20 64 65 76 ..procedure dev
01EB70: 65 6C 6F 70 28 76 61 72 20 66 3A 66 6F 6E 63 74 elop(var f:fonct
01EB80: 69 6F 6E 29 3B 0D 0A 76 61 72 0D 0A 75 2C 76 3A ion);..var..u,v:
01EB90: 66 6F 6E 63 74 69 6F 6E 3B 0D 0A 62 65 67 69 6E fonction;..begin
01EBA0: 0D 0A 20 69 66 20 28 28 66 5E 2E 76 61 6C 65 75 .. if ((f^.valeu
01EBB0: 72 3D 27 2A 27 29 20 61 6E 64 20 28 28 66 5E 2E r='*') and ((f^.
01EBC0: 67 5E 2E 76 61 6C 65 75 72 3D 27 2B 27 29 20 6F g^.valeur='+') o
01EBD0: 72 20 28 66 5E 2E 67 5E 2E 76 61 6C 65 75 72 3D r (f^.g^.valeur=
01EBE0: 27 2D 27 29 29 0D 0A 20 61 6E 64 20 28 66 5E 2E '-')).. and (f^.
01EBF0: 64 5E 2E 6E 61 74 75 72 65 3C 3E 27 69 64 66 63 d^.nature<>'idfc
01EC00: 74 27 29 29 20 74 68 65 6E 0D 0A 20 20 20 62 65 t')) then.. be
01EC10: 67 69 6E 20 66 5E 2E 6E 61 74 75 72 65 3A 3D 66 gin f^.nature:=f
01EC20: 5E 2E 67 5E 2E 6E 61 74 75 72 65 3B 66 5E 2E 76 ^.g^.nature;f^.v
01EC30: 61 6C 65 75 72 3A 3D 66 5E 2E 67 5E 2E 76 61 6C aleur:=f^.g^.val
01EC40: 65 75 72 3B 0D 0A 20 20 20 20 20 20 20 20 20 6E eur;.. n
01EC50: 65 77 28 76 29 3B 76 5E 2E 6E 61 74 75 72 65 3A ew(v);v^.nature:
01EC60: 3D 27 6D 75 6C 74 69 27 3B 76 5E 2E 76 61 6C 65 ='multi';v^.vale
01EC70: 75 72 3A 3D 27 2A 27 3B 76 5E 2E 67 3A 3D 66 5E ur:='*';v^.g:=f^
01EC80: 2E 67 5E 2E 67 3B 76 5E 2E 64 3A 3D 66 5E 2E 64 .g^.g;v^.d:=f^.d
01EC90: 3B 0D 0A 20 20 20 20 20 20 20 20 20 6E 65 77 28 ;.. new(
01ECA0: 75 29 3B 75 5E 2E 6E 61 74 75 72 65 3A 3D 27 6D u);u^.nature:='m
01ECB0: 75 6C 74 69 27 3B 75 5E 2E 76 61 6C 65 75 72 3A ulti';u^.valeur:
01ECC0: 3D 27 2A 27 3B 75 5E 2E 67 3A 3D 66 5E 2E 67 5E ='*';u^.g:=f^.g^
01ECD0: 2E 64 3B 75 5E 2E 64 3A 3D 66 5E 2E 64 3B 0D 0A .d;u^.d:=f^.d;..
01ECE0: 20 20 20 20 20 20 20 20 20 66 5E 2E 67 3A 3D 76 f^.g:=v
01ECF0: 3B 66 5E 2E 64 3A 3D 75 3B 0D 0A 20 20 20 20 20 ;f^.d:=u;..
01ED00: 20 20 20 20 72 65 73 75 6C 74 3A 3D 31 0D 0A 20 result:=1..
01ED10: 20 20 65 6E 64 0D 0A 20 20 20 65 6C 73 65 0D 0A end.. else..
01ED20: 20 20 69 66 20 28 28 66 5E 2E 76 61 6C 65 75 72 if ((f^.valeur
01ED30: 3D 27 2A 27 29 20 61 6E 64 20 28 28 66 5E 2E 64 ='*') and ((f^.d
01ED40: 5E 2E 76 61 6C 65 75 72 3D 27 2B 27 29 20 6F 72 ^.valeur='+') or
01ED50: 20 28 66 5E 2E 64 5E 2E 76 61 6C 65 75 72 3D 27 (f^.d^.valeur='
01ED60: 2D 27 29 29 0D 0A 20 20 61 6E 64 20 28 66 5E 2E -')).. and (f^.
01ED70: 67 5E 2E 6E 61 74 75 72 65 3C 3E 27 69 64 66 63 g^.nature<>'idfc
01ED80: 74 27 29 29 20 74 68 65 6E 0D 0A 20 20 20 62 65 t')) then.. be
01ED90: 67 69 6E 20 66 5E 2E 6E 61 74 75 72 65 3A 3D 66 gin f^.nature:=f
01EDA0: 5E 2E 64 5E 2E 6E 61 74 75 72 65 3B 66 5E 2E 76 ^.d^.nature;f^.v
01EDB0: 61 6C 65 75 72 3A 3D 66 5E 2E 64 5E 2E 76 61 6C aleur:=f^.d^.val
01EDC0: 65 75 72 3B 0D 0A 20 20 20 20 20 20 20 20 20 6E eur;.. n
01EDD0: 65 77 28 76 29 3B 76 5E 2E 6E 61 74 75 72 65 3A ew(v);v^.nature:
01EDE0: 3D 27 6D 75 6C 74 69 27 3B 76 5E 2E 76 61 6C 65 ='multi';v^.vale
01EDF0: 75 72 3A 3D 27 2A 27 3B 76 5E 2E 67 3A 3D 66 5E ur:='*';v^.g:=f^
01EE00: 2E 67 3B 76 5E 2E 64 3A 3D 66 5E 2E 64 5E 2E 67 .g;v^.d:=f^.d^.g
01EE10: 3B 0D 0A 20 20 20 20 20 20 20 20 20 6E 65 77 28 ;.. new(
01EE20: 75 29 3B 75 5E 2E 6E 61 74 75 72 65 3A 3D 27 6D u);u^.nature:='m
01EE30: 75 6C 74 69 27 3B 75 5E 2E 76 61 6C 65 75 72 3A ulti';u^.valeur:
01EE40: 3D 27 2A 27 3B 75 5E 2E 67 3A 3D 66 5E 2E 67 3B ='*';u^.g:=f^.g;
01EE50: 75 5E 2E 64 3A 3D 66 5E 2E 64 5E 2E 64 3B 0D 0A u^.d:=f^.d^.d;..
01EE60: 20 20 20 20 20 20 20 20 20 66 5E 2E 64 3A 3D 75 f^.d:=u
01EE70: 3B 66 5E 2E 67 3A 3D 76 3B 0D 0A 20 20 20 20 20 ;f^.g:=v;..
01EE80: 20 20 20 20 72 65 73 75 6C 74 3A 3D 31 0D 0A 20 result:=1..
01EE90: 20 20 20 65 6E 64 0D 0A 20 20 20 20 65 6C 73 65 end.. else
01EEA0: 0D 0A 20 20 69 66 20 28 28 66 5E 2E 76 61 6C 65 .. if ((f^.vale
01EEB0: 75 72 3D 27 5E 27 29 61 6E 64 28 66 5E 2E 64 5E ur='^')and(f^.d^
01EEC0: 2E 76 61 6C 65 75 72 3D 27 32 27 29 61 6E 64 28 .valeur='2')and(
01EED0: 66 5E 2E 67 5E 2E 76 61 6C 65 75 72 3D 27 2A 27 f^.g^.valeur='*'
01EEE0: 29 29 20 74 68 65 6E 0D 0A 20 20 20 20 62 65 67 )) then.. beg
01EEF0: 69 6E 20 66 5E 2E 6E 61 74 75 72 65 3A 3D 27 6D in f^.nature:='m
01EF00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
01EF10: 1A 00 00 00 02 09 4E E5 1A 00 41 02 00 00 00 02 ......N...A.....
01EF20: 1A 00 42 02 00 00 00 02 1A 00 43 02 00 00 00 02 ..B.......C.....
01EF30: 1A 00 44 02 00 00 00 02 1A 00 45 02 00 00 00 02 ..D.......E.....
01EF40: 1A 00 46 02 00 00 00 02 1A 00 47 02 00 00 00 02 ..F.......G.....
01EF50: 1A 00 48 02 00 00 00 02 1A 00 49 02 00 00 00 02 ..H.......I.....
01EF60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EF70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EF80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EF90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EFA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EFB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EFC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EFD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EFE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01EFF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
01F000: 75 6C 74 69 27 3B 66 5E 2E 76 61 6C 65 75 72 3A ulti';f^.valeur:
01F010: 3D 27 2A 27 3B 66 5E 2E 64 3A 3D 66 5E 2E 67 3B ='*';f^.d:=f^.g;
01F020: 72 65 73 75 6C 74 3A 3D 31 0D 0A 20 20 20 20 65 result:=1.. e
01F030: 6E 64 0D 0A 20 20 20 20 65 6C 73 65 0D 0A 20 20 nd.. else..
01F040: 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 69 66 20 begin.. if
01F050: 66 5E 2E 67 3C 3E 6E 69 6C 20 74 68 65 6E 20 64 f^.g<>nil then d
01F060: 65 76 65 6C 6F 70 28 66 5E 2E 67 29 3B 69 66 20 evelop(f^.g);if
01F070: 66 5E 2E 64 3C 3E 6E 69 6C 20 74 68 65 6E 20 64 f^.d<>nil then d
01F080: 65 76 65 6C 6F 70 28 66 5E 2E 64 29 3B 0D 0A 20 evelop(f^.d);..
01F090: 20 20 20 65 6E 64 3B 0D 0A 65 6E 64 3B 0D 0A 0D end;..end;...
01F0A0: 0A 70 72 6F 63 65 64 75 72 65 20 20 72 65 64 75 .procedure redu
01F0B0: 69 72 65 28 76 61 72 20 66 3A 66 6F 6E 63 74 69 ire(var f:foncti
01F0C0: 6F 6E 29 3B 0D 0A 76 61 72 0D 0A 75 2C 76 3A 66 on);..var..u,v:f
01F0D0: 6F 6E 63 74 69 6F 6E 3B 0D 0A 62 65 67 69 6E 0D onction;..begin.
01F0E0: 0A 20 69 66 20 28 28 28 66 5E 2E 76 61 6C 65 75 . if (((f^.valeu
01F0F0: 72 3D 27 2B 27 29 6F 72 28 66 5E 2E 76 61 6C 65 r='+')or(f^.vale
01F100: 75 72 3D 27 2D 27 29 29 61 6E 64 28 6D 6F 6E 6F ur='-'))and(mono
01F110: 6D 65 28 66 5E 2E 64 29 3E 3D 30 29 61 6E 64 0D me(f^.d)>=0)and.
01F120: 0A 20 28 6D 6F 6E 6F 6D 65 28 66 5E 2E 64 29 3D . (monome(f^.d)=
01F130: 6D 6F 6E 6F 6D 65 28 66 5E 2E 67 29 29 29 20 74 monome(f^.g))) t
01F140: 68 65 6E 0D 0A 20 62 65 67 69 6E 0D 0A 20 20 20 hen.. begin..
01F150: 69 66 20 28 28 66 5E 2E 64 5E 2E 76 61 6C 65 75 if ((f^.d^.valeu
01F160: 72 3D 27 2A 27 29 61 6E 64 28 66 5E 2E 67 5E 2E r='*')and(f^.g^.
01F170: 76 61 6C 65 75 72 3D 27 2A 27 29 29 20 74 68 65 valeur='*')) the
01F180: 6E 0D 0A 20 20 62 65 67 69 6E 0D 0A 20 20 20 69 n.. begin.. i
01F190: 66 20 28 28 28 66 5E 2E 67 5E 2E 64 5E 2E 76 61 f (((f^.g^.d^.va
01F1A0: 6C 65 75 72 3D 27 78 27 29 20 61 6E 64 20 28 66 leur='x') and (f
01F1B0: 5E 2E 64 5E 2E 64 5E 2E 76 61 6C 65 75 72 3D 27 ^.d^.d^.valeur='
01F1C0: 78 27 29 29 20 6F 72 0D 0A 20 20 28 28 66 5E 2E x')) or.. ((f^.
01F1D0: 67 5E 2E 64 5E 2E 76 61 6C 65 75 72 3D 27 5E 27 g^.d^.valeur='^'
01F1E0: 29 61 6E 64 28 66 5E 2E 64 5E 2E 64 5E 2E 76 61 )and(f^.d^.d^.va
01F1F0: 6C 65 75 72 3D 27 5E 27 29 61 6E 64 0D 0A 20 20 leur='^')and..
01F200: 28 66 5E 2E 67 5E 2E 64 5E 2E 64 5E 2E 76 61 6C (f^.g^.d^.d^.val
01F210: 65 75 72 3D 66 5E 2E 64 5E 2E 64 5E 2E 64 5E 2E eur=f^.d^.d^.d^.
01F220: 76 61 6C 65 75 72 29 29 29 0D 0A 20 20 20 74 68 valeur))).. th
01F230: 65 6E 0D 0A 20 20 20 20 20 62 65 67 69 6E 0D 0A en.. begin..
01F240: 20 20 20 20 20 20 6E 65 77 28 75 29 3B 75 5E 2E new(u);u^.
01F250: 6E 61 74 75 72 65 3A 3D 66 5E 2E 6E 61 74 75 72 nature:=f^.natur
01F260: 65 3B 75 5E 2E 76 61 6C 65 75 72 3A 3D 66 5E 2E e;u^.valeur:=f^.
01F270: 76 61 6C 65 75 72 3B 0D 0A 20 20 20 20 20 20 66 valeur;.. f
01F280: 5E 2E 6E 61 74 75 72 65 3A 3D 27 6D 75 6C 74 69 ^.nature:='multi
01F290: 27 3B 66 5E 2E 76 61 6C 65 75 72 3A 3D 27 2A 27 ';f^.valeur:='*'
01F2A0: 3B 0D 0A 20 20 20 20 20 20 75 5E 2E 64 3A 3D 66 ;.. u^.d:=f
01F2B0: 5E 2E 64 5E 2E 67 3B 75 5E 2E 67 3A 3D 66 5E 2E ^.d^.g;u^.g:=f^.
01F2C0: 67 5E 2E 67 3B 66 5E 2E 67 3A 3D 75 3B 66 5E 2E g^.g;f^.g:=u;f^.
01F2D0: 64 3A 3D 66 5E 2E 64 5E 2E 64 3B 73 69 6D 70 6C d:=f^.d^.d;simpl
01F2E0: 69 66 28 66 5E 2E 67 29 3B 0D 0A 20 20 20 20 20 if(f^.g);..
01F2F0: 20 72 65 73 75 6C 74 3A 3D 31 0D 0A 20 20 20 20 result:=1..
01F300: 20 65 6E 64 0D 0A 20 20 20 20 65 6E 64 0D 0A 20 end.. end..
01F310: 20 20 20 65 6C 73 65 0D 0A 20 20 62 65 67 69 6E else.. begin
01F320: 0D 0A 20 20 20 20 20 69 66 20 28 28 66 5E 2E 64 .. if ((f^.d
01F330: 5E 2E 76 61 6C 65 75 72 3D 27 78 27 29 6F 72 28 ^.valeur='x')or(
01F340: 28 66 5E 2E 64 5E 2E 76 61 6C 65 75 72 3D 27 5E (f^.d^.valeur='^
01F350: 27 29 61 6E 64 28 66 5E 2E 64 5E 2E 67 5E 2E 76 ')and(f^.d^.g^.v
01F360: 61 6C 65 75 72 3D 27 78 27 29 29 29 0D 0A 20 20 aleur='x')))..
01F370: 20 20 20 20 74 68 65 6E 20 62 65 67 69 6E 20 6E then begin n
01F380: 65 77 28 75 29 3B 75 5E 2E 6E 61 74 75 72 65 3A ew(u);u^.nature:
01F390: 3D 27 6D 75 6C 74 69 27 3B 75 5E 2E 76 61 6C 65 ='multi';u^.vale
01F3A0: 75 72 3A 3D 27 2A 27 3B 0D 0A 20 20 20 20 20 20 ur:='*';..
01F3B0: 20 20 20 20 20 20 20 20 20 20 20 6E 65 77 28 76 new(v
01F3C0: 29 3B 76 5E 2E 6E 61 74 75 72 65 3A 3D 27 6E 6F );v^.nature:='no
01F3D0: 6D 62 72 65 27 3B 76 5E 2E 76 61 6C 65 75 72 3A mbre';v^.valeur:
01F3E0: 3D 27 31 27 3B 0D 0A 20 20 20 20 20 20 20 20 20 ='1';..
01F3F0: 20 20 20 20 20 20 20 20 20 76 5E 2E 64 3A 3D 6E v^.d:=n
01F400: 69 6C 3B 76 5E 2E 67 3A 3D 6E 69 6C 3B 75 5E 2E il;v^.g:=nil;u^.
01F410: 67 3A 3D 76 3B 75 5E 2E 64 3A 3D 66 5E 2E 64 3B g:=v;u^.d:=f^.d;
01F420: 66 5E 2E 64 3A 3D 75 3B 0D 0A 20 20 20 20 20 20 f^.d:=u;..
01F430: 20 20 20 20 20 20 20 20 20 20 20 72 65 64 75 69 redui
01F440: 72 65 28 66 29 3B 72 65 73 75 6C 74 3A 3D 31 3B re(f);result:=1;
01F450: 0D 0A 20 20 20 20 20 20 20 20 20 20 65 6E 64 0D .. end.
01F460: 0A 20 20 20 20 20 20 20 20 20 20 65 6C 73 65 0D . else.
01F470: 0A 20 20 20 20 20 69 66 20 28 28 66 5E 2E 67 5E . if ((f^.g^
01F480: 2E 76 61 6C 65 75 72 3D 27 78 27 29 6F 72 28 28 .valeur='x')or((
01F490: 66 5E 2E 67 5E 2E 76 61 6C 65 75 72 3D 27 5E 27 f^.g^.valeur='^'
01F4A0: 29 61 6E 64 28 66 5E 2E 67 5E 2E 67 5E 2E 76 61 )and(f^.g^.g^.va
01F4B0: 6C 65 75 72 3D 27 78 27 29 29 29 0D 0A 20 20 20 leur='x')))..
01F4C0: 20 20 74 68 65 6E 20 62 65 67 69 6E 20 6E 65 77 then begin new
01F4D0: 28 75 29 3B 75 5E 2E 6E 61 74 75 72 65 3A 3D 27 (u);u^.nature:='
01F4E0: 6D 75 6C 74 69 27 3B 75 5E 2E 76 61 6C 65 75 72 multi';u^.valeur
01F4F0: 3A 3D 27 2A 27 3B 0D 0A 20 20 20 20 20 20 20 20 :='*';..
01F500: 20 20 20 20 20 20 20 20 6E 65 77 28 76 29 3B 76 new(v);v
01F510: 5E 2E 6E 61 74 75 72 65 3A 3D 27 6E 6F 6D 62 72 ^.nature:='nombr
01F520: 65 27 3B 76 5E 2E 76 61 6C 65 75 72 3A 3D 27 31 e';v^.valeur:='1
01F530: 27 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 ';..
01F540: 20 20 20 20 76 5E 2E 64 3A 3D 6E 69 6C 3B 76 5E v^.d:=nil;v^
01F550: 2E 67 3A 3D 6E 69 6C 3B 75 5E 2E 67 3A 3D 76 3B .g:=nil;u^.g:=v;
01F560: 75 5E 2E 64 3A 3D 66 5E 2E 67 3B 66 5E 2E 67 3A u^.d:=f^.g;f^.g:
01F570: 3D 75 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 =u;..
01F580: 20 20 20 20 72 65 64 75 69 72 65 28 66 29 3B 72 reduire(f);r
01F590: 65 73 75 6C 74 3A 3D 31 3B 0D 0A 20 20 20 20 20 esult:=1;..
01F5A0: 20 20 20 20 65 6E 64 0D 0A 20 20 20 20 20 20 20 end..
01F5B0: 20 20 65 6C 73 65 0D 0A 20 20 20 20 20 20 20 20 else..
01F5C0: 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 begin..
01F5D0: 20 20 20 20 20 20 20 73 69 6D 70 6C 69 66 28 66 simplif(f
01F5E0: 29 3B 72 65 73 75 6C 74 3A 3D 31 3B 0D 0A 20 20 );result:=1;..
01F5F0: 20 20 20 20 20 20 20 65 6E 64 3B 0D 0A 20 20 69 end;.. i
01F600: 66 20 66 5E 2E 64 3C 3E 6E 69 6C 20 74 68 65 6E f f^.d<>nil then
01F610: 20 72 65 64 75 69 72 65 28 66 5E 2E 64 29 3B 69 reduire(f^.d);i
01F620: 66 20 66 5E 2E 67 3C 3E 6E 69 6C 20 74 68 65 6E f f^.g<>nil then
01F630: 20 72 65 64 75 69 72 65 28 66 5E 2E 67 29 3B 0D reduire(f^.g);.
01F640: 0A 20 20 65 6E 64 0D 0A 65 6E 64 0D 0A 20 65 6C . end..end.. el
01F650: 73 65 0D 0A 20 62 65 67 69 6E 0D 0A 20 20 69 66 se.. begin.. if
01F660: 20 66 5E 2E 64 3C 3E 6E 69 6C 20 74 68 65 6E 20 f^.d<>nil then
01F670: 72 65 64 75 69 72 65 28 66 5E 2E 64 29 3B 69 66 reduire(f^.d);if
01F680: 20 66 5E 2E 67 3C 3E 6E 69 6C 20 74 68 65 6E 20 f^.g<>nil then
01F690: 72 65 64 75 69 72 65 28 66 5E 2E 67 29 3B 0D 0A reduire(f^.g);..
01F6A0: 20 65 6E 64 3B 0D 0A 65 6E 64 3B 0D 0A 0D 0A 70 end;..end;....p
01F6B0: 72 6F 63 65 64 75 72 65 20 20 70 72 6F 64 75 69 rocedure produi
01F6C0: 74 28 76 61 72 20 66 3A 66 6F 6E 63 74 69 6F 6E t(var f:fonction
01F6D0: 29 3B 0D 0A 76 61 72 0D 0A 75 2C 76 3A 66 6F 6E );..var..u,v:fon
01F6E0: 63 74 69 6F 6E 3B 0D 0A 20 62 65 67 69 6E 0D 0A ction;.. begin..
01F6F0: 20 20 69 66 20 66 5E 2E 76 61 6C 65 75 72 3D 27 if f^.valeur='
01F700: 2A 27 20 74 68 65 6E 0D 0A 20 20 62 65 67 69 6E *' then.. begin
01F710: 0D 0A 20 20 6F 72 64 72 65 28 66 5E 2E 64 29 3B .. ordre(f^.d);
01F720: 6F 72 64 72 65 28 66 5E 2E 67 29 3B 6F 72 64 72 ordre(f^.g);ordr
01F730: 65 28 66 29 3B 0D 0A 20 69 66 20 28 28 66 5E 2E e(f);.. if ((f^.
01F740: 64 5E 2E 76 61 6C 65 75 72 3D 27 2A 27 29 61 6E d^.valeur='*')an
01F750: 64 28 66 5E 2E 67 5E 2E 6E 61 74 75 72 65 3D 27 d(f^.g^.nature='
01F760: 6E 6F 6D 62 72 65 27 29 61 6E 64 28 66 5E 2E 64 nombre')and(f^.d
01F770: 5E 2E 67 5E 2E 6E 61 74 75 72 65 3D 27 6E 6F 6D ^.g^.nature='nom
01F780: 62 72 65 27 29 29 0D 0A 20 20 20 74 68 65 6E 0D bre')).. then.
01F790: 0A 20 20 20 20 20 62 65 67 69 6E 0D 0A 20 20 20 . begin..
01F7A0: 20 20 6E 65 77 28 76 29 3B 76 5E 2E 64 3A 3D 66 new(v);v^.d:=f
01F7B0: 5E 2E 67 3B 76 5E 2E 67 3A 3D 66 5E 2E 64 5E 2E ^.g;v^.g:=f^.d^.
01F7C0: 67 3B 76 5E 2E 6E 61 74 75 72 65 3A 3D 27 6D 75 g;v^.nature:='mu
01F7D0: 6C 74 69 27 3B 76 5E 2E 76 61 6C 65 75 72 3A 3D lti';v^.valeur:=
01F7E0: 27 2A 27 3B 0D 0A 20 20 20 20 20 66 5E 2E 64 3A '*';.. f^.d:
01F7F0: 3D 66 5E 2E 64 5E 2E 64 3B 66 5E 2E 67 3A 3D 76 =f^.d^.d;f^.g:=v
01F800: 3B 73 69 6D 70 6C 69 66 28 66 5E 2E 67 29 3B 72 ;simplif(f^.g);r
01F810: 65 73 75 6C 74 3A 3D 31 0D 0A 20 20 20 20 20 65 esult:=1.. e
01F820: 6E 64 0D 0A 20 20 20 20 20 65 6C 73 65 0D 0A 20 nd.. else..
01F830: 69 66 20 28 28 66 5E 2E 67 5E 2E 76 61 6C 65 75 if ((f^.g^.valeu
01F840: 72 3D 27 2A 27 29 61 6E 64 28 66 5E 2E 67 5E 2E r='*')and(f^.g^.
01F850: 67 5E 2E 6E 61 74 75 72 65 3D 27 6E 6F 6D 62 72 g^.nature='nombr
01F860: 65 27 29 61 6E 64 28 66 5E 2E 64 5E 2E 6E 61 74 e')and(f^.d^.nat
01F870: 75 72 65 3D 27 6E 6F 6D 62 72 65 27 29 29 0D 0A ure='nombre'))..
01F880: 20 20 20 74 68 65 6E 0D 0A 20 20 20 20 62 65 67 then.. beg
01F890: 69 6E 0D 0A 20 20 20 20 20 6E 65 77 28 76 29 3B in.. new(v);
01F8A0: 76 5E 2E 67 3A 3D 66 5E 2E 67 5E 2E 67 3B 76 5E v^.g:=f^.g^.g;v^
01F8B0: 2E 64 3A 3D 66 5E 2E 64 3B 76 5E 2E 6E 61 74 75 .d:=f^.d;v^.natu
01F8C0: 72 65 3A 3D 27 6D 75 6C 74 69 27 3B 76 5E 2E 76 re:='multi';v^.v
01F8D0: 61 6C 65 75 72 3A 3D 27 2A 27 3B 0D 0A 20 20 20 aleur:='*';..
01F8E0: 20 20 66 5E 2E 64 3A 3D 66 5E 2E 67 5E 2E 64 3B f^.d:=f^.g^.d;
01F8F0: 66 5E 2E 67 3A 3D 76 3B 73 69 6D 70 6C 69 66 28 f^.g:=v;simplif(
01F900: 66 5E 2E 67 29 3B 72 65 73 75 6C 74 3A 3D 31 0D f^.g);result:=1.
01F910: 0A 20 20 20 20 65 6E 64 0D 0A 20 20 20 20 20 65 . end.. e
01F920: 6C 73 65 0D 0A 20 20 20 69 66 20 28 28 66 5E 2E lse.. if ((f^.
01F930: 64 5E 2E 76 61 6C 65 75 72 3D 27 2A 27 29 61 6E d^.valeur='*')an
01F940: 64 28 66 5E 2E 67 5E 2E 76 61 6C 65 75 72 3D 27 d(f^.g^.valeur='
01F950: 2A 27 29 61 6E 64 28 66 5E 2E 67 5E 2E 67 5E 2E *')and(f^.g^.g^.
01F960: 6E 61 74 75 72 65 3D 27 6E 6F 6D 62 72 65 27 29 nature='nombre')
01F970: 0D 0A 20 20 20 61 6E 64 20 28 66 5E 2E 64 5E 2E .. and (f^.d^.
01F980: 67 5E 2E 6E 61 74 75 72 65 3D 27 6E 6F 6D 62 72 g^.nature='nombr
01F990: 65 27 29 29 0D 0A 20 20 20 74 68 65 6E 0D 0A 20 e')).. then..
01F9A0: 20 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 6E begin.. n
01F9B0: 65 77 28 75 29 3B 75 5E 2E 6E 61 74 75 72 65 3A ew(u);u^.nature:
01F9C0: 3D 27 6D 75 6C 74 69 27 3B 75 5E 2E 76 61 6C 65 ='multi';u^.vale
01F9D0: 75 72 3A 3D 27 2A 27 3B 75 5E 2E 67 3A 3D 66 5E ur:='*';u^.g:=f^
01F9E0: 2E 67 5E 2E 67 3B 75 5E 2E 64 3A 3D 66 5E 2E 64 .g^.g;u^.d:=f^.d
01F9F0: 5E 2E 67 3B 0D 0A 20 20 20 20 20 6E 65 77 28 76 ^.g;.. new(v
01FA00: 29 3B 76 5E 2E 6E 61 74 75 72 65 3A 3D 27 6D 75 );v^.nature:='mu
01FA10: 6C 74 69 27 3B 76 5E 2E 76 61 6C 65 75 72 3A 3D lti';v^.valeur:=
01FA20: 27 2A 27 3B 76 5E 2E 67 3A 3D 66 5E 2E 67 5E 2E '*';v^.g:=f^.g^.
01FA30: 64 3B 76 5E 2E 64 3A 3D 66 5E 2E 64 5E 2E 64 3B d;v^.d:=f^.d^.d;
01FA40: 0D 0A 20 20 20 20 20 66 5E 2E 67 3A 3D 75 3B 66 .. f^.g:=u;f
01FA50: 5E 2E 64 3A 3D 76 3B 73 69 6D 70 6C 69 66 28 66 ^.d:=v;simplif(f
01FA60: 5E 2E 67 29 3B 72 65 73 75 6C 74 3A 3D 31 0D 0A ^.g);result:=1..
01FA70: 20 20 20 20 65 6E 64 0D 0A 20 20 20 20 20 65 6C end.. el
01FA80: 73 65 0D 0A 20 20 20 69 66 20 28 28 28 66 5E 2E se.. if (((f^.
01FA90: 67 5E 2E 76 61 6C 65 75 72 3D 27 78 27 29 20 6F g^.valeur='x') o
01FAA0: 72 20 28 28 66 5E 2E 67 5E 2E 76 61 6C 65 75 72 r ((f^.g^.valeur
01FAB0: 3D 27 5E 27 29 20 61 6E 64 20 28 66 5E 2E 67 5E ='^') and (f^.g^
01FAC0: 2E 67 5E 2E 76 61 6C 65 75 72 3D 27 78 27 29 29 .g^.valeur='x'))
01FAD0: 29 0D 0A 20 20 20 61 6E 64 20 28 28 66 5E 2E 64 ).. and ((f^.d
01FAE0: 5E 2E 76 61 6C 65 75 72 3D 27 78 27 29 20 6F 72 ^.valeur='x') or
01FAF0: 20 28 28 66 5E 2E 64 5E 2E 76 61 6C 65 75 72 3D ((f^.d^.valeur=
01FB00: 27 5E 27 29 20 61 6E 64 20 28 66 5E 2E 64 5E 2E '^') and (f^.d^.
01FB10: 67 5E 2E 76 61 6C 65 75 72 3D 27 78 27 29 29 29 g^.valeur='x')))
01FB20: 29 0D 0A 20 20 20 74 68 65 6E 0D 0A 20 20 20 20 ).. then..
01FB30: 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 66 begin.. f
01FB40: 5E 2E 6E 61 74 75 72 65 3A 3D 27 70 75 69 73 73 ^.nature:='puiss
01FB50: 27 3B 66 5E 2E 76 61 6C 65 75 72 3A 3D 27 5E 27 ';f^.valeur:='^'
01FB60: 3B 0D 0A 20 20 20 20 20 20 6E 65 77 28 75 29 3B ;.. new(u);
01FB70: 75 5E 2E 6E 61 74 75 72 65 3A 3D 27 70 6C 75 73 u^.nature:='plus
01FB80: 27 3B 75 5E 2E 76 61 6C 65 75 72 3A 3D 27 2B 27 ';u^.valeur:='+'
01FB90: 3B 0D 0A 20 20 20 20 20 20 69 66 20 66 5E 2E 67 ;.. if f^.g
01FBA0: 5E 2E 76 61 6C 65 75 72 3D 27 78 27 20 74 68 65 ^.valeur='x' the
01FBB0: 6E 20 62 65 67 69 6E 20 6E 65 77 28 76 29 3B 76 n begin new(v);v
01FBC0: 5E 2E 6E 61 74 75 72 65 3A 3D 27 6E 6F 6D 62 72 ^.nature:='nombr
01FBD0: 65 27 3B 0D 0A 20 20 20 20 20 20 76 5E 2E 76 61 e';.. v^.va
01FBE0: 6C 65 75 72 3A 3D 27 31 27 3B 76 5E 2E 64 3A 3D leur:='1';v^.d:=
01FBF0: 6E 69 6C 3B 76 5E 2E 67 3A 3D 6E 69 6C 3B 75 5E nil;v^.g:=nil;u^
01FC00: 2E 67 3A 3D 76 20 65 6E 64 0D 0A 20 20 20 20 20 .g:=v end..
01FC10: 20 65 6C 73 65 20 75 5E 2E 67 3A 3D 66 5E 2E 67 else u^.g:=f^.g
01FC20: 5E 2E 64 3B 0D 0A 20 20 20 20 20 20 69 66 20 66 ^.d;.. if f
01FC30: 5E 2E 64 5E 2E 76 61 6C 65 75 72 3D 27 78 27 20 ^.d^.valeur='x'
01FC40: 74 68 65 6E 20 62 65 67 69 6E 20 6E 65 77 28 76 then begin new(v
01FC50: 29 3B 76 5E 2E 6E 61 74 75 72 65 3A 3D 27 6E 6F );v^.nature:='no
01FC60: 6D 62 72 65 27 3B 0D 0A 20 20 20 20 20 20 76 5E mbre';.. v^
01FC70: 2E 76 61 6C 65 75 72 3A 3D 27 31 27 3B 76 5E 2E .valeur:='1';v^.
01FC80: 67 3A 3D 6E 69 6C 3B 76 5E 2E 64 3A 3D 6E 69 6C g:=nil;v^.d:=nil
01FC90: 3B 75 5E 2E 64 3A 3D 76 3B 66 5E 2E 67 3A 3D 66 ;u^.d:=v;f^.g:=f
01FCA0: 5E 2E 64 20 65 6E 64 0D 0A 20 20 20 20 20 20 65 ^.d end.. e
01FCB0: 6C 73 65 20 62 65 67 69 6E 20 75 5E 2E 64 3A 3D lse begin u^.d:=
01FCC0: 66 5E 2E 64 5E 2E 64 3B 66 5E 2E 67 3A 3D 66 5E f^.d^.d;f^.g:=f^
01FCD0: 2E 64 5E 2E 67 20 65 6E 64 3B 0D 0A 20 20 20 20 .d^.g end;..
01FCE0: 20 20 66 5E 2E 64 3A 3D 75 3B 73 69 6D 70 6C 69 f^.d:=u;simpli
01FCF0: 66 28 66 5E 2E 64 29 3B 72 65 73 75 6C 74 3A 3D f(f^.d);result:=
01FD00: 31 0D 0A 20 20 20 20 20 20 65 6E 64 0D 0A 20 20 1.. end..
01FD10: 20 65 6C 73 65 0D 0A 20 20 20 69 66 20 28 28 66 else.. if ((f
01FD20: 5E 2E 67 5E 2E 76 61 6C 65 75 72 3D 27 2A 27 29 ^.g^.valeur='*')
01FD30: 20 61 6E 64 20 28 28 66 5E 2E 64 5E 2E 76 61 6C and ((f^.d^.val
01FD40: 65 75 72 3D 27 78 27 29 20 6F 72 20 28 66 5E 2E eur='x') or (f^.
01FD50: 64 5E 2E 76 61 6C 65 75 72 3D 27 5E 27 29 29 29 d^.valeur='^')))
01FD60: 0D 0A 20 20 20 74 68 65 6E 0D 0A 20 20 20 62 65 .. then.. be
01FD70: 67 69 6E 20 20 6F 72 64 72 65 28 66 5E 2E 67 29 gin ordre(f^.g)
01FD80: 3B 6E 65 77 28 75 29 3B 75 5E 2E 6E 61 74 75 72 ;new(u);u^.natur
01FD90: 65 3A 3D 27 6D 75 6C 74 69 27 3B 75 5E 2E 76 61 e:='multi';u^.va
01FDA0: 6C 65 75 72 3A 3D 27 2A 27 3B 0D 0A 20 20 20 75 leur:='*';.. u
01FDB0: 5E 2E 64 3A 3D 66 5E 2E 64 3B 75 5E 2E 67 3A 3D ^.d:=f^.d;u^.g:=
01FDC0: 66 5E 2E 67 5E 2E 64 3B 66 5E 2E 64 3A 3D 75 3B f^.g^.d;f^.d:=u;
01FDD0: 66 5E 2E 67 3A 3D 66 5E 2E 67 5E 2E 67 3B 70 72 f^.g:=f^.g^.g;pr
01FDE0: 6F 64 75 69 74 28 66 5E 2E 64 29 3B 6F 72 64 72 oduit(f^.d);ordr
01FDF0: 65 28 66 29 0D 0A 20 20 20 65 6E 64 0D 0A 20 20 e(f).. end..
01FE00: 20 65 6C 73 65 0D 0A 20 62 65 67 69 6E 0D 0A 20 else.. begin..
01FE10: 20 69 66 20 66 5E 2E 67 3C 3E 6E 69 6C 20 74 68 if f^.g<>nil th
01FE20: 65 6E 20 70 72 6F 64 75 69 74 28 66 5E 2E 67 29 en produit(f^.g)
01FE30: 3B 69 66 20 66 5E 2E 64 3C 3E 6E 69 6C 20 74 68 ;if f^.d<>nil th
01FE40: 65 6E 20 70 72 6F 64 75 69 74 28 66 5E 2E 64 29 en produit(f^.d)
01FE50: 3B 0D 0A 65 6E 64 0D 0A 65 6E 64 0D 0A 20 65 6C ;..end..end.. el
01FE60: 73 65 0D 0A 20 62 65 67 69 6E 0D 0A 20 20 69 66 se.. begin.. if
01FE70: 20 66 5E 2E 67 3C 3E 6E 69 6C 20 74 68 65 6E 20 f^.g<>nil then
01FE80: 70 72 6F 64 75 69 74 28 66 5E 2E 67 29 3B 69 66 produit(f^.g);if
01FE90: 20 66 5E 2E 64 3C 3E 6E 69 6C 20 74 68 65 6E 20 f^.d<>nil then
01FEA0: 70 72 6F 64 75 69 74 28 66 5E 2E 64 29 3B 0D 0A produit(f^.d);..
01FEB0: 20 65 6E 64 3B 0D 0A 65 6E 64 3B 0D 0A 0D 0A 0D end;..end;.....
01FEC0: 0A 70 72 6F 63 65 64 75 72 65 20 6F 72 64 72 65 .procedure ordre
01FED0: 3B 0D 0A 76 61 72 0D 0A 75 3A 66 6F 6E 63 74 69 ;..var..u:foncti
01FEE0: 6F 6E 3B 0D 0A 62 65 67 69 6E 0D 0A 20 20 69 66 on;..begin.. if
01FEF0: 20 28 28 66 5E 2E 76 61 6C 65 75 72 3D 27 2B 27 ((f^.valeur='+'
01FF00: 29 6F 72 28 66 5E 2E 76 61 6C 65 75 72 3D 27 2D )or(f^.valeur='-
01FF10: 27 29 29 20 74 68 65 6E 0D 0A 20 20 62 65 67 69 ')) then.. begi
01FF20: 6E 0D 0A 20 20 20 20 20 69 66 20 66 5E 2E 76 61 n.. if f^.va
01FF30: 6C 65 75 72 3D 27 2D 27 20 74 68 65 6E 20 62 65 leur='-' then be
01FF40: 67 69 6E 20 66 5E 2E 6E 61 74 75 72 65 3A 3D 27 gin f^.nature:='
01FF50: 70 6C 75 73 27 3B 66 5E 2E 76 61 6C 65 75 72 3A plus';f^.valeur:
01FF60: 3D 27 2B 27 3B 0D 0A 20 20 20 20 20 20 20 20 20 ='+';..
01FF70: 20 20 20 20 20 20 20 20 20 20 20 66 5E 2E 64 3A f^.d:
01FF80: 3D 6F 70 70 6F 73 65 28 66 5E 2E 64 29 3B 65 6E =oppose(f^.d);en
01FF90: 64 3B 0D 0A 20 20 69 66 20 28 28 28 66 5E 2E 67 d;.. if (((f^.g
01FFA0: 5E 2E 76 61 6C 65 75 72 3D 27 2B 27 29 6F 72 20 ^.valeur='+')or
01FFB0: 28 66 5E 2E 67 5E 2E 76 61 6C 65 75 72 3D 27 2D (f^.g^.valeur='-
01FFC0: 27 29 29 0D 0A 20 20 61 6E 64 28 28 66 5E 2E 64 ')).. and((f^.d
01FFD0: 5E 2E 76 61 6C 65 75 72 3D 27 2B 27 29 6F 72 28 ^.valeur='+')or(
01FFE0: 66 5E 2E 64 5E 2E 76 61 6C 65 75 72 3D 27 2D 27 f^.d^.valeur='-'
01FFF0: 29 29 29 20 74 68 65 6E 0D 0A 20 20 62 65 67 69 ))) then.. begi
020000: 6E 0D 0A 20 20 20 6F 72 64 72 65 28 66 5E 2E 64 n.. ordre(f^.d
020010: 29 3B 6F 72 64 72 65 28 66 5E 2E 67 29 3B 0D 0A );ordre(f^.g);..
020020: 20 20 20 69 66 20 28 28 6D 6F 6E 6F 6D 65 28 66 if ((monome(f
020030: 5E 2E 67 5E 2E 64 29 3E 3D 30 29 61 6E 64 28 6D ^.g^.d)>=0)and(m
020040: 6F 6E 6F 6D 65 28 66 5E 2E 67 5E 2E 64 29 3C 6D onome(f^.g^.d)<m
020050: 6F 6E 6F 6D 65 28 66 5E 2E 64 5E 2E 67 29 29 29 onome(f^.d^.g)))
020060: 20 74 68 65 6E 0D 0A 20 20 20 20 62 65 67 69 6E then.. begin
020070: 0D 0A 20 20 20 20 69 66 20 66 5E 2E 67 5E 2E 76 .. if f^.g^.v
020080: 61 6C 65 75 72 3D 27 2D 27 20 74 68 65 6E 20 62 aleur='-' then b
020090: 65 67 69 6E 20 66 5E 2E 67 5E 2E 6E 61 74 75 72 egin f^.g^.natur
0200A0: 65 3A 3D 27 70 6C 75 73 27 3B 66 5E 2E 67 5E 2E e:='plus';f^.g^.
0200B0: 76 61 6C 65 75 72 3A 3D 27 2B 27 3B 0D 0A 20 20 valeur:='+';..
0200C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0200D0: 20 20 66 5E 2E 67 5E 2E 64 3A 3D 6F 70 70 6F 73 f^.g^.d:=oppos
0200E0: 65 28 66 5E 2E 67 5E 2E 64 29 3B 65 6E 64 3B 0D e(f^.g^.d);end;.
0200F0: 0A 20 20 20 20 69 66 20 66 5E 2E 64 5E 2E 76 61 . if f^.d^.va
020100: 6C 65 75 72 3D 27 2D 27 20 74 68 65 6E 20 62 65 leur='-' then be
020110: 67 69 6E 20 66 5E 2E 64 5E 2E 6E 61 74 75 72 65 gin f^.d^.nature
020120: 3A 3D 27 70 6C 75 73 27 3B 66 5E 2E 64 5E 2E 76 :='plus';f^.d^.v
020130: 61 6C 65 75 72 3A 3D 27 2B 27 3B 0D 0A 20 20 20 aleur:='+';..
020140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
020150: 20 66 5E 2E 64 5E 2E 64 3A 3D 6F 70 70 6F 73 65 f^.d^.d:=oppose
020160: 28 66 5E 2E 64 5E 2E 64 29 3B 20 65 6E 64 3B 0D (f^.d^.d); end;.
020170: 0A 20 20 20 20 6E 65 77 28 75 29 3B 75 5E 2E 6E . new(u);u^.n
020180: 61 74 75 72 65 3A 3D 27 70 6C 75 73 27 3B 75 5E ature:='plus';u^
020190: 2E 76 61 6C 65 75 72 3A 3D 27 2B 27 3B 6E 65 77 .valeur:='+';new
0201A0: 28 75 5E 2E 64 29 3B 75 5E 2E 64 5E 2E 6E 61 74 (u^.d);u^.d^.nat
0201B0: 75 72 65 3A 3D 27 70 6C 75 73 27 3B 0D 0A 20 20 ure:='plus';..
0201C0: 20 20 75 5E 2E 64 5E 2E 76 61 6C 65 75 72 3A 3D u^.d^.valeur:=
0201D0: 27 2B 27 3B 75 5E 2E 64 5E 2E 64 3A 3D 66 5E 2E '+';u^.d^.d:=f^.
0201E0: 64 5E 2E 64 3B 75 5E 2E 64 5E 2E 67 3A 3D 66 5E d^.d;u^.d^.g:=f^
0201F0: 2E 67 5E 2E 64 3B 6E 65 77 28 75 5E 2E 67 29 3B .g^.d;new(u^.g);
020200: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
020210: 1B 00 00 00 02 09 4E E5 1B 00 41 02 00 00 00 02 ......N...A.....
020220: 1B 00 42 02 00 00 00 02 1B 00 43 02 00 00 00 02 ..B.......C.....
020230: 1B 00 44 02 00 00 00 02 1B 00 45 02 00 00 00 02 ..D.......E.....
020240: 1B 00 46 02 00 00 00 02 1B 00 47 02 00 00 00 02 ..F.......G.....
020250: 1B 00 48 02 00 00 00 02 1B 00 49 02 00 00 00 02 ..H.......I.....
020260: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
020270: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
020280: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
020290: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0202A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0202B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0202C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0202D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0202E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0202F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
020300: 0D 0A 20 20 20 20 75 5E 2E 67 5E 2E 76 61 6C 65 .. u^.g^.vale
020310: 75 72 3A 3D 27 2B 27 3B 75 5E 2E 67 5E 2E 6E 61 ur:='+';u^.g^.na
020320: 74 75 72 65 3A 3D 27 70 6C 75 73 27 3B 75 5E 2E ture:='plus';u^.
020330: 67 5E 2E 67 3A 3D 66 5E 2E 67 5E 2E 67 3B 75 5E g^.g:=f^.g^.g;u^
020340: 2E 67 5E 2E 64 3A 3D 66 5E 2E 64 5E 2E 67 3B 0D .g^.d:=f^.d^.g;.
020350: 0A 20 20 20 20 75 3A 3D 66 3B 72 65 73 75 6C 74 . u:=f;result
020360: 3A 3D 31 3B 0D 0A 20 20 20 20 65 6E 64 3B 0D 0A :=1;.. end;..
020370: 20 20 65 6E 64 0D 0A 20 20 65 6C 73 65 0D 0A 69 end.. else..i
020380: 66 20 28 28 66 5E 2E 76 61 6C 65 75 72 3D 27 2B f ((f^.valeur='+
020390: 27 29 6F 72 28 66 5E 2E 76 61 6C 65 75 72 3D 27 ')or(f^.valeur='
0203A0: 2D 27 29 29 61 6E 64 28 28 66 5E 2E 67 5E 2E 76 -'))and((f^.g^.v
0203B0: 61 6C 65 75 72 3D 27 2B 27 29 6F 72 28 66 5E 2E aleur='+')or(f^.
0203C0: 67 5E 2E 76 61 6C 65 75 72 3D 27 2D 27 29 29 0D g^.valeur='-')).
0203D0: 0A 20 74 68 65 6E 20 62 65 67 69 6E 0D 0A 20 20 . then begin..
0203E0: 6F 72 64 72 65 28 66 5E 2E 67 29 3B 0D 0A 20 20 ordre(f^.g);..
0203F0: 69 66 20 28 28 6D 6F 6E 6F 6D 65 28 66 5E 2E 67 if ((monome(f^.g
020400: 5E 2E 64 29 3E 3D 30 29 61 6E 64 20 28 6D 6F 6E ^.d)>=0)and (mon
020410: 6F 6D 65 28 66 5E 2E 67 5E 2E 64 29 3C 6D 6F 6E ome(f^.g^.d)<mon
020420: 6F 6D 65 28 66 5E 2E 64 29 29 29 20 74 68 65 6E ome(f^.d))) then
020430: 0D 0A 20 20 20 62 65 67 69 6E 0D 0A 20 20 20 69 .. begin.. i
020440: 66 20 66 5E 2E 67 5E 2E 76 61 6C 65 75 72 3D 27 f f^.g^.valeur='
020450: 2D 27 20 74 68 65 6E 20 62 65 67 69 6E 20 66 5E -' then begin f^
020460: 2E 67 5E 2E 6E 61 74 75 72 65 3A 3D 27 70 6C 75 .g^.nature:='plu
020470: 73 27 3B 66 5E 2E 67 5E 2E 76 61 6C 65 75 72 3A s';f^.g^.valeur:
020480: 3D 27 2B 27 3B 0D 0A 20 20 20 20 20 20 20 20 20 ='+';..
020490: 20 20 20 20 20 20 20 20 20 20 20 66 5E 2E 67 5E f^.g^
0204A0: 2E 64 3A 3D 6F 70 70 6F 73 65 28 66 5E 2E 67 5E .d:=oppose(f^.g^
0204B0: 2E 64 29 3B 20 65 6E 64 3B 0D 0A 20 20 20 6E 65 .d); end;.. ne
0204C0: 77 28 75 29 3B 75 5E 2E 6E 61 74 75 72 65 3A 3D w(u);u^.nature:=
0204D0: 27 70 6C 75 73 27 3B 75 5E 2E 76 61 6C 65 75 72 'plus';u^.valeur
0204E0: 3A 3D 27 2B 27 3B 75 5E 2E 67 3A 3D 66 5E 2E 67 :='+';u^.g:=f^.g
0204F0: 5E 2E 67 3B 75 5E 2E 64 3A 3D 66 5E 2E 64 3B 0D ^.g;u^.d:=f^.d;.
020500: 0A 20 20 20 66 5E 2E 64 3A 3D 66 5E 2E 67 5E 2E . f^.d:=f^.g^.
020510: 64 3B 66 5E 2E 67 3A 3D 75 3B 72 65 73 75 6C 74 d;f^.g:=u;result
020520: 3A 3D 31 3B 0D 0A 20 20 20 65 6E 64 3B 0D 0A 20 :=1;.. end;..
020530: 20 20 65 6E 64 0D 0A 20 20 20 65 6C 73 65 0D 0A end.. else..
020540: 20 20 20 69 66 20 28 28 66 5E 2E 76 61 6C 65 75 if ((f^.valeu
020550: 72 3D 27 2B 27 29 6F 72 28 66 5E 2E 76 61 6C 65 r='+')or(f^.vale
020560: 75 72 3D 27 2D 27 29 29 61 6E 64 28 28 66 5E 2E ur='-'))and((f^.
020570: 64 5E 2E 76 61 6C 65 75 72 3D 27 2B 27 29 6F 72 d^.valeur='+')or
020580: 28 66 5E 2E 64 5E 2E 76 61 6C 65 75 72 3D 27 2D (f^.d^.valeur='-
020590: 27 29 29 0D 0A 20 74 68 65 6E 20 62 65 67 69 6E ')).. then begin
0205A0: 0D 0A 20 20 6F 72 64 72 65 28 66 5E 2E 64 29 3B .. ordre(f^.d);
0205B0: 0D 0A 20 20 69 66 20 28 28 6D 6F 6E 6F 6D 65 28 .. if ((monome(
0205C0: 66 5E 2E 67 29 3E 3D 30 29 61 6E 64 20 28 6D 6F f^.g)>=0)and (mo
0205D0: 6E 6F 6D 65 28 66 5E 2E 67 29 3C 6D 6F 6E 6F 6D nome(f^.g)<monom
0205E0: 65 28 66 5E 2E 64 5E 2E 67 29 29 29 20 74 68 65 e(f^.d^.g))) the
0205F0: 6E 0D 0A 20 20 20 62 65 67 69 6E 0D 0A 20 20 20 n.. begin..
020600: 69 66 20 66 5E 2E 64 5E 2E 76 61 6C 65 75 72 3D if f^.d^.valeur=
020610: 27 2D 27 20 74 68 65 6E 20 62 65 67 69 6E 20 66 '-' then begin f
020620: 5E 2E 64 5E 2E 6E 61 74 75 72 65 3A 3D 27 70 6C ^.d^.nature:='pl
020630: 75 73 27 3B 66 5E 2E 64 5E 2E 76 61 6C 65 75 72 us';f^.d^.valeur
020640: 3A 3D 27 2B 27 3B 0D 0A 20 20 20 20 20 20 20 20 :='+';..
020650: 20 20 20 20 20 20 20 20 20 20 20 20 66 5E 2E 64 f^.d
020660: 5E 2E 64 3A 3D 6F 70 70 6F 73 65 28 66 5E 2E 64 ^.d:=oppose(f^.d
020670: 5E 2E 64 29 3B 20 65 6E 64 3B 0D 0A 20 20 20 75 ^.d); end;.. u
020680: 3A 3D 66 5E 2E 67 3B 66 5E 2E 67 3A 3D 66 5E 2E :=f^.g;f^.g:=f^.
020690: 64 5E 2E 67 3B 66 5E 2E 64 5E 2E 67 3A 3D 75 3B d^.g;f^.d^.g:=u;
0206A0: 72 65 64 75 69 72 65 28 66 5E 2E 64 29 3B 0D 0A reduire(f^.d);..
0206B0: 20 20 20 75 3A 3D 66 5E 2E 64 3B 66 5E 2E 64 3A u:=f^.d;f^.d:
0206C0: 3D 66 5E 2E 67 3B 66 5E 2E 67 3A 3D 75 3B 72 65 =f^.g;f^.g:=u;re
0206D0: 73 75 6C 74 3A 3D 31 3B 0D 0A 20 20 20 65 6E 64 sult:=1;.. end
0206E0: 3B 0D 0A 20 20 20 65 6E 64 0D 0A 20 20 20 65 6C ;.. end.. el
0206F0: 73 65 0D 0A 20 20 69 66 20 28 28 28 66 5E 2E 76 se.. if (((f^.v
020700: 61 6C 65 75 72 3D 27 2B 27 29 6F 72 28 66 5E 2E aleur='+')or(f^.
020710: 76 61 6C 65 75 72 3D 27 2D 27 29 29 61 6E 64 20 valeur='-'))and
020720: 28 6D 6F 6E 6F 6D 65 28 66 5E 2E 67 29 3E 3D 30 (monome(f^.g)>=0
020730: 29 0D 0A 20 20 61 6E 64 20 28 6D 6F 6E 6F 6D 65 ).. and (monome
020740: 28 66 5E 2E 67 29 3C 6D 6F 6E 6F 6D 65 28 66 5E (f^.g)<monome(f^
020750: 2E 64 29 29 29 20 74 68 65 6E 0D 0A 20 20 20 62 .d))) then.. b
020760: 65 67 69 6E 0D 0A 20 20 20 20 75 3A 3D 66 5E 2E egin.. u:=f^.
020770: 64 3B 66 5E 2E 64 3A 3D 66 5E 2E 67 3B 66 5E 2E d;f^.d:=f^.g;f^.
020780: 67 3A 3D 75 3B 72 65 73 75 6C 74 3A 3D 31 3B 0D g:=u;result:=1;.
020790: 0A 20 20 65 6E 64 3B 0D 0A 20 20 65 6E 64 0D 0A . end;.. end..
0207A0: 20 20 65 6C 73 65 0D 0A 20 20 20 20 69 66 20 20 else.. if
0207B0: 28 28 66 5E 2E 76 61 6C 65 75 72 3D 27 2A 27 29 ((f^.valeur='*')
0207C0: 20 61 6E 64 20 28 28 66 5E 2E 67 5E 2E 76 61 6C and ((f^.g^.val
0207D0: 65 75 72 3D 27 78 27 29 20 6F 72 20 28 28 66 5E eur='x') or ((f^
0207E0: 2E 67 5E 2E 76 61 6C 65 75 72 3D 27 5E 27 29 20 .g^.valeur='^')
0207F0: 61 6E 64 0D 0A 20 20 28 66 5E 2E 67 5E 2E 67 5E and.. (f^.g^.g^
020800: 2E 76 61 6C 65 75 72 3D 27 78 27 29 29 29 29 20 .valeur='x'))))
020810: 74 68 65 6E 0D 0A 20 20 20 62 65 67 69 6E 0D 0A then.. begin..
020820: 20 20 20 20 69 66 20 66 5E 2E 76 61 6C 65 75 72 if f^.valeur
020830: 3D 27 2D 27 20 74 68 65 6E 20 62 65 67 69 6E 20 ='-' then begin
020840: 66 5E 2E 6E 61 74 75 72 65 3A 3D 27 70 6C 75 73 f^.nature:='plus
020850: 27 3B 66 5E 2E 76 61 6C 65 75 72 3A 3D 27 2B 27 ';f^.valeur:='+'
020860: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
020870: 20 20 20 20 20 20 20 66 5E 2E 64 3A 3D 6F 70 70 f^.d:=opp
020880: 6F 73 65 28 66 5E 2E 64 29 3B 65 6E 64 3B 0D 0A ose(f^.d);end;..
020890: 20 20 20 20 75 3A 3D 66 5E 2E 64 3B 66 5E 2E 64 u:=f^.d;f^.d
0208A0: 3A 3D 66 5E 2E 67 3B 66 5E 2E 67 3A 3D 75 3B 72 :=f^.g;f^.g:=u;r
0208B0: 65 73 75 6C 74 3A 3D 31 3B 0D 0A 20 20 65 6E 64 esult:=1;.. end
0208C0: 3B 0D 0A 20 20 69 66 20 66 5E 2E 64 3C 3E 6E 69 ;.. if f^.d<>ni
0208D0: 6C 20 74 68 65 6E 20 6F 72 64 72 65 28 66 5E 2E l then ordre(f^.
0208E0: 64 29 3B 0D 0A 20 20 69 66 20 66 5E 2E 67 3C 3E d);.. if f^.g<>
0208F0: 6E 69 6C 20 74 68 65 6E 20 6F 72 64 72 65 28 66 nil then ordre(f
020900: 5E 2E 67 29 3B 0D 0A 65 6E 64 3B 0D 0A 0D 0A 0D ^.g);..end;.....
020910: 0A 66 75 6E 63 74 69 6F 6E 20 20 20 20 6D 6F 6E .function mon
020920: 6F 6D 65 3B 0D 0A 76 61 72 0D 0A 64 65 67 72 65 ome;..var..degre
020930: 2C 72 65 73 75 6C 74 61 74 3A 69 6E 74 65 67 65 ,resultat:intege
020940: 72 3B 0D 0A 62 65 67 69 6E 0D 0A 20 20 69 66 20 r;..begin.. if
020950: 66 5E 2E 76 61 6C 65 75 72 3D 27 2A 27 20 74 68 f^.valeur='*' th
020960: 65 6E 0D 0A 20 20 20 62 65 67 69 6E 0D 0A 20 20 en.. begin..
020970: 20 20 69 66 20 28 28 66 5E 2E 67 5E 2E 6E 61 74 if ((f^.g^.nat
020980: 75 72 65 3D 27 6E 6F 6D 62 72 65 27 29 20 61 6E ure='nombre') an
020990: 64 20 28 66 5E 2E 64 5E 2E 6E 61 74 75 72 65 3D d (f^.d^.nature=
0209A0: 27 6E 6F 6D 62 72 65 27 29 29 20 74 68 65 6E 0D 'nombre')) then.
0209B0: 0A 20 20 20 20 6D 6F 6E 6F 6D 65 3A 3D 30 0D 0A . monome:=0..
0209C0: 20 20 20 20 65 6C 73 65 0D 0A 20 20 20 20 69 66 else.. if
0209D0: 20 28 28 66 5E 2E 67 5E 2E 6E 61 74 75 72 65 3D ((f^.g^.nature=
0209E0: 27 6E 6F 6D 62 72 65 27 29 20 61 6E 64 20 28 66 'nombre') and (f
0209F0: 5E 2E 64 5E 2E 76 61 6C 65 75 72 3D 27 78 27 29 ^.d^.valeur='x')
020A00: 29 20 74 68 65 6E 0D 0A 20 20 20 20 6D 6F 6E 6F ) then.. mono
020A10: 6D 65 3A 3D 31 0D 0A 20 20 20 20 65 6C 73 65 0D me:=1.. else.
020A20: 0A 20 20 20 20 69 66 20 28 28 66 5E 2E 67 5E 2E . if ((f^.g^.
020A30: 6E 61 74 75 72 65 3D 27 6E 6F 6D 62 72 65 27 29 nature='nombre')
020A40: 20 61 6E 64 20 28 66 5E 2E 64 5E 2E 76 61 6C 65 and (f^.d^.vale
020A50: 75 72 3D 27 5E 27 29 20 61 6E 64 20 28 66 5E 2E ur='^') and (f^.
020A60: 64 5E 2E 67 5E 2E 76 61 6C 65 75 72 3D 27 78 27 d^.g^.valeur='x'
020A70: 29 29 0D 0A 20 20 20 20 74 68 65 6E 0D 0A 20 20 )).. then..
020A80: 20 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 begin..
020A90: 76 61 6C 28 66 5E 2E 64 5E 2E 64 5E 2E 76 61 6C val(f^.d^.d^.val
020AA0: 65 75 72 2C 64 65 67 72 65 2C 72 65 73 75 6C 74 eur,degre,result
020AB0: 61 74 29 3B 0D 0A 20 20 20 20 20 20 69 66 20 72 at);.. if r
020AC0: 65 73 75 6C 74 61 74 3D 30 20 74 68 65 6E 20 6D esultat=0 then m
020AD0: 6F 6E 6F 6D 65 3A 3D 64 65 67 72 65 20 65 6C 73 onome:=degre els
020AE0: 65 20 6D 6F 6E 6F 6D 65 3A 3D 2D 31 3B 0D 0A 20 e monome:=-1;..
020AF0: 20 20 20 20 65 6E 64 0D 0A 20 20 20 20 65 6C 73 end.. els
020B00: 65 0D 0A 20 20 20 20 20 6D 6F 6E 6F 6D 65 3A 3D e.. monome:=
020B10: 2D 31 0D 0A 20 20 20 65 6E 64 0D 0A 20 20 20 20 -1.. end..
020B20: 65 6C 73 65 0D 0A 20 20 69 66 20 66 5E 2E 76 61 else.. if f^.va
020B30: 6C 65 75 72 3D 27 78 27 20 74 68 65 6E 20 6D 6F leur='x' then mo
020B40: 6E 6F 6D 65 3A 3D 31 0D 0A 20 20 20 20 65 6C 73 nome:=1.. els
020B50: 65 0D 0A 20 20 69 66 20 66 5E 2E 6E 61 74 75 72 e.. if f^.natur
020B60: 65 3D 27 6E 6F 6D 62 72 65 27 20 74 68 65 6E 20 e='nombre' then
020B70: 6D 6F 6E 6F 6D 65 3A 3D 30 0D 0A 20 20 20 20 65 monome:=0.. e
020B80: 6C 73 65 0D 0A 20 20 69 66 20 28 28 66 5E 2E 76 lse.. if ((f^.v
020B90: 61 6C 65 75 72 3D 27 5E 27 29 20 61 6E 64 20 28 aleur='^') and (
020BA0: 66 5E 2E 67 5E 2E 76 61 6C 65 75 72 3D 27 78 27 f^.g^.valeur='x'
020BB0: 29 20 61 6E 64 20 28 66 5E 2E 64 5E 2E 6E 61 74 ) and (f^.d^.nat
020BC0: 75 72 65 3D 27 6E 6F 6D 62 72 65 27 29 29 20 74 ure='nombre')) t
020BD0: 68 65 6E 0D 0A 20 20 20 62 65 67 69 6E 0D 0A 20 hen.. begin..
020BE0: 20 20 20 20 76 61 6C 28 66 5E 2E 64 5E 2E 76 61 val(f^.d^.va
020BF0: 6C 65 75 72 2C 64 65 67 72 65 2C 72 65 73 75 6C leur,degre,resul
020C00: 74 61 74 29 3B 0D 0A 20 20 20 20 20 69 66 20 72 tat);.. if r
020C10: 65 73 75 6C 74 61 74 3D 30 20 74 68 65 6E 20 6D esultat=0 then m
020C20: 6F 6E 6F 6D 65 3A 3D 64 65 67 72 65 20 65 6C 73 onome:=degre els
020C30: 65 20 6D 6F 6E 6F 6D 65 3A 3D 2D 31 3B 0D 0A 20 e monome:=-1;..
020C40: 20 20 65 6E 64 0D 0A 20 20 20 20 65 6C 73 65 0D end.. else.
020C50: 0A 20 20 20 6D 6F 6E 6F 6D 65 3A 3D 2D 31 3B 0D . monome:=-1;.
020C60: 0A 20 65 6E 64 3B 0D 0A 0D 0A 70 72 6F 63 65 64 . end;....proced
020C70: 75 72 65 20 20 20 70 6F 6C 79 6E 6F 6D 65 28 76 ure polynome(v
020C80: 61 72 20 66 3A 66 6F 6E 63 74 69 6F 6E 29 3B 0D ar f:fonction);.
020C90: 0A 76 61 72 0D 0A 75 2C 76 3A 66 6F 6E 63 74 69 .var..u,v:foncti
020CA0: 6F 6E 3B 0D 0A 62 65 67 69 6E 0D 0A 20 69 66 20 on;..begin.. if
020CB0: 66 3C 3E 6E 69 6C 20 74 68 65 6E 0D 0A 20 62 65 f<>nil then.. be
020CC0: 67 69 6E 0D 0A 20 69 66 20 28 28 66 5E 2E 76 61 gin.. if ((f^.va
020CD0: 6C 65 75 72 3D 27 2B 27 29 20 6F 72 20 28 66 5E leur='+') or (f^
020CE0: 2E 76 61 6C 65 75 72 3D 27 2D 27 29 29 20 74 68 .valeur='-')) th
020CF0: 65 6E 0D 0A 20 62 65 67 69 6E 0D 0A 20 72 65 64 en.. begin.. red
020D00: 75 69 72 65 28 66 29 3B 69 66 20 66 5E 2E 64 3C uire(f);if f^.d<
020D10: 3E 6E 69 6C 20 74 68 65 6E 20 6F 72 64 72 65 28 >nil then ordre(
020D20: 66 5E 2E 64 29 3B 69 66 20 66 5E 2E 67 3C 3E 6E f^.d);if f^.g<>n
020D30: 69 6C 20 74 68 65 6E 20 6F 72 64 72 65 28 66 5E il then ordre(f^
020D40: 2E 67 29 3B 0D 0A 20 69 66 20 66 5E 2E 76 61 6C .g);.. if f^.val
020D50: 65 75 72 3D 27 2D 27 20 74 68 65 6E 20 62 65 67 eur='-' then beg
020D60: 69 6E 20 66 5E 2E 76 61 6C 65 75 72 3A 3D 27 2B in f^.valeur:='+
020D70: 27 3B 66 5E 2E 6E 61 74 75 72 65 3A 3D 27 70 6C ';f^.nature:='pl
020D80: 75 73 27 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 us';..
020D90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
020DA0: 20 20 20 66 5E 2E 64 3A 3D 6F 70 70 6F 73 65 28 f^.d:=oppose(
020DB0: 66 5E 2E 64 29 3B 65 6E 64 3B 0D 0A 20 69 66 20 f^.d);end;.. if
020DC0: 66 5E 2E 64 5E 2E 76 61 6C 65 75 72 3D 27 2D 27 f^.d^.valeur='-'
020DD0: 20 74 68 65 6E 20 62 65 67 69 6E 20 66 5E 2E 64 then begin f^.d
020DE0: 5E 2E 64 3A 3D 6F 70 70 6F 73 65 28 66 5E 2E 64 ^.d:=oppose(f^.d
020DF0: 5E 2E 64 29 3B 66 5E 2E 64 5E 2E 76 61 6C 65 75 ^.d);f^.d^.valeu
020E00: 72 3A 3D 27 2B 27 3B 0D 0A 20 20 20 20 20 20 20 r:='+';..
020E10: 20 20 20 20 20 20 20 20 20 20 66 5E 2E 64 5E 2E f^.d^.
020E20: 6E 61 74 75 72 65 3A 3D 27 70 6C 75 73 27 3B 20 nature:='plus';
020E30: 65 6E 64 3B 0D 0A 20 20 69 66 20 66 5E 2E 67 5E end;.. if f^.g^
020E40: 2E 76 61 6C 65 75 72 3D 27 2D 27 20 74 68 65 6E .valeur='-' then
020E50: 20 62 65 67 69 6E 0D 0A 20 20 20 20 66 5E 2E 67 begin.. f^.g
020E60: 5E 2E 64 3A 3D 6F 70 70 6F 73 65 28 66 5E 2E 67 ^.d:=oppose(f^.g
020E70: 5E 2E 64 29 3B 66 5E 2E 67 5E 2E 6E 61 74 75 72 ^.d);f^.g^.natur
020E80: 65 3A 3D 27 70 6C 75 73 27 3B 66 5E 2E 67 5E 2E e:='plus';f^.g^.
020E90: 76 61 6C 65 75 72 3A 3D 27 2B 27 3B 20 65 6E 64 valeur:='+'; end
020EA0: 3B 0D 0A 20 69 66 20 28 28 28 66 5E 2E 64 5E 2E ;.. if (((f^.d^.
020EB0: 76 61 6C 65 75 72 3D 27 2B 27 29 20 6F 72 20 28 valeur='+') or (
020EC0: 66 5E 2E 64 5E 2E 76 61 6C 65 75 72 3D 27 2D 27 f^.d^.valeur='-'
020ED0: 29 29 20 61 6E 64 0D 0A 20 28 28 66 5E 2E 67 5E )) and.. ((f^.g^
020EE0: 2E 76 61 6C 65 75 72 3D 27 2B 27 29 20 6F 72 20 .valeur='+') or
020EF0: 28 66 5E 2E 67 5E 2E 76 61 6C 65 75 72 3D 27 2D (f^.g^.valeur='-
020F00: 27 29 29 29 20 74 68 65 6E 0D 0A 20 20 62 65 67 '))) then.. beg
020F10: 69 6E 0D 0A 20 20 6E 65 77 28 75 29 3B 75 5E 2E in.. new(u);u^.
020F20: 6E 61 74 75 72 65 3A 3D 66 5E 2E 6E 61 74 75 72 nature:=f^.natur
020F30: 65 3B 75 5E 2E 76 61 6C 65 75 72 3A 3D 66 5E 2E e;u^.valeur:=f^.
020F40: 76 61 6C 65 75 72 3B 75 5E 2E 67 3A 3D 66 5E 2E valeur;u^.g:=f^.
020F50: 67 3B 75 5E 2E 64 3A 3D 66 5E 2E 64 5E 2E 67 3B g;u^.d:=f^.d^.g;
020F60: 0D 0A 20 20 66 5E 2E 67 3A 3D 75 3B 66 5E 2E 64 .. f^.g:=u;f^.d
020F70: 3A 3D 66 5E 2E 64 5E 2E 64 3B 72 65 73 75 6C 74 :=f^.d^.d;result
020F80: 3A 3D 31 3B 70 6F 6C 79 6E 6F 6D 65 28 66 5E 2E :=1;polynome(f^.
020F90: 67 29 3B 0D 0A 20 20 65 6E 64 0D 0A 20 20 65 6C g);.. end.. el
020FA0: 73 65 0D 0A 20 20 69 66 20 28 28 66 5E 2E 67 5E se.. if ((f^.g^
020FB0: 2E 76 61 6C 65 75 72 3D 27 2B 27 29 20 6F 72 20 .valeur='+') or
020FC0: 28 66 5E 2E 67 5E 2E 76 61 6C 65 75 72 3D 27 2D (f^.g^.valeur='-
020FD0: 27 29 29 20 74 68 65 6E 0D 0A 20 20 62 65 67 69 ')) then.. begi
020FE0: 6E 0D 0A 20 20 20 69 66 20 28 28 6D 6F 6E 6F 6D n.. if ((monom
020FF0: 65 28 66 5E 2E 64 29 3E 3D 30 29 20 61 6E 64 20 e(f^.d)>=0) and
021000: 28 6D 6F 6E 6F 6D 65 28 66 5E 2E 64 29 3D 6D 6F (monome(f^.d)=mo
021010: 6E 6F 6D 65 28 66 5E 2E 67 5E 2E 64 29 29 29 20 nome(f^.g^.d)))
021020: 74 68 65 6E 0D 0A 20 20 20 62 65 67 69 6E 0D 0A then.. begin..
021030: 20 20 20 20 75 3A 3D 66 5E 2E 64 3B 66 5E 2E 64 u:=f^.d;f^.d
021040: 3A 3D 66 5E 2E 67 5E 2E 67 3B 66 5E 2E 67 5E 2E :=f^.g^.g;f^.g^.
021050: 67 3A 3D 75 3B 75 3A 3D 66 5E 2E 67 3B 66 5E 2E g:=u;u:=f^.g;f^.
021060: 67 3A 3D 66 5E 2E 64 3B 66 5E 2E 64 3A 3D 75 3B g:=f^.d;f^.d:=u;
021070: 0D 0A 20 20 20 20 72 65 64 75 69 72 65 28 66 5E .. reduire(f^
021080: 2E 64 29 3B 72 65 73 75 6C 74 3A 3D 31 3B 0D 0A .d);result:=1;..
021090: 20 20 20 65 6E 64 0D 0A 20 20 65 6E 64 0D 0A 20 end.. end..
0210A0: 20 65 6C 73 65 0D 0A 20 20 69 66 20 28 28 28 66 else.. if (((f
0210B0: 5E 2E 64 5E 2E 76 61 6C 65 75 72 3D 27 2B 27 29 ^.d^.valeur='+')
0210C0: 20 6F 72 20 28 66 5E 2E 64 5E 2E 76 61 6C 65 75 or (f^.d^.valeu
0210D0: 72 3D 27 2D 27 29 29 61 6E 64 28 6D 6F 6E 6F 6D r='-'))and(monom
0210E0: 65 28 66 5E 2E 67 29 3E 3D 30 29 61 6E 64 0D 0A e(f^.g)>=0)and..
0210F0: 20 20 28 6D 6F 6E 6F 6D 65 28 66 5E 2E 67 29 3D (monome(f^.g)=
021100: 6D 6F 6E 6F 6D 65 28 66 5E 2E 64 5E 2E 67 29 29 monome(f^.d^.g))
021110: 29 20 74 68 65 6E 0D 0A 20 20 62 65 67 69 6E 0D ) then.. begin.
021120: 0A 20 20 20 75 3A 3D 66 5E 2E 64 3B 66 5E 2E 64 . u:=f^.d;f^.d
021130: 3A 3D 66 5E 2E 67 3B 66 5E 2E 67 3A 3D 75 3B 6F :=f^.g;f^.g:=u;o
021140: 72 64 72 65 28 66 5E 2E 67 29 3B 72 65 73 75 6C rdre(f^.g);resul
021150: 74 3A 3D 31 3B 70 6F 6C 79 6E 6F 6D 65 28 66 29 t:=1;polynome(f)
021160: 3B 0D 0A 20 20 65 6E 64 0D 0A 20 20 65 6C 73 65 ;.. end.. else
021170: 0D 0A 20 20 62 65 67 69 6E 0D 0A 20 20 69 66 20 .. begin.. if
021180: 66 5E 2E 64 3C 3E 6E 69 6C 20 74 68 65 6E 20 70 f^.d<>nil then p
021190: 6F 6C 79 6E 6F 6D 65 28 66 5E 2E 64 29 3B 0D 0A olynome(f^.d);..
0211A0: 20 20 69 66 20 66 5E 2E 67 3C 3E 6E 69 6C 20 74 if f^.g<>nil t
0211B0: 68 65 6E 20 70 6F 6C 79 6E 6F 6D 65 28 66 5E 2E hen polynome(f^.
0211C0: 67 29 3B 0D 0A 20 20 65 6E 64 3B 0D 0A 20 20 65 g);.. end;.. e
0211D0: 6E 64 3B 0D 0A 20 20 69 66 20 66 5E 2E 64 3C 3E nd;.. if f^.d<>
0211E0: 6E 69 6C 20 74 68 65 6E 20 70 6F 6C 79 6E 6F 6D nil then polynom
0211F0: 65 28 66 5E 2E 64 29 3B 0D 0A 20 20 69 66 20 66 e(f^.d);.. if f
021200: 5E 2E 67 3C 3E 6E 69 6C 20 74 68 65 6E 20 70 6F ^.g<>nil then po
021210: 6C 79 6E 6F 6D 65 28 66 5E 2E 67 29 3B 0D 0A 65 lynome(f^.g);..e
021220: 6E 64 3B 0D 0A 65 6E 64 3B 0D 0A 0D 0A 70 72 6F nd;..end;....pro
021230: 63 65 64 75 72 65 20 61 6C 67 65 62 72 69 71 75 cedure algebriqu
021240: 65 28 76 61 72 20 66 3A 66 6F 6E 63 74 69 6F 6E e(var f:fonction
021250: 29 3B 0D 0A 62 65 67 69 6E 0D 0A 72 65 70 65 61 );..begin..repea
021260: 74 0D 0A 72 65 73 75 6C 74 3A 3D 30 3B 73 69 6D t..result:=0;sim
021270: 70 6C 69 66 28 66 29 3B 0D 0A 75 6E 74 69 6C 20 plif(f);..until
021280: 72 65 73 75 6C 74 3D 30 3B 0D 0A 72 65 70 65 61 result=0;..repea
021290: 74 0D 0A 72 65 73 75 6C 74 3A 3D 30 3B 64 65 76 t..result:=0;dev
0212A0: 65 6C 6F 70 28 66 29 3B 0D 0A 75 6E 74 69 6C 20 elop(f);..until
0212B0: 72 65 73 75 6C 74 3D 30 3B 0D 0A 72 65 70 65 61 result=0;..repea
0212C0: 74 0D 0A 72 65 73 75 6C 74 3A 3D 30 3B 0D 0A 70 t..result:=0;..p
0212D0: 72 6F 64 75 69 74 28 66 29 3B 0D 0A 75 6E 74 69 roduit(f);..unti
0212E0: 6C 20 72 65 73 75 6C 74 3D 30 3B 0D 0A 72 65 70 l result=0;..rep
0212F0: 65 61 74 0D 0A 72 65 73 75 6C 74 3A 3D 30 3B 6F eat..result:=0;o
021300: 72 64 72 65 28 66 29 3B 70 6F 6C 79 6E 6F 6D 65 rdre(f);polynome
021310: 28 66 29 3B 0D 0A 75 6E 74 69 6C 20 72 65 73 75 (f);..until resu
021320: 6C 74 3D 30 3B 0D 0A 72 65 70 65 61 74 0D 0A 72 lt=0;..repeat..r
021330: 65 73 75 6C 74 3A 3D 30 3B 0D 0A 73 69 6D 70 6C esult:=0;..simpl
021340: 69 66 28 66 29 3B 0D 0A 75 6E 74 69 6C 20 72 65 if(f);..until re
021350: 73 75 6C 74 3D 30 3B 0D 0A 65 6E 64 3B 0D 0A 0D sult=0;..end;...
021360: 0A 70 72 6F 63 65 64 75 72 65 20 20 62 69 6E 6F .procedure bino
021370: 6D 65 28 76 61 72 20 66 3A 66 6F 6E 63 74 69 6F me(var f:fonctio
021380: 6E 29 3B 0D 0A 76 61 72 20 75 2C 76 2C 77 3A 66 n);..var u,v,w:f
021390: 6F 6E 63 74 69 6F 6E 3B 0D 0A 63 6F 65 66 66 3A onction;..coeff:
0213A0: 72 65 61 6C 3B 0D 0A 72 65 73 75 6C 74 61 74 3A real;..resultat:
0213B0: 69 6E 74 65 67 65 72 3B 0D 0A 62 65 67 69 6E 0D integer;..begin.
0213C0: 0A 69 66 20 28 28 66 5E 2E 76 61 6C 65 75 72 3D .if ((f^.valeur=
0213D0: 27 5E 27 29 61 6E 64 28 28 66 5E 2E 67 5E 2E 76 '^')and((f^.g^.v
0213E0: 61 6C 65 75 72 3D 27 2B 27 29 6F 72 28 66 5E 2E aleur='+')or(f^.
0213F0: 67 5E 2E 76 61 6C 65 75 72 3D 27 2D 27 29 29 61 g^.valeur='-'))a
021400: 6E 64 0D 0A 28 66 5E 2E 64 5E 2E 6E 61 74 75 72 nd..(f^.d^.natur
021410: 65 3D 27 6E 6F 6D 62 72 65 27 29 29 20 74 68 65 e='nombre')) the
021420: 6E 0D 0A 20 20 62 65 67 69 6E 0D 0A 20 20 20 76 n.. begin.. v
021430: 61 6C 28 66 5E 2E 64 5E 2E 76 61 6C 65 75 72 2C al(f^.d^.valeur,
021440: 63 6F 65 66 66 2C 72 65 73 75 6C 74 61 74 29 3B coeff,resultat);
021450: 0D 0A 20 20 20 69 66 20 28 28 66 72 61 63 28 63 .. if ((frac(c
021460: 6F 65 66 66 29 3D 30 29 20 61 6E 64 20 28 63 6F oeff)=0) and (co
021470: 65 66 66 3E 3D 32 29 29 20 74 68 65 6E 0D 0A 20 eff>=2)) then..
021480: 20 20 20 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 begin..
021490: 20 20 69 66 20 63 6F 65 66 66 3D 32 20 74 68 65 if coeff=2 the
0214A0: 6E 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 n begin..
0214B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 66 f
0214C0: 5E 2E 6E 61 74 75 72 65 3A 3D 27 6D 75 6C 74 69 ^.nature:='multi
0214D0: 27 3B 66 5E 2E 76 61 6C 65 75 72 3A 3D 27 2A 27 ';f^.valeur:='*'
0214E0: 3B 66 5E 2E 64 3A 3D 66 5E 2E 67 3B 0D 0A 20 20 ;f^.d:=f^.g;..
0214F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
021500: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
021510: 1C 00 00 00 02 09 4E E5 1C 00 41 02 00 00 00 02 ......N...A.....
021520: 1C 00 42 02 00 00 00 02 1C 00 43 02 00 00 00 02 ..B.......C.....
021530: 1C 00 44 02 00 00 00 02 1C 00 45 02 00 00 00 02 ..D.......E.....
021540: 1C 00 46 02 00 00 00 02 1C 00 47 02 00 00 00 02 ..F.......G.....
021550: 1C 00 48 02 00 00 00 02 1C 00 49 02 00 00 00 02 ..H.......I.....
021560: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
021570: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
021580: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
021590: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0215A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0215B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0215C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0215D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0215E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0215F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
021600: 20 20 20 20 61 6C 67 65 62 72 69 71 75 65 28 66 algebrique(f
021610: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 );..
021620: 20 20 20 20 20 20 20 20 20 20 65 6E 64 0D 0A 20 end..
021630: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
021640: 20 20 20 20 20 65 6C 73 65 0D 0A 20 20 20 20 20 else..
021650: 20 20 20 20 20 20 20 20 20 62 65 67 69 6E 0D 0A begin..
021660: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 6E 65 ne
021670: 77 28 75 29 3B 75 5E 2E 6E 61 74 75 72 65 3A 3D w(u);u^.nature:=
021680: 27 70 75 69 73 73 27 3B 75 5E 2E 76 61 6C 65 75 'puiss';u^.valeu
021690: 72 3A 3D 27 5E 27 3B 75 5E 2E 67 3A 3D 66 5E 2E r:='^';u^.g:=f^.
0216A0: 67 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 g;..
0216B0: 20 20 6E 65 77 28 76 29 3B 76 5E 2E 6E 61 74 75 new(v);v^.natu
0216C0: 72 65 3A 3D 27 6E 6F 6D 62 72 65 27 3B 63 6F 65 re:='nombre';coe
0216D0: 66 66 3A 3D 63 6F 65 66 66 2D 31 3B 0D 0A 20 20 ff:=coeff-1;..
0216E0: 20 20 20 20 20 20 20 20 20 20 20 20 73 74 72 28 str(
0216F0: 72 6F 75 6E 64 28 63 6F 65 66 66 29 2C 76 5E 2E round(coeff),v^.
021700: 76 61 6C 65 75 72 29 3B 0D 0A 20 20 20 20 20 20 valeur);..
021710: 20 20 20 20 20 20 20 20 76 5E 2E 64 3A 3D 6E 69 v^.d:=ni
021720: 6C 3B 76 5E 2E 67 3A 3D 6E 69 6C 3B 75 5E 2E 64 l;v^.g:=nil;u^.d
021730: 3A 3D 76 3B 66 5E 2E 64 3A 3D 66 5E 2E 67 3B 66 :=v;f^.d:=f^.g;f
021740: 5E 2E 67 3A 3D 75 3B 0D 0A 20 20 20 20 20 20 20 ^.g:=u;..
021750: 20 20 20 20 20 20 20 62 69 6E 6F 6D 65 28 66 5E binome(f^
021760: 2E 67 29 3B 66 5E 2E 6E 61 74 75 72 65 3A 3D 27 .g);f^.nature:='
021770: 6D 75 6C 74 69 27 3B 66 5E 2E 76 61 6C 65 75 72 multi';f^.valeur
021780: 3A 3D 27 2A 27 3B 0D 0A 20 20 20 20 20 20 20 20 :='*';..
021790: 20 20 20 20 20 20 61 6C 67 65 62 72 69 71 75 65 algebrique
0217A0: 28 66 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 (f);..
0217B0: 20 20 20 20 65 6E 64 3B 0D 0A 20 20 20 20 20 20 end;..
0217C0: 20 20 65 6E 64 3B 0D 0A 20 20 20 20 20 65 6E 64 end;.. end
0217D0: 0D 0A 20 20 20 20 20 65 6C 73 65 0D 0A 20 20 20 .. else..
0217E0: 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 69 66 begin.. if
0217F0: 20 66 5E 2E 64 3C 3E 6E 69 6C 20 74 68 65 6E 20 f^.d<>nil then
021800: 62 69 6E 6F 6D 65 28 66 5E 2E 64 29 3B 0D 0A 20 binome(f^.d);..
021810: 20 20 20 20 69 66 20 66 5E 2E 67 3C 3E 6E 69 6C if f^.g<>nil
021820: 20 74 68 65 6E 20 62 69 6E 6F 6D 65 28 66 5E 2E then binome(f^.
021830: 67 29 3B 0D 0A 20 20 20 20 20 65 6E 64 3B 0D 0A g);.. end;..
021840: 20 20 65 6E 64 3B 0D 0A 0D 0A 1A 1A 1A 1A 1A 1A end;..........
021850: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
021860: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
021870: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
021880: 28 66 5E 2E 64 5E 2E 76 61 6C 65 75 72 3D 27 2D (f^.d^.valeur='-
021890: 27 29 29 0D 0A 20 74 68 65 6E 20 62 65 67 69 6E ')).. then begin
0218A0: 0D 0A 20 20 6F 72 64 72 65 28 66 5E 2E 64 29 3B .. ordre(f^.d);
0218B0: 0D 0A 20 20 69 66 20 28 28 6D 6F 6E 6F 6D 65 28 .. if ((monome(
0218C0: 66 5E 2E 67 29 3E 3D 30 29 61 6E 64 20 28 6D 6F f^.g)>=0)and (mo
0218D0: 6E 6F 6D 65 28 66 5E 2E 67 29 3C 6D 6F 6E 6F 6D nome(f^.g)<monom
0218E0: 65 28 66 5E 2E 64 5E 2E 67 29 29 29 20 74 68 65 e(f^.d^.g))) the
0218F0: 6E 0D 0A 20 20 20 62 65 67 69 6E 0D 0A 20 20 20 n.. begin..
021900: 69 66 20 66 5E 2E 64 5E 2E 76 61 6C 65 75 72 3D if f^.d^.valeur=
021910: 27 2D 27 20 74 68 65 6E 20 62 65 67 69 6E 20 66 '-' then begin f
021920: 5E 2E 64 5E 2E 6E 61 74 75 72 65 3A 3D 27 70 6C ^.d^.nature:='pl
021930: 75 73 27 3B 66 5E 2E 64 5E 2E 76 61 6C 65 75 72 us';f^.d^.valeur
021940: 3A 3D 27 2B 27 3B 0D 0A 20 20 20 20 20 20 20 20 :='+';..
021950: 20 20 20 20 20 20 20 20 20 20 20 20 66 5E 2E 64 f^.d
021960: 5E 2E 64 3A 3D 6F 70 70 6F 73 65 28 66 5E 2E 64 ^.d:=oppose(f^.d
021970: 5E 2E 64 29 3B 20 65 6E 64 3B 0D 0A 20 20 20 75 ^.d); end;.. u
021980: 3A 3D 66 5E 2E 67 3B 66 5E 2E 67 3A 3D 66 5E 2E :=f^.g;f^.g:=f^.
021990: 64 5E 2E 67 3B 66 5E 2E 64 5E 2E 67 3A 3D 75 3B d^.g;f^.d^.g:=u;
0219A0: 72 65 64 75 69 72 65 28 66 5E 2E 64 29 3B 0D 0A reduire(f^.d);..
0219B0: 20 20 20 75 3A 3D 66 5E 2E 64 3B 66 5E 2E 64 3A u:=f^.d;f^.d:
0219C0: 3D 66 5E 2E 67 3B 66 5E 2E 67 3A 3D 75 3B 72 65 =f^.g;f^.g:=u;re
0219D0: 73 75 6C 74 3A 3D 31 3B 0D 0A 20 20 20 65 6E 64 sult:=1;.. end
0219E0: 3B 0D 0A 20 20 20 65 6E 64 0D 0A 20 20 20 65 6C ;.. end.. el
0219F0: 73 65 0D 0A 20 20 69 66 20 28 28 28 66 5E 2E 76 se.. if (((f^.v
021A00: 20 20 20 20 20 79 70 3A 3D 72 6F 75 6E 64 28 72 yp:=round(r
021A10: 65 73 75 6C 74 61 74 2A 73 69 6E 28 78 29 2A 75 esultat*sin(x)*u
021A20: 79 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 y);..
021A30: 69 66 20 70 72 65 63 65 64 65 3D 66 61 6C 73 65 if precede=false
021A40: 20 74 68 65 6E 20 70 6C 6F 74 28 78 70 2C 79 70 then plot(xp,yp
021A50: 29 20 65 6C 73 65 20 64 72 61 77 28 78 70 2C 79 ) else draw(xp,y
021A60: 70 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 p);..
021A70: 70 72 65 63 65 64 65 3A 3D 74 72 75 65 0D 0A 20 precede:=true..
021A80: 20 20 20 20 20 20 20 20 65 6E 64 0D 0A 20 20 20 end..
021A90: 20 20 20 20 20 20 65 6C 73 65 0D 0A 20 20 20 20 else..
021AA0: 20 20 20 20 20 70 72 65 63 65 64 65 3A 3D 66 61 precede:=fa
021AB0: 6C 73 65 3B 0D 0A 20 20 20 20 20 20 20 78 3A 3D lse;.. x:=
021AC0: 78 2B 70 61 73 3B 0D 0A 20 20 20 20 65 6E 64 3B x+pas;.. end;
021AD0: 0D 0A 20 20 20 65 6E 64 3B 0D 0A 20 20 65 6E 64 .. end;.. end
021AE0: 3B 0D 0A 20 20 65 6E 64 3B 0D 0A 20 20 67 6F 74 ;.. end;.. got
021AF0: 6F 78 79 28 31 2C 32 34 29 3B 77 72 69 74 65 28 oxy(1,24);write(
021B00: 27 3C 31 3E 20 49 6D 70 72 69 6D 65 72 20 3C 32 '<1> Imprimer <2
021B10: 3E 20 52 65 76 6F 69 72 20 3C 33 3E 20 52 65 74 > Revoir <3> Ret
021B20: 6F 75 72 20 61 75 20 6D 65 6E 75 27 29 3B 0D 0A our au menu');..
021B30: 20 20 72 65 70 65 61 74 0D 0A 20 20 72 65 61 64 repeat.. read
021B40: 28 6B 62 64 2C 63 61 72 29 3B 0D 0A 20 20 75 6E (kbd,car);.. un
021B50: 74 69 6C 20 28 28 63 61 72 3E 27 30 27 29 20 61 til ((car>'0') a
021B60: 6E 64 20 28 63 61 72 3C 27 34 27 29 29 3B 0D 0A nd (car<'4'));..
021B70: 20 20 76 61 6C 28 63 61 72 2C 63 68 6F 69 78 62 val(car,choixb
021B80: 69 73 2C 72 65 73 75 6C 74 29 3B 0D 0A 20 20 69 is,result);.. i
021B90: 66 20 63 68 6F 69 78 62 69 73 3D 31 20 74 68 65 f choixbis=1 the
021BA0: 6E 0D 0A 20 20 20 62 65 67 69 6E 0D 0A 20 20 20 n.. begin..
021BB0: 67 6F 74 6F 78 79 28 31 2C 32 34 29 3B 77 72 69 gotoxy(1,24);wri
021BC0: 74 65 28 27 20 20 20 20 20 20 20 20 20 20 20 20 te('
021BD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
021BE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 '
021BF0: 29 3B 0D 0A 20 20 20 6F 72 69 67 69 6E 28 30 2C );.. origin(0,
021C00: 30 29 3B 76 69 64 61 67 65 3B 0D 0A 20 20 20 65 0);vidage;.. e
021C10: 6E 64 3B 0D 0A 20 20 69 66 20 63 68 6F 69 78 62 nd;.. if choixb
021C20: 69 73 3D 32 20 74 68 65 6E 0D 0A 20 20 67 72 61 is=2 then.. gra
021C30: 70 68 65 28 31 29 3B 0D 0A 65 6E 64 3B 1A 1A 1A phe(1);..end;...
021C40: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
021C50: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
021C60: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
021C70: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
021C80: 00 00 60 FF FF 0F 00 00 00 00 00 00 00 00 00 00 ..`.............
021C90: 00 00 00 00 00 00 00 00 00 C3 B2 C1 66 C1 66 C1 ............f.f.
021CA0: 4C BE 4C BE 00 07 00 70 FC C8 0A C9 C8 C6 5C C7 L.L....p......\.
021CB0: 7E 03 A2 B9 85 7F B9 C9 45 00 49 FF 00 07 00 6E ~.......E.I....n
021CC0: 17 02 35 00 7F 08 25 01 3F 01 41 01 C3 FA C0 31 ..5...%.?.A....1
021CD0: AD EB BC 00 0C 85 7F 41 B9 00 FF 00 00 00 00 00 .......A........
021CE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
021CF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
021D00: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
021D10: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
021D20: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
021D30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
021D40: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
021D50: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
021D60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
021D70: 00 24 00 03 07 00 AA 00 3F 00 C0 00 10 00 02 00 .$......?.......
021D80: 41 09 2A 52 E5 02 04 07 FF 00 00 00 05 05 05 05 A.*R............
021D90: 05 05 05 05 05 05 05 05 05 05 05 05 05 05 05 05 ................
021DA0: 05 05 05 05 05 05 FF FF FF 00 00 00 00 FE 00 00 ................
021DB0: 6F 24 00 03 07 00 AA 00 3F 00 C0 00 10 00 02 00 o$......?.......
021DC0: 41 09 2A 52 E5 02 04 00 00 00 20 DD A5 CF B3 FF A.*R...... .....
021DD0: 00 E7 24 02 00 00 00 00 08 05 21 2F 00 65 2E 01 ..$.......!/.e..
021DE0: E5 CD 8D 06 E5 21 DF ED CD 2C 05 F7 40 E5 09 C0 .....!...,..@...
021DF0: 07 00 00 FE BF 0D 00 CE 9D 78 AE D8 AD F1 AD 01 .........x......
021E00: 0D 0A 66 75 6E 63 74 69 6F 6E 20 20 20 6D 65 6E ..function men
021E10: 75 3A 69 6E 74 65 67 65 72 3B 0D 0A 0D 0A 62 65 u:integer;....be
021E20: 67 69 6E 0D 0A 63 6C 72 73 63 72 3B 0D 0A 77 72 gin..clrscr;..wr
021E30: 69 74 65 6C 6E 3B 77 72 69 74 65 6C 6E 28 27 20 iteln;writeln('
021E40: 20 20 20 20 20 4D 20 45 20 4E 20 55 20 27 29 3B M E N U ');
021E50: 0D 0A 77 72 69 74 65 6C 6E 3B 77 72 69 74 65 6C ..writeln;writel
021E60: 6E 28 27 20 20 3C 31 3E 20 45 6E 74 72 65 65 20 n(' <1> Entree
021E70: 64 65 20 6C 61 20 66 6F 6E 63 74 69 6F 6E 27 29 de la fonction')
021E80: 3B 0D 0A 77 72 69 74 65 6C 6E 3B 77 72 69 74 65 ;..writeln;write
021E90: 6C 6E 28 27 20 20 3C 32 3E 20 44 65 76 65 6C 6F ln(' <2> Develo
021EA0: 70 70 65 72 20 64 65 73 20 70 72 6F 64 75 69 74 pper des produit
021EB0: 73 27 29 3B 0D 0A 77 72 69 74 65 6C 6E 3B 77 72 s');..writeln;wr
021EC0: 69 74 65 6C 6E 28 27 20 20 3C 33 3E 20 44 65 76 iteln(' <3> Dev
021ED0: 65 6C 6F 70 70 65 72 20 64 65 73 20 70 75 69 73 elopper des puis
021EE0: 73 61 6E 63 65 73 20 65 6E 74 69 65 72 65 73 27 sances entieres'
021EF0: 29 3B 0D 0A 77 72 69 74 65 6C 6E 3B 77 72 69 74 );..writeln;writ
021F00: 65 6C 6E 28 27 20 20 3C 34 3E 20 43 61 6C 63 75 eln(' <4> Calcu
021F10: 6C 20 64 65 20 76 61 6C 65 75 72 73 20 64 65 20 l de valeurs de
021F20: 66 28 78 29 27 29 3B 0D 0A 77 72 69 74 65 6C 6E f(x)');..writeln
021F30: 3B 77 72 69 74 65 6C 6E 28 27 20 20 3C 35 3E 20 ;writeln(' <5>
021F40: 44 65 72 69 76 65 65 73 20 64 65 20 6C 61 20 66 Derivees de la f
021F50: 6F 6E 63 74 69 6F 6E 27 29 3B 0D 0A 77 72 69 74 onction');..writ
021F60: 65 6C 6E 3B 77 72 69 74 65 6C 6E 28 27 20 20 3C eln;writeln(' <
021F70: 36 3E 20 44 65 76 65 6C 6F 70 70 65 6D 65 6E 74 6> Developpement
021F80: 73 20 6C 69 6D 69 74 65 73 27 29 3B 0D 0A 77 72 s limites');..wr
021F90: 69 74 65 6C 6E 3B 77 72 69 74 65 6C 6E 28 27 20 iteln;writeln('
021FA0: 20 3C 37 3E 20 46 69 6E 20 64 75 20 70 72 6F 67 <7> Fin du prog
021FB0: 72 61 6D 6D 65 27 29 3B 0D 0A 77 72 69 74 65 6C ramme');..writel
021FC0: 6E 3B 77 72 69 74 65 6C 6E 28 27 20 20 20 20 56 n;writeln(' V
021FD0: 4F 54 52 45 20 43 48 4F 49 58 3F 20 27 29 3B 0D OTRE CHOIX? ');.
021FE0: 0A 72 65 70 65 61 74 0D 0A 72 65 61 64 28 6B 62 .repeat..read(kb
021FF0: 64 2C 63 61 72 29 3B 0D 0A 75 6E 74 69 6C 20 28 d,car);..until (
022000: 28 63 61 72 3E 27 30 27 29 20 61 6E 64 20 28 63 (car>'0') and (c
022010: 61 72 3C 27 38 27 29 29 3B 0D 0A 76 61 6C 28 63 ar<'8'));..val(c
022020: 61 72 2C 63 68 6F 69 78 2C 72 65 73 75 6C 74 29 ar,choix,result)
022030: 3B 0D 0A 6D 65 6E 75 3A 3D 63 68 6F 69 78 3B 0D ;..menu:=choix;.
022040: 0A 65 6E 64 3B 0D 0A 0D 0A 66 75 6E 63 74 69 6F .end;....functio
022050: 6E 20 20 20 6E 75 6D 66 6F 6E 63 3A 69 6E 74 65 n numfonc:inte
022060: 67 65 72 3B 0D 0A 76 61 72 20 6A 3A 69 6E 74 65 ger;..var j:inte
022070: 67 65 72 3B 0D 0A 0D 0A 62 65 67 69 6E 0D 0A 63 ger;....begin..c
022080: 61 72 3A 3D 27 20 27 3B 0D 0A 72 65 70 65 61 74 ar:=' ';..repeat
022090: 0D 0A 20 20 20 20 20 20 20 72 65 61 64 28 6B 62 .. read(kb
0220A0: 64 2C 63 61 72 29 3B 0D 0A 20 20 20 20 20 20 20 d,car);..
0220B0: 75 6E 74 69 6C 20 28 28 63 61 72 3E 27 30 27 29 until ((car>'0')
0220C0: 20 61 6E 64 20 28 63 61 72 3C 27 3A 27 29 29 3B and (car<':'));
0220D0: 0D 0A 20 20 20 20 20 20 20 77 72 69 74 65 6C 6E .. writeln
0220E0: 28 63 61 72 29 3B 0D 0A 20 20 20 20 20 20 20 76 (car);.. v
0220F0: 61 6C 28 63 61 72 2C 6A 2C 72 65 73 75 6C 74 29 al(car,j,result)
022100: 3B 0D 0A 6E 75 6D 66 6F 6E 63 3A 3D 6A 3B 0D 0A ;..numfonc:=j;..
022110: 65 6E 64 3B 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 end;....procedur
022120: 65 20 20 64 65 76 6C 69 6D 3B 0D 0A 6C 61 62 65 e devlim;..labe
022130: 6C 20 66 69 6E 64 65 76 6C 69 6D 3B 0D 0A 76 61 l findevlim;..va
022140: 72 20 7A 3A 69 6E 74 65 67 65 72 3B 61 3A 72 65 r z:integer;a:re
022150: 61 6C 3B 0D 0A 20 20 20 20 63 6F 65 66 31 2C 63 al;.. coef1,c
022160: 6F 65 66 32 3A 72 65 61 6C 3B 0D 0A 0D 0A 62 65 oef2:real;....be
022170: 67 69 6E 0D 0A 63 6C 72 73 63 72 3B 77 72 69 74 gin..clrscr;writ
022180: 65 28 27 4E 2E 20 64 65 20 6C 61 20 66 6F 6E 63 e('N. de la fonc
022190: 74 69 6F 6E 20 28 31 20 61 20 39 29 3F 27 29 3B tion (1 a 9)?');
0221A0: 0D 0A 69 3A 3D 6E 75 6D 66 6F 6E 63 3B 0D 0A 69 ..i:=numfonc;..i
0221B0: 66 20 66 5B 69 5D 3D 6E 69 6C 20 74 68 65 6E 20 f f[i]=nil then
0221C0: 6C 69 72 66 6F 6E 63 74 69 6F 6E 28 66 5B 69 5D lirfonction(f[i]
0221D0: 29 3B 0D 0A 77 72 69 74 65 28 27 44 65 76 65 6C );..write('Devel
0221E0: 6F 70 70 65 6D 65 6E 74 20 61 75 20 76 6F 69 73 oppement au vois
0221F0: 69 6E 61 67 65 20 64 65 20 61 3D 27 29 3B 72 65 inage de a=');re
022200: 7B 24 41 2D 7D 0D 0A 70 72 6F 67 72 61 6D 20 20 {$A-}..program
022210: 20 20 20 63 6F 75 72 62 65 3B 0D 0A 74 79 70 65 courbe;..type
022220: 0D 0A 20 66 6F 6E 63 74 69 6F 6E 3D 5E 73 6F 6D .. fonction=^som
022230: 6D 65 74 3B 0D 0A 20 73 6F 6D 6D 65 74 3D 72 65 met;.. sommet=re
022240: 63 6F 72 64 0D 0A 20 20 20 20 20 20 20 20 20 20 cord..
022250: 20 20 20 20 6E 61 74 75 72 65 3A 73 74 72 69 6E nature:strin
022260: 67 5B 36 5D 3B 0D 0A 20 20 20 20 20 20 20 20 20 g[6];..
022270: 20 20 20 20 20 76 61 6C 65 75 72 3A 73 74 72 69 valeur:stri
022280: 6E 67 5B 31 30 5D 3B 0D 0A 20 20 20 20 20 20 20 ng[10];..
022290: 20 20 20 20 20 20 20 64 3A 20 66 6F 6E 63 74 69 d: foncti
0222A0: 6F 6E 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 on;..
0222B0: 20 20 20 67 3A 20 66 6F 6E 63 74 69 6F 6E 3B 0D g: fonction;.
0222C0: 0A 20 20 20 20 20 20 20 20 65 6E 64 3B 0D 0A 20 . end;..
0222D0: 73 74 72 32 30 30 3D 73 74 72 69 6E 67 5B 32 35 str200=string[25
0222E0: 30 5D 3B 0D 0A 20 73 74 72 31 30 3D 73 74 72 69 0];.. str10=stri
0222F0: 6E 67 5B 31 30 5D 3B 0D 0A 63 6F 6E 73 74 0D 0A ng[10];..const..
022300: 20 66 69 6C 74 72 65 3A 73 65 74 20 6F 66 20 63 filtre:set of c
022310: 68 61 72 3D 5B 27 2B 27 2C 27 2A 27 2C 27 2D 27 har=['+','*','-'
022320: 2C 27 2F 27 2C 27 5E 27 2C 27 2E 27 2C 27 28 27 ,'/','^','.','('
022330: 2C 27 29 27 2C 27 61 27 2E 2E 27 7A 27 2C 27 30 ,')','a'..'z','0
022340: 27 2E 2E 27 39 27 5D 3B 0D 0A 0D 0A 76 61 72 0D '..'9'];....var.
022350: 0A 20 66 3A 61 72 72 61 79 5B 30 2E 2E 31 30 5D . f:array[0..10]
022360: 20 6F 66 20 66 6F 6E 63 74 69 6F 6E 3B 0D 0A 20 of fonction;..
022370: 63 61 72 3A 63 68 61 72 3B 0D 0A 20 69 64 66 3A car:char;.. idf:
022380: 73 74 72 69 6E 67 5B 31 30 5D 3B 0D 0A 20 69 2C string[10];.. i,
022390: 6A 2C 72 65 73 75 6C 74 3A 69 6E 74 65 67 65 72 j,result:integer
0223A0: 3B 0D 0A 20 69 6E 64 69 63 65 2C 63 68 6F 69 78 ;.. indice,choix
0223B0: 3A 69 6E 74 65 67 65 72 3B 0D 0A 20 70 3A 61 72 :integer;.. p:ar
0223C0: 72 61 79 5B 31 2E 2E 33 2C 30 2E 2E 31 30 5D 20 ray[1..3,0..10]
0223D0: 6F 66 20 72 65 61 6C 3B 0D 0A 20 6D 3A 61 72 72 of real;.. m:arr
0223E0: 61 79 5B 30 2E 2E 31 30 5D 20 6F 66 20 69 6E 74 ay[0..10] of int
0223F0: 65 67 65 72 3B 0D 0A 20 64 65 66 69 6E 69 3A 62 eger;.. defini:b
022400: 6F 6F 6C 65 61 6E 3B 0D 0A 20 78 2C 72 65 73 75 oolean;.. x,resu
022410: 6C 74 61 74 3A 72 65 61 6C 3B 0D 0A 0D 0A 7B 24 ltat:real;....{$
022420: 49 20 6C 69 72 65 66 6F 6E 63 2E 70 61 73 7D 0D I lirefonc.pas}.
022430: 0A 7B 24 49 20 63 61 6C 63 75 6C 66 2E 70 61 73 .{$I calculf.pas
022440: 7D 0D 0A 7B 24 49 20 65 63 72 69 66 2E 70 61 73 }..{$I ecrif.pas
022450: 7D 0D 0A 7B 24 49 20 67 72 61 66 69 6B 33 2E 69 }..{$I grafik3.i
022460: 6E 63 7D 0D 0A 7B 24 49 20 67 72 61 70 68 65 66 nc}..{$I graphef
022470: 2E 70 61 73 7D 0D 0A 0D 0A 62 65 67 69 6E 0D 0A .pas}....begin..
022480: 66 6F 72 20 69 3A 3D 30 20 74 6F 20 31 30 20 64 for i:=0 to 10 d
022490: 6F 20 62 65 67 69 6E 20 66 5B 69 5D 3A 3D 6E 69 o begin f[i]:=ni
0224A0: 6C 3B 6D 5B 69 5D 3A 3D 30 3B 20 65 6E 64 3B 0D l;m[i]:=0; end;.
0224B0: 0A 62 6F 72 64 65 72 28 31 30 2C 31 30 29 3B 0D .border(10,10);.
0224C0: 0A 62 6F 75 63 6C 65 3B 0D 0A 65 6E 64 2E 1A 1A .boucle;..end...
0224D0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0224E0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0224F0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
022500: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
022510: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
022520: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
022530: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
022540: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
022550: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
022560: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
022570: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
022580: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
022590: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0225A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0225B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0225C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0225D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0225E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0225F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
022600: 61 64 6C 6E 28 61 29 3B 0D 0A 77 72 69 74 65 20 adln(a);..write
022610: 28 27 44 65 76 65 6C 6F 70 70 65 6D 65 6E 74 20 ('Developpement
022620: 61 20 71 75 65 6C 20 6F 72 64 72 65 20 28 31 20 a quel ordre (1
022630: 61 20 35 29 3F 27 29 3B 0D 0A 72 65 70 65 61 74 a 5)?');..repeat
022640: 0D 0A 72 65 61 64 28 6B 62 64 2C 63 61 72 29 3B ..read(kbd,car);
022650: 0D 0A 75 6E 74 69 6C 20 28 28 63 61 72 3E 27 30 ..until ((car>'0
022660: 27 29 20 61 6E 64 20 28 63 61 72 3C 27 36 27 29 ') and (car<'6')
022670: 29 3B 0D 0A 77 72 69 74 65 6C 6E 28 63 61 72 29 );..writeln(car)
022680: 3B 0D 0A 76 61 6C 28 63 61 72 2C 6A 2C 72 65 73 ;..val(car,j,res
022690: 75 6C 74 29 3B 0D 0A 77 72 69 74 65 6C 6E 28 27 ult);..writeln('
0226A0: 66 27 2C 69 2C 27 28 78 29 3D 27 2C 74 61 70 65 f',i,'(x)=',tape
0226B0: 66 6F 6E 63 74 69 6F 6E 28 66 5B 69 5D 2C 27 78 fonction(f[i],'x
0226C0: 27 29 29 3B 0D 0A 77 72 69 74 65 6C 6E 28 27 44 '));..writeln('D
0226D0: 65 76 65 6C 6F 70 70 65 6D 65 6E 74 20 6C 69 6D eveloppement lim
0226E0: 69 74 65 20 61 75 20 76 6F 69 73 69 6E 61 67 65 ite au voisinage
0226F0: 20 64 65 20 61 3D 27 2C 61 29 3B 0D 0A 64 65 66 de a=',a);..def
022700: 69 6E 69 3A 3D 74 72 75 65 3B 72 65 73 75 6C 74 ini:=true;result
022710: 61 74 3A 3D 63 61 6C 63 75 6C 28 66 5B 69 5D 2C at:=calcul(f[i],
022720: 61 29 3B 66 5B 30 5D 3A 3D 66 5B 69 5D 3B 63 6F a);f[0]:=f[i];co
022730: 65 66 32 3A 3D 31 3B 0D 0A 69 66 20 64 65 66 69 ef2:=1;..if defi
022740: 6E 69 3D 74 72 75 65 20 74 68 65 6E 20 62 65 67 ni=true then beg
022750: 69 6E 0D 0A 20 20 20 20 69 66 20 72 65 73 75 6C in.. if resul
022760: 74 61 74 3C 3E 30 20 74 68 65 6E 0D 0A 20 20 20 tat<>0 then..
022770: 20 20 20 20 20 20 62 65 67 69 6E 0D 0A 20 20 20 begin..
022780: 20 20 20 20 20 20 20 20 20 20 20 69 66 20 72 65 if re
022790: 73 75 6C 74 61 74 3E 30 20 74 68 65 6E 20 77 72 sultat>0 then wr
0227A0: 69 74 65 28 27 2B 27 29 3B 0D 0A 20 20 20 20 20 ite('+');..
0227B0: 20 20 20 20 20 20 20 20 20 69 66 20 66 72 61 63 if frac
0227C0: 28 72 65 73 75 6C 74 61 74 29 3D 30 20 74 68 65 (resultat)=0 the
0227D0: 6E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 n..
0227E0: 20 77 72 69 74 65 28 72 6F 75 6E 64 28 72 65 73 write(round(res
0227F0: 75 6C 74 61 74 29 29 20 65 6C 73 65 20 77 72 69 ultat)) else wri
022800: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
022810: 1D 00 00 00 02 09 4E E5 1D 00 41 02 00 00 00 02 ......N...A.....
022820: 1D 00 42 02 00 00 00 02 1D 00 43 02 00 00 00 02 ..B.......C.....
022830: 1D 00 44 02 00 00 00 02 1D 00 45 02 00 00 00 02 ..D.......E.....
022840: 1D 00 46 02 00 00 00 02 1D 00 47 02 00 00 00 02 ..F.......G.....
022850: 1D 00 48 02 00 00 00 02 1D 00 49 02 00 00 00 02 ..H.......I.....
022860: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
022870: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
022880: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
022890: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0228A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0228B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0228C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0228D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0228E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0228F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
022900: 74 65 28 72 65 73 75 6C 74 61 74 3A 38 3A 33 29 te(resultat:8:3)
022910: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 65 6E 64 ;.. end
022920: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
022930: 20 65 6E 64 0D 0A 20 20 20 20 20 20 20 20 20 20 end..
022940: 20 20 20 20 65 6C 73 65 0D 0A 20 20 20 20 20 20 else..
022950: 20 20 20 20 20 20 20 20 62 65 67 69 6E 0D 0A 20 begin..
022960: 20 20 20 20 20 20 20 20 20 20 20 20 20 77 72 69 wri
022970: 74 65 6C 6E 28 27 4C 61 20 66 6F 6E 63 74 69 6F teln('La fonctio
022980: 6E 20 6E 27 27 65 73 74 20 70 61 73 20 64 65 66 n n''est pas def
022990: 69 6E 69 65 20 65 6E 20 27 2C 61 29 3B 0D 0A 20 inie en ',a);..
0229A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 67 6F 74 got
0229B0: 6F 20 66 69 6E 64 65 76 6C 69 6D 3B 0D 0A 20 20 o findevlim;..
0229C0: 20 20 20 20 20 20 20 20 20 20 20 20 65 6E 64 3B end;
0229D0: 0D 0A 66 6F 72 20 7A 3A 3D 31 20 74 6F 20 6A 20 ..for z:=1 to j
0229E0: 64 6F 0D 0A 20 20 20 20 20 20 20 62 65 67 69 6E do.. begin
0229F0: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 66 5B 30 .. f[0
022A00: 5D 3A 3D 64 65 72 69 76 65 28 66 5B 30 5D 29 3B ]:=derive(f[0]);
022A10: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 72 65 70 .. rep
022A20: 65 61 74 20 72 65 73 75 6C 74 3A 3D 30 3B 73 69 eat result:=0;si
022A30: 6D 70 6C 69 66 28 66 5B 30 5D 29 3B 20 75 6E 74 mplif(f[0]); unt
022A40: 69 6C 20 72 65 73 75 6C 74 3D 30 3B 0D 0A 20 20 il result=0;..
022A50: 20 20 20 20 20 20 20 20 20 63 6F 65 66 32 3A 3D coef2:=
022A60: 63 6F 65 66 32 2A 7A 3B 0D 0A 20 20 20 20 20 20 coef2*z;..
022A70: 20 20 20 20 20 64 65 66 69 6E 69 3A 3D 74 72 75 defini:=tru
022A80: 65 3B 72 65 73 75 6C 74 61 74 3A 3D 63 61 6C 63 e;resultat:=calc
022A90: 75 6C 28 66 5B 30 5D 2C 61 29 3B 0D 0A 20 20 20 ul(f[0],a);..
022AA0: 20 20 20 20 20 20 20 20 69 66 20 64 65 66 69 6E if defin
022AB0: 69 3D 74 72 75 65 20 74 68 65 6E 20 62 65 67 69 i=true then begi
022AC0: 6E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 69 66 n.. if
022AD0: 20 72 65 73 75 6C 74 61 74 3C 3E 30 20 74 68 65 resultat<>0 the
022AE0: 6E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 62 n.. b
022AF0: 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 20 20 egin..
022B00: 20 20 20 20 20 20 63 6F 65 66 31 3A 3D 72 65 73 coef1:=res
022B10: 75 6C 74 61 74 2F 63 6F 65 66 32 3B 0D 0A 20 20 ultat/coef2;..
022B20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 if
022B30: 20 72 65 73 75 6C 74 61 74 3E 3D 30 20 74 68 65 resultat>=0 the
022B40: 6E 20 77 72 69 74 65 28 27 2B 27 29 3B 0D 0A 20 n write('+');..
022B50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 69 i
022B60: 66 20 66 72 61 63 28 63 6F 65 66 31 29 3D 30 20 f frac(coef1)=0
022B70: 74 68 65 6E 0D 0A 20 20 20 20 20 20 20 20 20 20 then..
022B80: 20 20 20 20 20 20 77 72 69 74 65 28 72 6F 75 6E write(roun
022B90: 64 28 63 6F 65 66 31 29 29 20 65 6C 73 65 0D 0A d(coef1)) else..
022BA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 if
022BB0: 66 72 61 63 28 72 65 73 75 6C 74 61 74 29 3D 30 frac(resultat)=0
022BC0: 20 74 68 65 6E 20 77 72 69 74 65 28 72 6F 75 6E then write(roun
022BD0: 64 28 72 65 73 75 6C 74 61 74 29 2C 27 2F 27 2C d(resultat),'/',
022BE0: 72 6F 75 6E 64 28 63 6F 65 66 32 29 29 0D 0A 20 round(coef2))..
022BF0: 20 20 20 20 20 20 20 20 65 6C 73 65 20 20 77 72 else wr
022C00: 69 74 65 28 72 65 73 75 6C 74 61 74 3A 38 3A 33 ite(resultat:8:3
022C10: 2C 27 2F 27 2C 72 6F 75 6E 64 28 63 6F 65 66 32 ,'/',round(coef2
022C20: 29 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ));..
022C30: 20 20 69 66 20 61 3D 30 20 74 68 65 6E 20 77 72 if a=0 then wr
022C40: 69 74 65 28 27 78 27 29 20 65 6C 73 65 20 77 72 ite('x') else wr
022C50: 69 74 65 28 27 28 78 2D 61 29 27 29 3B 0D 0A 20 ite('(x-a)');..
022C60: 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 7A if z
022C70: 3E 31 20 74 68 65 6E 20 20 77 72 69 74 65 28 27 >1 then write('
022C80: 5E 27 2C 7A 29 3B 0D 0A 20 20 20 20 20 20 20 20 ^',z);..
022C90: 20 20 20 20 20 65 6E 64 3B 0D 0A 20 20 20 20 20 end;..
022CA0: 20 20 20 20 20 20 20 20 20 20 20 65 6E 64 0D 0A end..
022CB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
022CC0: 65 6C 73 65 0D 0A 20 20 20 20 20 20 20 20 20 20 else..
022CD0: 20 20 20 20 20 20 62 65 67 69 6E 0D 0A 20 20 20 begin..
022CE0: 20 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 write
022CF0: 6C 6E 3B 77 72 69 74 65 6C 6E 28 27 4C 61 20 64 ln;writeln('La d
022D00: 65 72 69 76 65 65 27 2C 7A 2C 27 69 65 6D 65 20 erivee',z,'ieme
022D10: 6E 27 27 65 73 74 20 70 61 73 20 64 65 66 69 6E n''est pas defin
022D20: 69 65 20 65 6E 20 27 2C 61 29 3B 0D 0A 20 20 20 ie en ',a);..
022D30: 20 20 20 20 20 20 20 20 20 20 20 67 6F 74 6F 20 goto
022D40: 66 69 6E 64 65 76 6C 69 6D 3B 0D 0A 20 20 20 20 findevlim;..
022D50: 20 20 20 20 20 20 20 20 20 20 65 6E 64 3B 0D 0A end;..
022D60: 20 20 20 20 20 20 20 65 6E 64 3B 0D 0A 77 72 69 end;..wri
022D70: 74 65 6C 6E 3B 0D 0A 66 69 6E 64 65 76 6C 69 6D teln;..findevlim
022D80: 3A 3B 0D 0A 74 65 6D 70 6F 3B 0D 0A 65 6E 64 3B :;..tempo;..end;
022D90: 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 20 62 6F ....procedure bo
022DA0: 75 63 6C 65 3B 0D 0A 76 61 72 20 7A 3A 69 6E 74 ucle;..var z:int
022DB0: 65 67 65 72 3B 0D 0A 62 65 67 69 6E 0D 0A 72 65 eger;..begin..re
022DC0: 70 65 61 74 0D 0A 63 68 6F 69 78 3A 3D 6D 65 6E peat..choix:=men
022DD0: 75 3B 0D 0A 63 61 73 65 20 63 68 6F 69 78 20 6F u;..case choix o
022DE0: 66 0D 0A 20 31 3A 20 20 20 20 62 65 67 69 6E 0D f.. 1: begin.
022DF0: 0A 20 20 20 20 20 20 20 77 72 69 74 65 28 27 4E . write('N
022E00: 6F 20 64 65 20 6C 61 20 66 6F 6E 63 74 69 6F 6E o de la fonction
022E10: 20 28 31 20 61 20 39 29 3F 27 29 3B 0D 0A 20 20 (1 a 9)?');..
022E20: 20 20 20 20 20 69 3A 3D 6E 75 6D 66 6F 6E 63 3B i:=numfonc;
022E30: 0D 0A 20 20 20 20 20 20 20 63 6C 72 73 63 72 3B .. clrscr;
022E40: 63 61 72 3A 3D 27 20 27 3B 0D 0A 20 20 20 20 20 car:=' ';..
022E50: 20 20 6C 69 72 66 6F 6E 63 74 69 6F 6E 28 66 5B lirfonction(f[
022E60: 69 5D 29 3B 0D 0A 20 20 20 20 20 20 20 72 65 70 i]);.. rep
022E70: 65 61 74 0D 0A 20 20 20 20 20 20 20 72 65 73 75 eat.. resu
022E80: 6C 74 3A 3D 30 3B 73 69 6D 70 6C 69 66 28 66 5B lt:=0;simplif(f[
022E90: 69 5D 29 3B 0D 0A 20 20 20 20 20 20 20 75 6E 74 i]);.. unt
022EA0: 69 6C 20 72 65 73 75 6C 74 3D 30 3B 0D 0A 20 20 il result=0;..
022EB0: 20 20 20 20 20 74 65 6D 70 6F 3B 0D 0A 20 20 20 tempo;..
022EC0: 20 20 20 20 65 6E 64 3B 0D 0A 20 32 3A 20 20 20 end;.. 2:
022ED0: 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 63 begin.. c
022EE0: 6C 72 73 63 72 3B 77 72 69 74 65 28 27 4E 6F 20 lrscr;write('No
022EF0: 64 65 20 6C 61 20 66 6F 6E 63 74 69 6F 6E 20 28 de la fonction (
022F00: 31 20 61 20 39 29 3F 27 29 3B 0D 0A 20 20 20 20 1 a 9)?');..
022F10: 20 20 20 69 3A 3D 6E 75 6D 66 6F 6E 63 3B 0D 0A i:=numfonc;..
022F20: 20 20 20 20 20 20 20 69 66 20 66 5B 69 5D 3D 6E if f[i]=n
022F30: 69 6C 20 74 68 65 6E 20 6C 69 72 66 6F 6E 63 74 il then lirfonct
022F40: 69 6F 6E 28 66 5B 69 5D 29 3B 0D 0A 20 20 20 20 ion(f[i]);..
022F50: 20 20 20 77 72 69 74 65 6C 6E 28 27 66 27 2C 69 writeln('f',i
022F60: 2C 27 28 78 29 3D 27 2C 74 61 70 65 66 6F 6E 63 ,'(x)=',tapefonc
022F70: 74 69 6F 6E 28 66 5B 69 5D 2C 27 78 27 29 29 3B tion(f[i],'x'));
022F80: 0D 0A 20 20 20 20 20 20 20 61 6C 67 65 62 72 69 .. algebri
022F90: 71 75 65 28 66 5B 69 5D 29 3B 0D 0A 20 20 20 20 que(f[i]);..
022FA0: 20 20 20 77 72 69 74 65 6C 6E 28 27 66 27 2C 69 writeln('f',i
022FB0: 2C 27 28 78 29 3D 27 2C 74 61 70 65 66 6F 6E 63 ,'(x)=',tapefonc
022FC0: 74 69 6F 6E 28 66 5B 69 5D 2C 27 78 27 29 29 3B tion(f[i],'x'));
022FD0: 0D 0A 20 20 20 20 20 20 20 74 65 6D 70 6F 3B 0D .. tempo;.
022FE0: 0A 20 20 20 20 20 20 20 65 6E 64 3B 0D 0A 20 33 . end;.. 3
022FF0: 3A 20 20 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 : begin..
023000: 20 20 20 63 6C 72 73 63 72 3B 77 72 69 74 65 28 clrscr;write(
023010: 27 4E 6F 20 64 65 20 6C 61 20 66 6F 6E 63 74 69 'No de la foncti
023020: 6F 6E 20 28 31 20 61 20 39 29 3F 27 29 3B 0D 0A on (1 a 9)?');..
023030: 20 20 20 20 20 20 20 69 3A 3D 6E 75 6D 66 6F 6E i:=numfon
023040: 63 3B 0D 0A 20 20 20 20 20 20 20 69 66 20 66 5B c;.. if f[
023050: 69 5D 3D 6E 69 6C 20 74 68 65 6E 20 6C 69 72 66 i]=nil then lirf
023060: 6F 6E 63 74 69 6F 6E 28 66 5B 69 5D 29 3B 0D 0A onction(f[i]);..
023070: 20 20 20 20 20 20 20 77 72 69 74 65 6C 6E 28 27 writeln('
023080: 66 27 2C 69 2C 27 28 78 29 3D 27 2C 74 61 70 65 f',i,'(x)=',tape
023090: 66 6F 6E 63 74 69 6F 6E 28 66 5B 69 5D 2C 27 78 fonction(f[i],'x
0230A0: 27 29 29 3B 0D 0A 20 20 20 20 20 20 20 62 69 6E '));.. bin
0230B0: 6F 6D 65 28 66 5B 69 5D 29 3B 0D 0A 20 20 20 20 ome(f[i]);..
0230C0: 20 20 20 77 72 69 74 65 6C 6E 28 27 66 27 2C 69 writeln('f',i
0230D0: 2C 27 28 78 29 3D 27 2C 74 61 70 65 66 6F 6E 63 ,'(x)=',tapefonc
0230E0: 74 69 6F 6E 28 66 5B 69 5D 2C 27 78 27 29 29 3B tion(f[i],'x'));
0230F0: 0D 0A 20 20 20 20 20 20 20 74 65 6D 70 6F 3B 0D .. tempo;.
023100: 0A 20 20 20 20 20 20 20 65 6E 64 3B 0D 0A 20 34 . end;.. 4
023110: 3A 20 20 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 : begin..
023120: 20 20 20 63 6C 72 73 63 72 3B 77 72 69 74 65 28 clrscr;write(
023130: 27 4E 6F 20 64 65 20 6C 61 20 66 6F 6E 63 74 69 'No de la foncti
023140: 6F 6E 20 28 31 20 61 20 39 29 3F 27 29 3B 0D 0A on (1 a 9)?');..
023150: 20 20 20 20 20 20 20 69 3A 3D 6E 75 6D 66 6F 6E i:=numfon
023160: 63 3B 0D 0A 20 20 20 20 20 20 20 69 66 20 66 5B c;.. if f[
023170: 69 5D 3D 6E 69 6C 20 74 68 65 6E 20 6C 69 72 66 i]=nil then lirf
023180: 6F 6E 63 74 69 6F 6E 28 66 5B 69 5D 29 3B 0D 0A onction(f[i]);..
023190: 20 20 20 20 20 20 20 69 66 20 6D 5B 69 5D 3E 30 if m[i]>0
0231A0: 20 74 68 65 6E 0D 0A 20 20 20 20 20 20 20 62 65 then.. be
0231B0: 67 69 6E 0D 0A 20 20 20 20 20 20 20 66 6F 72 20 gin.. for
0231C0: 7A 3A 3D 31 20 74 6F 20 6D 5B 69 5D 20 64 6F 0D z:=1 to m[i] do.
0231D0: 0A 20 20 20 20 20 20 20 62 65 67 69 6E 0D 0A 20 . begin..
0231E0: 20 20 20 20 20 20 77 72 69 74 65 28 27 56 61 6C write('Val
0231F0: 65 75 72 20 64 75 20 70 61 72 61 6D 65 74 72 65 eur du parametre
023200: 20 6E 2E 27 29 3B 77 72 69 74 65 28 7A 29 3B 77 n.');write(z);w
023210: 72 69 74 65 28 27 20 3D 27 29 3B 72 65 61 64 6C rite(' =');readl
023220: 6E 28 70 5B 7A 2C 69 5D 29 3B 0D 0A 20 20 20 20 n(p[z,i]);..
023230: 20 20 20 65 6E 64 3B 0D 0A 20 20 20 20 20 20 20 end;..
023240: 65 6E 64 3B 0D 0A 20 20 20 20 20 20 20 63 61 6C end;.. cal
023250: 63 75 6C 66 6F 6E 63 74 69 6F 6E 28 66 5B 69 5D culfonction(f[i]
023260: 29 3B 0D 0A 20 20 20 20 20 20 20 65 6E 64 3B 0D );.. end;.
023270: 0A 20 35 3A 20 20 20 20 62 65 67 69 6E 0D 0A 20 . 5: begin..
023280: 20 20 20 20 20 20 63 6C 72 73 63 72 3B 77 72 69 clrscr;wri
023290: 74 65 28 27 4E 6F 20 64 65 20 6C 61 20 66 6F 6E te('No de la fon
0232A0: 63 74 69 6F 6E 20 28 31 20 61 20 39 29 3F 27 29 ction (1 a 9)?')
0232B0: 3B 0D 0A 20 20 20 20 20 20 20 69 3A 3D 6E 75 6D ;.. i:=num
0232C0: 66 6F 6E 63 3B 0D 0A 20 20 20 20 20 20 20 69 66 fonc;.. if
0232D0: 20 66 5B 69 5D 3D 6E 69 6C 20 74 68 65 6E 20 6C f[i]=nil then l
0232E0: 69 72 66 6F 6E 63 74 69 6F 6E 28 66 5B 69 5D 29 irfonction(f[i])
0232F0: 3B 0D 0A 20 20 20 20 20 20 20 77 72 69 74 65 6C ;.. writel
023300: 6E 28 27 66 27 2C 69 2C 27 28 78 29 3D 27 2C 74 n('f',i,'(x)=',t
023310: 61 70 65 66 6F 6E 63 74 69 6F 6E 28 66 5B 69 5D apefonction(f[i]
023320: 2C 27 78 27 29 29 3B 0D 0A 20 20 20 20 20 20 20 ,'x'));..
023330: 77 72 69 74 65 28 27 4E 6F 20 64 65 20 6C 61 20 write('No de la
023340: 64 65 72 69 76 65 65 20 28 31 20 61 20 39 20 65 derivee (1 a 9 e
023350: 74 20 64 69 66 66 65 72 65 6E 74 20 64 75 20 6E t different du n
023360: 6F 20 66 6F 6E 63 74 69 6F 6E 29 3F 27 29 3B 0D o fonction)?');.
023370: 0A 20 20 20 20 20 20 20 6A 3A 3D 6E 75 6D 66 6F . j:=numfo
023380: 6E 63 3B 0D 0A 20 20 20 20 20 69 66 20 69 3C 3E nc;.. if i<>
023390: 6A 20 74 68 65 6E 0D 0A 20 20 20 20 20 62 65 67 j then.. beg
0233A0: 69 6E 0D 0A 20 20 20 20 20 20 20 64 65 66 69 6E in.. defin
0233B0: 69 3A 3D 74 72 75 65 3B 0D 0A 20 20 20 20 20 20 i:=true;..
0233C0: 20 66 5B 6A 5D 3A 3D 64 65 72 69 76 65 28 66 5B f[j]:=derive(f[
0233D0: 69 5D 29 3B 6D 5B 6A 5D 3A 3D 6D 5B 69 5D 3B 0D i]);m[j]:=m[i];.
0233E0: 0A 20 20 20 20 20 20 20 69 66 20 64 65 66 69 6E . if defin
0233F0: 69 3D 74 72 75 65 20 74 68 65 6E 0D 0A 20 20 20 i=true then..
023400: 20 20 20 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 begin..
023410: 20 20 20 20 20 61 6C 67 65 62 72 69 71 75 65 28 algebrique(
023420: 66 5B 6A 5D 29 3B 0D 0A 20 20 20 20 20 20 20 20 f[j]);..
023430: 20 77 72 69 74 65 6C 6E 28 27 44 65 72 69 76 65 writeln('Derive
023440: 65 20 64 65 20 66 27 2C 69 2C 27 28 78 29 3D 27 e de f',i,'(x)='
023450: 2C 74 61 70 65 66 6F 6E 63 74 69 6F 6E 28 66 5B ,tapefonction(f[
023460: 6A 5D 2C 27 78 27 29 29 3B 0D 0A 20 20 20 20 20 j],'x'));..
023470: 20 20 20 65 6E 64 0D 0A 20 20 20 20 20 20 20 20 end..
023480: 65 6C 73 65 0D 0A 20 20 20 20 20 20 20 20 77 72 else.. wr
023490: 69 74 65 6C 6E 28 27 4C 61 20 64 65 72 69 76 65 iteln('La derive
0234A0: 65 20 6E 27 27 65 73 74 20 70 61 73 20 64 65 66 e n''est pas def
0234B0: 69 6E 69 65 20 28 49 4E 54 20 6F 75 20 41 42 53 inie (INT ou ABS
0234C0: 2E 2E 29 27 29 3B 0D 0A 20 20 20 20 20 20 20 74 ..)');.. t
0234D0: 65 6D 70 6F 3B 0D 0A 20 20 20 20 20 65 6E 64 0D empo;.. end.
0234E0: 0A 20 20 20 20 20 65 6C 73 65 0D 0A 20 20 20 20 . else..
0234F0: 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 begin..
023500: 77 72 69 74 65 6C 6E 3B 0D 0A 20 20 20 20 20 20 writeln;..
023510: 20 77 72 69 74 65 6C 6E 28 27 4D 65 6D 65 20 6E writeln('Meme n
023520: 75 6D 65 72 6F 20 70 6F 75 72 20 66 20 65 74 20 umero pour f et
023530: 66 27 27 2E 20 52 65 63 6F 6D 6D 65 6E 63 65 7A f''. Recommencez
023540: 20 21 21 21 27 29 3B 0D 0A 20 20 20 20 20 20 20 !!!');..
023550: 74 65 6D 70 6F 3B 0D 0A 20 20 20 20 20 20 65 6E tempo;.. en
023560: 64 3B 0D 0A 20 20 20 20 20 65 6E 64 3B 0D 0A 36 d;.. end;..6
023570: 3A 20 20 20 20 64 65 76 6C 69 6D 3B 0D 0A 0D 0A : devlim;....
023580: 65 6E 64 3B 0D 0A 75 6E 74 69 6C 20 63 68 6F 69 end;..until choi
023590: 78 3D 37 3B 0D 0A 65 6E 64 3B 0D 0A 0D 0A 1A 1A x=7;..end;......
0235A0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0235B0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0235C0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0235D0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0235E0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
0235F0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
023600: 77 72 69 74 65 6C 6E 3B 0D 0A 20 20 20 77 72 69 writeln;.. wri
023610: 74 65 6C 6E 28 27 32 2D 43 6F 75 72 62 65 20 78 teln('2-Courbe x
023620: 3D 66 28 74 29 3B 79 3D 66 28 74 29 27 29 3B 77 =f(t);y=f(t)');w
023630: 72 69 74 65 6C 6E 3B 0D 0A 20 20 20 77 72 69 74 riteln;.. writ
023640: 65 6C 6E 28 27 33 2D 43 6F 75 72 62 65 20 70 6F eln('3-Courbe po
023650: 6C 61 69 72 65 20 72 3D 66 28 74 29 27 29 3B 77 laire r=f(t)');w
023660: 72 69 74 65 6C 6E 3B 0D 0A 20 20 20 77 72 69 74 riteln;.. writ
023670: 65 28 27 56 6F 74 72 65 20 63 68 6F 69 78 3F 20 e('Votre choix?
023680: 27 29 3B 0D 0A 20 20 20 72 65 70 65 61 74 0D 0A ');.. repeat..
023690: 20 20 20 72 65 61 64 28 6B 62 64 2C 63 61 72 29 read(kbd,car)
0236A0: 3B 0D 0A 20 20 20 75 6E 74 69 6C 20 28 28 63 61 ;.. until ((ca
0236B0: 72 3E 27 30 27 29 20 61 6E 64 20 28 63 61 72 3C r>'0') and (car<
0236C0: 27 34 27 29 29 3B 0D 0A 20 20 20 77 72 69 74 65 '4'));.. write
0236D0: 6C 6E 3B 0D 0A 20 20 20 76 61 6C 28 63 61 72 2C ln;.. val(car,
0236E0: 63 68 6F 69 78 2C 72 65 73 75 6C 74 29 3B 0D 0A choix,result);..
0236F0: 20 20 20 77 72 69 74 65 6C 6E 3B 0D 0A 20 20 65 writeln;.. e
023700: 65 6E 20 65 78 70 6F 73 61 6E 74 3A 3D 31 20 65 en exposant:=1 e
023710: 6C 73 65 0D 0A 69 66 20 6C 6C 3E 30 20 74 68 65 lse..if ll>0 the
023720: 6E 20 62 65 67 69 6E 20 6C 3A 3D 6C 2D 31 3B 65 n begin l:=l-1;e
023730: 78 70 6F 73 61 6E 74 3A 3D 6B 2A 65 78 70 6F 73 xposant:=k*expos
023740: 61 6E 74 28 6B 2C 6C 29 20 65 6E 64 20 65 6C 73 ant(k,l) end els
023750: 65 0D 0A 69 66 20 6C 6C 3C 30 20 74 68 65 6E 20 e..if ll<0 then
023760: 62 65 67 69 6E 20 6C 3A 3D 6C 2B 31 3B 65 78 70 begin l:=l+1;exp
023770: 6F 73 61 6E 74 3A 3D 28 31 2F 6B 29 2A 65 78 70 osant:=(1/k)*exp
023780: 6F 73 61 6E 74 28 6B 2C 6C 29 20 65 6E 64 3B 0D osant(k,l) end;.
023790: 0A 65 6E 64 3B 0D 0A 0D 0A 0D 0A 70 72 6F 63 65 .end;......proce
0237A0: 64 75 72 65 20 20 20 20 63 61 6C 63 75 6C 66 6F dure calculfo
0237B0: 6E 63 74 69 6F 6E 28 66 3A 66 6F 6E 63 74 69 6F nction(f:fonctio
0237C0: 6E 29 3B 0D 0A 76 61 72 0D 0A 63 68 78 2C 63 68 n);..var..chx,ch
0237D0: 79 3A 73 74 72 31 30 3B 0D 0A 62 65 67 69 6E 0D y:str10;..begin.
0237E0: 0A 20 63 6C 72 73 63 72 3B 0D 0A 20 72 65 70 65 . clrscr;.. repe
0237F0: 61 74 0D 0A 20 77 72 69 74 65 28 27 76 61 6C 65 at.. write('vale
023800: 75 72 20 64 65 20 78 20 3F 27 29 3B 0D 0A 20 72 ur de x ?');.. r
023810: 65 61 64 6C 6E 28 78 29 3B 0D 0A 20 64 65 66 69 eadln(x);.. defi
023820: 6E 69 3A 3D 74 72 75 65 3B 72 65 73 75 6C 74 61 ni:=true;resulta
023830: 74 3A 3D 63 61 6C 63 75 6C 28 66 2C 78 29 3B 0D t:=calcul(f,x);.
023840: 0A 20 69 66 20 66 72 61 63 28 78 29 3D 30 20 74 . if frac(x)=0 t
023850: 68 65 6E 20 73 74 72 28 72 6F 75 6E 64 28 78 29 hen str(round(x)
023860: 2C 63 68 78 29 20 65 6C 73 65 20 73 74 72 28 78 ,chx) else str(x
023870: 3A 38 3A 33 2C 63 68 78 29 3B 0D 0A 20 69 66 20 :8:3,chx);.. if
023880: 64 65 66 69 6E 69 3D 74 72 75 65 20 74 68 65 6E defini=true then
023890: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
0238A0: 20 20 20 20 20 20 62 65 67 69 6E 0D 0A 20 20 20 begin..
0238B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0238C0: 20 77 72 69 74 65 28 27 66 27 2C 69 2C 27 28 27 write('f',i,'('
0238D0: 2C 63 68 78 2C 27 29 3D 27 29 3B 0D 0A 20 20 20 ,chx,')=');..
0238E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0238F0: 20 69 66 20 66 72 61 63 28 72 65 73 75 6C 74 61 if frac(resulta
023900: 74 29 3D 30 20 74 68 65 6E 20 73 74 72 28 72 6F t)=0 then str(ro
023910: 75 6E 64 28 72 65 73 75 6C 74 61 74 29 2C 63 68 und(resultat),ch
023920: 79 29 20 65 6C 73 65 0D 0A 20 20 20 20 20 20 20 y) else..
023930: 20 20 20 20 20 20 20 20 20 20 20 20 20 73 74 72 str
023940: 28 72 65 73 75 6C 74 61 74 3A 38 3A 33 2C 63 68 (resultat:8:3,ch
023950: 79 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 y);..
023960: 20 20 20 20 20 20 20 20 20 77 72 69 74 65 6C 6E writeln
023970: 28 63 68 79 29 3B 0D 0A 20 20 20 20 20 20 20 20 (chy);..
023980: 20 20 20 20 20 20 20 20 20 20 20 20 65 6E 64 0D end.
023990: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
0239A0: 20 20 20 20 20 65 6C 73 65 0D 0A 20 20 20 20 20 else..
0239B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 b
0239C0: 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 20 20 egin..
0239D0: 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 6C writel
0239E0: 6E 28 27 66 27 2C 69 2C 27 28 27 2C 63 68 78 2C n('f',i,'(',chx,
0239F0: 27 29 20 6E 27 27 65 73 74 20 70 61 73 20 64 65 ') n''est pas de
023A00: 66 69 6E 69 65 27 29 3B 0D 0A 20 20 20 20 20 20 finie');..
023A10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6E en
023A20: 64 3B 0D 0A 20 77 72 69 74 65 6C 6E 28 27 3C 31 d;.. writeln('<1
023A30: 3E 20 55 6E 20 61 75 74 72 65 20 78 3F 20 3C 32 > Un autre x? <2
023A40: 3E 20 52 65 74 6F 75 72 20 61 75 20 6D 65 6E 75 > Retour au menu
023A50: 20 27 29 3B 0D 0A 20 20 20 72 65 70 65 61 74 0D ');.. repeat.
023A60: 0A 20 20 20 72 65 61 64 28 6B 62 64 2C 63 61 72 . read(kbd,car
023A70: 29 3B 0D 0A 20 20 20 75 6E 74 69 6C 20 28 28 63 );.. until ((c
023A80: 61 72 3D 27 31 27 29 20 6F 72 20 28 63 61 72 3D ar='1') or (car=
023A90: 27 32 27 29 29 3B 0D 0A 20 20 20 76 61 6C 28 63 '2'));.. val(c
023AA0: 61 72 2C 63 68 6F 69 78 2C 72 65 73 75 6C 74 29 ar,choix,result)
023AB0: 3B 0D 0A 20 77 72 69 74 65 6C 6E 3B 0D 0A 20 75 ;.. writeln;.. u
023AC0: 6E 74 69 6C 20 63 68 6F 69 78 3D 32 0D 0A 65 6E ntil choix=2..en
023AD0: 64 3B 0D 0A 0D 0D 0D 0D 1A 1A 1A 1A 1A 1A 1A 1A d;..............
023AE0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
023AF0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
023B00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
023B10: 1E 00 00 00 02 09 4E E5 1E 00 41 02 00 00 00 02 ......N...A.....
023B20: 1E 00 42 02 00 00 00 02 1E 00 43 02 00 00 00 02 ..B.......C.....
023B30: 1E 00 44 02 00 00 00 02 1E 00 45 02 00 00 00 02 ..D.......E.....
023B40: 1E 00 46 02 00 00 00 02 1E 00 47 02 00 00 00 02 ..F.......G.....
023B50: 1E 00 48 02 00 00 00 02 1E 00 49 02 00 00 00 02 ..H.......I.....
023B60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023B70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023B80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023B90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023BA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023BB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023BC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023BD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023BE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023BF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
023C00: 2A 4A ED 5E 23 56 EB 11 14 00 19 5E 23 56 EB 11 *J.^#V.....^#V..
023C10: 12 00 19 E5 2A 4A ED 5E 23 56 EB 11 14 00 19 5E ....*J.^#V.....^
023C20: 23 56 EB 11 12 00 19 E5 CD 50 2D EB E1 73 23 72 #V.......P-..s#r
023C30: 2A 4A ED 5E 23 56 EB 11 14 00 19 5E 23 56 EB E5 *J.^#V.....^#V..
023C40: CD 4D 05 04 70 6C 75 73 06 06 CD 01 06 2A 4A ED .M..plus.....*J.
023C50: 5E 23 56 EB 11 14 00 19 5E 23 56 EB 11 07 00 19 ^#V.....^#V.....
023C60: E5 21 2B 00 65 2E 01 E5 06 0A CD 01 06 2A 4A ED .!+.e........*J.
023C70: 5E 23 56 EB 11 12 00 19 5E 23 56 EB 11 07 00 19 ^#V.....^#V.....
023C80: CD 3A 05 21 2B 00 65 2E 01 E5 CD 8D 06 E5 2A 4A .:.!+.e.......*J
023C90: ED 5E 23 56 EB 11 12 00 19 5E 23 56 EB 11 07 00 .^#V.....^#V....
023CA0: 19 CD 3A 05 21 2D 00 65 2E 01 E5 CD 8D 06 D1 7D ..:.!-.e.......}
023CB0: B3 6F E5 2A 4A ED 5E 23 56 EB 11 14 00 19 5E 23 .o.*J.^#V.....^#
023CC0: 56 EB 11 07 00 19 CD 3A 05 21 2B 00 65 2E 01 E5 V......:.!+.e...
023CD0: CD 8D 06 E5 2A 4A ED 5E 23 56 EB 11 14 00 19 5E ....*J.^#V.....^
023CE0: 23 56 EB 11 07 00 19 CD 3A 05 21 2D 00 65 2E 01 #V......:.!-.e..
023CF0: E5 CD 8D 06 D1 7D B3 6F D1 7D A3 6F CB 45 CA CC .....}.o.}£o.E..
023D00: 72 21 40 ED E5 21 16 00 CD E5 1C 2A 4A ED 5E 23 r!@..!.....*J.^#
023D10: 56 EB CD 3A 05 06 06 2A 40 ED CD E2 05 2A 40 ED V..:...*@....*@.
023D20: 11 07 00 19 E5 2A 4A ED 5E 23 56 EB 11 07 00 19 .....*J.^#V.....
023D30: CD 3A 05 06 0A CD 01 06 2A 40 ED 11 14 00 19 E5 .:......*@......
023D40: 2A 4A ED 5E 23 56 EB 11 14 00 19 5E 23 56 EB EB *J.^#V.....^#V..
023D50: E1 73 23 72 2A 40 ED 11 12 00 19 E5 2A 4A ED 5E .s#r*@......*J.^
023D60: 23 56 EB 11 12 00 19 5E 23 56 EB 11 14 00 19 5E #V.....^#V.....^
023D70: 23 56 EB EB E1 73 23 72 2A 4A ED 5E 23 56 EB 11 #V...s#r*J.^#V..
023D80: 14 00 19 E5 2A 40 ED EB E1 73 23 72 2A 4A ED 5E ....*@...s#r*J.^
023D90: 23 56 EB 11 12 00 19 E5 2A 4A ED 5E 23 56 EB 11 #V......*J.^#V..
023DA0: 12 00 19 5E 23 56 EB 11 12 00 19 5E 23 56 EB EB ...^#V.....^#V..
023DB0: E1 73 23 72 21 01 00 22 94 F2 2A 4A ED 5E 23 56 .s#r!.."..*J.^#V
023DC0: EB 11 14 00 19 E5 CD 23 6F C3 7F 75 2A 4A ED 5E .......#o..u*J.^
023DD0: 23 56 EB 11 14 00 19 5E 23 56 EB 11 07 00 19 CD #V.....^#V......
023DE0: 3A 05 21 2B 00 65 2E 01 E5 CD 8D 06 E5 2A 4A ED :.!+.e.......*J.
023DF0: 5E 23 56 EB 11 14 00 19 5E 23 56 EB 11 07 00 19 ^#V.....^#V.....
023E00: CD 3A 05 21 2D 00 65 2E 01 E5 CD 8D 06 D1 7D B3 .:.!-.e.......}.
023E10: 6F CB 45 CA 22 74 2A 4A ED 5E 23 56 EB 11 12 00 o.E."t*J.^#V....
023E20: 19 5E 23 56 EB E5 CD 99 4C E5 21 00 00 D1 CD A5 .^#V....L.!.....
023E30: 06 E5 2A 4A ED 5E 23 56 EB 11 12 00 19 5E 23 56 ..*J.^#V.....^#V
023E40: EB E5 CD 99 4C E5 2A 4A ED 5E 23 56 EB 11 14 00 ....L.*J.^#V....
023E50: 19 5E 23 56 EB 11 12 00 19 5E 23 56 EB E5 CD 99 .^#V.....^#V....
023E60: 4C D1 CD 7F 06 D1 7D A3 6F CB 45 CA 1F 74 2A 4A L.....}£o.E..t*J
023E70: ED 5E 23 56 EB 11 12 00 19 5E 23 56 EB 22 40 ED .^#V.....^#V."@.
023E80: 2A 4A ED 5E 23 56 EB 11 12 00 19 E5 2A 4A ED 5E *J.^#V......*J.^
023E90: 23 56 EB 11 14 00 19 5E 23 56 EB 11 14 00 19 5E #V.....^#V.....^
023EA0: 23 56 EB EB E1 73 23 72 2A 4A ED 5E 23 56 EB 11 #V...s#r*J.^#V..
023EB0: 14 00 19 5E 23 56 EB 11 14 00 19 E5 2A 40 ED EB ...^#V......*@..
023EC0: E1 73 23 72 2A 4A ED 5E 23 56 EB 11 14 00 19 5E .s#r*J.^#V.....^
023ED0: 23 56 EB 22 40 ED 2A 4A ED 5E 23 56 EB 11 14 00 #V."@.*J.^#V....
023EE0: 19 E5 2A 4A ED 5E 23 56 EB 11 12 00 19 5E 23 56 ..*J.^#V.....^#V
023EF0: EB EB E1 73 23 72 2A 4A ED 5E 23 56 EB 11 12 00 ...s#r*J.^#V....
023F00: 19 E5 2A 40 ED EB E1 73 23 72 2A 4A ED 5E 23 56 ..*@...s#r*J.^#V
023F10: EB 11 12 00 19 E5 CD 88 51 21 01 00 22 94 F2 C3 ........Q!.."...
023F20: 7F 75 2A 4A ED 5E 23 56 EB 11 12 00 19 5E 23 56 .u*J.^#V.....^#V
023F30: EB 11 07 00 19 CD 3A 05 21 2B 00 65 2E 01 E5 CD ......:.!+.e....
023F40: 8D 06 E5 2A 4A ED 5E 23 56 EB 11 12 00 19 5E 23 ...*J.^#V.....^#
023F50: 56 EB 11 07 00 19 CD 3A 05 21 2D 00 65 2E 01 E5 V......:.!-.e...
023F60: CD 8D 06 D1 7D B3 6F E5 2A 4A ED 5E 23 56 EB 11 ....}.o.*J.^#V..
023F70: 14 00 19 5E 23 56 EB E5 CD 99 4C E5 21 00 00 D1 ...^#V....L.!...
023F80: CD A5 06 D1 7D A3 6F E5 2A 4A ED 5E 23 56 EB 11 ....}£o.*J.^#V..
023F90: 14 00 19 5E 23 56 EB E5 CD 99 4C E5 2A 4A ED 5E ...^#V....L.*J.^
023FA0: 23 56 EB 11 12 00 19 5E 23 56 EB 11 14 00 19 5E #V.....^#V.....^
023FB0: 23 56 EB E5 CD 99 4C D1 CD 7F 06 D1 7D A3 6F CB #V....L.....}£o.
023FC0: 45 CA 29 75 2A 4A ED 5E 23 56 EB 11 12 00 19 5E E.)u*J.^#V.....^
023FD0: 23 56 EB 22 40 ED 2A 4A ED 5E 23 56 EB 11 12 00 #V."@.*J.^#V....
023FE0: 19 E5 2A 4A ED 5E 23 56 EB 11 14 00 19 5E 23 56 ..*J.^#V.....^#V
023FF0: EB EB E1 73 23 72 2A 4A ED 5E 23 56 EB 11 14 00 ...s#r*J.^#V....
024000: 19 E5 2A 40 ED EB E1 73 23 72 2A 4A ED 5E 23 56 ..*@...s#r*J.^#V
024010: EB 11 14 00 19 E5 CD 96 4C 21 01 00 22 94 F2 2A ........L!.."..*
024020: 4A ED E5 CD 23 6F C3 7F 75 2A 4A ED 5E 23 56 EB J...#o..u*J.^#V.
024030: 11 12 00 19 5E 23 56 EB E5 21 00 00 D1 CD 92 06 ....^#V..!......
024040: CB 45 CA 54 75 2A 4A ED 5E 23 56 EB 11 12 00 19 .E.Tu*J.^#V.....
024050: E5 CD 23 6F 2A 4A ED 5E 23 56 EB 11 14 00 19 5E ..#o*J.^#V.....^
024060: 23 56 EB E5 21 00 00 D1 CD 92 06 CB 45 CA 7F 75 #V..!.......E..u
024070: 2A 4A ED 5E 23 56 EB 11 14 00 19 E5 CD 23 6F 2A *J.^#V.......#o*
024080: 4A ED 5E 23 56 EB 11 12 00 19 5E 23 56 EB E5 21 J.^#V.....^#V..!
024090: 00 00 D1 CD 92 06 CB 45 CA AA 75 2A 4A ED 5E 23 .......E..u*J.^#
0240A0: 56 EB 11 12 00 19 E5 CD 23 6F 2A 4A ED 5E 23 56 V.......#o*J.^#V
0240B0: EB 11 14 00 19 5E 23 56 EB E5 21 00 00 D1 CD 92 .....^#V..!.....
0240C0: 06 CB 45 CA D5 75 2A 4A ED 5E 23 56 EB 11 14 00 ..E..u*J.^#V....
0240D0: 19 E5 CD 23 6F 01 0E 00 11 3E ED C3 22 05 01 0A ...#o....>.."...
0240E0: 00 21 34 ED CD 08 05 FD E1 E1 22 3C ED FD E5 21 .!4......."<...!
0240F0: 00 00 22 94 F2 2A 3C ED E5 CD 56 2D 2A 94 F2 E5 .."..*<...V-*...
024100: 21 00 00 D1 CD 7F 06 CB 45 CA EF 75 21 00 00 22 !.......E..u!.."
024110: 94 F2 2A 3C ED E5 CD 9C 4C 2A 94 F2 E5 21 00 00 ..*<....L*...!..
024120: D1 CD 7F 06 CB 45 CA 0C 76 21 00 00 22 94 F2 2A .....E..v!.."..*
024130: 3C ED E5 CD C7 57 2A 94 F2 E5 21 00 00 D1 CD 7F <....W*...!.....
024140: 06 CB 45 CA 29 76 21 00 00 22 94 F2 2A 3C ED E5 ..E.)v!.."..*<..
024150: CD 96 4C 2A 3C ED E5 CD 23 6F 2A 94 F2 E5 21 00 ..L*<...#o*...!.
024160: 00 D1 CD 7F 06 CB 45 CA 46 76 21 00 00 22 94 F2 ......E.Fv!.."..
024170: 2A 3C ED E5 CD 56 2D 2A 94 F2 E5 21 00 00 D1 CD *<...V-*...!....
024180: 7F 06 CB 45 CA 6A 76 01 0A 00 11 34 ED C3 22 05 ...E.jv....4..".
024190: 01 18 00 21 1C ED CD 08 05 FD E1 E1 22 32 ED FD ...!........"2..
0241A0: E5 2A 32 ED 5E 23 56 EB 11 07 00 19 CD 3A 05 21 .*2.^#V......:.!
0241B0: 5E 00 65 2E 01 E5 CD 8D 06 E5 2A 32 ED 5E 23 56 ^.e.......*2.^#V
0241C0: EB 11 14 00 19 5E 23 56 EB 11 07 00 19 CD 3A 05 .....^#V......:.
0241D0: 21 2B 00 65 2E 01 E5 CD 8D 06 E5 2A 32 ED 5E 23 !+.e.......*2.^#
0241E0: 56 EB 11 14 00 19 5E 23 56 EB 11 07 00 19 CD 3A V.....^#V......:
0241F0: 05 21 2D 00 65 2E 01 E5 CD 8D 06 D1 7D B3 6F D1 .!-.e.......}.o.
024200: 7D A3 6F E5 2A 32 ED 5E 23 56 EB 11 12 00 19 5E }£o.*2.^#V.....^
024210: 23 56 EB CD 3A 05 CD 4D 05 06 6E 6F 6D 62 72 65 #V..:..M..nombre
024220: CD 8D 06 D1 7D A3 6F CB 45 CA 41 79 2A 32 ED 5E ....}£o.E.Ay*2.^
024230: 23 56 EB 11 12 00 19 5E 23 56 EB 11 07 00 19 CD #V.....^#V......
024240: 3A 05 21 1E ED E5 21 1C ED CD F3 1E 21 1E ED CD :.!...!.....!...
024250: 2C 05 CD 34 0C C5 D5 E5 21 00 00 CD 08 10 D9 E1 ,..4....!.......
024260: D1 C1 CD 88 06 E5 21 1E ED CD 2C 05 C5 D5 E5 21 ......!...,....!
024270: 02 00 CD 08 10 D9 E1 D1 C1 CD AE 06 D1 7D A3 6F .............}£o
024280: CB 45 CA 3E 79 21 1E ED CD 2C 05 C5 D5 E5 21 02 .E.>y!...,....!.
024290: 00 CD 08 10 D9 E1 D1 C1 CD 88 06 CB 45 CA F8 77 ............E..w
0242A0: 2A 32 ED 5E 23 56 EB E5 CD 4D 05 05 6D 75 6C 74 *2.^#V...M..mult
0242B0: 69 06 06 CD 01 06 2A 32 ED 5E 23 56 EB 11 07 00 i.....*2.^#V....
0242C0: 19 E5 21 2A 00 65 2E 01 E5 06 0A CD 01 06 2A 32 ..!*.e........*2
0242D0: ED 5E 23 56 EB 11 12 00 19 E5 2A 32 ED 5E 23 56 .^#V......*2.^#V
0242E0: EB 11 14 00 19 5E 23 56 EB EB E1 73 23 72 2A 32 .....^#V...s#r*2
0242F0: ED E5 CD DE 75 C3 3E 79 21 28 ED E5 21 16 00 CD ....u.>y!(..!...
024300: E5 1C CD 4D 05 05 70 75 69 73 73 06 06 2A 28 ED ...M..puiss..*(.
024310: CD E2 05 2A 28 ED 11 07 00 19 E5 21 5E 00 65 2E ...*(......!^.e.
024320: 01 E5 06 0A CD 01 06 2A 28 ED 11 14 00 19 E5 2A .......*(......*
024330: 32 ED 5E 23 56 EB 11 14 00 19 5E 23 56 EB EB E1 2.^#V.....^#V...
024340: 73 23 72 21 26 ED E5 21 16 00 CD E5 1C CD 4D 05 s#r!&..!......M.
024350: 06 6E 6F 6D 62 72 65 06 06 2A 26 ED CD E2 05 21 .nombre..*&....!
024360: 1E ED CD 2C 05 C5 D5 E5 21 01 00 CD 08 10 D9 E1 ...,....!.......
024370: D1 C1 CD F2 09 D9 21 1E ED CD D1 05 21 1E ED CD ......!.....!...
024380: 2C 05 CD D0 0F E5 21 00 00 E5 2A 26 ED 11 07 00 ,.....!...*&....
024390: 19 06 0A CD BE 1E 2A 26 ED 11 12 00 19 E5 21 00 ......*&......!.
0243A0: 00 EB E1 73 23 72 2A 26 ED 11 14 00 19 E5 21 00 ...s#r*&......!.
0243B0: 00 EB E1 73 23 72 2A 28 ED 11 12 00 19 E5 2A 26 ...s#r*(......*&
0243C0: ED EB E1 73 23 72 2A 32 ED 5E 23 56 EB 11 12 00 ...s#r*2.^#V....
0243D0: 19 E5 2A 32 ED 5E 23 56 EB 11 14 00 19 5E 23 56 ..*2.^#V.....^#V
0243E0: EB EB E1 73 23 72 2A 32 ED 5E 23 56 EB 11 14 00 ...s#r*2.^#V....
0243F0: 19 E5 2A 28 ED EB E1 73 23 72 2A 32 ED 5E 23 56 ..*(...s#r*2.^#V
024400: EB 11 14 00 19 E5 CD 90 76 2A 32 ED 5E 23 56 EB ........v*2.^#V.
024410: E5 CD 4D 05 05 6D 75 6C 74 69 06 06 CD 01 06 2A ..M..multi.....*
024420: 32 ED 5E 23 56 EB 11 07 00 19 E5 21 2A 00 65 2E 2.^#V......!*.e.
024430: 01 E5 06 0A CD 01 06 2A 32 ED E5 CD DE 75 C3 97 .......*2....u..
024440: 79 2A 32 ED 5E 23 56 EB 11 12 00 19 5E 23 56 EB y*2.^#V.....^#V.
024450: E5 21 00 00 D1 CD 92 06 CB 45 CA 6C 79 2A 32 ED .!.......E.ly*2.
024460: 5E 23 56 EB 11 12 00 19 E5 CD 90 76 2A 32 ED 5E ^#V........v*2.^
024470: 23 56 EB 11 14 00 19 5E 23 56 EB E5 21 00 00 D1 #V.....^#V..!...
024480: CD 92 06 CB 45 CA 97 79 2A 32 ED 5E 23 56 EB 11 ....E..y*2.^#V..
024490: 14 00 19 E5 CD 90 76 01 18 00 11 1C ED C3 22 05 ......v.......".
0244A0: 01 22 00 21 FA EC CD 08 05 FD E1 E1 22 18 ED FD .".!........"...
0244B0: E5 21 0E ED E5 21 16 00 CD E5 1C 2A 0E ED 22 1A .!...!.....*..".
0244C0: ED 2A 18 ED E5 21 00 00 D1 CD 7F 06 CB 45 CA E4 .*...!.......E..
0244D0: 79 21 0E ED E5 21 16 00 CD 7A 1D 21 00 00 22 1A y!...!...z.!..".
0244E0: ED C3 B3 92 2A 18 ED CD 3A 05 CD 4D 05 06 6E 6F ....*...:..M..no
0244F0: 6D 62 72 65 CD 8D 06 E5 2A 18 ED CD 3A 05 CD 4D mbre....*...:..M
024500: 05 05 70 61 72 61 6D CD 8D 06 D1 7D B3 6F CB 45 ..param....}.o.E
024510: CA 5C 7A CD 4D 05 06 6E 6F 6D 62 72 65 06 06 2A .\z.M..nombre..*
024520: 0E ED CD E2 05 2A 0E ED 11 07 00 19 E5 21 30 00 .....*.......!0.
024530: 65 2E 01 E5 06 0A CD 01 06 2A 0E ED 11 12 00 19 e........*......
024540: E5 21 00 00 EB E1 73 23 72 2A 0E ED 11 14 00 19 .!....s#r*......
024550: E5 21 00 00 EB E1 73 23 72 C3 B3 92 2A 18 ED CD .!....s#r...*...
024560: 3A 05 CD 4D 05 06 76 61 72 69 61 62 CD 8D 06 CB :..M..variab....
024570: 45 CA BD 7A CD 4D 05 06 6E 6F 6D 62 72 65 06 06 E..z.M..nombre..
024580: 2A 0E ED CD E2 05 2A 0E ED 11 07 00 19 E5 21 31 *.....*.......!1
024590: 00 65 2E 01 E5 06 0A CD 01 06 2A 0E ED 11 12 00 .e........*.....
0245A0: 19 E5 21 00 00 EB E1 73 23 72 2A 0E ED 11 14 00 ..!....s#r*.....
0245B0: 19 E5 21 00 00 EB E1 73 23 72 C3 B3 92 2A 18 ED ..!....s#r...*..
0245C0: CD 3A 05 CD 4D 05 04 70 6C 75 73 CD 8D 06 E5 2A .:..M..plus....*
0245D0: 18 ED CD 3A 05 CD 4D 05 05 6D 6F 69 6E 73 CD 8D ...:..M..moins..
0245E0: 06 D1 7D B3 6F CB 45 CA 4A 7B 2A 18 ED CD 3A 05 ..}.o.E.J{*...:.
0245F0: 06 06 2A 0E ED CD E2 05 2A 0E ED 11 07 00 19 E5 ..*.....*.......
024600: 2A 18 ED 11 07 00 19 CD 3A 05 06 0A CD 01 06 2A *.......:......*
024610: 0E ED 11 12 00 19 E5 2A 18 ED 11 12 00 19 5E 23 .......*......^#
024620: 56 EB E5 CD A0 79 EB E1 73 23 72 2A 0E ED 11 14 V....y..s#r*....
024630: 00 19 E5 2A 18 ED 11 14 00 19 5E 23 56 EB E5 CD ...*......^#V...
024640: A0 79 EB E1 73 23 72 C3 B3 92 2A 18 ED CD 3A 05 .y..s#r...*...:.
024650: CD 4D 05 05 6D 75 6C 74 69 CD 8D 06 CB 45 CA 98 .M..multi....E..
024660: 7C CD 4D 05 04 70 6C 75 73 06 06 2A 0E ED CD E2 |.M..plus..*....
024670: 05 2A 0E ED 11 07 00 19 E5 21 2B 00 65 2E 01 E5 .*.......!+.e...
024680: 06 0A CD 01 06 2A 0E ED 11 14 00 19 E5 21 16 00 .....*.......!..
024690: CD E5 1C 2A 0E ED 11 14 00 19 5E 23 56 EB E5 CD ...*......^#V...
0246A0: 4D 05 05 6D 75 6C 74 69 06 06 CD 01 06 2A 0E ED M..multi.....*..
0246B0: 11 14 00 19 5E 23 56 EB 11 07 00 19 E5 21 2A 00 ....^#V......!*.
0246C0: 65 2E 01 E5 06 0A CD 01 06 2A 0E ED 11 14 00 19 e........*......
0246D0: 5E 23 56 EB 11 12 00 19 E5 2A 18 ED 11 12 00 19 ^#V......*......
0246E0: 5E 23 56 EB EB E1 73 23 72 2A 0E ED 11 12 00 19 ^#V...s#r*......
0246F0: E5 21 16 00 CD E5 1C 2A 0E ED 11 12 00 19 5E 23 .!.....*......^#
024700: 56 EB E5 CD 4D 05 05 6D 75 6C 74 69 06 06 CD 01 V...M..multi....
024710: 06 2A 0E ED 11 12 00 19 5E 23 56 EB 11 07 00 19 .*......^#V.....
024720: E5 21 2A 00 65 2E 01 E5 06 0A CD 01 06 2A 0E ED .!*.e........*..
024730: 11 12 00 19 5E 23 56 EB 11 14 00 19 E5 2A 18 ED ....^#V......*..
024740: 11 14 00 19 5E 23 56 EB EB E1 73 23 72 2A 0E ED ....^#V...s#r*..
024750: 11 12 00 19 5E 23 56 EB 11 12 00 19 E5 2A 18 ED ....^#V......*..
024760: 11 12 00 19 5E 23 56 EB E5 CD A0 79 EB E1 73 23 ....^#V....y..s#
024770: 72 2A 0E ED 11 14 00 19 5E 23 56 EB 11 14 00 19 r*......^#V.....
024780: E5 2A 18 ED 11 14 00 19 5E 23 56 EB E5 CD A0 79 .*......^#V....y
024790: EB E1 73 23 72 C3 B3 92 2A 18 ED CD 3A 05 CD 4D ..s#r...*...:..M
0247A0: 05 06 64 69 76 69 73 65 CD 8D 06 CB 45 CA B5 7E ..divise....E..~
0247B0: 21 06 ED E5 21 16 00 CD E5 1C 21 04 ED E5 21 16 !...!.....!...!.
0247C0: 00 CD E5 1C 21 02 ED E5 21 16 00 CD E5 1C 21 08 ....!...!.....!.
0247D0: ED E5 21 16 00 CD E5 1C 21 0C ED E5 21 16 00 CD ..!.....!...!...
0247E0: E5 1C CD 4D 05 05 6D 6F 69 6E 73 06 06 2A 06 ED ...M..moins..*..
0247F0: CD E2 05 2A 06 ED 11 07 00 19 E5 21 2D 00 65 2E ...*.......!-.e.
024800: 01 E5 06 0A CD 01 06 2A 06 ED 11 14 00 19 E5 2A .......*.......*
024810: 02 ED EB E1 73 23 72 2A 06 ED 11 12 00 19 E5 2A ....s#r*.......*
024820: 08 ED EB E1 73 23 72 CD 4D 05 05 70 75 69 73 73 ....s#r.M..puiss
024830: 06 06 2A 04 ED CD E2 05 2A 04 ED 11 07 00 19 E5 ..*.....*.......
024840: 21 5E 00 65 2E 01 E5 06 0A CD 01 06 2A 04 ED 11 !^.e........*...
024850: 14 00 19 E5 2A 18 ED 11 12 00 19 5E 23 56 EB EB ....*......^#V..
024860: E1 73 23 72 2A 04 ED 11 12 00 19 E5 2A 0C ED EB .s#r*.......*...
024870: E1 73 23 72 CD 4D 05 06 6E 6F 6D 62 72 65 06 06 .s#r.M..nombre..
024880: 2A 0C ED CD E2 05 2A 0C ED 11 07 00 19 E5 21 32 *.....*.......!2
024890: 00 65 2E 01 E5 06 0A CD 01 06 2A 0C ED 11 12 00 .e........*.....
0248A0: 19 E5 21 00 00 EB E1 73 23 72 2A 0C ED 11 14 00 ..!....s#r*.....
0248B0: 19 E5 21 00 00 EB E1 73 23 72 CD 4D 05 05 6D 75 ..!....s#r.M..mu
0248C0: 6C 74 69 06 06 2A 02 ED CD E2 05 2A 02 ED 11 07 lti..*.....*....
0248D0: 00 19 E5 21 2A 00 65 2E 01 E5 06 0A CD 01 06 2A ...!*.e........*
0248E0: 02 ED 11 12 00 19 E5 2A 18 ED 11 12 00 19 5E 23 .......*......^#
0248F0: 56 EB EB E1 73 23 72 2A 02 ED 11 14 00 19 E5 2A V...s#r*.......*
024900: 18 ED 11 14 00 19 5E 23 56 EB E5 CD A0 79 EB E1 ......^#V....y..
024910: 73 23 72 CD 4D 05 05 6D 75 6C 74 69 06 06 2A 08 s#r.M..multi..*.
024920: ED CD E2 05 2A 08 ED 11 07 00 19 E5 21 2A 00 65 ....*.......!*.e
024930: 2E 01 E5 06 0A CD 01 06 2A 08 ED 11 12 00 19 E5 ........*.......
024940: 2A 18 ED 11 12 00 19 5E 23 56 EB E5 CD A0 79 EB *......^#V....y.
024950: E1 73 23 72 2A 08 ED 11 14 00 19 E5 2A 18 ED 11 .s#r*.......*...
024960: 14 00 19 5E 23 56 EB EB E1 73 23 72 CD 4D 05 06 ...^#V...s#r.M..
024970: 64 69 76 69 73 65 06 06 2A 0E ED CD E2 05 2A 0E divise..*.....*.
024980: ED 11 07 00 19 E5 21 2F 00 65 2E 01 E5 06 0A CD ......!/.e......
024990: 01 06 2A 0E ED 11 14 00 19 E5 2A 06 ED EB E1 73 ..*.......*....s
0249A0: 23 72 2A 0E ED 11 12 00 19 E5 2A 04 ED EB E1 73 #r*.......*....s
0249B0: 23 72 C3 B3 92 2A 18 ED CD 3A 05 CD 4D 05 05 70 #r...*...:..M..p
0249C0: 75 69 73 73 CD 8D 06 CB 45 CA F9 82 2A 18 ED 11 uiss....E...*...
0249D0: 12 00 19 5E 23 56 EB CD 3A 05 CD 4D 05 06 6E 6F ...^#V..:..M..no
0249E0: 6D 62 72 65 CD 8D 06 CB 45 CA F7 80 21 06 ED E5 mbre....E...!...
0249F0: 21 16 00 CD E5 1C 21 04 ED E5 21 16 00 CD E5 1C !.....!...!.....
024A00: 21 02 ED E5 21 16 00 CD E5 1C 2A 18 ED 11 12 00 !...!.....*.....
024A10: 19 5E 23 56 EB 11 07 00 19 CD 3A 05 21 FA EC E5 .^#V......:.!...
024A20: 21 94 F2 CD F3 1E 2A 18 ED 11 12 00 19 5E 23 56 !.....*......^#V
024A30: EB 22 0C ED 2A 04 ED 11 14 00 19 E5 2A 18 ED 11 ."..*.......*...
024A40: 14 00 19 5E 23 56 EB EB E1 73 23 72 CD 4D 05 05 ...^#V...s#r.M..
024A50: 6D 75 6C 74 69 06 06 2A 06 ED CD E2 05 2A 06 ED multi..*.....*..
024A60: 11 07 00 19 E5 21 2A 00 65 2E 01 E5 06 0A CD 01 .....!*.e.......
024A70: 06 2A 06 ED 11 14 00 19 E5 2A 0C ED EB E1 73 23 .*.......*....s#
024A80: 72 2A 06 ED 11 12 00 19 E5 2A 18 ED 11 14 00 19 r*.......*......
024A90: 5E 23 56 EB E5 CD A0 79 EB E1 73 23 72 CD 4D 05 ^#V....y..s#r.M.
024AA0: 05 70 75 69 73 73 06 06 2A 04 ED CD E2 05 2A 04 .puiss..*.....*.
024AB0: ED 11 07 00 19 E5 21 5E 00 65 2E 01 E5 06 0A CD ......!^.e......
024AC0: 01 06 2A 04 ED 11 12 00 19 E5 2A 02 ED EB E1 73 ..*.......*....s
024AD0: 23 72 CD 4D 05 06 6E 6F 6D 62 72 65 06 06 2A 02 #r.M..nombre..*.
024AE0: ED CD E2 05 2A 02 ED 11 14 00 19 E5 21 00 00 EB ....*.......!...
024AF0: E1 73 23 72 2A 02 ED 11 12 00 19 E5 21 00 00 EB .s#r*.......!...
024B00: E1 73 23 72 21 FA EC CD 2C 05 C5 D5 E5 21 01 00 .s#r!...,....!..
024B10: CD 08 10 D9 E1 D1 C1 CD F2 09 D9 21 FA EC CD D1 ...........!....
024B20: 05 21 FA EC CD 2C 05 CD 34 0C C5 D5 E5 21 00 00 .!...,..4....!..
024B30: CD 08 10 D9 E1 D1 C1 CD 88 06 CB 45 CA 5C 80 21 ...........E.\.!
024B40: FA EC CD 2C 05 CD D0 0F E5 21 00 00 E5 2A 02 ED ...,.....!...*..
024B50: 11 07 00 19 06 0A CD BE 1E C3 AF 80 21 FA EC CD ............!...
024B60: 2C 05 C5 D5 E5 21 08 00 E5 21 03 00 E5 2A 02 ED ,....!...!...*..
024B70: 11 07 00 19 06 0A CD BD 1E 21 20 00 65 2E 01 E5 .........! .e...
024B80: 2A 02 ED 11 07 00 19 CD 3A 05 CD B2 08 E5 21 00 *.......:.....!.
024B90: 00 D1 CD 92 06 CB 45 CA AF 80 2A 02 ED 11 07 00 ......E...*.....
024BA0: 19 E5 21 01 00 E5 21 01 00 CD F3 08 C3 79 80 CD ..!...!......y..
024BB0: 4D 05 05 6D 75 6C 74 69 06 06 2A 0E ED CD E2 05 M..multi..*.....
024BC0: 2A 0E ED 11 07 00 19 E5 21 2A 00 65 2E 01 E5 06 *.......!*.e....
024BD0: 0A CD 01 06 2A 0E ED 11 14 00 19 E5 2A 06 ED EB ....*.......*...
024BE0: E1 73 23 72 2A 0E ED 11 12 00 19 E5 2A 04 ED EB .s#r*.......*...
024BF0: E1 73 23 72 C3 F6 82 21 06 ED E5 21 16 00 CD E5 .s#r...!...!....
024C00: 1C CD 4D 05 05 69 64 66 63 74 06 06 2A 06 ED CD ..M..idfct..*...
024C10: E2 05 2A 06 ED 11 07 00 19 E5 CD 4D 05 02 6C 6E ..*........M..ln
024C20: 06 0A CD 01 06 2A 06 ED 11 14 00 19 E5 21 00 00 .....*.......!..
024C30: EB E1 73 23 72 2A 06 ED 11 12 00 19 E5 2A 18 ED ..s#r*.......*..
024C40: 11 14 00 19 5E 23 56 EB EB E1 73 23 72 21 04 ED ....^#V...s#r!..
024C50: E5 21 16 00 CD E5 1C CD 4D 05 05 6D 75 6C 74 69 .!......M..multi
024C60: 06 06 2A 04 ED CD E2 05 2A 04 ED 11 07 00 19 E5 ..*.....*.......
024C70: 21 2A 00 65 2E 01 E5 06 0A CD 01 06 2A 04 ED 11 !*.e........*...
024C80: 14 00 19 E5 2A 18 ED 11 12 00 19 5E 23 56 EB E5 ....*......^#V..
024C90: CD A0 79 EB E1 73 23 72 2A 04 ED 11 12 00 19 E5 ..y..s#r*.......
024CA0: 2A 06 ED EB E1 73 23 72 21 02 ED E5 21 16 00 CD *....s#r!...!...
024CB0: E5 1C CD 4D 05 05 6D 75 6C 74 69 06 06 2A 02 ED ...M..multi..*..
024CC0: CD E2 05 2A 02 ED 11 07 00 19 E5 21 2A 00 65 2E ...*.......!*.e.
024CD0: 01 E5 06 0A CD 01 06 2A 02 ED 11 14 00 19 E5 2A .......*.......*
024CE0: 18 ED 11 14 00 19 5E 23 56 EB E5 CD A0 79 EB E1 ......^#V....y..
024CF0: 73 23 72 2A 02 ED 11 12 00 19 E5 2A 18 ED 11 12 s#r*.......*....
024D00: 00 19 5E 23 56 EB EB E1 73 23 72 21 0C ED E5 21 ..^#V...s#r!...!
024D10: 16 00 CD E5 1C CD 4D 05 06 64 69 76 69 73 65 06 ......M..divise.
024D20: 06 2A 0C ED CD E2 05 2A 0C ED 11 07 00 19 E5 21 .*.....*.......!
024D30: 2F 00 65 2E 01 E5 06 0A CD 01 06 2A 0C ED 11 14 /.e........*....
024D40: 00 19 E5 2A 02 ED EB E1 73 23 72 2A 0C ED 11 12 ...*....s#r*....
024D50: 00 19 E5 2A 18 ED 11 14 00 19 5E 23 56 EB EB E1 ...*......^#V...
024D60: 73 23 72 21 0A ED E5 21 16 00 CD E5 1C CD 4D 05 s#r!...!......M.
024D70: 04 70 6C 75 73 06 06 2A 0A ED CD E2 05 2A 0A ED .plus..*.....*..
024D80: 11 07 00 19 E5 21 2B 00 65 2E 01 E5 06 0A CD 01 .....!+.e.......
024D90: 06 2A 0A ED 11 14 00 19 E5 2A 04 ED EB E1 73 23 .*.......*....s#
024DA0: 72 2A 0A ED 11 12 00 19 E5 2A 0C ED EB E1 73 23 r*.......*....s#
024DB0: 72 CD 4D 05 05 6D 75 6C 74 69 06 06 2A 0E ED CD r.M..multi..*...
024DC0: E2 05 2A 0E ED 11 07 00 19 E5 21 2A 00 65 2E 01 ..*.......!*.e..
024DD0: E5 06 0A CD 01 06 2A 0E ED 11 14 00 19 E5 2A 0A ......*.......*.
024DE0: ED EB E1 73 23 72 2A 0E ED 11 12 00 19 E5 2A 18 ...s#r*.......*.
024DF0: ED EB E1 73 23 72 C3 B3 92 2A 18 ED CD 3A 05 CD ...s#r...*...:..
024E00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
024E10: 1F 00 00 00 02 09 4E E5 1F 00 41 02 00 00 00 02 ......N...A.....
024E20: 1F 00 42 02 00 00 00 02 1F 00 43 02 00 00 00 02 ..B.......C.....
024E30: 1F 00 44 02 00 00 00 02 1F 00 45 02 00 00 00 02 ..D.......E.....
024E40: 1F 00 46 02 00 00 00 02 1F 00 47 02 00 00 00 02 ..F.......G.....
024E50: 1F 00 48 02 00 00 00 02 1F 00 49 02 00 00 00 02 ..H.......I.....
024E60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024E70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024E80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024E90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024EA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024EB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024EC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024ED0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024EE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024EF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
024F00: 4D 05 05 69 64 66 63 74 CD 8D 06 CB 45 CA B3 92 M..idfct....E...
024F10: 2A 18 ED 11 07 00 19 CD 3A 05 CD 4D 05 03 73 69 *.......:..M..si
024F20: 6E CD 8D 06 CB 45 CA D4 83 21 06 ED E5 21 16 00 n....E...!...!..
024F30: CD E5 1C CD 4D 05 05 69 64 66 63 74 06 06 2A 06 ....M..idfct..*.
024F40: ED CD E2 05 2A 06 ED 11 07 00 19 E5 CD 4D 05 03 ....*........M..
024F50: 63 6F 73 06 0A CD 01 06 2A 06 ED 11 14 00 19 E5 cos.....*.......
024F60: 21 00 00 EB E1 73 23 72 2A 06 ED 11 12 00 19 E5 !....s#r*.......
024F70: 2A 18 ED 11 12 00 19 5E 23 56 EB EB E1 73 23 72 *......^#V...s#r
024F80: CD 4D 05 05 6D 75 6C 74 69 06 06 2A 0E ED CD E2 .M..multi..*....
024F90: 05 2A 0E ED 11 07 00 19 E5 21 2A 00 65 2E 01 E5 .*.......!*.e...
024FA0: 06 0A CD 01 06 2A 0E ED 11 14 00 19 E5 2A 18 ED .....*.......*..
024FB0: 11 12 00 19 5E 23 56 EB E5 CD A0 79 EB E1 73 23 ....^#V....y..s#
024FC0: 72 2A 0E ED 11 12 00 19 E5 2A 06 ED EB E1 73 23 r*.......*....s#
024FD0: 72 C3 B3 92 2A 18 ED 11 07 00 19 CD 3A 05 CD 4D r...*.......:..M
024FE0: 05 03 63 6F 73 CD 8D 06 CB 45 CA 4B 85 21 04 ED ..cos....E.K.!..
024FF0: E5 21 16 00 CD E5 1C CD 4D 05 05 69 64 66 63 74 .!......M..idfct
025000: 06 06 2A 04 ED CD E2 05 2A 04 ED 11 07 00 19 E5 ..*.....*.......
025010: CD 4D 05 03 73 69 6E 06 0A CD 01 06 2A 04 ED 11 .M..sin.....*...
025020: 14 00 19 E5 21 00 00 EB E1 73 23 72 2A 04 ED 11 ....!....s#r*...
025030: 12 00 19 E5 2A 18 ED 11 12 00 19 5E 23 56 EB EB ....*......^#V..
025040: E1 73 23 72 21 06 ED E5 21 16 00 CD E5 1C CD 4D .s#r!...!......M
025050: 05 05 6D 75 6C 74 69 06 06 2A 06 ED CD E2 05 2A ..multi..*.....*
025060: 06 ED 11 07 00 19 E5 21 2A 00 65 2E 01 E5 06 0A .......!*.e.....
025070: CD 01 06 2A 06 ED 11 14 00 19 E5 21 16 00 CD E5 ...*.......!....
025080: 1C 2A 06 ED 11 14 00 19 5E 23 56 EB E5 CD 4D 05 .*......^#V...M.
025090: 06 6E 6F 6D 62 72 65 06 06 CD 01 06 2A 06 ED 11 .nombre.....*...
0250A0: 14 00 19 5E 23 56 EB 11 07 00 19 E5 CD 4D 05 02 ...^#V.......M..
0250B0: 2D 31 06 0A CD 01 06 2A 06 ED 11 14 00 19 5E 23 -1.....*......^#
0250C0: 56 EB 11 12 00 19 E5 21 00 00 EB E1 73 23 72 2A V......!....s#r*
0250D0: 06 ED 11 14 00 19 5E 23 56 EB 11 14 00 19 E5 21 ......^#V......!
0250E0: 00 00 EB E1 73 23 72 2A 06 ED 11 12 00 19 E5 2A ....s#r*.......*
0250F0: 04 ED EB E1 73 23 72 CD 4D 05 05 6D 75 6C 74 69 ....s#r.M..multi
025100: 06 06 2A 0E ED CD E2 05 2A 0E ED 11 07 00 19 E5 ..*.....*.......
025110: 21 2A 00 65 2E 01 E5 06 0A CD 01 06 2A 0E ED 11 !*.e........*...
025120: 14 00 19 E5 2A 18 ED 11 12 00 19 5E 23 56 EB E5 ....*......^#V..
025130: CD A0 79 EB E1 73 23 72 2A 0E ED 11 12 00 19 E5 ..y..s#r*.......
025140: 2A 06 ED EB E1 73 23 72 C3 B3 92 2A 18 ED 11 07 *....s#r...*....
025150: 00 19 CD 3A 05 CD 4D 05 04 74 61 6E 67 CD 8D 06 ...:..M..tang...
025160: CB 45 CA B0 86 21 08 ED E5 21 16 00 CD E5 1C CD .E...!...!......
025170: 4D 05 06 6E 6F 6D 62 72 65 06 06 2A 08 ED CD E2 M..nombre..*....
025180: 05 2A 08 ED 11 07 00 19 E5 21 32 00 65 2E 01 E5 .*.......!2.e...
025190: 06 0A CD 01 06 2A 08 ED 11 12 00 19 E5 21 00 00 .....*.......!..
0251A0: EB E1 73 23 72 2A 08 ED 11 14 00 19 E5 21 00 00 ..s#r*.......!..
0251B0: EB E1 73 23 72 21 02 ED E5 21 16 00 CD E5 1C CD ..s#r!...!......
0251C0: 4D 05 05 69 64 66 63 74 06 06 2A 02 ED CD E2 05 M..idfct..*.....
0251D0: 2A 02 ED 11 07 00 19 E5 CD 4D 05 03 63 6F 73 06 *........M..cos.
0251E0: 0A CD 01 06 2A 02 ED 11 14 00 19 E5 21 00 00 EB ....*.......!...
0251F0: E1 73 23 72 2A 02 ED 11 12 00 19 E5 2A 18 ED 11 .s#r*.......*...
025200: 12 00 19 5E 23 56 EB EB E1 73 23 72 21 04 ED E5 ...^#V...s#r!...
025210: 21 16 00 CD E5 1C CD 4D 05 05 70 75 69 73 73 06 !......M..puiss.
025220: 06 2A 04 ED CD E2 05 2A 04 ED 11 07 00 19 E5 21 .*.....*.......!
025230: 5E 00 65 2E 01 E5 06 0A CD 01 06 2A 04 ED 11 14 ^.e........*....
025240: 00 19 E5 2A 02 ED EB E1 73 23 72 2A 04 ED 11 12 ...*....s#r*....
025250: 00 19 E5 2A 08 ED EB E1 73 23 72 CD 4D 05 06 64 ...*....s#r.M..d
025260: 69 76 69 73 65 06 06 2A 0E ED CD E2 05 2A 0E ED ivise..*.....*..
025270: 11 07 00 19 E5 21 2F 00 65 2E 01 E5 06 0A CD 01 .....!/.e.......
025280: 06 2A 0E ED 11 12 00 19 E5 2A 04 ED EB E1 73 23 .*.......*....s#
025290: 72 2A 0E ED 11 14 00 19 E5 2A 18 ED 11 12 00 19 r*.......*......
0252A0: 5E 23 56 EB E5 CD A0 79 EB E1 73 23 72 C3 B3 92 ^#V....y..s#r...
0252B0: 2A 18 ED 11 07 00 19 CD 3A 05 CD 4D 05 02 6C 6E *.......:..M..ln
0252C0: CD 8D 06 CB 45 CA 25 87 CD 4D 05 06 64 69 76 69 ....E.%..M..divi
0252D0: 73 65 06 06 2A 0E ED CD E2 05 2A 0E ED 11 07 00 se..*.....*.....
0252E0: 19 E5 21 2F 00 65 2E 01 E5 06 0A CD 01 06 2A 0E ..!/.e........*.
0252F0: ED 11 12 00 19 E5 2A 18 ED 11 12 00 19 5E 23 56 ......*......^#V
025300: EB EB E1 73 23 72 2A 0E ED 11 14 00 19 E5 2A 18 ...s#r*.......*.
025310: ED 11 12 00 19 5E 23 56 EB E5 CD A0 79 EB E1 73 .....^#V....y..s
025320: 23 72 C3 B3 92 2A 18 ED 11 07 00 19 CD 3A 05 CD #r...*.......:..
025330: 4D 05 03 65 78 70 CD 8D 06 CB 45 CA E9 87 21 06 M..exp....E...!.
025340: ED E5 21 16 00 CD E5 1C CD 4D 05 05 69 64 66 63 ..!......M..idfc
025350: 74 06 06 2A 06 ED CD E2 05 2A 06 ED 11 07 00 19 t..*.....*......
025360: E5 CD 4D 05 03 65 78 70 06 0A CD 01 06 2A 06 ED ..M..exp.....*..
025370: 11 14 00 19 E5 21 00 00 EB E1 73 23 72 2A 06 ED .....!....s#r*..
025380: 11 12 00 19 E5 2A 18 ED 11 12 00 19 5E 23 56 EB .....*......^#V.
025390: EB E1 73 23 72 CD 4D 05 05 6D 75 6C 74 69 06 06 ..s#r.M..multi..
0253A0: 2A 0E ED CD E2 05 2A 0E ED 11 07 00 19 E5 21 2A *.....*.......!*
0253B0: 00 65 2E 01 E5 06 0A CD 01 06 2A 0E ED 11 14 00 .e........*.....
0253C0: 19 E5 2A 18 ED 11 12 00 19 5E 23 56 EB E5 CD A0 ..*......^#V....
0253D0: 79 EB E1 73 23 72 2A 0E ED 11 12 00 19 E5 2A 06 y..s#r*.......*.
0253E0: ED EB E1 73 23 72 C3 B3 92 2A 18 ED 11 07 00 19 ...s#r...*......
0253F0: CD 3A 05 CD 4D 05 04 73 71 72 74 CD 8D 06 CB 45 .:..M..sqrt....E
025400: CA 01 89 21 06 ED E5 21 16 00 CD E5 1C 21 04 ED ...!...!.....!..
025410: E5 21 16 00 CD E5 1C 21 02 ED E5 21 16 00 CD E5 .!.....!...!....
025420: 1C CD 4D 05 06 6E 6F 6D 62 72 65 06 06 2A 02 ED ..M..nombre..*..
025430: CD E2 05 2A 02 ED 11 07 00 19 E5 21 32 00 65 2E ...*.......!2.e.
025440: 01 E5 06 0A CD 01 06 2A 02 ED 11 14 00 19 E5 21 .......*.......!
025450: 00 00 EB E1 73 23 72 2A 02 ED 11 12 00 19 E5 21 ....s#r*.......!
025460: 00 00 EB E1 73 23 72 CD 4D 05 05 6D 75 6C 74 69 ....s#r.M..multi
025470: 06 06 2A 04 ED CD E2 05 2A 04 ED 11 07 00 19 E5 ..*.....*.......
025480: 21 2A 00 65 2E 01 E5 06 0A CD 01 06 2A 04 ED 11 !*.e........*...
025490: 14 00 19 E5 2A 02 ED EB E1 73 23 72 2A 04 ED 11 ....*....s#r*...
0254A0: 12 00 19 E5 2A 18 ED EB E1 73 23 72 CD 4D 05 06 ....*....s#r.M..
0254B0: 64 69 76 69 73 65 06 06 2A 0E ED CD E2 05 2A 0E divise..*.....*.
0254C0: ED 11 07 00 19 E5 21 2F 00 65 2E 01 E5 06 0A CD ......!/.e......
0254D0: 01 06 2A 0E ED 11 14 00 19 E5 2A 18 ED 11 12 00 ..*.......*.....
0254E0: 19 5E 23 56 EB E5 CD A0 79 EB E1 73 23 72 2A 0E .^#V....y..s#r*.
0254F0: ED 11 12 00 19 E5 2A 04 ED EB E1 73 23 72 C3 B3 ......*....s#r..
025500: 92 2A 18 ED 11 07 00 19 CD 3A 05 CD 4D 05 02 73 .*.......:..M..s
025510: 68 CD 8D 06 CB 45 CA C3 89 21 06 ED E5 21 16 00 h....E...!...!..
025520: CD E5 1C CD 4D 05 05 69 64 66 63 74 06 06 2A 06 ....M..idfct..*.
025530: ED CD E2 05 2A 06 ED 11 07 00 19 E5 CD 4D 05 02 ....*........M..
025540: 63 68 06 0A CD 01 06 2A 06 ED 11 14 00 19 E5 21 ch.....*.......!
025550: 00 00 EB E1 73 23 72 2A 06 ED 11 12 00 19 E5 2A ....s#r*.......*
025560: 18 ED 11 12 00 19 5E 23 56 EB EB E1 73 23 72 CD ......^#V...s#r.
025570: 4D 05 05 6D 75 6C 74 69 06 06 2A 0E ED CD E2 05 M..multi..*.....
025580: 2A 0E ED 11 07 00 19 E5 21 2A 00 65 2E 01 E5 06 *.......!*.e....
025590: 0A CD 01 06 2A 0E ED 11 14 00 19 E5 2A 18 ED 11 ....*.......*...
0255A0: 12 00 19 5E 23 56 EB E5 CD A0 79 EB E1 73 23 72 ...^#V....y..s#r
0255B0: 2A 0E ED 11 12 00 19 E5 2A 06 ED EB E1 73 23 72 *.......*....s#r
0255C0: C3 B3 92 2A 18 ED 11 07 00 19 CD 3A 05 CD 4D 05 ...*.......:..M.
0255D0: 02 63 68 CD 8D 06 CB 45 CA 85 8A 21 06 ED E5 21 .ch....E...!...!
0255E0: 16 00 CD E5 1C CD 4D 05 05 69 64 66 63 74 06 06 ......M..idfct..
0255F0: 2A 06 ED CD E2 05 2A 06 ED 11 07 00 19 E5 CD 4D *.....*........M
025600: 05 02 73 68 06 0A CD 01 06 2A 06 ED 11 14 00 19 ..sh.....*......
025610: E5 21 00 00 EB E1 73 23 72 2A 06 ED 11 12 00 19 .!....s#r*......
025620: E5 2A 18 ED 11 12 00 19 5E 23 56 EB EB E1 73 23 .*......^#V...s#
025630: 72 CD 4D 05 05 6D 75 6C 74 69 06 06 2A 0E ED CD r.M..multi..*...
025640: E2 05 2A 0E ED 11 07 00 19 E5 21 2A 00 65 2E 01 ..*.......!*.e..
025650: E5 06 0A CD 01 06 2A 0E ED 11 14 00 19 E5 2A 18 ......*.......*.
025660: ED 11 12 00 19 5E 23 56 EB E5 CD A0 79 EB E1 73 .....^#V....y..s
025670: 23 72 2A 0E ED 11 12 00 19 E5 2A 06 ED EB E1 73 #r*.......*....s
025680: 23 72 C3 B3 92 2A 18 ED 11 07 00 19 CD 3A 05 CD #r...*.......:..
025690: 4D 05 02 74 68 CD 8D 06 CB 45 CA 2F 8C 21 04 ED M..th....E./.!..
0256A0: E5 21 16 00 CD E5 1C CD 4D 05 06 6E 6F 6D 62 72 .!......M..nombr
0256B0: 65 06 06 2A 04 ED CD E2 05 2A 04 ED 11 07 00 19 e..*.....*......
0256C0: E5 21 32 00 65 2E 01 E5 06 0A CD 01 06 2A 04 ED .!2.e........*..
0256D0: 11 12 00 19 E5 21 00 00 EB E1 73 23 72 2A 04 ED .....!....s#r*..
0256E0: 11 14 00 19 E5 21 00 00 EB E1 73 23 72 21 06 ED .....!....s#r!..
0256F0: E5 21 16 00 CD E5 1C CD 4D 05 05 70 75 69 73 73 .!......M..puiss
025700: 06 06 2A 06 ED CD E2 05 2A 06 ED 11 07 00 19 E5 ..*.....*.......
025710: 21 5E 00 65 2E 01 E5 06 0A CD 01 06 2A 06 ED 11 !^.e........*...
025720: 12 00 19 E5 2A 04 ED EB E1 73 23 72 2A 06 ED 11 ....*....s#r*...
025730: 14 00 19 E5 2A 18 ED EB E1 73 23 72 21 02 ED E5 ....*....s#r!...
025740: 21 16 00 CD E5 1C CD 4D 05 06 6E 6F 6D 62 72 65 !......M..nombre
025750: 06 06 2A 02 ED CD E2 05 2A 02 ED 11 07 00 19 E5 ..*.....*.......
025760: 21 31 00 65 2E 01 E5 06 0A CD 01 06 2A 02 ED 11 !1.e........*...
025770: 12 00 19 E5 21 00 00 EB E1 73 23 72 2A 02 ED 11 ....!....s#r*...
025780: 14 00 19 E5 21 00 00 EB E1 73 23 72 21 08 ED E5 ....!....s#r!...
025790: 21 16 00 CD E5 1C CD 4D 05 05 6D 6F 69 6E 73 06 !......M..moins.
0257A0: 06 2A 08 ED CD E2 05 2A 08 ED 11 07 00 19 E5 21 .*.....*.......!
0257B0: 2D 00 65 2E 01 E5 06 0A CD 01 06 2A 08 ED 11 14 -.e........*....
0257C0: 00 19 E5 2A 02 ED EB E1 73 23 72 2A 08 ED 11 12 ...*....s#r*....
0257D0: 00 19 E5 2A 06 ED EB E1 73 23 72 CD 4D 05 05 6D ...*....s#r.M..m
0257E0: 75 6C 74 69 06 06 2A 0E ED CD E2 05 2A 0E ED 11 ulti..*.....*...
0257F0: 07 00 19 E5 21 2A 00 65 2E 01 E5 06 0A CD 01 06 ....!*.e........
025800: 2A 0E ED 11 14 00 19 E5 2A 18 ED 11 12 00 19 5E *.......*......^
025810: 23 56 EB E5 CD A0 79 EB E1 73 23 72 2A 0E ED 11 #V....y..s#r*...
025820: 12 00 19 E5 2A 08 ED EB E1 73 23 72 C3 B3 92 2A ....*....s#r...*
025830: 18 ED 11 07 00 19 CD 3A 05 CD 4D 05 06 61 72 63 .......:..M..arc
025840: 74 61 6E CD 8D 06 CB 45 CA E5 8D 21 04 ED E5 21 tan....E...!...!
025850: 16 00 CD E5 1C CD 4D 05 06 6E 6F 6D 62 72 65 06 ......M..nombre.
025860: 06 2A 04 ED CD E2 05 2A 04 ED 11 07 00 19 E5 21 .*.....*.......!
025870: 32 00 65 2E 01 E5 06 0A CD 01 06 2A 04 ED 11 12 2.e........*....
025880: 00 19 E5 21 00 00 EB E1 73 23 72 2A 04 ED 11 14 ...!....s#r*....
025890: 00 19 E5 21 00 00 EB E1 73 23 72 21 06 ED E5 21 ...!....s#r!...!
0258A0: 16 00 CD E5 1C CD 4D 05 05 70 75 69 73 73 06 06 ......M..puiss..
0258B0: 2A 06 ED CD E2 05 2A 06 ED 11 07 00 19 E5 21 5E *.....*.......!^
0258C0: 00 65 2E 01 E5 06 0A CD 01 06 2A 06 ED 11 12 00 .e........*.....
0258D0: 19 E5 2A 04 ED EB E1 73 23 72 2A 06 ED 11 14 00 ..*....s#r*.....
0258E0: 19 E5 2A 18 ED 11 12 00 19 5E 23 56 EB EB E1 73 ..*......^#V...s
0258F0: 23 72 21 02 ED E5 21 16 00 CD E5 1C CD 4D 05 06 #r!...!......M..
025900: 6E 6F 6D 62 72 65 06 06 2A 02 ED CD E2 05 2A 02 nombre..*.....*.
025910: ED 11 07 00 19 E5 21 31 00 65 2E 01 E5 06 0A CD ......!1.e......
025920: 01 06 2A 02 ED 11 12 00 19 E5 21 00 00 EB E1 73 ..*.......!....s
025930: 23 72 2A 02 ED 11 14 00 19 E5 21 00 00 EB E1 73 #r*.......!....s
025940: 23 72 21 08 ED E5 21 16 00 CD E5 1C CD 4D 05 04 #r!...!......M..
025950: 70 6C 75 73 06 06 2A 08 ED CD E2 05 2A 08 ED 11 plus..*.....*...
025960: 07 00 19 E5 21 2B 00 65 2E 01 E5 06 0A CD 01 06 ....!+.e........
025970: 2A 08 ED 11 14 00 19 E5 2A 02 ED EB E1 73 23 72 *.......*....s#r
025980: 2A 08 ED 11 12 00 19 E5 2A 06 ED EB E1 73 23 72 *.......*....s#r
025990: CD 4D 05 06 64 69 76 69 73 65 06 06 2A 0E ED CD .M..divise..*...
0259A0: E2 05 2A 0E ED 11 07 00 19 E5 21 2F 00 65 2E 01 ..*.......!/.e..
0259B0: E5 06 0A CD 01 06 2A 0E ED 11 14 00 19 E5 2A 18 ......*.......*.
0259C0: ED 11 12 00 19 5E 23 56 EB E5 CD A0 79 EB E1 73 .....^#V....y..s
0259D0: 23 72 2A 0E ED 11 12 00 19 E5 2A 08 ED EB E1 73 #r*.......*....s
0259E0: 23 72 C3 B3 92 2A 18 ED 11 07 00 19 CD 3A 05 CD #r...*.......:..
0259F0: 4D 05 06 61 72 63 73 69 6E CD 8D 06 CB 45 CA EC M..arcsin....E..
025A00: 8F 21 04 ED E5 21 16 00 CD E5 1C CD 4D 05 06 6E .!...!......M..n
025A10: 6F 6D 62 72 65 06 06 2A 04 ED CD E2 05 2A 04 ED ombre..*.....*..
025A20: 11 07 00 19 E5 21 32 00 65 2E 01 E5 06 0A CD 01 .....!2.e.......
025A30: 06 2A 04 ED 11 12 00 19 E5 21 00 00 EB E1 73 23 .*.......!....s#
025A40: 72 2A 04 ED 11 14 00 19 E5 21 00 00 EB E1 73 23 r*.......!....s#
025A50: 72 21 06 ED E5 21 16 00 CD E5 1C CD 4D 05 05 70 r!...!......M..p
025A60: 75 69 73 73 06 06 2A 06 ED CD E2 05 2A 06 ED 11 uiss..*.....*...
025A70: 07 00 19 E5 21 5E 00 65 2E 01 E5 06 0A CD 01 06 ....!^.e........
025A80: 2A 06 ED 11 12 00 19 E5 2A 04 ED EB E1 73 23 72 *.......*....s#r
025A90: 2A 06 ED 11 14 00 19 E5 2A 18 ED 11 12 00 19 5E *.......*......^
025AA0: 23 56 EB EB E1 73 23 72 21 02 ED E5 21 16 00 CD #V...s#r!...!...
025AB0: E5 1C CD 4D 05 06 6E 6F 6D 62 72 65 06 06 2A 02 ...M..nombre..*.
025AC0: ED CD E2 05 2A 02 ED 11 07 00 19 E5 21 31 00 65 ....*.......!1.e
025AD0: 2E 01 E5 06 0A CD 01 06 2A 02 ED 11 12 00 19 E5 ........*.......
025AE0: 21 00 00 EB E1 73 23 72 2A 02 ED 11 14 00 19 E5 !....s#r*.......
025AF0: 21 00 00 EB E1 73 23 72 21 08 ED E5 21 16 00 CD !....s#r!...!...
025B00: E5 1C CD 4D 05 05 6D 6F 69 6E 73 06 06 2A 08 ED ...M..moins..*..
025B10: CD E2 05 2A 08 ED 11 07 00 19 E5 21 2D 00 65 2E ...*.......!-.e.
025B20: 01 E5 06 0A CD 01 06 2A 08 ED 11 14 00 19 E5 2A .......*.......*
025B30: 02 ED EB E1 73 23 72 2A 08 ED 11 12 00 19 E5 2A ....s#r*.......*
025B40: 06 ED EB E1 73 23 72 21 0A ED E5 21 16 00 CD E5 ....s#r!...!....
025B50: 1C CD 4D 05 05 69 64 66 63 74 06 06 2A 0A ED CD ..M..idfct..*...
025B60: E2 05 2A 0A ED 11 07 00 19 E5 CD 4D 05 04 73 71 ..*........M..sq
025B70: 72 74 06 0A CD 01 06 2A 0A ED 11 14 00 19 E5 21 rt.....*.......!
025B80: 00 00 EB E1 73 23 72 2A 0A ED 11 12 00 19 E5 2A ....s#r*.......*
025B90: 08 ED EB E1 73 23 72 CD 4D 05 06 64 69 76 69 73 ....s#r.M..divis
025BA0: 65 06 06 2A 0E ED CD E2 05 2A 0E ED 11 07 00 19 e..*.....*......
025BB0: E5 21 2F 00 65 2E 01 E5 06 0A CD 01 06 2A 0E ED .!/.e........*..
025BC0: 11 14 00 19 E5 2A 18 ED 11 12 00 19 5E 23 56 EB .....*......^#V.
025BD0: E5 CD A0 79 EB E1 73 23 72 2A 0E ED 11 12 00 19 ...y..s#r*......
025BE0: E5 2A 0A ED EB E1 73 23 72 C3 B3 92 2A 18 ED 11 .*....s#r...*...
025BF0: 07 00 19 CD 3A 05 CD 4D 05 06 61 72 63 63 6F 73 ....:..M..arccos
025C00: CD 8D 06 CB 45 CA A6 92 21 04 ED E5 21 16 00 CD ....E...!...!...
025C10: E5 1C CD 4D 05 06 6E 6F 6D 62 72 65 06 06 2A 04 ...M..nombre..*.
025C20: ED CD E2 05 2A 04 ED 11 07 00 19 E5 21 32 00 65 ....*.......!2.e
025C30: 2E 01 E5 06 0A CD 01 06 2A 04 ED 11 12 00 19 E5 ........*.......
025C40: 21 00 00 EB E1 73 23 72 2A 04 ED 11 14 00 19 E5 !....s#r*.......
025C50: 21 00 00 EB E1 73 23 72 21 06 ED E5 21 16 00 CD !....s#r!...!...
025C60: E5 1C CD 4D 05 05 70 75 69 73 73 06 06 2A 06 ED ...M..puiss..*..
025C70: CD E2 05 2A 06 ED 11 07 00 19 E5 21 5E 00 65 2E ...*.......!^.e.
025C80: 01 E5 06 0A CD 01 06 2A 06 ED 11 12 00 19 E5 2A .......*.......*
025C90: 04 ED EB E1 73 23 72 2A 06 ED 11 14 00 19 E5 2A ....s#r*.......*
025CA0: 18 ED 11 12 00 19 5E 23 56 EB EB E1 73 23 72 21 ......^#V...s#r!
025CB0: 02 ED E5 21 16 00 CD E5 1C CD 4D 05 06 6E 6F 6D ...!......M..nom
025CC0: 62 72 65 06 06 2A 02 ED CD E2 05 2A 02 ED 11 07 bre..*.....*....
025CD0: 00 19 E5 21 31 00 65 2E 01 E5 06 0A CD 01 06 2A ...!1.e........*
025CE0: 02 ED 11 12 00 19 E5 21 00 00 EB E1 73 23 72 2A .......!....s#r*
025CF0: 02 ED 11 14 00 19 E5 21 00 00 EB E1 73 23 72 21 .......!....s#r!
025D00: 08 ED E5 21 16 00 CD E5 1C CD 4D 05 05 6D 6F 69 ...!......M..moi
025D10: 6E 73 06 06 2A 08 ED CD E2 05 2A 08 ED 11 07 00 ns..*.....*.....
025D20: 19 E5 21 2D 00 65 2E 01 E5 06 0A CD 01 06 2A 08 ..!-.e........*.
025D30: ED 11 14 00 19 E5 2A 02 ED EB E1 73 23 72 2A 08 ......*....s#r*.
025D40: ED 11 12 00 19 E5 2A 06 ED EB E1 73 23 72 21 0A ......*....s#r!.
025D50: ED E5 21 16 00 CD E5 1C CD 4D 05 05 69 64 66 63 ..!......M..idfc
025D60: 74 06 06 2A 0A ED CD E2 05 2A 0A ED 11 07 00 19 t..*.....*......
025D70: E5 CD 4D 05 04 73 71 72 74 06 0A CD 01 06 2A 0A ..M..sqrt.....*.
025D80: ED 11 14 00 19 E5 21 00 00 EB E1 73 23 72 2A 0A ......!....s#r*.
025D90: ED 11 12 00 19 E5 2A 08 ED EB E1 73 23 72 21 0C ......*....s#r!.
025DA0: ED E5 21 16 00 CD E5 1C CD 4D 05 06 6E 6F 6D 62 ..!......M..nomb
025DB0: 72 65 06 06 2A 0C ED CD E2 05 2A 0C ED 11 07 00 re..*.....*.....
025DC0: 19 E5 CD 4D 05 02 2D 31 06 0A CD 01 06 2A 0C ED ...M..-1.....*..
025DD0: 11 14 00 19 E5 21 00 00 EB E1 73 23 72 2A 0C ED .....!....s#r*..
025DE0: 11 12 00 19 E5 21 00 00 EB E1 73 23 72 2A 0E ED .....!....s#r*..
025DF0: 11 14 00 19 E5 21 16 00 CD E5 1C 2A 0E ED 11 14 .....!.....*....
025E00: 00 19 5E 23 56 EB E5 CD 4D 05 05 6D 75 6C 74 69 ..^#V...M..multi
025E10: 06 06 CD 01 06 2A 0E ED 11 14 00 19 5E 23 56 EB .....*......^#V.
025E20: 11 07 00 19 E5 21 2A 00 65 2E 01 E5 06 0A CD 01 .....!*.e.......
025E30: 06 2A 0E ED 11 14 00 19 5E 23 56 EB 11 14 00 19 .*......^#V.....
025E40: E5 2A 18 ED 11 12 00 19 5E 23 56 EB E5 CD A0 79 .*......^#V....y
025E50: EB E1 73 23 72 2A 0E ED 11 14 00 19 5E 23 56 EB ..s#r*......^#V.
025E60: 11 12 00 19 E5 2A 0C ED EB E1 73 23 72 CD 4D 05 .....*....s#r.M.
025E70: 06 64 69 76 69 73 65 06 06 2A 0E ED CD E2 05 2A .divise..*.....*
025E80: 0E ED 11 07 00 19 E5 21 2F 00 65 2E 01 E5 06 0A .......!/.e.....
025E90: CD 01 06 2A 0E ED 11 12 00 19 E5 2A 0A ED EB E1 ...*.......*....
025EA0: 73 23 72 C3 B3 92 21 00 00 22 0E ED 21 00 00 7D s#r...!.."..!..}
025EB0: 32 C7 F1 2A 1A ED D9 01 22 00 11 FA EC C3 22 05 2..*....".....".
025EC0: 01 0A 00 21 F0 EC CD 08 05 CD 3E 02 CD 9B 14 CD ...!......>.....
025ED0: CD 17 CD 1B 20 CD 9B 14 CD BA 17 0E 20 20 20 20 .... .......
025EE0: 20 20 4D 20 45 20 4E 20 55 20 CD CD 17 CD 1B 20 M E N U .....
025EF0: CD 9B 14 CD CD 17 CD 1B 20 CD 9B 14 CD BA 17 1B ........ .......
025F00: 20 20 3C 31 3E 20 45 6E 74 72 65 65 20 64 65 20 <1> Entree de
025F10: 6C 61 20 66 6F 6E 63 74 69 6F 6E CD CD 17 CD 1B la fonction.....
025F20: 20 CD 9B 14 CD CD 17 CD 1B 20 CD 9B 14 CD BA 17 ........ ......
025F30: 1D 20 20 3C 32 3E 20 44 65 76 65 6C 6F 70 70 65 . <2> Developpe
025F40: 72 20 64 65 73 20 70 72 6F 64 75 69 74 73 CD CD r des produits..
025F50: 17 CD 1B 20 CD 9B 14 CD CD 17 CD 1B 20 CD 9B 14 ... ........ ...
025F60: CD BA 17 28 20 20 3C 33 3E 20 44 65 76 65 6C 6F ...( <3> Develo
025F70: 70 70 65 72 20 64 65 73 20 70 75 69 73 73 61 6E pper des puissan
025F80: 63 65 73 20 65 6E 74 69 65 72 65 73 CD CD 17 CD ces entieres....
025F90: 1B 20 CD 9B 14 CD CD 17 CD 1B 20 CD 9B 14 CD BA . ........ .....
025FA0: 17 1F 20 20 3C 34 3E 20 43 61 6C 63 75 6C 20 64 .. <4> Calcul d
025FB0: 65 20 76 61 6C 65 75 72 73 20 64 65 20 66 28 78 e valeurs de f(x
025FC0: 29 CD CD 17 CD 1B 20 CD 9B 14 CD CD 17 CD 1B 20 )..... ........
025FD0: CD 9B 14 CD BA 17 1D 20 20 3C 35 3E 20 44 65 72 ....... <5> Der
025FE0: 69 76 65 65 73 20 64 65 20 6C 61 20 66 6F 6E 63 ivees de la fonc
025FF0: 74 69 6F 6E CD CD 17 CD 1B 20 CD 9B 14 CD CD 17 tion..... ......
026000: CD 1B 20 CD 9B 14 CD BA 17 1C 20 20 3C 36 3E 20 .. ....... <6>
026010: 44 65 76 65 6C 6F 70 70 65 6D 65 6E 74 73 20 6C Developpements l
026020: 69 6D 69 74 65 73 CD CD 17 CD 1B 20 CD 9B 14 CD imites..... ....
026030: CD 17 CD 1B 20 CD 9B 14 CD BA 17 16 20 20 3C 37 .... ....... <7
026040: 3E 20 46 69 6E 20 64 75 20 70 72 6F 67 72 61 6D > Fin du program
026050: 6D 65 CD CD 17 CD 1B 20 CD 9B 14 CD CD 17 CD 1B me..... ........
026060: 20 CD 9B 14 CD BA 17 11 20 20 20 20 56 4F 54 52 ....... VOTR
026070: 45 20 43 48 4F 49 58 3F 20 CD CD 17 CD 1B 20 21 E CHOIX? ..... !
026080: BA 00 CD A9 14 21 A5 F2 CD 44 16 CD 1B 20 2A A5 .....!...D... *.
026090: F2 26 00 E5 21 30 00 D1 CD CC 06 E5 2A A5 F2 26 .&..!0......*..&
0260A0: 00 E5 21 38 00 D1 CD E0 06 D1 7D A3 6F CB 45 CA ..!8......}£o.E.
0260B0: 7F 94 2A A5 F2 26 00 65 2E 01 E5 21 90 F2 E5 21 ..*..&.e...!...!
0260C0: 94 F2 CD F4 1E 2A 90 F2 22 F8 EC 2A F8 EC D9 01 .....*.."..*....
0260D0: 0A 00 11 F0 EC C3 22 05 01 0C 00 21 E4 EC CD 08 ......"....!....
0260E0: 05 21 20 00 7D 32 A5 F2 21 BA 00 CD A9 14 21 A5 .! .}2..!.....!.
0260F0: F2 CD 44 16 CD 1B 20 2A A5 F2 26 00 E5 21 30 00 ..D... *..&..!0.
026100: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
026110: 20 00 00 00 02 09 4E E5 20 00 41 02 00 00 00 02 .....N. .A.....
026120: 20 00 42 02 00 00 00 02 20 00 43 02 00 00 00 02 .B..... .C.....
026130: 20 00 44 02 00 00 00 02 20 00 45 02 00 00 00 02 .D..... .E.....
026140: 20 00 46 02 00 00 00 02 20 00 47 02 00 00 00 02 .F..... .G.....
026150: 20 00 48 02 00 00 00 02 20 00 49 02 00 00 00 02 .H..... .I.....
026160: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
026170: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
026180: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
026190: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0261A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0261B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0261C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0261D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0261E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0261F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
026200: D1 CD CC 06 E5 2A A5 F2 26 00 E5 21 3A 00 D1 CD .....*..&..!:...
026210: E0 06 D1 7D A3 6F CB 45 CA E8 94 2A A5 F2 26 00 ...}£o.E...*..&.
026220: CD 9B 14 CD 22 17 CD CD 17 CD 1B 20 2A A5 F2 26 ...."...... *..&
026230: 00 65 2E 01 E5 21 E4 EC E5 21 94 F2 CD F4 1E 2A .e...!...!.....*
026240: E4 EC 22 EE EC 2A EE EC D9 01 0C 00 11 E4 EC C3 .."..*..........
026250: 22 05 01 1C 00 21 C8 EC CD 08 05 CD 3E 02 CD 9B "....!......>...
026260: 14 CD BA 17 1A 4E 2E 20 64 65 20 6C 61 20 66 6F .....N. de la fo
026270: 6E 63 74 69 6F 6E 20 28 31 20 61 20 39 29 3F CD nction (1 a 9)?.
026280: 1B 20 CD D8 94 22 98 F2 21 A6 F2 E5 2A 98 F2 2B . ..."..!...*..+
026290: 29 D1 19 5E 23 56 EB E5 21 00 00 D1 CD 7F 06 CB )..^#V..!.......
0262A0: 45 CA B3 95 21 A6 F2 E5 2A 98 F2 2B 29 D1 19 E5 E...!...*..+)...
0262B0: CD 1F 21 CD 9B 14 CD BA 17 20 44 65 76 65 6C 6F ..!...... Develo
0262C0: 70 70 65 6D 65 6E 74 20 61 75 20 76 6F 69 73 69 ppement au voisi
0262D0: 6E 61 67 65 20 64 65 20 61 3D CD 1B 20 21 D4 EC nage de a=.. !..
0262E0: CD CB 14 CD 72 16 CD 1B 20 CD 9B 14 CD BA 17 23 ....r... ......#
0262F0: 44 65 76 65 6C 6F 70 70 65 6D 65 6E 74 20 61 20 Developpement a
026300: 71 75 65 6C 20 6F 72 64 72 65 20 28 31 20 61 20 quel ordre (1 a
026310: 35 29 3F CD 1B 20 21 BA 00 CD A9 14 21 A5 F2 CD 5)?.. !.....!...
026320: 44 16 CD 1B 20 2A A5 F2 26 00 E5 21 30 00 D1 CD D... *..&..!0...
026330: CC 06 E5 2A A5 F2 26 00 E5 21 36 00 D1 CD E0 06 ...*..&..!6.....
026340: D1 7D A3 6F CB 45 CA 16 96 2A A5 F2 26 00 CD 9B .}£o.E...*..&...
026350: 14 CD 22 17 CD CD 17 CD 1B 20 2A A5 F2 26 00 65 .."...... *..&.e
026360: 2E 01 E5 21 96 F2 E5 21 94 F2 CD F4 1E CD 9B 14 ...!...!........
026370: 21 66 00 CD 22 17 2A 98 F2 E5 21 00 00 CD 26 17 !f..".*...!...&.
026380: CD BA 17 04 28 78 29 3D 21 A6 F2 E5 2A 98 F2 2B ....(x)=!...*..+
026390: 29 D1 19 5E 23 56 EB E5 21 78 00 E5 CD 53 2D 21 )..^#V..!x...S-!
0263A0: 00 00 CD AA 17 CD CD 17 CD 1B 20 CD 9B 14 CD BA .......... .....
0263B0: 17 27 44 65 76 65 6C 6F 70 70 65 6D 65 6E 74 20 .'Developpement
0263C0: 6C 69 6D 69 74 65 20 61 75 20 76 6F 69 73 69 6E limite au voisin
0263D0: 61 67 65 20 64 65 20 61 3D 21 D4 EC CD 2C 05 C5 age de a=!...,..
0263E0: D5 E5 21 12 00 E5 21 FF FF CD 79 17 CD CD 17 CD ..!...!...y.....
0263F0: 1B 20 21 01 00 7D 32 C7 F1 21 A6 F2 E5 2A 98 F2 . !..}2..!...*..
026400: 2B 29 D1 19 5E 23 56 EB E5 21 D4 EC CD 2C 05 C5 +)..^#V..!...,..
026410: D5 E5 CD 4D 2D D9 21 BB F1 CD D1 05 21 A6 F2 E5 ...M-.!.....!...
026420: 21 00 00 2B 29 D1 19 E5 21 A6 F2 E5 2A 98 F2 2B !..+)...!...*..+
026430: 29 D1 19 5E 23 56 EB EB E1 73 23 72 21 01 00 CD )..^#V...s#r!...
026440: 08 10 D9 21 C8 EC CD D1 05 2A C7 F1 26 00 E5 21 ...!.....*..&..!
026450: 01 00 D1 CD 7F 06 CB 45 CA F0 97 21 BB F1 CD 2C .......E...!...,
026460: 05 C5 D5 E5 21 00 00 CD 08 10 D9 E1 D1 C1 CD 9B ....!...........
026470: 06 CB 45 CA ED 97 21 BB F1 CD 2C 05 C5 D5 E5 21 ..E...!...,....!
026480: 00 00 CD 08 10 D9 E1 D1 C1 CD D6 06 CB 45 CA 9D .............E..
026490: 97 CD 9B 14 21 2B 00 CD 22 17 CD 1B 20 21 BB F1 ....!+.."... !..
0264A0: CD 2C 05 CD 34 0C C5 D5 E5 21 00 00 CD 08 10 D9 .,..4....!......
0264B0: E1 D1 C1 CD 88 06 CB 45 CA D4 97 CD 9B 14 21 BB .......E......!.
0264C0: F1 CD 2C 05 CD D0 0F E5 21 00 00 CD 26 17 CD 1B ..,.....!...&...
0264D0: 20 C3 ED 97 21 BB F1 CD 2C 05 CD 9B 14 C5 D5 E5 ...!...,.......
0264E0: 21 08 00 E5 21 03 00 CD 79 17 CD 1B 20 C3 34 98 !...!...y... .4.
0264F0: CD 9B 14 CD BA 17 21 4C 61 20 66 6F 6E 63 74 69 ......!La foncti
026500: 6F 6E 20 6E 27 65 73 74 20 70 61 73 20 64 65 66 on n'est pas def
026510: 69 6E 69 65 20 65 6E 20 21 D4 EC CD 2C 05 C5 D5 inie en !...,...
026520: E5 21 12 00 E5 21 FF FF CD 79 17 CD CD 17 CD 1B .!...!...y......
026530: 20 C3 CE 9A 21 01 00 E5 2A 96 F2 D1 CD 66 06 7A ...!...*....f.z
026540: B3 CA C5 9A D5 22 DA EC 21 A6 F2 E5 21 00 00 2B ....."..!...!..+
026550: 29 D1 19 E5 21 A6 F2 E5 21 00 00 2B 29 D1 19 5E )...!...!..+)..^
026560: 23 56 EB E5 CD A0 79 EB E1 73 23 72 21 00 00 22 #V....y..s#r!.."
026570: 94 F2 21 A6 F2 E5 21 00 00 2B 29 D1 19 E5 CD 56 ..!...!..+)....V
026580: 2D 2A 94 F2 E5 21 00 00 D1 CD 7F 06 CB 45 CA 6C -*...!.......E.l
026590: 98 21 C8 EC CD 2C 05 C5 D5 E5 2A DA EC CD 08 10 .!...,....*.....
0265A0: D9 E1 D1 C1 CD FA 09 D9 21 C8 EC CD D1 05 21 01 ........!.....!.
0265B0: 00 7D 32 C7 F1 21 A6 F2 E5 21 00 00 2B 29 D1 19 .}2..!...!..+)..
0265C0: 5E 23 56 EB E5 21 D4 EC CD 2C 05 C5 D5 E5 CD 4D ^#V..!...,.....M
0265D0: 2D D9 21 BB F1 CD D1 05 2A C7 F1 26 00 E5 21 01 -.!.....*..&..!.
0265E0: 00 D1 CD 7F 06 CB 45 CA 5E 9A 21 BB F1 CD 2C 05 ......E.^.!...,.
0265F0: C5 D5 E5 21 00 00 CD 08 10 D9 E1 D1 C1 CD 9B 06 ...!............
026600: CB 45 CA 5B 9A 21 BB F1 CD 2C 05 C5 D5 E5 21 C8 .E.[.!...,....!.
026610: EC CD 2C 05 D9 E1 D1 C1 CD FF 09 D9 21 CE EC CD ..,.........!...
026620: D1 05 21 BB F1 CD 2C 05 C5 D5 E5 21 00 00 CD 08 ..!...,....!....
026630: 10 D9 E1 D1 C1 CD AE 06 CB 45 CA 49 99 CD 9B 14 .........E.I....
026640: 21 2B 00 CD 22 17 CD 1B 20 21 CE EC CD 2C 05 CD !+.."... !...,..
026650: 34 0C C5 D5 E5 21 00 00 CD 08 10 D9 E1 D1 C1 CD 4....!..........
026660: 88 06 CB 45 CA 80 99 CD 9B 14 21 CE EC CD 2C 05 ...E......!...,.
026670: CD D0 0F E5 21 00 00 CD 26 17 CD 1B 20 C3 FC 99 ....!...&... ...
026680: 21 BB F1 CD 2C 05 CD 34 0C C5 D5 E5 21 00 00 CD !...,..4....!...
026690: 08 10 D9 E1 D1 C1 CD 88 06 CB 45 CA CD 99 CD 9B ..........E.....
0266A0: 14 21 BB F1 CD 2C 05 CD D0 0F E5 21 00 00 CD 26 .!...,.....!...&
0266B0: 17 21 2F 00 CD 22 17 21 C8 EC CD 2C 05 CD D0 0F .!/..".!...,....
0266C0: E5 21 00 00 CD 26 17 CD 1B 20 C3 FC 99 21 BB F1 .!...&... ...!..
0266D0: CD 2C 05 CD 9B 14 C5 D5 E5 21 08 00 E5 21 03 00 .,.......!...!..
0266E0: CD 79 17 21 2F 00 CD 22 17 21 C8 EC CD 2C 05 CD .y.!/..".!...,..
0266F0: D0 0F E5 21 00 00 CD 26 17 CD 1B 20 21 D4 EC CD ...!...&... !...
026700: 2C 05 C5 D5 E5 21 00 00 CD 08 10 D9 E1 D1 C1 CD ,....!..........
026710: 88 06 CB 45 CA 26 9A CD 9B 14 21 78 00 CD 22 17 ...E.&....!x..".
026720: CD 1B 20 C3 35 9A CD 9B 14 CD BA 17 05 28 78 2D .. .5........(x-
026730: 61 29 CD 1B 20 2A DA EC E5 21 01 00 D1 CD CC 06 a).. *...!......
026740: CB 45 CA 5B 9A CD 9B 14 21 5E 00 CD 22 17 2A DA .E.[....!^..".*.
026750: EC E5 21 00 00 CD 26 17 CD 1B 20 C3 BC 9A CD 9B ..!...&... .....
026760: 14 CD CD 17 CD 1B 20 CD 9B 14 CD BA 17 0A 4C 61 ...... .......La
026770: 20 64 65 72 69 76 65 65 2A DA EC E5 21 00 00 CD derivee*...!...
026780: 26 17 CD BA 17 1A 69 65 6D 65 20 6E 27 65 73 74 &.....ieme n'est
026790: 20 70 61 73 20 64 65 66 69 6E 69 65 20 65 6E 20 pas definie en
0267A0: 21 D4 EC CD 2C 05 C5 D5 E5 21 12 00 E5 21 FF FF !...,....!...!..
0267B0: CD 79 17 CD CD 17 CD 1B 20 C3 D4 9A 2A DA EC 23 .y...... ...*..#
0267C0: D1 1B C3 3F 98 CD 9B 14 CD CD 17 CD 1B 20 CD E8 ...?......... ..
0267D0: 2C C3 D8 9A E1 C3 CE 9A 01 1C 00 11 C8 EC C3 22 ,.............."
0267E0: 05 01 0A 00 21 BE EC CD 08 05 CD C0 92 22 90 F2 ....!........"..
0267F0: 2A 90 F2 11 01 00 B7 ED 52 C2 6A 9B CD 9B 14 CD *.......R.j.....
026800: BA 17 1A 4E 6F 20 64 65 20 6C 61 20 66 6F 6E 63 ...No de la fonc
026810: 74 69 6F 6E 20 28 31 20 61 20 39 29 3F CD 1B 20 tion (1 a 9)?..
026820: CD D8 94 22 98 F2 CD 3E 02 21 20 00 7D 32 A5 F2 ..."...>.! .}2..
026830: 21 A6 F2 E5 2A 98 F2 2B 29 D1 19 E5 CD 1F 21 21 !...*..+).....!!
026840: 00 00 22 94 F2 21 A6 F2 E5 2A 98 F2 2B 29 D1 19 .."..!...*..+)..
026850: E5 CD 56 2D 2A 94 F2 E5 21 00 00 D1 CD 7F 06 CB ..V-*...!.......
026860: 45 CA 3F 9B CD E8 2C C3 B2 A0 19 11 02 00 B7 ED E.?...,.........
026870: 52 C2 5D 9C CD 3E 02 CD 9B 14 CD BA 17 1A 4E 6F R.]..>........No
026880: 20 64 65 20 6C 61 20 66 6F 6E 63 74 69 6F 6E 20 de la fonction
026890: 28 31 20 61 20 39 29 3F CD 1B 20 CD D8 94 22 98 (1 a 9)?.. ...".
0268A0: F2 21 A6 F2 E5 2A 98 F2 2B 29 D1 19 5E 23 56 EB .!...*..+)..^#V.
0268B0: E5 21 00 00 D1 CD 7F 06 CB 45 CA CC 9B 21 A6 F2 .!.......E...!..
0268C0: E5 2A 98 F2 2B 29 D1 19 E5 CD 1F 21 CD 9B 14 21 .*..+).....!...!
0268D0: 66 00 CD 22 17 2A 98 F2 E5 21 00 00 CD 26 17 CD f..".*...!...&..
0268E0: BA 17 04 28 78 29 3D 21 A6 F2 E5 2A 98 F2 2B 29 ...(x)=!...*..+)
0268F0: D1 19 5E 23 56 EB E5 21 78 00 E5 CD 53 2D 21 00 ..^#V..!x...S-!.
026900: 00 CD AA 17 CD CD 17 CD 1B 20 21 A6 F2 E5 2A 98 ......... !...*.
026910: F2 2B 29 D1 19 E5 CD DE 75 CD 9B 14 21 66 00 CD .+).....u...!f..
026920: 22 17 2A 98 F2 E5 21 00 00 CD 26 17 CD BA 17 04 ".*...!...&.....
026930: 28 78 29 3D 21 A6 F2 E5 2A 98 F2 2B 29 D1 19 5E (x)=!...*..+)..^
026940: 23 56 EB E5 21 78 00 E5 CD 53 2D 21 00 00 CD AA #V..!x...S-!....
026950: 17 CD CD 17 CD 1B 20 CD E8 2C C3 B2 A0 19 11 03 ...... ..,......
026960: 00 B7 ED 52 C2 50 9D CD 3E 02 CD 9B 14 CD BA 17 ...R.P..>.......
026970: 1A 4E 6F 20 64 65 20 6C 61 20 66 6F 6E 63 74 69 .No de la foncti
026980: 6F 6E 20 28 31 20 61 20 39 29 3F CD 1B 20 CD D8 on (1 a 9)?.. ..
026990: 94 22 98 F2 21 A6 F2 E5 2A 98 F2 2B 29 D1 19 5E ."..!...*..+)..^
0269A0: 23 56 EB E5 21 00 00 D1 CD 7F 06 CB 45 CA BF 9C #V..!.......E...
0269B0: 21 A6 F2 E5 2A 98 F2 2B 29 D1 19 E5 CD 1F 21 CD !...*..+).....!.
0269C0: 9B 14 21 66 00 CD 22 17 2A 98 F2 E5 21 00 00 CD ..!f..".*...!...
0269D0: 26 17 CD BA 17 04 28 78 29 3D 21 A6 F2 E5 2A 98 &.....(x)=!...*.
0269E0: F2 2B 29 D1 19 5E 23 56 EB E5 21 78 00 E5 CD 53 .+)..^#V..!x...S
0269F0: 2D 21 00 00 CD AA 17 CD CD 17 CD 1B 20 21 A6 F2 -!.......... !..
026A00: E5 2A 98 F2 2B 29 D1 19 E5 CD 90 76 CD 9B 14 21 .*..+).....v...!
026A10: 66 00 CD 22 17 2A 98 F2 E5 21 00 00 CD 26 17 CD f..".*...!...&..
026A20: BA 17 04 28 78 29 3D 21 A6 F2 E5 2A 98 F2 2B 29 ...(x)=!...*..+)
026A30: D1 19 5E 23 56 EB E5 21 78 00 E5 CD 53 2D 21 00 ..^#V..!x...S-!.
026A40: 00 CD AA 17 CD CD 17 CD 1B 20 CD E8 2C C3 B2 A0 ......... ..,...
026A50: 19 11 04 00 B7 ED 52 C2 76 9E CD 3E 02 CD 9B 14 ......R.v..>....
026A60: CD BA 17 1A 4E 6F 20 64 65 20 6C 61 20 66 6F 6E ....No de la fon
026A70: 63 74 69 6F 6E 20 28 31 20 61 20 39 29 3F CD 1B ction (1 a 9)?..
026A80: 20 CD D8 94 22 98 F2 21 A6 F2 E5 2A 98 F2 2B 29 ..."..!...*..+)
026A90: D1 19 5E 23 56 EB E5 21 00 00 D1 CD 7F 06 CB 45 ..^#V..!.......E
026AA0: CA B2 9D 21 A6 F2 E5 2A 98 F2 2B 29 D1 19 E5 CD ...!...*..+)....
026AB0: 1F 21 21 C8 F1 E5 2A 98 F2 2B 29 D1 19 5E 23 56 .!!...*..+)..^#V
026AC0: EB E5 21 00 00 D1 CD CC 06 CB 45 CA 60 9E 21 01 ..!.......E.`.!.
026AD0: 00 E5 21 C8 F1 E5 2A 98 F2 2B 29 D1 19 5E 23 56 ..!...*..+)..^#V
026AE0: EB D1 CD 66 06 7A B3 CA 60 9E D5 22 BE EC CD 9B ...f.z..`.."....
026AF0: 14 CD BA 17 16 56 61 6C 65 75 72 20 64 75 20 70 .....Valeur du p
026B00: 61 72 61 6D 65 74 72 65 20 6E 2E CD 1B 20 2A BE arametre n... *.
026B10: EC CD 9B 14 E5 21 00 00 CD 26 17 CD 1B 20 CD 9B .....!...&... ..
026B20: 14 CD BA 17 02 20 3D CD 1B 20 21 DC F1 E5 2A BE ..... =.. !...*.
026B30: EC 2B 29 29 E5 29 E5 29 E5 29 D1 19 D1 19 D1 19 .+)).).).)......
026B40: D1 19 E5 2A 98 F2 2B 29 5D 54 29 19 D1 19 CD CB ...*..+)]T).....
026B50: 14 CD 72 16 CD 1B 20 2A BE EC 23 D1 1B C3 E5 9D ..r... *..#.....
026B60: 21 A6 F2 E5 2A 98 F2 2B 29 D1 19 5E 23 56 EB E5 !...*..+)..^#V..
026B70: CD 6F 4A C3 B2 A0 19 11 05 00 B7 ED 52 C2 A5 A0 .oJ.........R...
026B80: CD 3E 02 CD 9B 14 CD BA 17 1A 4E 6F 20 64 65 20 .>........No de
026B90: 6C 61 20 66 6F 6E 63 74 69 6F 6E 20 28 31 20 61 la fonction (1 a
026BA0: 20 39 29 3F CD 1B 20 CD D8 94 22 98 F2 21 A6 F2 9)?.. ..."..!..
026BB0: E5 2A 98 F2 2B 29 D1 19 5E 23 56 EB E5 21 00 00 .*..+)..^#V..!..
026BC0: D1 CD 7F 06 CB 45 CA D8 9E 21 A6 F2 E5 2A 98 F2 .....E...!...*..
026BD0: 2B 29 D1 19 E5 CD 1F 21 CD 9B 14 21 66 00 CD 22 +).....!...!f.."
026BE0: 17 2A 98 F2 E5 21 00 00 CD 26 17 CD BA 17 04 28 .*...!...&.....(
026BF0: 78 29 3D 21 A6 F2 E5 2A 98 F2 2B 29 D1 19 5E 23 x)=!...*..+)..^#
026C00: 56 EB E5 21 78 00 E5 CD 53 2D 21 00 00 CD AA 17 V..!x...S-!.....
026C10: CD CD 17 CD 1B 20 CD 9B 14 CD BA 17 35 4E 6F 20 ..... ......5No
026C20: 64 65 20 6C 61 20 64 65 72 69 76 65 65 20 28 31 de la derivee (1
026C30: 20 61 20 39 20 65 74 20 64 69 66 66 65 72 65 6E a 9 et differen
026C40: 74 20 64 75 20 6E 6F 20 66 6F 6E 63 74 69 6F 6E t du no fonction
026C50: 29 3F CD 1B 20 CD D8 94 22 96 F2 2A 98 F2 E5 2A )?.. ..."..*...*
026C60: 96 F2 D1 CD 92 06 CB 45 CA 60 A0 21 01 00 7D 32 .......E.`.!..}2
026C70: C7 F1 21 A6 F2 E5 2A 96 F2 2B 29 D1 19 E5 21 A6 ..!...*..+)...!.
026C80: F2 E5 2A 98 F2 2B 29 D1 19 5E 23 56 EB E5 CD A0 ..*..+)..^#V....
026C90: 79 EB E1 73 23 72 21 C8 F1 E5 2A 96 F2 2B 29 D1 y..s#r!...*..+).
026CA0: 19 E5 21 C8 F1 E5 2A 98 F2 2B 29 D1 19 5E 23 56 ..!...*..+)..^#V
026CB0: EB EB E1 73 23 72 2A C7 F1 26 00 E5 21 01 00 D1 ...s#r*..&..!...
026CC0: CD 7F 06 CB 45 CA 22 A0 21 A6 F2 E5 2A 96 F2 2B ....E.".!...*..+
026CD0: 29 D1 19 E5 CD DE 75 CD 9B 14 CD BA 17 0C 44 65 ).....u.......De
026CE0: 72 69 76 65 65 20 64 65 20 66 2A 98 F2 E5 21 00 rivee de f*...!.
026CF0: 00 CD 26 17 CD BA 17 04 28 78 29 3D 21 A6 F2 E5 ..&.....(x)=!...
026D00: 2A 96 F2 2B 29 D1 19 5E 23 56 EB E5 21 78 00 E5 *..+)..^#V..!x..
026D10: CD 53 2D 21 00 00 CD AA 17 CD CD 17 CD 1B 20 C3 .S-!.......... .
026D20: 5A A0 CD 9B 14 CD BA 17 2B 4C 61 20 64 65 72 69 Z.......+La deri
026D30: 76 65 65 20 6E 27 65 73 74 20 70 61 73 20 64 65 vee n'est pas de
026D40: 66 69 6E 69 65 20 28 49 4E 54 20 6F 75 20 41 42 finie (INT ou AB
026D50: 53 2E 2E 29 CD CD 17 CD 1B 20 CD E8 2C C3 A2 A0 S..)..... ..,...
026D60: CD 9B 14 CD CD 17 CD 1B 20 CD 9B 14 CD BA 17 29 ........ ......)
026D70: 4D 65 6D 65 20 6E 75 6D 65 72 6F 20 70 6F 75 72 Meme numero pour
026D80: 20 66 20 65 74 20 66 27 2E 20 52 65 63 6F 6D 6D f et f'. Recomm
026D90: 65 6E 63 65 7A 20 21 21 21 CD CD 17 CD 1B 20 CD encez !!!..... .
026DA0: E8 2C C3 B2 A0 19 11 06 00 B7 ED 52 C2 B2 A0 CD .,.........R....
026DB0: 52 95 2A 90 F2 E5 21 07 00 D1 CD 7F 06 CB 45 CA R.*...!.......E.
026DC0: EA 9A 01 0A 00 11 BE EC C3 22 05 21 01 00 E5 21 .........".!...!
026DD0: 0A 00 D1 CD 66 06 7A B3 CA 10 A1 D5 22 98 F2 21 ....f.z....."..!
026DE0: A6 F2 E5 2A 98 F2 2B 29 D1 19 E5 21 00 00 EB E1 ...*..+)...!....
026DF0: 73 23 72 21 C8 F1 E5 2A 98 F2 2B 29 D1 19 E5 21 s#r!...*..+)...!
026E00: 00 00 EB E1 73 23 72 2A 98 F2 23 D1 1B C3 D6 A0 ....s#r*..#.....
026E10: CD E1 9A C3 D4 20 21 21 21 CD CD 17 CD 1B 20 CD ..... !!!..... .
026E20: E8 2C C3 7E 9E 19 11 06 00 B7 ED 52 C2 06 00 CD .,.~.......R....
026E30: 52 95 2A 90 F2 E5 21 07 00 D1 CD 7F 06 CB 45 CA R.*...!.......E.
026E40: EA 9A 01 0A 00 11 BE EC C3 22 05 21 01 00 E5 21 .........".!...!
026E50: 0A 00 D1 CD 66 06 7A B3 CA 00 00 D5 22 98 F2 21 ....f.z....."..!
026E60: A6 F2 E5 2A 98 F2 2B 29 D1 19 E5 21 00 00 EB E1 ...*..+)...!....
026E70: 73 23 72 21 C8 F1 E5 2A 98 F2 2B 29 D1 19 E5 21 s#r!...*..+)...!
026E80: 27 70 75 69 73 73 27 3B 75 5E 2E 76 61 6C 65 75 'puiss';u^.valeu
026E90: 72 3A 3D 27 5E 27 3B 75 5E 2E 64 3A 3D 76 3B 75 r:='^';u^.d:=v;u
026EA0: 5E 2E 67 3A 3D 66 5E 2E 64 3B 0D 0A 20 20 20 20 ^.g:=f^.d;..
026EB0: 20 20 20 20 20 6E 65 77 28 77 29 3B 77 5E 2E 6E new(w);w^.n
026EC0: 61 74 75 72 65 3A 3D 27 6E 6F 6D 62 72 65 27 3B ature:='nombre';
026ED0: 77 5E 2E 76 61 6C 65 75 72 3A 3D 27 31 27 3B 77 w^.valeur:='1';w
026EE0: 5E 2E 64 3A 3D 6E 69 6C 3B 77 5E 2E 67 3A 3D 6E ^.d:=nil;w^.g:=n
026EF0: 69 6C 3B 0D 0A 20 20 20 20 20 20 20 20 20 6E 65 il;.. ne
026F00: 77 28 73 29 3B 73 5E 2E 6E 61 74 75 72 65 3A 3D w(s);s^.nature:=
026F10: 27 6D 6F 69 6E 73 27 3B 73 5E 2E 76 61 6C 65 75 'moins';s^.valeu
026F20: 72 3A 3D 27 2D 27 3B 73 5E 2E 67 3A 3D 77 3B 73 r:='-';s^.g:=w;s
026F30: 5E 2E 64 3A 3D 75 3B 0D 0A 20 20 20 20 20 20 20 ^.d:=u;..
026F40: 20 20 6E 65 77 28 72 29 3B 72 5E 2E 6E 61 74 75 new(r);r^.natu
026F50: 72 65 3A 3D 27 69 64 66 63 74 27 3B 72 5E 2E 76 re:='idfct';r^.v
026F60: 61 6C 65 75 72 3A 3D 27 73 71 72 74 27 3B 72 5E aleur:='sqrt';r^
026F70: 2E 67 3A 3D 6E 69 6C 3B 72 5E 2E 64 3A 3D 73 3B .g:=nil;r^.d:=s;
026F80: 0D 0A 20 20 20 20 20 20 20 20 20 70 5E 2E 6E 61 .. p^.na
026F90: 74 75 72 65 3A 3D 27 64 69 76 69 73 65 27 3B 70 ture:='divise';p
026FA0: 5E 2E 76 61 6C 65 75 72 3A 3D 27 2F 27 3B 70 5E ^.valeur:='/';p^
026FB0: 2E 67 3A 3D 64 65 72 69 76 65 28 66 5E 2E 64 29 .g:=derive(f^.d)
026FC0: 3B 70 5E 2E 64 3A 3D 72 3B 0D 0A 20 20 20 20 20 ;p^.d:=r;..
026FD0: 20 20 20 65 6E 64 0D 0A 20 20 20 20 20 20 20 20 end..
026FE0: 65 6C 73 65 0D 0A 20 20 20 20 20 20 69 66 20 66 else.. if f
026FF0: 5E 2E 76 61 6C 65 75 72 3D 27 61 72 63 63 6F 73 ^.valeur='arccos
027000: 20 20 20 20 20 20 20 69 66 20 66 5E 2E 76 61 6C if f^.val
027010: 65 75 72 3D 27 73 71 72 74 27 20 74 68 65 6E 0D eur='sqrt' then.
027020: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
027030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
027040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
027050: 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 begin..
027060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
027070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
027080: 20 20 20 20 20 20 20 20 20 20 69 66 20 6E 62 72 if nbr
027090: 65 3C 30 20 74 68 65 6E 0D 0A 20 20 20 20 20 20 e<0 then..
0270A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0270B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0270C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0270D0: 20 20 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 begin..
0270E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0270F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
027100: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
027110: 20 20 20 20 20 64 65 66 69 6E 69 3A 3D 66 61 6C defini:=fal
027120: 73 65 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 se;..
027130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
027140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
027150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 67 g
027160: 6F 74 6F 20 66 69 6E 63 61 6C 63 75 6C 3B 0D 0A oto fincalcul;..
027170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
027180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
027190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0271A0: 20 20 20 20 20 20 20 20 20 20 65 6E 64 0D 0A 20 end..
0271B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0271C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0271D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0271E0: 20 20 20 20 20 20 20 20 20 20 20 65 6C 73 65 0D else.
0271F0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
027200: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
027210: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
027220: 20 20 63 61 6C 63 75 6C 3A 3D 73 71 72 74 28 6E calcul:=sqrt(n
027230: 62 72 65 29 0D 0A 20 20 20 20 20 20 20 20 20 20 bre)..
027240: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
027250: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
027260: 20 20 20 20 20 20 20 65 6E 64 0D 0A 20 20 20 20 end..
027270: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
027280: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
027290: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6C el
0272A0: 73 65 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 se..
0272B0: 20 20 69 66 20 66 5E 2E 76 61 6C 65 75 72 3D 27 if f^.valeur='
0272C0: 73 68 27 20 74 68 65 6E 20 63 61 6C 63 75 6C 3A sh' then calcul:
0272D0: 3D 30 2E 35 2A 28 65 78 70 28 6E 62 72 65 29 2D =0.5*(exp(nbre)-
0272E0: 65 78 70 28 6E 62 72 65 2A 2D 31 29 29 0D 0A 20 exp(nbre*-1))..
0272F0: 20 20 20 20 20 20 65 6C 73 65 20 20 20 69 66 20 else if
027300: 66 5E 2E 76 61 6C 65 75 72 3D 27 63 68 27 20 74 f^.valeur='ch' t
027310: 68 65 6E 20 63 61 6C 63 75 6C 3A 3D 30 2E 35 2A hen calcul:=0.5*
027320: 28 65 78 70 28 6E 62 72 65 29 2B 65 78 70 28 6E (exp(nbre)+exp(n
027330: 62 72 65 2A 2D 31 29 29 0D 0A 20 20 20 20 20 20 bre*-1))..
027340: 20 65 6C 73 65 20 20 20 69 66 20 66 5E 2E 76 61 else if f^.va
027350: 6C 65 75 72 3D 27 74 68 27 20 74 68 65 6E 0D 0A leur='th' then..
027360: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
027370: 63 61 6C 63 75 6C 3A 3D 28 65 78 70 28 6E 62 72 calcul:=(exp(nbr
027380: 65 29 2D 65 78 70 28 6E 62 72 65 2A 2D 31 29 29 e)-exp(nbre*-1))
027390: 2F 28 65 78 70 28 6E 62 72 65 29 2B 65 78 70 28 /(exp(nbre)+exp(
0273A0: 6E 62 72 65 2A 2D 31 29 29 0D 0A 20 20 20 20 20 nbre*-1))..
0273B0: 20 20 65 6C 73 65 20 20 20 69 66 20 66 5E 2E 76 else if f^.v
0273C0: 61 6C 65 75 72 3D 27 61 72 63 73 69 6E 27 20 74 aleur='arcsin' t
0273D0: 68 65 6E 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 hen begin..
0273E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0273F0: 20 20 20 20 20 20 20 20 69 66 20 6E 62 72 65 3D if nbre=
027400: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
027410: 21 00 00 00 02 09 4E E5 21 00 41 02 00 00 00 02 !.....N.!.A.....
027420: 21 00 42 02 00 00 00 02 21 00 43 02 00 00 00 02 !.B.....!.C.....
027430: 21 00 44 02 00 00 00 02 21 00 45 02 00 00 00 02 !.D.....!.E.....
027440: 21 00 46 02 00 00 00 02 21 00 47 02 00 00 00 02 !.F.....!.G.....
027450: 21 00 48 02 00 00 00 02 21 00 49 02 00 00 00 02 !.H.....!.I.....
027460: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
027470: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
027480: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
027490: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0274A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0274B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0274C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0274D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0274E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0274F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
027500: 2D 31 20 74 68 65 6E 20 63 61 6C 63 75 6C 3A 3D -1 then calcul:=
027510: 2D 30 2E 35 2A 70 69 20 65 6C 73 65 0D 0A 20 20 -0.5*pi else..
027520: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
027530: 20 20 20 20 20 20 20 20 20 20 20 69 66 20 6E 62 if nb
027540: 72 65 3D 31 20 74 68 65 6E 20 63 61 6C 63 75 6C re=1 then calcul
027550: 3A 3D 30 2E 35 2A 70 69 20 65 6C 73 65 0D 0A 20 :=0.5*pi else..
027560: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
027570: 20 20 20 20 20 20 20 20 20 20 20 20 69 66 20 28 if (
027580: 28 6E 62 72 65 3C 2D 31 29 6F 72 28 6E 62 72 65 (nbre<-1)or(nbre
027590: 3E 31 29 29 20 74 68 65 6E 0D 0A 20 20 20 20 20 >1)) then..
0275A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0275B0: 20 20 20 20 20 20 20 20 62 65 67 69 6E 20 64 65 begin de
0275C0: 66 69 6E 69 3A 3D 66 61 6C 73 65 3B 67 6F 74 6F fini:=false;goto
0275D0: 20 66 69 6E 63 61 6C 63 75 6C 3B 0D 0A 20 20 20 fincalcul;..
0275E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0275F0: 20 20 20 20 20 20 20 20 20 20 65 6E 64 20 20 65 end e
027600: 6C 73 65 0D 0A 20 20 20 20 20 20 20 20 20 20 20 lse..
027610: 20 63 61 6C 63 75 6C 3A 3D 61 72 63 74 61 6E 28 calcul:=arctan(
027620: 6E 62 72 65 2F 73 71 72 74 28 31 2D 6E 62 72 65 nbre/sqrt(1-nbre
027630: 2A 6E 62 72 65 29 29 3B 0D 0A 20 20 20 20 20 20 *nbre));..
027640: 20 20 20 20 20 20 65 6E 64 0D 0A 20 20 20 20 20 end..
027650: 20 20 65 6C 73 65 0D 0A 20 20 20 20 20 20 20 20 else..
027660: 20 20 20 20 20 20 20 69 66 20 66 5E 2E 76 61 6C if f^.val
027670: 65 75 72 3D 27 61 72 63 63 6F 73 27 20 74 68 65 eur='arccos' the
027680: 6E 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 n begin..
027690: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0276A0: 20 20 20 20 20 20 69 66 20 6E 62 72 65 3D 2D 31 if nbre=-1
0276B0: 20 74 68 65 6E 20 63 61 6C 63 75 6C 3A 3D 70 69 then calcul:=pi
0276C0: 20 65 6C 73 65 0D 0A 20 20 20 20 20 20 20 20 20 else..
0276D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0276E0: 20 20 20 20 69 66 20 6E 62 72 65 3D 31 20 74 68 if nbre=1 th
0276F0: 65 6E 20 63 61 6C 63 75 6C 3A 3D 30 20 65 6C 73 en calcul:=0 els
027700: 65 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 e..
027710: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
027720: 69 66 20 28 28 6E 62 72 65 3C 2D 31 29 6F 72 28 if ((nbre<-1)or(
027730: 6E 62 72 65 3E 31 29 29 20 74 68 65 6E 0D 0A 20 nbre>1)) then..
027740: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
027750: 20 20 20 20 20 20 20 20 20 20 20 20 62 65 67 69 begi
027760: 6E 20 64 65 66 69 6E 69 3A 3D 66 61 6C 73 65 3B n defini:=false;
027770: 67 6F 74 6F 20 66 69 6E 63 61 6C 63 75 6C 3B 0D goto fincalcul;.
027780: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
027790: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6E en
0277A0: 64 20 20 65 6C 73 65 0D 0A 20 20 20 20 20 20 20 d else..
0277B0: 20 20 20 20 20 63 61 6C 63 75 6C 3A 3D 28 70 69 calcul:=(pi
0277C0: 2F 32 29 2D 61 72 63 74 61 6E 28 6E 62 72 65 2F /2)-arctan(nbre/
0277D0: 73 71 72 74 28 31 2D 6E 62 72 65 2A 6E 62 72 65 sqrt(1-nbre*nbre
0277E0: 29 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 ));..
0277F0: 20 65 6E 64 0D 0A 20 20 20 20 20 20 20 65 6C 73 end.. els
027800: 65 0D 0A 20 20 65 72 72 65 75 72 28 31 30 29 0D e.. erreur(10).
027810: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
027820: 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6E 64 end
027830: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
027840: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6C el
027850: 73 65 0D 0A 20 20 69 66 20 66 3D 6E 69 6C 20 74 se.. if f=nil t
027860: 68 65 6E 20 63 61 6C 63 75 6C 3A 3D 30 3B 0D 0A hen calcul:=0;..
027870: 20 20 66 69 6E 63 61 6C 63 75 6C 3A 3B 0D 0A 65 fincalcul:;..e
027880: 6E 64 3B 0D 0A 0D 0A 66 75 6E 63 74 69 6F 6E 20 nd;....function
027890: 20 74 61 70 65 66 6F 6E 63 74 69 6F 6E 3B 0D 0A tapefonction;..
0278A0: 76 61 72 0D 0A 77 77 77 2C 77 77 78 3A 73 74 72 var..www,wwx:str
0278B0: 32 30 30 3B 0D 0A 63 6F 65 66 66 3A 72 65 61 6C 200;..coeff:real
0278C0: 3B 72 65 73 75 6C 74 61 74 3A 69 6E 74 65 67 65 ;resultat:intege
0278D0: 72 3B 0D 0A 66 6F 72 6D 61 74 3A 73 74 72 31 30 r;..format:str10
0278E0: 3B 0D 0A 62 65 67 69 6E 0D 0A 69 66 20 66 5E 2E ;..begin..if f^.
0278F0: 6E 61 74 75 72 65 3D 27 69 64 66 63 74 27 20 74 nature='idfct' t
027900: 68 65 6E 0D 0A 74 61 70 65 66 6F 6E 63 74 69 6F hen..tapefonctio
027910: 6E 3A 3D 66 5E 2E 76 61 6C 65 75 72 2B 27 28 27 n:=f^.valeur+'('
027920: 2B 74 61 70 65 66 6F 6E 63 74 69 6F 6E 28 66 5E +tapefonction(f^
027930: 2E 64 2C 76 29 2B 27 29 27 20 65 6C 73 65 0D 0A .d,v)+')' else..
027940: 69 66 20 66 5E 2E 6E 61 74 75 72 65 3D 27 6E 6F if f^.nature='no
027950: 6D 62 72 65 27 20 74 68 65 6E 20 20 74 61 70 65 mbre' then tape
027960: 66 6F 6E 63 74 69 6F 6E 3A 3D 66 5E 2E 76 61 6C fonction:=f^.val
027970: 65 75 72 20 65 6C 73 65 0D 0A 69 66 20 66 5E 2E eur else..if f^.
027980: 6E 61 74 75 72 65 3D 27 70 61 72 61 6D 27 20 74 nature='param' t
027990: 68 65 6E 0D 0A 74 61 70 65 66 6F 6E 63 74 69 6F hen..tapefonctio
0279A0: 6E 3A 3D 27 70 28 27 2B 66 5E 2E 76 61 6C 65 75 n:='p('+f^.valeu
0279B0: 72 2B 27 29 27 20 65 6C 73 65 0D 0A 69 66 20 66 r+')' else..if f
0279C0: 5E 2E 6E 61 74 75 72 65 3D 27 76 61 72 69 61 62 ^.nature='variab
0279D0: 27 20 74 68 65 6E 0D 0A 74 61 70 65 66 6F 6E 63 ' then..tapefonc
0279E0: 74 69 6F 6E 3A 3D 76 20 65 6C 73 65 0D 0A 69 66 tion:=v else..if
0279F0: 20 28 28 66 5E 2E 6E 61 74 75 72 65 3D 27 70 6C ((f^.nature='pl
027A00: 75 73 27 29 20 6F 72 20 28 66 5E 2E 6E 61 74 75 us') or (f^.natu
027A10: 72 65 3D 27 6D 6F 69 6E 73 27 29 29 20 74 68 65 re='moins')) the
027A20: 6E 0D 0A 20 20 20 20 62 65 67 69 6E 0D 0A 20 20 n.. begin..
027A30: 20 20 77 77 77 3A 3D 74 61 70 65 66 6F 6E 63 74 www:=tapefonct
027A40: 69 6F 6E 28 66 5E 2E 64 2C 76 29 3B 77 77 78 3A ion(f^.d,v);wwx:
027A50: 3D 74 61 70 65 66 6F 6E 63 74 69 6F 6E 28 66 5E =tapefonction(f^
027A60: 2E 67 2C 76 29 3B 0D 0A 20 20 20 20 69 66 20 28 .g,v);.. if (
027A70: 28 28 66 5E 2E 64 5E 2E 76 61 6C 65 75 72 3D 27 ((f^.d^.valeur='
027A80: 2B 27 29 6F 72 28 66 5E 2E 64 5E 2E 76 61 6C 65 +')or(f^.d^.vale
027A90: 75 72 3D 27 2D 27 29 29 61 6E 64 28 66 5E 2E 76 ur='-'))and(f^.v
027AA0: 61 6C 65 75 72 3D 27 2B 27 29 29 20 74 68 65 6E aleur='+')) then
027AB0: 0D 0A 20 20 20 20 20 62 65 67 69 6E 0D 0A 20 20 .. begin..
027AC0: 20 20 20 64 65 6C 65 74 65 28 77 77 77 2C 31 2C delete(www,1,
027AD0: 31 29 3B 64 65 6C 65 74 65 28 77 77 77 2C 6C 65 1);delete(www,le
027AE0: 6E 67 74 68 28 77 77 77 29 2C 31 29 3B 0D 0A 20 ngth(www),1);..
027AF0: 20 20 20 20 65 6E 64 3B 0D 0A 20 20 20 20 69 66 end;.. if
027B00: 20 28 28 66 5E 2E 67 5E 2E 76 61 6C 65 75 72 3D ((f^.g^.valeur=
027B10: 27 2B 27 29 6F 72 28 66 5E 2E 67 5E 2E 76 61 6C '+')or(f^.g^.val
027B20: 65 75 72 3D 27 2D 27 29 29 20 74 68 65 6E 0D 0A eur='-')) then..
027B30: 20 20 20 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 begin..
027B40: 20 64 65 6C 65 74 65 28 77 77 78 2C 31 2C 31 29 delete(wwx,1,1)
027B50: 3B 64 65 6C 65 74 65 28 77 77 78 2C 6C 65 6E 67 ;delete(wwx,leng
027B60: 74 68 28 77 77 78 29 2C 31 29 3B 0D 0A 20 20 20 th(wwx),1);..
027B70: 20 20 65 6E 64 3B 63 6F 65 66 66 3A 3D 31 3B 0D end;coeff:=1;.
027B80: 0A 20 20 20 20 20 69 66 20 66 5E 2E 64 5E 2E 6E . if f^.d^.n
027B90: 61 74 75 72 65 3D 27 6E 6F 6D 62 72 65 27 20 74 ature='nombre' t
027BA0: 68 65 6E 20 76 61 6C 28 66 5E 2E 64 5E 2E 76 61 hen val(f^.d^.va
027BB0: 6C 65 75 72 2C 63 6F 65 66 66 2C 72 65 73 75 6C leur,coeff,resul
027BC0: 74 61 74 29 3B 0D 0A 20 20 20 20 20 69 66 20 28 tat);.. if (
027BD0: 28 66 5E 2E 64 5E 2E 76 61 6C 65 75 72 3D 27 2A (f^.d^.valeur='*
027BE0: 27 29 61 6E 64 20 28 66 5E 2E 64 5E 2E 67 5E 2E ')and (f^.d^.g^.
027BF0: 6E 61 74 75 72 65 3D 27 6E 6F 6D 62 72 65 27 29 nature='nombre')
027C00: 29 20 74 68 65 6E 0D 0A 20 20 20 20 20 76 61 6C ) then.. val
027C10: 28 66 5E 2E 64 5E 2E 67 5E 2E 76 61 6C 65 75 72 (f^.d^.g^.valeur
027C20: 2C 63 6F 65 66 66 2C 72 65 73 75 6C 74 61 74 29 ,coeff,resultat)
027C30: 3B 0D 0A 20 20 20 20 20 69 66 20 28 28 66 5E 2E ;.. if ((f^.
027C40: 76 61 6C 65 75 72 3D 27 2B 27 29 20 61 6E 64 20 valeur='+') and
027C50: 28 63 6F 65 66 66 3C 30 29 29 20 74 68 65 6E 0D (coeff<0)) then.
027C60: 0A 20 20 20 20 74 61 70 65 66 6F 6E 63 74 69 6F . tapefonctio
027C70: 6E 3A 3D 27 28 27 2B 77 77 78 2B 77 77 77 2B 27 n:='('+wwx+www+'
027C80: 29 27 20 65 6C 73 65 0D 0A 20 20 20 74 61 70 65 )' else.. tape
027C90: 66 6F 6E 63 74 69 6F 6E 3A 3D 27 28 27 2B 77 77 fonction:='('+ww
027CA0: 78 2B 66 5E 2E 76 61 6C 65 75 72 2B 77 77 77 2B x+f^.valeur+www+
027CB0: 27 29 27 0D 0A 20 20 20 65 6E 64 0D 0A 20 20 20 ')'.. end..
027CC0: 65 6C 73 65 0D 0A 69 66 20 28 28 66 5E 2E 6E 61 else..if ((f^.na
027CD0: 74 75 72 65 3D 27 64 69 76 69 73 65 27 29 20 6F ture='divise') o
027CE0: 72 20 28 66 5E 2E 6E 61 74 75 72 65 3D 27 6D 75 r (f^.nature='mu
027CF0: 6C 74 69 27 29 20 6F 72 20 28 66 5E 2E 6E 61 74 lti') or (f^.nat
027D00: 75 72 65 3D 27 70 75 69 73 73 27 29 29 0D 0A 74 ure='puiss'))..t
027D10: 68 65 6E 20 74 61 70 65 66 6F 6E 63 74 69 6F 6E hen tapefonction
027D20: 3A 3D 74 61 70 65 66 6F 6E 63 74 69 6F 6E 28 66 :=tapefonction(f
027D30: 5E 2E 67 2C 76 29 2B 66 5E 2E 76 61 6C 65 75 72 ^.g,v)+f^.valeur
027D40: 2B 74 61 70 65 66 6F 6E 63 74 69 6F 6E 28 66 5E +tapefonction(f^
027D50: 2E 64 2C 76 29 20 65 6C 73 65 0D 0A 74 61 70 65 .d,v) else..tape
027D60: 66 6F 6E 63 74 69 6F 6E 3A 3D 27 27 3B 0D 0A 65 fonction:='';..e
027D70: 6E 64 3B 0D 0A 0D 0A 66 75 6E 63 74 69 6F 6E 20 nd;....function
027D80: 6F 70 70 6F 73 65 3B 0D 0A 76 61 72 0D 0A 75 2C oppose;..var..u,
027D90: 76 3A 66 6F 6E 63 74 69 6F 6E 3B 0D 0A 63 6F 65 v:fonction;..coe
027DA0: 66 66 2C 72 65 73 75 6C 74 61 74 3A 69 6E 74 65 ff,resultat:inte
027DB0: 67 65 72 3B 0D 0A 63 6F 65 66 32 3A 72 65 61 6C ger;..coef2:real
027DC0: 3B 0D 0A 62 65 67 69 6E 0D 0A 69 66 20 28 28 66 ;..begin..if ((f
027DD0: 5E 2E 76 61 6C 65 75 72 3D 27 2A 27 29 20 61 6E ^.valeur='*') an
027DE0: 64 20 28 66 5E 2E 67 5E 2E 6E 61 74 75 72 65 3D d (f^.g^.nature=
027DF0: 27 6E 6F 6D 62 72 65 27 29 29 20 74 68 65 6E 0D 'nombre')) then.
027E00: 0A 20 62 65 67 69 6E 0D 0A 20 20 6E 65 77 28 75 . begin.. new(u
027E10: 29 3B 75 5E 2E 6E 61 74 75 72 65 3A 3D 27 6D 75 );u^.nature:='mu
027E20: 6C 74 69 27 3B 75 5E 2E 76 61 6C 65 75 72 3A 3D lti';u^.valeur:=
027E30: 27 2A 27 3B 75 5E 2E 64 3A 3D 66 5E 2E 64 3B 0D '*';u^.d:=f^.d;.
027E40: 0A 20 20 75 5E 2E 67 3A 3D 6F 70 70 6F 73 65 28 . u^.g:=oppose(
027E50: 66 5E 2E 67 29 3B 6F 70 70 6F 73 65 3A 3D 75 3B f^.g);oppose:=u;
027E60: 0D 0A 20 65 6E 64 0D 0A 20 65 6C 73 65 0D 0A 69 .. end.. else..i
027E70: 66 20 28 28 66 5E 2E 76 61 6C 65 75 72 3D 27 78 f ((f^.valeur='x
027E80: 27 29 20 6F 72 20 28 66 5E 2E 76 61 6C 65 75 72 ') or (f^.valeur
027E90: 3D 27 5E 27 29 29 20 74 68 65 6E 0D 0A 20 62 65 ='^')) then.. be
027EA0: 67 69 6E 0D 0A 20 20 6E 65 77 28 75 29 3B 75 5E gin.. new(u);u^
027EB0: 2E 6E 61 74 75 72 65 3A 3D 27 6D 75 6C 74 69 27 .nature:='multi'
027EC0: 3B 75 5E 2E 76 61 6C 65 75 72 3A 3D 27 2A 27 3B ;u^.valeur:='*';
027ED0: 75 5E 2E 64 3A 3D 66 3B 0D 0A 20 20 6E 65 77 28 u^.d:=f;.. new(
027EE0: 76 29 3B 76 5E 2E 6E 61 74 75 72 65 3A 3D 27 6E v);v^.nature:='n
027EF0: 6F 6D 62 72 65 27 3B 76 5E 2E 76 61 6C 65 75 72 ombre';v^.valeur
027F00: 3A 3D 27 2D 31 27 3B 76 5E 2E 64 3A 3D 6E 69 6C :='-1';v^.d:=nil
027F10: 3B 76 5E 2E 67 3A 3D 6E 69 6C 3B 0D 0A 20 20 75 ;v^.g:=nil;.. u
027F20: 5E 2E 67 3A 3D 76 3B 6F 70 70 6F 73 65 3A 3D 75 ^.g:=v;oppose:=u
027F30: 3B 0D 0A 20 65 6E 64 0D 0A 20 65 6C 73 65 0D 0A ;.. end.. else..
027F40: 69 66 20 66 5E 2E 6E 61 74 75 72 65 3D 27 6E 6F if f^.nature='no
027F50: 6D 62 72 65 27 20 74 68 65 6E 0D 0A 20 62 65 67 mbre' then.. beg
027F60: 69 6E 0D 0A 20 20 6E 65 77 28 75 29 3B 75 5E 2E in.. new(u);u^.
027F70: 6E 61 74 75 72 65 3A 3D 27 6E 6F 6D 62 72 65 27 nature:='nombre'
027F80: 3B 75 5E 2E 64 3A 3D 6E 69 6C 3B 75 5E 2E 67 3A ;u^.d:=nil;u^.g:
027F90: 3D 6E 69 6C 3B 0D 0A 20 20 76 61 6C 28 66 5E 2E =nil;.. val(f^.
027FA0: 76 61 6C 65 75 72 2C 63 6F 65 66 32 2C 72 65 73 valeur,coef2,res
027FB0: 75 6C 74 61 74 29 3B 63 6F 65 66 32 3A 3D 63 6F ultat);coef2:=co
027FC0: 65 66 32 2A 28 2D 31 29 3B 0D 0A 20 20 69 66 20 ef2*(-1);.. if
027FD0: 66 72 61 63 28 63 6F 65 66 32 29 3D 30 20 74 68 frac(coef2)=0 th
027FE0: 65 6E 20 73 74 72 28 72 6F 75 6E 64 28 63 6F 65 en str(round(coe
027FF0: 66 32 29 2C 75 5E 2E 76 61 6C 65 75 72 29 0D 0A f2),u^.valeur)..
028000: 20 20 20 20 65 6C 73 65 0D 0A 20 20 20 20 62 65 else.. be
028010: 67 69 6E 0D 0A 20 20 20 20 73 74 72 28 63 6F 65 gin.. str(coe
028020: 66 32 3A 31 30 3A 35 2C 75 5E 2E 76 61 6C 65 75 f2:10:5,u^.valeu
028030: 72 29 3B 0D 0A 20 20 20 20 77 68 69 6C 65 20 70 r);.. while p
028040: 6F 73 28 27 20 27 2C 75 5E 2E 76 61 6C 65 75 72 os(' ',u^.valeur
028050: 29 3C 3E 30 20 64 6F 20 64 65 6C 65 74 65 28 75 )<>0 do delete(u
028060: 5E 2E 76 61 6C 65 75 72 2C 31 2C 31 29 3B 0D 0A ^.valeur,1,1);..
028070: 20 20 20 20 65 6E 64 3B 0D 0A 20 20 6F 70 70 6F end;.. oppo
028080: 73 65 3A 3D 75 3B 0D 0A 20 65 6E 64 0D 0A 20 65 se:=u;.. end.. e
028090: 6C 73 65 0D 0A 69 66 20 66 5E 2E 76 61 6C 65 75 lse..if f^.valeu
0280A0: 72 3D 27 2B 27 20 74 68 65 6E 0D 0A 20 20 62 65 r='+' then.. be
0280B0: 67 69 6E 20 6E 65 77 28 75 29 3B 75 5E 2E 6E 61 gin new(u);u^.na
0280C0: 74 75 72 65 3A 3D 27 70 6C 75 73 27 3B 75 5E 2E ture:='plus';u^.
0280D0: 76 61 6C 65 75 72 3A 3D 27 2B 27 3B 0D 0A 20 20 valeur:='+';..
0280E0: 75 5E 2E 67 3A 3D 6F 70 70 6F 73 65 28 66 5E 2E u^.g:=oppose(f^.
0280F0: 67 29 3B 75 5E 2E 64 3A 3D 6F 70 70 6F 73 65 28 g);u^.d:=oppose(
028100: 66 5E 2E 64 29 3B 6F 70 70 6F 73 65 3A 3D 75 20 f^.d);oppose:=u
028110: 65 6E 64 0D 0A 20 65 6C 73 65 0D 0A 69 66 20 66 end.. else..if f
028120: 5E 2E 76 61 6C 65 75 72 3D 27 2D 27 20 74 68 65 ^.valeur='-' the
028130: 6E 0D 0A 20 20 62 65 67 69 6E 20 6E 65 77 28 75 n.. begin new(u
028140: 29 3B 75 5E 2E 6E 61 74 75 72 65 3A 3D 27 70 6C );u^.nature:='pl
028150: 75 73 27 3B 75 5E 2E 76 61 6C 65 75 72 3A 3D 27 us';u^.valeur:='
028160: 2B 27 3B 75 5E 2E 67 3A 3D 6F 70 70 6F 73 65 28 +';u^.g:=oppose(
028170: 66 5E 2E 67 29 3B 75 5E 2E 64 3A 3D 66 5E 2E 64 f^.g);u^.d:=f^.d
028180: 3B 0D 0A 20 20 6F 70 70 6F 73 65 3A 3D 75 20 65 ;.. oppose:=u e
028190: 6E 64 0D 0A 20 20 65 6C 73 65 0D 0A 69 66 20 66 nd.. else..if f
0281A0: 3D 6E 69 6C 20 74 68 65 6E 20 6F 70 70 6F 73 65 =nil then oppose
0281B0: 3A 3D 6E 69 6C 3B 0D 0A 65 6E 64 3B 0D 0A 0D 0A :=nil;..end;....
0281C0: 0D 0A 0D 0A 66 75 6E 63 74 69 6F 6E 20 20 65 78 ....function ex
0281D0: 70 6F 73 61 6E 74 3B 0D 0A 76 61 72 0D 0A 6C 6C posant;..var..ll
0281E0: 3A 69 6E 74 65 67 65 72 3B 0D 0A 62 65 67 69 6E :integer;..begin
0281F0: 0D 0A 6C 6C 3A 3D 72 6F 75 6E 64 28 6C 29 3B 0D ..ll:=round(l);.
028200: 0A 69 66 20 6B 3D 30 20 74 68 65 6E 20 65 78 70 .if k=0 then exp
028210: 6F 73 61 6E 74 3A 3D 30 20 65 6C 73 65 0D 0A 69 osant:=0 else..i
028220: 66 20 6C 6C 3D 30 20 74 68 65 6E 20 65 78 70 6F f ll=0 then expo
028230: 73 61 6E 74 3A 3D 31 20 65 6C 73 65 0D 0A 69 66 sant:=1 else..if
028240: 20 6C 6C 3E 30 20 74 68 65 6E 20 62 65 67 69 6E ll>0 then begin
028250: 20 6C 3A 3D 6C 2D 31 3B 65 78 70 6F 73 61 6E 74 l:=l-1;exposant
028260: 3A 3D 6B 2A 65 78 70 6F 73 61 6E 74 28 6B 2C 6C :=k*exposant(k,l
028270: 29 20 65 6E 64 20 65 6C 73 65 0D 0A 69 66 20 6C ) end else..if l
028280: 6C 3C 30 20 74 68 65 6E 20 62 65 67 69 6E 20 6C l<0 then begin l
028290: 3A 3D 6C 2B 31 3B 65 78 70 6F 73 61 6E 74 3A 3D :=l+1;exposant:=
0282A0: 28 31 2F 6B 29 2A 65 78 70 6F 73 61 6E 74 28 6B (1/k)*exposant(k
0282B0: 2C 6C 29 20 65 6E 64 3B 0D 0A 65 6E 64 3B 0D 0A ,l) end;..end;..
0282C0: 0D 0A 0D 0A 70 72 6F 63 65 64 75 72 65 20 20 20 ....procedure
0282D0: 20 63 61 6C 63 75 6C 66 6F 6E 63 74 69 6F 6E 28 calculfonction(
0282E0: 66 3A 66 6F 6E 63 74 69 6F 6E 29 3B 0D 0A 76 61 f:fonction);..va
0282F0: 72 0D 0A 63 68 78 2C 63 68 79 3A 73 74 72 31 30 r..chx,chy:str10
028300: 3B 0D 0A 62 65 67 69 6E 0D 0A 20 63 6C 72 73 63 ;..begin.. clrsc
028310: 72 3B 0D 0A 20 72 65 70 65 61 74 0D 0A 20 77 72 r;.. repeat.. wr
028320: 69 74 65 28 27 76 61 6C 65 75 72 20 64 65 20 78 ite('valeur de x
028330: 20 3F 27 29 3B 0D 0A 20 72 65 61 64 6C 6E 28 78 ?');.. readln(x
028340: 29 3B 0D 0A 20 64 65 66 69 6E 69 3A 3D 74 72 75 );.. defini:=tru
028350: 65 3B 72 65 73 75 6C 74 61 74 3A 3D 63 61 6C 63 e;resultat:=calc
028360: 75 6C 28 66 2C 78 29 3B 0D 0A 20 69 66 20 66 72 ul(f,x);.. if fr
028370: 61 63 28 78 29 3D 30 20 74 68 65 6E 20 73 74 72 ac(x)=0 then str
028380: 28 72 6F 75 6E 64 28 78 29 2C 63 68 78 29 20 65 (round(x),chx) e
028390: 6C 73 65 20 73 74 72 28 78 3A 38 3A 33 2C 63 68 lse str(x:8:3,ch
0283A0: 78 29 3B 0D 0A 20 69 66 20 64 65 66 69 6E 69 3D x);.. if defini=
0283B0: 74 72 75 65 20 74 68 65 6E 0D 0A 20 20 20 20 20 true then..
0283C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 62 b
0283D0: 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 20 20 egin..
0283E0: 20 20 20 20 20 20 20 20 20 20 77 72 69 74 65 28 write(
0283F0: 27 66 27 2C 69 2C 27 28 27 2C 63 68 78 2C 27 29 'f',i,'(',chx,')
028400: 3D 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 =');..
028410: 20 20 20 20 20 20 20 20 20 20 69 66 20 66 72 61 if fra
028420: 63 28 72 65 73 75 6C 74 61 74 29 3D 30 20 74 68 c(resultat)=0 th
028430: 65 6E 20 73 74 72 28 72 6F 75 6E 64 28 72 65 73 en str(round(res
028440: 75 6C 74 61 74 29 2C 63 68 79 29 20 65 6C 73 65 ultat),chy) else
028450: 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ..
028460: 20 20 20 20 20 20 73 74 72 28 72 65 73 75 6C 74 str(result
028470: 61 74 3A 38 3A 33 2C 63 68 79 29 3B 0D 0A 20 20 at:8:3,chy);..
028480: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
028490: 20 20 77 72 69 74 65 6C 6E 28 63 68 79 29 3B 0D writeln(chy);.
0284A0: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
0284B0: 20 20 20 20 20 65 6E 64 0D 0A 20 20 20 20 20 20 end..
0284C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 65 6C el
0284D0: 73 65 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 se..
0284E0: 20 20 20 20 20 20 20 20 62 65 67 69 6E 0D 0A 20 begin..
0284F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
028500: 20 20 20 77 72 69 74 65 6C 6E 28 27 66 27 2C 69 writeln('f',i
028510: 2C 27 28 27 2C 63 68 78 2C 27 29 20 6E 27 27 65 ,'(',chx,') n''e
028520: 73 74 20 70 61 73 20 64 65 66 69 6E 69 65 27 29 st pas definie')
028530: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 ;..
028540: 20 20 20 20 20 20 20 65 6E 64 3B 0D 0A 20 77 72 end;.. wr
028550: 69 74 65 6C 6E 28 27 3C 31 3E 20 55 6E 20 61 75 iteln('<1> Un au
028560: 74 72 65 20 78 3F 20 3C 32 3E 20 52 65 74 6F 75 tre x? <2> Retou
028570: 72 20 61 75 20 6D 65 6E 75 20 27 29 3B 0D 0A 20 r au menu ');..
028580: 20 20 72 65 70 65 61 74 0D 0A 20 20 20 72 65 61 repeat.. rea
028590: 64 28 6B 62 64 2C 63 61 72 29 3B 0D 0A 20 20 20 d(kbd,car);..
0285A0: 75 6E 74 69 6C 20 28 28 63 61 72 3D 27 31 27 29 until ((car='1')
0285B0: 20 6F 72 20 28 63 61 72 3D 27 32 27 29 29 3B 0D or (car='2'));.
0285C0: 0A 20 20 20 76 61 6C 28 63 61 72 2C 63 68 6F 69 . val(car,choi
0285D0: 78 2C 72 65 73 75 6C 74 29 3B 0D 0A 20 77 72 69 x,result);.. wri
0285E0: 74 65 6C 6E 3B 0D 0A 20 75 6E 74 69 6C 20 63 68 teln;.. until ch
0285F0: 6F 69 78 3D 32 0D 0A 65 6E 64 3B 0D 0A 0D 0D 0D oix=2..end;.....
028600: 0D 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
028610: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
028620: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
028630: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
028640: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
028650: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
028660: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
028670: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
028680: 65 29 2D 65 78 70 28 6E 62 72 65 2A 2D 31 29 29 e)-exp(nbre*-1))
028690: 2F 28 65 78 70 28 6E 62 72 65 29 2B 65 78 70 28 /(exp(nbre)+exp(
0286A0: 6E 62 72 65 2A 2D 31 29 29 0D 0A 20 20 20 20 20 nbre*-1))..
0286B0: 20 20 65 6C 73 65 20 20 20 69 66 20 66 5E 2E 76 else if f^.v
0286C0: 61 6C 65 75 72 3D 27 61 72 63 73 69 6E 27 20 74 aleur='arcsin' t
0286D0: 68 65 6E 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 hen begin..
0286E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0286F0: 20 20 20 20 20 20 20 20 69 66 20 6E 62 72 65 3D if nbre=
028700: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
028710: 22 00 00 00 02 09 4E E5 22 00 41 02 00 00 00 02 ".....N.".A.....
028720: 22 00 42 02 00 00 00 02 22 00 43 02 00 00 00 02 ".B.....".C.....
028730: 22 00 44 02 00 00 00 02 22 00 45 02 00 00 00 02 ".D.....".E.....
028740: 22 00 46 02 00 00 00 02 22 00 47 02 00 00 00 02 ".F.....".G.....
028750: 22 00 48 02 00 00 00 02 22 00 49 02 00 00 00 02 ".H.....".I.....
028760: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
028770: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
028780: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
028790: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0287A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0287B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0287C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0287D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0287E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
0287F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
028800: C3 E2 20 CD AB 43 6F 70 79 72 69 67 68 74 20 28 .. ..Copyright (
028810: 43 29 20 31 39 38 35 20 42 4F 52 4C 41 4E 44 20 C) 1985 BORLAND
028820: 49 6E 63 00 04 00 A1 42 00 00 00 00 00 00 00 00 Inc....B........
028830: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
028840: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
028850: 00 00 00 06 5A 65 6E 69 74 68 64 65 72 20 43 50 ....Zenithder CP
028860: 43 34 36 34 2F 36 36 34 50 18 00 00 1C 00 0D 0D C464/664P.......
028870: 1C 01 01 01 1D 03 03 1B 1B 1B D5 00 1C 01 00 00 ................
028880: 1C 00 17 17 1D 17 17 EF 9E CD BD 04 1B 59 00 00 .............Y..
028890: 00 00 00 00 00 00 00 00 00 00 00 01 20 20 04 03 ............ ..
0288A0: 00 00 02 1B 45 00 00 00 00 00 00 00 00 00 02 1B ....E...........
0288B0: 4C 00 00 00 02 1B 4D 00 00 00 00 00 02 1B 4B 00 L.....M.......K.
0288C0: 00 00 02 1B 71 00 00 00 02 1B 70 00 00 00 00 00 ....q.....p.....
0288D0: 7E B7 37 C8 23 F5 E5 7E CD E8 01 E1 F1 3D C8 18 ~.7.#..~.....=..
0288E0: F3 CD 00 02 0D 0A 00 C9 6F E5 CD A6 00 C9 FE 80 ........o.......
0288F0: DC 6B 02 D4 84 02 E6 7F 18 EE E5 21 EE 01 18 04 .k.........!....
028900: E5 21 E8 01 22 13 02 E1 E3 F5 C5 D5 7E 23 B7 28 .!..".......~#.(
028910: 07 E5 CD E8 01 E1 18 F4 D1 C1 F1 E3 C9 7D B4 C8 .............}..
028920: 3A 24 01 87 87 87 E3 E3 E3 E3 C5 01 D2 04 C1 3D :$.............=
028930: 20 F4 2B 18 E8 CD D0 01 D8 2A CE 01 18 DF F5 C5 .+......*......
028940: D5 E5 21 A8 01 CD 35 02 21 A2 01 CD D0 01 2A BA ..!...5.!.....*.
028950: 01 D4 1D 02 E1 D1 C1 F1 C9 F5 C5 D5 E5 21 B4 01 .............!..
028960: 18 E9 F5 C5 D5 E5 21 AE 01 18 E0 F5 3A E0 00 B7 ......!.....:...
028970: 28 10 C5 D5 E5 AF 32 E0 00 21 C8 01 CD 35 02 E1 (.....2..!...5..
028980: D1 C1 F1 C9 F5 3A E0 00 FE FF 28 F6 C5 D5 E5 3E .....:....(....>
028990: FF 32 E0 00 21 C2 01 18 E3 F5 C5 D5 E5 21 BC 01 .2..!........!..
0289A0: 18 DA F5 C5 D5 E5 E5 11 F0 00 21 8B 01 01 10 00 ..........!.....
0289B0: ED B0 D1 3A 9E 01 4F 3A 9C 01 82 D5 CD DC 02 D1 ...:..O:........
0289C0: 3A 9F 01 4F 3A 9D 01 83 CD DC 02 21 F0 00 CD D0 :..O:......!....
0289D0: 01 2A A0 01 CD 1D 02 E1 D1 C1 F1 C9 21 F0 00 06 .*..........!...
0289E0: 00 09 EB 21 9B 01 34 35 28 02 12 C9 1B 1B 21 0A ...!..45(.....!.
0289F0: 03 06 03 2B 0E 2F 0C 96 30 FC 86 F5 79 FE 30 28 ...+./..0...y.0(
028A00: 01 12 13 F1 10 ED C9 01 0A 64 21 6B 01 C3 35 02 .........d!k..5.
028A10: 21 7B 01 C3 35 02 11 03 00 CD 5F 03 E6 01 18 06 !{..5....._.....
028A20: 11 06 00 CD 5F 03 6F 26 00 C9 11 12 00 18 F4 11 ...._.o&........
028A30: 0C 00 18 08 11 0F 00 18 03 11 09 00 E1 C1 E5 3A ...............:
028A40: DD 00 B7 28 1A D5 C5 CD A0 00 7C B5 28 0F CD E1 ...(......|.(...
028A50: 03 FE 13 20 08 CD E1 03 FE 03 CA D4 20 C1 D1 2A ... ........ ..*
028A60: 01 00 19 E9 22 D2 00 78 32 DD 00 79 B7 28 0B 3E ...."..x2..y.(.>
028A70: C3 32 38 00 21 FB 1F 22 39 00 21 A5 03 11 A0 00 .28.!.."9.!.....
028A80: 01 18 00 ED B0 21 BD 03 11 B8 00 01 0C 00 ED B0 .....!..........
028A90: AF 6F 67 32 D0 00 22 D4 00 22 D6 00 3E 7E 32 D1 .og2..".."..>~2.
028AA0: 00 32 E0 00 C9 C3 16 03 C3 20 03 C3 39 03 C3 2F .2....... ..9../
028AB0: 03 C3 34 03 C3 2A 03 C3 39 03 C3 20 03 C1 00 82 ..4..*..9.. ....
028AC0: 00 43 00 C4 00 C5 00 C1 00 C5 D5 E5 DD E5 FD E5 .C..............
028AD0: F5 6F 26 00 E5 CD A6 00 F1 FD E1 DD E1 E1 D1 C1 .o&.............
028AE0: C9 C5 D5 E5 DD E5 FD E5 CD A3 00 7D 18 EB 0E FF .........£.}....
028AF0: 18 0C 0E 00 ED 5B D2 00 13 1A FE 20 28 FA 21 65 .....[..... (.!e
028B00: 00 06 03 CD 7B 04 1A CD A6 04 FE 41 38 12 FE 51 ....{......A8..Q
028B10: 30 0E 47 13 1A FE 3A 20 06 78 D6 40 13 18 02 1B 0.G...: .x.@....
028B20: AF 21 5C 00 77 23 0C 0D 28 19 1A CD 82 04 20 13 .!\.w#..(..... .
028B30: FE 3F 28 0F FE 2A 28 0B FE 2E 28 07 06 0B CD 77 .?(..*(...(....w
028B40: 04 18 10 06 08 CD 5E 04 1A FE 2E 20 06 13 06 03 ......^.... ....
028B50: CD 5E 04 21 68 00 06 18 36 00 23 10 FB C9 1A 0C .^.!h...6.#.....
028B60: 0D 28 08 FE 3F 28 09 FE 2A 28 0B CD 82 04 28 0B .(..?(..*(....(.
028B70: 77 23 13 10 E9 C9 13 3E 3F 18 02 3E 20 77 23 10 w#.....>?..> w#.
028B80: FC C9 CD A6 04 FE 20 38 0D E5 C5 21 98 04 01 0E ...... 8...!....
028B90: 00 ED B1 C1 E1 C9 BF C9 20 2E 2C 3B 3A 3D 3F 2A ........ .,;:=?*
028BA0: 5B 5D 3C 3E 7B 7D FE 61 D8 FE 7B D0 D6 20 C9 7C []<>{}.a..{.. .|
028BB0: CD B4 04 7D F5 1F 1F 1F 1F CD BD 04 F1 E6 0F C6 ...}............
028BC0: 90 27 CE 40 27 C3 C9 03 AF 37 CB 7C C0 7C B7 7D .'.@'....7.|.|.}
028BD0: C8 3E FF C9 32 D8 00 C5 CD AF 1E C1 2A 06 00 B7 .>..2.......*...
028BE0: ED 42 DA A8 20 EB D1 F9 01 00 FC 09 22 C6 00 AF .B.. ......."...
028BF0: 6F 67 22 CE 00 32 DC 00 3E C3 32 D9 00 21 DE 20 og"..2..>.2..!.
028C00: 22 DA 00 EB 22 CC 00 E9 E5 2A C6 00 B7 ED 42 22 "..."....*....B"
028C10: C6 00 ED 5B C4 00 B7 ED 52 19 EB E1 DA 75 1D ED ...[....R....u..
028C20: B0 C9 2A C6 00 ED B0 22 C6 00 D9 C9 5E 23 56 23 ..*...."....^#V#
028C30: D5 5E 23 56 23 4E 23 46 E1 C9 DD E1 EB 1A 4F 06 .^#V#N#F......O.
028C40: 00 2F 6F 26 FF 39 F9 EB 03 ED B0 DD E9 D1 1A 4F ./o&.9.........O
028C50: 06 00 2F 6F 26 FF 39 F9 EB 03 ED B0 E9 DD E1 EB ../o&.9.........
028C60: 21 E0 FF 39 F9 EB C5 04 05 28 05 AF 12 13 10 FC !..9.....(......
028C70: ED B0 C1 3E 20 90 91 28 06 47 AF 12 13 10 FC DD ...> ..(.G......
028C80: E9 DD E1 21 E0 FF 39 F9 06 20 AF 77 23 10 FC DD ...!..9.. .w#...
028C90: E9 DD E1 45 CD BA 05 B6 77 DD E9 DD E1 D1 7D 93 ...E....w.....}.
028CA0: 38 F7 3C 4F 43 CD BA 05 5F 41 AF B3 CB 23 30 06 8.<OC..._A...#0.
028CB0: B6 77 23 AF 1E 01 10 F3 18 DD 78 E6 F8 0F 0F 0F .w#.......x.....
028CC0: C6 02 6F 26 00 39 78 E6 07 3C 47 AF 37 17 10 FD ..o&.9x..<G.7...
028CD0: C9 E5 D9 EB E3 73 23 72 23 D1 73 23 72 23 71 23 .....s#r#.s#r#q#
028CE0: 70 C9 DD E1 78 EB 21 00 00 44 39 4E E5 09 23 E3 p...x.!..D9N..#.
028CF0: B9 38 01 79 12 13 23 B7 28 03 4F ED B0 E1 F9 DD .8.y..#.(.O.....
028D00: E9 DD E1 78 21 00 00 44 39 4E E5 09 23 5E 23 56 ...x!..D9N..#^#V
028D10: 18 DC DD E1 EB 68 26 00 44 39 ED B0 21 20 00 39 .....h&.D9..! .9
028D20: F9 DD E9 DD E1 21 20 00 39 5E 23 56 68 26 00 44 .....! .9^#Vh&.D
028D30: 39 ED B0 21 22 00 18 E7 DD E1 EB 78 2F 6F 26 FF 9..!"......x/o&.
028D40: 39 F9 70 23 48 06 00 EB ED B0 DD E9 B7 ED 52 19 9.p#H.........R.
028D50: D8 3E 90 C3 27 20 B7 ED 52 B7 ED 42 30 03 09 19 .>..' ..R..B0...
028D60: C9 3E 91 C3 27 20 B7 ED 52 EB 13 EA 71 06 F0 18 .>..' ..R...q...
028D70: 01 F8 11 00 00 C9 D5 EB B7 ED 52 EB E1 18 EB B7 ..........R.....
028D80: ED 52 21 01 00 C8 2B C9 CD DF 0B 18 F5 CD B0 09 .R!...+.........
028D90: 18 F0 B7 ED 52 21 01 00 C0 2B C9 CD DF 0B 18 F5 ....R!...+......
028DA0: CD B0 09 18 F0 CD 72 07 21 01 00 D0 2B C9 CD DF ......r.!...+...
028DB0: 0B 18 F5 CD B0 09 18 F0 CD 72 07 21 01 00 C8 D8 .........r.!....
028DC0: 2B C9 CD DF 0B 18 F4 CD B0 09 18 EF CD 72 07 21 +............r.!
028DD0: 00 00 C8 D8 23 C9 CD DF 0B 18 F4 CD B0 09 18 EF ....#...........
028DE0: CD 72 07 21 01 00 D8 2B C9 CD DF 0B 18 F5 CD B0 .r.!...+........
028DF0: 09 18 F0 54 5D 4B 42 EB 21 00 00 7A B7 3E 10 20 ...T]KB.!..z.>.
028E00: 03 53 3E 08 29 EB 29 EB 30 01 09 3D 20 F6 C9 7C .S>.).).0..= ..|
028E10: B5 CA 03 0A 7C AA F5 CD 80 07 EB CD 80 07 EB 44 ....|..........D
028E20: 4D AF 67 6F 3E 11 ED 6A ED 42 30 02 09 37 3F CB M.go>..j.B0..7?.
028E30: 13 CB 12 3D 20 F0 EB F1 F0 18 48 E5 CD 92 07 CB ...= .....H.....
028E40: 3C CB 1D D1 EB CD 0F 07 EB CB 7A C8 18 35 CD 61 <.........z..5.a
028E50: 07 C8 29 10 FD C9 CD 61 07 C8 CB 3C CB 1D 10 FA ..)....a...<....
028E60: C9 EB 7A B7 20 08 7B FE 10 30 03 47 B7 C9 AF 67 ..z. .{..0.G...g
028E70: 6F C9 EB 7C AA 7C FA 7E 07 BA C0 7D BB C9 17 C9 o..|.|.~...}....
028E80: CB 7C C8 7C 2F 67 7D 2F 6F 23 C9 7D E6 01 6F 26 .|.|/g}/o#.}..o&
028E90: 00 C9 ED 4B CA 00 ED 5B C8 00 C5 D5 78 41 4A 53 ...K...[....xAJS
028EA0: 1E 00 1F CB 18 CB 19 CB 1A CB 1B E1 19 EB E1 ED ................
028EB0: 4A 44 4D 21 E9 62 19 22 C8 00 EB 21 19 36 ED 4A JDM!.b."...!.6.J
028EC0: 22 CA 00 44 4D C9 06 00 11 10 27 CD E2 07 11 E8 "..DM.....'.....
028ED0: 03 CD E2 07 11 64 00 CD E2 07 1E 0A CD E2 07 7D .....d.........}
028EE0: 18 0D AF 3C ED 52 30 FB 19 04 3D 20 02 05 C8 C6 ...<.R0...= ....
028EF0: 30 DD 77 00 DD 23 C9 DD 7E 00 D6 24 4F 21 00 00 0.w..#..~..$O!..
028F00: 20 02 DD 23 DD 7E 00 CD A6 04 D6 30 38 29 FE 0A ..#.~.....08)..
028F10: 38 0E 0C 0D 20 21 D6 07 FE 0A 38 1B FE 10 30 17 8... !....8...0.
028F20: 54 5D 29 D8 29 D8 0C 0D 20 02 54 5D 19 D8 29 D8 T]).)... .T]..).
028F30: 5F 16 00 19 D8 18 CB 79 B7 C8 7C 87 C9 DD E1 E1 _......y..|.....
028F40: E5 7D 26 00 23 39 4E 81 38 1C 77 EB 21 00 00 44 .}&.#9N.8.w.!..D
028F50: ED 42 39 F9 EB E5 03 ED B0 EB E1 2B 1B 4F 03 ED .B9........+.O..
028F60: B8 EB 23 F9 DD E9 3E 10 C3 29 20 DD E1 CD C8 04 ..#...>..) .....
028F70: 57 E1 CD DD 09 5F E1 E5 7D 93 38 1A 14 15 28 16 W...._..}.8...(.
028F80: BA 38 16 4A 06 00 60 39 7B 82 54 5D 3D 6F 60 39 .8.J..`9{.T]=o`9
028F90: 79 ED B8 EB 18 09 AF 18 03 3C 6B 2D 26 00 39 77 y........<k-&.9w
028FA0: F9 DD E9 DD E1 E1 E5 7D 26 00 23 39 F9 6F 26 00 .......}&.#9.o&.
028FB0: DD E9 DD E1 21 00 00 54 39 5E 4B 23 E5 19 5E 43 ....!..T9^K#..^C
028FC0: 23 E5 19 E5 FD E1 D1 E1 79 90 38 10 3C 4F C5 D5 #.......y.8.<O..
028FD0: E5 1A BE 28 0C E1 D1 C1 23 0D 20 F2 21 00 00 18 ...(....#. .!...
028FE0: 0E 23 13 10 EC D1 E1 C1 21 00 00 39 EB ED 52 FD .#......!..9..R.
028FF0: F9 DD E9 DD E1 CD C8 04 4F E1 CD DD 09 5F E1 7E ........O...._.~
029000: 93 38 1B 0C 0D 28 17 91 38 12 F5 7E 91 77 06 00 .8...(..8..~.w..
029010: 50 19 54 5D 09 F1 3C 4F ED B0 18 02 1D 73 DD E9 P.T]..<O.....s..
029020: DD E1 CD DD 09 4F D1 ED 53 E8 00 21 00 00 39 1A .....O..S..!..9.
029030: F5 86 38 03 B8 38 01 78 12 F1 57 5E 91 38 2F 3C ..8..8.x..W^.8/<
029040: 6F 7A 83 38 04 B8 7D 38 08 78 93 38 26 91 38 23 oz.8..}8.x.8&.8#
029050: 3C B7 28 1F C5 D5 2A E8 00 5F 1D 16 00 42 19 09 <.(...*.._...B..
029060: D1 D5 E5 50 19 EB E1 4F ED B8 D1 C1 18 05 7A 3C ...P...O......z<
029070: 28 19 4F 78 91 3C BB 38 01 7B B7 28 0E 2A E8 00 (.Ox.<.8.{.(.*..
029080: 06 00 09 EB 21 01 00 39 4F ED B0 21 00 00 54 39 ....!..9O..!..T9
029090: 5E 13 19 F9 DD E9 DD E1 E1 2D C2 66 08 6C 26 00 ^........-.f.l&.
0290A0: DD E9 21 02 00 54 39 5E 13 19 7E 36 01 23 77 C9 ..!..T9^..~6.#w.
0290B0: 21 04 00 54 39 5E 4B 23 E5 19 5E 43 23 E5 19 E5 !..T9^K#..^C#...
0290C0: FD E1 D1 E1 AF B8 28 04 B9 20 08 78 B9 E1 D1 FD ......(.. .x....
0290D0: F9 D5 E9 1A BE 20 F6 23 13 05 0D 18 E7 7C B7 20 ..... .#.....|.
0290E0: 03 7D B7 C0 3E 11 C3 29 20 CD 0D 0A D0 3E 01 C3 .}..>..) ....>..
0290F0: 27 20 CD 81 0A 18 F5 CD AC 0F CD 97 0A 18 ED D9 ' ..............
029100: 7D B7 D9 3E 02 CA 27 20 CD F5 0A 18 DF D9 CB 78 }..>..' .......x
029110: D9 C2 88 0A D9 7D B7 D9 C8 D9 C5 D5 E5 D9 7D B7 .....}........}.
029120: 20 05 D9 CB B8 18 54 C5 CB F8 AF 08 D9 CB F8 7D .....T........}
029130: D9 95 28 13 30 06 ED 44 08 3D 08 D9 CD 7A 0B 2C ..(.0..D.=...z.,
029140: 3D 20 F9 08 28 01 D9 F1 E6 80 20 0F CD 92 0B 30 = ..(..... ....0
029150: 25 CD 7B 0B B7 2C 20 1E 37 18 20 CD C6 0B 3F F5 %.{.., .7. ...?.
029160: 28 10 38 01 D9 CD AC 0B CB 78 20 09 CD 86 0B 2D (.8......x ....-
029170: 20 F6 CD 72 0B F1 38 02 CB B8 B7 D9 E1 D1 C1 D9 ..r..8.........
029180: C9 D9 CB 78 D9 C2 14 0A CD 8F 0A CD 14 0A D8 2C ...x...........,
029190: 2D C8 78 EE 80 47 C9 D9 7D B7 D9 CA 72 0B 7D B7 -.x..G..}...r.}.
0291A0: C8 D9 85 D9 CD 4D 0B C5 D5 E5 DD 39 CD 72 0B D9 .....M.....9.r..
0291B0: 2E 05 D9 3E 08 DD 23 DD 6E 00 08 CB 1D 30 03 CD ...>..#.n....0..
0291C0: 92 0B CD 7B 0B 08 3D 20 F1 D9 2D D9 20 E5 DD 6E ...{..= ..-. ..n
0291D0: FB CB 78 20 09 08 CD 87 0B 2C 2D 28 01 2D F1 F1 ..x .....,-(.-..
0291E0: F1 B7 08 F1 D9 C1 E1 D9 DD E1 CB B8 B0 47 2C 2D .............G,-
0291F0: CC 72 0B 08 C9 7D B7 C8 D9 95 D9 3F CD 4D 0B E5 .r...}.....?.M..
029200: E5 E5 DD 39 D9 2E 05 D9 3E 08 08 CD C6 0B 38 03 ...9....>.....8.
029210: CD AC 0B 3F CB 15 08 3D 20 0C DD 75 05 DD 2B D9 ...?...= ..u..+.
029220: 2D D9 28 0E 3E 08 CD 86 0B 30 DF 08 CD AC 0B B7 -.(.>....0......
029230: 18 E1 CD 86 0B 38 04 CD C6 0B 3F E1 D1 C1 CB 78 .....8....?....x
029240: 20 05 CD 87 0B 18 9A 2C 20 97 37 18 95 38 06 C6 ......, .7..8..
029250: 80 38 06 18 1B C6 80 38 17 6F DD E3 D9 E5 C5 78 .8.....8.o.....x
029260: CB F8 D9 A8 E6 80 F5 CB F8 DD E5 DD 21 00 00 C9 ............!...
029270: E1 D8 AF 6F 47 4F 57 5F 67 C9 B7 CB 18 CB 19 CB ...oGOW_g.......
029280: 1A CB 1B CB 1C C9 B7 CB 14 CB 13 CB 12 CB 11 CB ................
029290: 10 C9 7C D9 84 D9 67 7B D9 8B D9 5F 7A D9 8A D9 ..|...g{..._z...
0292A0: 57 79 D9 89 D9 4F 78 D9 88 D9 47 C9 7C D9 94 D9 Wy...Ox...G.|...
0292B0: 67 7B D9 9B D9 5F 7A D9 9A D9 57 79 D9 99 D9 4F g{..._z...Wy...O
0292C0: 78 D9 98 D9 47 C9 78 D9 B8 D9 C0 79 D9 B9 D9 C0 x...G.x....y....
0292D0: 7A D9 BA D9 C0 7B D9 BB D9 C0 7C D9 BC D9 C9 D9 z....{....|.....
0292E0: 78 D9 A8 F2 E9 0B 78 17 C9 CB 78 28 06 CD F3 0B x.....x...x(....
0292F0: C8 3F C9 7D D9 BD D9 C0 B7 C8 C3 C6 0B 7D D6 81 .?.}.........}..
029300: DA 72 0B 3C FE 28 D0 D9 C5 D5 E5 08 CD 72 0B 08 .r.<.(.......r..
029310: 37 CD 7B 0B 3D 20 F9 D9 7C D9 A4 D9 67 7B D9 A3 7.{.= ..|...g{.£
029320: D9 5F 7A D9 A2 D9 57 79 D9 A1 D9 4F 78 D9 A0 D9 ._z...Wy...Ox...
029330: 47 C3 7B 0A D9 C5 D5 E5 D9 CD AC 0F D9 CD FD 0B G.{.............
029340: D9 CD 81 0A 18 EB 7D B7 C8 CB 78 3E 03 C2 27 20 ......}...x>..'
029350: CD AC 0F 7D C6 80 CB 2F C6 80 6F D6 14 F5 D9 C5 ...}.../..o.....
029360: D5 E5 CD F5 0A CD 0D 0A 2D C5 D5 E5 CD 81 0A 7D ........-......}
029370: E1 D1 C1 D9 E1 D1 C1 E3 BC E3 30 E3 F1 D9 C9 D9 ..........0.....
029380: CD 8E 0F 2D CD 81 0A D9 CD 8E 0F 2C D9 7D FE 6C ...-.......,.}.l
029390: D8 C5 CB B8 CD DF 0B C1 38 09 CD F5 0A CD 34 0C ........8.....4.
0293A0: CD 97 0A CB 78 28 03 CD 0D 0A D9 2D D9 CD DF 0B ....x(.....-....
0293B0: F5 38 03 CD 81 0A D9 2D D9 CD DF 0B 38 05 D9 2C .8.....-....8..,
0293C0: CD 81 0A 7D FE 6C 38 3B D9 01 AA 2A 11 AA AA 21 ...}.l8;...*...!
0293D0: 7F AA CD 97 0A DD E5 DD 21 07 0D 3E 05 CD 34 0F ........!..>..4.
0293E0: DD E1 CD AC 0F CD 97 0A CD 97 0A C5 D5 E5 D9 CD ................
0293F0: AC 0F 2D 2D D9 2D CD 0D 0A D9 E1 D1 C1 D9 CD 81 ..--.-..........
029400: 0A 2C 2C F1 2C 2D C8 D8 78 EE 80 47 C9 67 AA 3F .,,.,-..x..G.g.?
029410: 2B 32 D7 6E B6 2A 1D EF 38 74 0D D0 00 0D D0 7A +2.n.*..8t.....z
029420: 88 88 88 88 08 7E AB AA AA AA AA 2C 2D 3E 04 CA .....~.....,->..
029430: 27 20 CB 78 C2 27 20 D9 CD 98 0F D9 7D 2E 81 95 ' .x.' .....}...
029440: F5 CD F5 0A D9 CD 86 0F D9 CD 81 0A C5 D5 E5 D9 ................
029450: 2C CD 0D 0A D9 E1 D1 C1 CD F5 0A DD E5 DD 21 8C ,.............!.
029460: 0D 3E 06 CD 34 0F DD E1 2C D9 CD A2 0F 2D D9 CD .>..4...,....-..
029470: 0D 0A F1 C5 D5 E5 6F 26 00 30 01 25 CD 08 10 D9 ......o&.0.%....
029480: 2C CD 97 0A D9 E1 D1 C1 CD 0D 0A 7D FE 67 DA 72 ,..........}.g.r
029490: 0B C9 7D 8A 9D D8 89 1D 7D E9 A2 8B 2E 3A 7D 8E ..}.....}....:}.
0294A0: E3 38 8E 63 7E 49 92 24 49 12 7E CD CC CC CC 4C .8.c~I.$I.~....L
0294B0: 7F AB AA AA AA 2A D9 CD A2 0F D9 B7 CB 78 F5 CB .....*.......x..
0294C0: B8 CD F5 0A 7D FE 88 30 47 C5 D5 E5 2C CD D0 0F ....}..0G...,...
0294D0: E5 CB 3C CB 1D 7D E1 F5 CD 08 10 2C 2D 28 01 2D ..<..}.....,-(.-
0294E0: D9 F1 E1 D1 C1 F5 CD 81 0A DD E5 DD 21 10 0E 3E ............!..>
0294F0: 08 CD 49 0F DD E1 F1 30 0A F5 D9 CD 98 0F D9 CD ..I....0........
029500: 97 0A F1 85 6F 38 09 F1 C8 D9 CD 86 0F C3 F5 0A ....o8..........
029510: E1 3E 01 C3 27 20 6D 2E 1D 11 60 31 70 46 2C FE .>..' m...`1pF,.
029520: E5 7F 74 36 7C 89 84 21 77 53 3C FF C3 2E 7A D2 ..t6|..!wS<...z.
029530: 7D 5B 95 1D 7C 25 B8 46 58 63 7E 16 FC EF FD 75 }[..|%.FXc~....u
029540: 80 D2 F7 17 72 31 7D B7 C8 DD E5 D9 CD 86 0F D9 ....r1}.........
029550: AF CB 78 28 03 3C CB B8 F5 CD DF 0B 38 08 D9 CD ..x(.<......8...
029560: F5 0A F1 CB FF F5 D9 01 CF 06 11 8E E9 21 7E 4A .............!~J
029570: D9 CD DF 0B 30 05 CD 2E 0F 18 4F DD 21 CE 0E 3E ....0.....O.!..>
029580: 02 08 D9 11 12 00 DD 19 CD 73 0F D9 CD DF 0B 38 .........s.....8
029590: 0B 08 3D 20 EC D9 11 0C 00 DD 19 D9 D9 CD 6E 0F ..= ..........n.
0295A0: CB F8 CD 0D 0A C5 D5 E5 CD 73 0F CD 97 0A D9 CD .........s......
0295B0: 86 0F CD 0D 0A D9 E1 D1 C1 CD F5 0A DD E5 CD 2E ................
0295C0: 0F DD E1 D9 CD 6E 0F CD 0D 0A F1 17 30 0A F5 D9 .....n......0...
0295D0: CD 8E 0F 2D CD 81 0A F1 DD E1 CB 4F C8 CB F8 C9 ...-.......O....
0295E0: 7F E7 CF CC 13 54 7F F6 F4 A2 30 09 7F 6A C1 91 .....T....0..j..
0295F0: 0A 06 80 B5 9E 8A 6F 44 80 82 2C 3A CD 13 80 6A ......oD..,:...j
029600: C1 91 0A 06 81 00 00 00 00 00 80 21 A2 DA 0F 49 ...........!...I
029610: 7D E8 A2 8B 2E BA 7D 8E E3 38 8E 63 7E 49 92 24 }.....}..8.c~I.$
029620: 49 92 7E CD CC CC CC 4C 7F AB AA AA AA AA DD 21 I.~....L.......!
029630: 0A 0F 3E 05 C5 D5 E5 F5 CD AC 0F CD 97 0A F1 CD ..>.............
029640: 49 0F D9 E1 D1 C1 C3 97 0A F5 D9 CD 6E 0F 18 10 I...........n...
029650: F5 D9 C5 D5 E5 CD 6E 0F CD 0D 0A D9 E1 D1 C1 D9 ......n.........
029660: CD 97 0A F1 3D 20 E9 D9 CD 86 0F C3 0D 0A 11 06 ....= ..........
029670: 00 DD 19 DD 6E 00 DD 66 01 DD 5E 02 DD 56 03 DD ....n..f..^..V..
029680: 4E 04 DD 46 05 C9 21 81 00 44 4C 54 5C C9 01 0F N..F..!..DLT\...
029690: 49 11 A2 DA 21 82 21 C9 01 04 35 11 33 F3 21 81 I...!.!...5.3.!.
0296A0: FA C9 01 72 31 11 F7 17 21 80 D2 C9 C5 D5 E5 D9 ...r1...!.......
0296B0: E1 D1 C1 C9 CD 92 07 21 80 00 3E 20 CB 78 20 0D .......!..> .x .
0296C0: CB 23 CB 12 CB 11 CB 10 2D 3D 20 F0 6F CB B8 C9 .#......-= .o...
0296D0: CB 78 D9 CD 86 0F 28 02 CB F8 2D CD 0D 0A B7 CB .x....(...-.....
0296E0: 7D 28 1C CB 78 08 CB F8 3E 8F BD 38 16 28 06 CD }(..x...>..8.(..
0296F0: 7A 0B 2C 18 F3 CD 7A 0B 08 60 69 C8 C3 83 07 21 z.,...z..`i....!
029700: 00 00 C9 3E 92 C3 27 20 7C B5 CA 72 0B CB 7C 08 ...>..' |..r..|.
029710: CD 80 07 3E 90 29 3D CB 7C 28 FA 44 4D 11 00 00 ...>.)=.|(.DM...
029720: 62 6F 08 C0 CB B8 C9 CD C8 04 EB 1E 00 38 04 FE bo...........8..
029730: 19 38 18 1D CD C8 04 D9 CB 78 D9 16 07 28 01 14 .8.......x...(..
029740: 92 30 01 AF FE 09 38 02 3E 09 3C 57 D5 D9 FD 21 .0....8.>.<W...!
029750: 5D 00 DD E5 CD EB 10 DD E1 D1 4F 7A 3C CB 7B 20 ].........Oz<.{
029760: 10 81 F2 6B 10 FD 36 00 00 18 0B FE 0C 38 02 3E ...k..6......8.>
029770: 0B D5 CD 80 11 D1 CB 78 28 05 3E 2D CD E5 10 CB .......x(.>-....
029780: 7B 28 03 61 0E 00 CB 79 28 05 CD E3 10 18 07 CD {(.a...y(.......
029790: D9 10 0D F2 8F 10 7A B7 28 17 3E 2E CD E5 10 0C ......z.(.>.....
0297A0: 28 06 CD E3 10 15 20 F7 15 FA B1 10 CD D9 10 18 (..... .........
0297B0: F7 CB 7B C8 3E 45 CD E5 10 3E 2B CB 7C 28 06 7C ..{.>E...>+.|(.|
0297C0: ED 44 67 3E 2D CD E5 10 7C 06 2F 04 D6 0A 30 FB .Dg>-...|./...0.
0297D0: C6 3A DD 70 00 DD 23 18 0C FD 7E 00 FD 23 B7 20 .:.p..#...~..#.
0297E0: 04 FD 2B 3E 30 DD 77 00 DD 23 C9 FD E5 2C 2D 20 ..+>0.w..#...,-
0297F0: 0E 06 0C FD 36 00 30 FD 23 10 F8 AF C3 7D 11 C5 ....6.0.#....}..
029800: CB B8 7D D9 D6 80 6F 9F 67 11 4D 00 CD F5 06 11 ..}...o.g.M.....
029810: 05 00 19 7C FE D9 20 01 3C FD 77 00 ED 44 CD 40 ...|.. .<.w..D.@
029820: 12 7D FE 81 30 06 CD B3 12 FD 35 00 CB F8 3E 84 .}..0.....5...>.
029830: 95 2E 00 28 08 CD 7A 0B CB 1D 3D 20 F8 FD 7E 00 ...(..z...= ..~.
029840: F5 3E 0C 08 78 1F 1F 1F 1F E6 0F C6 30 FD 77 00 .>..x.......0.w.
029850: FD 23 78 E6 0F 47 C5 D5 E5 CB 25 CD 87 0B CB 25 .#x..G....%....%
029860: CD 87 0B EB E3 19 D1 E3 ED 5A EB E1 E3 ED 4A 44 .........Z....JD
029870: 4D E1 CB 25 CD 87 0B 08 3D 20 C8 F1 C1 FD E1 C9 M..%....= ......
029880: FD E5 E1 5F 16 00 19 7E 36 00 FE 35 D8 1D FA 9C ..._...~6..5....
029890: 11 2B 7E 3C 77 FE 3A D8 36 00 18 F1 36 31 23 36 .+~<w.:.6...61#6
0298A0: 00 0C C9 D9 01 00 00 D9 CD 72 0B DD 7E 00 CD A6 .........r..~...
0298B0: 04 FE 2E 20 0C D9 CB 70 37 C0 CB F0 D9 DD 23 18 ... ...p7.....#.
0298C0: EA FE 45 28 21 CD 39 12 30 54 08 CD B3 12 D8 08 ..E(!.9.0T......
0298D0: D9 C5 6F 26 00 CD 08 10 CD E9 09 D9 C1 D8 CB 70 ..o&...........p
0298E0: 28 01 0D D9 18 D7 CD 1E 12 D8 D9 CB E0 DD 23 DD (.............#.
0298F0: 7E 00 FE 2B 28 06 FE 2D 20 04 CB E8 DD 23 CD 36 ~..+(..- ....#.6
029900: 12 3F D8 4F DD 23 CD 36 12 30 0A DD 23 57 79 87 .?.O.#.6.0..#Wy.
029910: 87 81 87 82 4F CB 68 28 04 79 ED 44 4F D9 D9 79 ....O.h(.y.DO..y
029920: C6 80 FE 5A D8 FE A6 3F D8 C5 DD E5 79 CD 40 12 ...Z...?....y.@.
029930: DD E1 D9 C1 D9 C9 DD 7E 00 D6 30 3F D0 FE 0A C9 .......~..0?....
029940: F5 B7 F2 47 12 ED 44 F5 CB 3F CB 3F 3C 21 FA FF ...G..D..?.?<!..
029950: 11 06 00 19 3D 20 FC EB DD 21 77 12 DD 19 CD 73 ....= ...!w....s
029960: 0F F1 E6 03 28 08 F5 CD B3 12 F1 3D 20 F8 F1 B7 ....(......= ...
029970: F2 97 0A D9 C3 F5 0A 81 00 00 00 00 00 8E 00 00 ................
029980: 00 40 1C 9B 00 00 20 BC 3E A8 00 10 A5 D4 68 B6 .@.... .>.....h.
029990: 04 BF C9 1B 0E C3 AC C5 EB 78 2D D0 CD CE 1B C2 .........x-.....
0299A0: 53 DE F9 78 39 3F 01 EB 2B A8 AD C5 1D F8 C9 7B S..x9?..+......{
0299B0: CE 97 40 7D B7 C8 CB F8 C5 D5 7C CD 7A 0B CD 7A ..@}......|.z..z
0299C0: 0B 84 67 E3 ED 5A EB E1 E3 ED 4A 44 4D E1 30 06 ..g..Z....JDM.0.
0299D0: CD 7B 0B 2C 37 C8 7D C6 03 6F CB B8 C9 0E 01 18 .{.,7.}..o......
0299E0: 02 0E 00 CD 3F 13 1A BE 20 08 23 13 10 F8 79 EE ....?... .#...y.
0299F0: 01 4F 21 40 00 39 F9 69 26 00 DD E9 0E 01 18 02 .O!@.9.i&.......
029A00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
029A10: 23 00 00 00 02 09 4E E5 23 00 41 02 00 00 00 02 #.....N.#.A.....
029A20: 23 00 42 02 00 00 00 02 23 00 43 02 00 00 00 02 #.B.....#.C.....
029A30: 23 00 44 02 00 00 00 02 23 00 45 02 00 00 00 02 #.D.....#.E.....
029A40: 23 00 46 02 00 00 00 02 23 00 47 02 00 00 00 02 #.F.....#.G.....
029A50: 23 00 48 02 00 00 00 02 23 00 49 02 00 00 00 02 #.H.....#.I.....
029A60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029A70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029A80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029A90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029AA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029AB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029AC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029AD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029AE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029AF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
029B00: 0E 00 CD 3F 13 0D 20 01 EB 0E 00 1A B6 BE 20 E2 ...?.. ....... .
029B10: 23 13 10 F7 0E 01 18 DA CD 3F 13 1A B6 77 23 13 #........?...w#.
029B20: 10 F9 EB F9 DD E9 CD 3F 13 1A 2F A6 77 23 13 10 .......?../.w#..
029B30: F8 18 EF CD 3F 13 1A A6 77 23 13 10 F9 18 E3 FD ....?...w#......
029B40: E1 DD E1 21 00 00 39 EB 21 20 00 45 39 FD E9 DD ...!..9.! .E9...
029B50: E1 21 21 00 39 7E B7 28 03 AF 18 06 2B 46 CD BA .!!.9~.(....+F..
029B60: 05 A6 21 22 00 39 F9 21 00 00 28 01 23 DD E9 3E ..!".9.!..(.#..>
029B70: AF 32 E8 00 FD E1 2A D2 00 06 10 CD E2 05 AF 12 .2....*.........
029B80: E1 22 E2 00 FD E5 7C B7 20 06 3E 22 32 D0 00 C9 ."....|. .>"2...
029B90: 3A E8 00 B7 28 0A CD B6 13 20 05 2A E2 00 77 C9 :...(.... .*..w.
029BA0: CD F2 03 2A E2 00 36 00 11 0C 00 19 EB 21 5C 00 ...*..6......!\.
029BB0: 01 24 00 ED B0 C9 06 06 21 E6 13 C5 E5 06 03 ED .$......!.......
029BC0: 5B D2 00 13 1A FE 20 28 FA 1A CD A6 04 96 28 0A [..... (......(.
029BD0: E1 C1 11 04 00 19 10 E3 B7 C9 23 13 10 EB C1 C1 ..........#.....
029BE0: 1A FE 3A C0 7E C9 43 4F 4E C1 54 52 4D C1 4B 42 ..:.~.CON.TRM.KB
029BF0: 44 82 4C 53 54 43 41 55 58 C4 55 53 52 C5 3E AF D.LSTCAUX.USR.>.
029C00: 32 E8 00 CD 69 14 3A D0 00 B7 C0 2A E2 00 CB AE 2...i.:....*....
029C10: 7E E6 0F C0 CD 30 14 3A D0 00 B7 C0 2A E2 00 3A ~....0.:....*..:
029C20: E8 00 B7 01 80 80 28 03 01 40 00 71 23 23 70 C9 ......(..@.q##p.
029C30: CD 5A 14 2A E2 00 11 0C 00 19 EB 3A E8 00 B7 01 .Z.*.......:....
029C40: 0F 01 28 0A D5 0E 13 CD 05 00 D1 01 16 F1 C5 CD ..(.............
029C50: 05 00 C1 3C C0 78 32 D0 00 C9 2A E2 00 11 18 00 ...<.x2...*.....
029C60: 19 06 18 36 00 23 10 FB C9 22 E2 00 7E E6 0F C0 ...6.#..."..~...
029C70: CB 76 28 0A 3E 1A CD C6 16 CD 0C 17 18 03 CB 7E .v(.>..........~
029C80: C8 2A E2 00 E5 11 0C 00 19 EB 0E 10 CD 05 00 E1 .*..............
029C90: 3C 20 05 3E FF 32 D0 00 36 00 C9 E3 22 E4 00 E3 < .>.2..6..."...
029CA0: E5 21 C2 00 22 E2 00 E1 C9 E3 22 E4 00 E3 22 E2 .!.."....."...".
029CB0: 00 CB 7E C0 3E 02 32 D0 00 C9 E3 22 E4 00 E3 22 ..~.>.2...."..."
029CC0: E2 00 CB 76 C0 3E 03 32 D0 00 C9 3E AF E3 22 E4 ...v.>.2...>..".
029CD0: 00 E3 E5 21 C2 00 22 E2 00 CB AE F5 CD E8 14 F1 ...!..".........
029CE0: B7 28 03 CD E1 01 E1 C9 06 00 21 D1 00 7E FE 7F .(........!..~..
029CF0: 38 02 3E 7E 4F 36 7E 2A D2 00 22 D4 00 16 00 CD 8.>~O6~*..".....
029D00: E1 03 77 1E 01 FE 08 28 36 FE 7F 28 32 1D FE 18 ..w....(6..(2...
029D10: 28 2D FE 1B 28 29 FE 1A 28 36 FE 0D 28 38 FE 20 (-..()..(6..(8.
029D20: 30 11 FE 03 20 D9 3A DD 00 B7 28 D3 DD 2A E4 00 0... .:...(..*..
029D30: C3 16 20 79 BA 28 C8 7E 14 23 CD C9 03 18 C0 15 .. y.(.~.#......
029D40: FA FD 14 2B CD 00 02 08 20 08 00 1D 28 B1 18 EF ...+.... ...(...
029D50: 04 05 28 AB 18 04 04 05 20 04 36 1A 18 08 CD E1 ..(..... .6.....
029D60: 01 36 0D 23 36 0A 23 22 D6 00 C9 2A E2 00 3A D0 .6.#6.#"...*..:.
029D70: 00 B7 20 79 7E CB 6F 20 70 E6 0F 20 2E 23 23 7E .. y~.o p.. .##~
029D80: B7 F2 97 15 0E 14 E5 CD BA 19 E1 28 08 E5 11 2E ...........(....
029D90: 00 19 36 1A E1 AF 77 34 C6 2E 5F 16 00 19 7E FE ..6...w4.._...~.
029DA0: 1A 20 3D 2A E2 00 23 23 35 18 35 3D 20 1B 2A D4 . =*..##5.5= .*.
029DB0: 00 ED 5B D6 00 B7 ED 52 38 05 06 FF CD EA 14 2A ..[....R8......*
029DC0: D4 00 7E 23 22 D4 00 18 17 3D 20 06 CD A3 00 7D ..~#"....= ..£.}
029DD0: 18 0E 3D 3D 20 06 CD AF 00 7D 18 04 CD B5 00 7D ..== ....}.....}
029DE0: 2A E2 00 CB EE 23 77 2B C9 23 7E 2B C9 3E 1A C9 *....#w+.#~+.>..
029DF0: E5 2A E2 00 7E E6 0F FE 06 28 27 CD 6B 15 FE 21 .*..~....('.k..!
029E00: 30 08 FE 1A 28 04 CB AE 18 F1 11 5D 00 06 1E C5 0...(......]....
029E10: D5 CD 6B 15 D1 C1 FE 21 38 06 CB AE 12 13 10 EF ..k....!8.......
029E20: AF 12 E1 C9 DD 21 5D 00 DD 7E 00 B7 C8 06 00 FE .....!]..~......
029E30: 2D C0 04 DD 23 C9 38 05 DD 7E 00 B7 C8 3E 10 32 -...#.8..~...>.2
029E40: D0 00 37 C9 E5 CD 6B 15 CB AE E1 77 C9 3E AF 4F ..7...k....w.>.O
029E50: C5 CD F0 15 C1 CD 24 16 C8 C5 E5 CD F7 07 D1 C1 ......$.........
029E60: CD 36 16 D8 05 CC 83 07 EB 73 0C 0D 20 02 23 72 .6.......s.. .#r
029E70: EB C9 CD F0 15 CD 24 16 C8 C5 E5 CD A3 11 D9 E1 ......$.....£...
029E80: C1 CD 36 16 D8 05 D9 CC 8F 0A D9 C3 D1 05 E5 EB ..6.............
029E90: 0E 00 C5 D5 CD 6B 15 D1 C1 FE 0D 28 0B FE 1A 28 .....k.....(...(
029EA0: 07 CB AE 0C 13 12 10 EA E1 71 C9 CD 6B 15 FE 1A .........q..k...
029EB0: 28 13 CB AE FE 0A 28 0D FE 0D 20 EF CD 6B 15 FE (.....(... ..k..
029EC0: 0A 20 02 CB AE C9 2A E2 00 4F 3A D0 00 B7 C0 7E . ....*..O:....~
029ED0: E6 0F 20 10 23 23 E5 7E C6 2E 5F 16 00 19 71 E1 .. .##.~.._...q.
029EE0: 34 F0 18 28 FE 06 28 15 E1 06 00 C5 E5 3D CA A6 4..(..(......=..
029EF0: 00 3D 3D CA A9 00 3D CA AC 00 C3 B2 00 2A E8 00 .==...=......*..
029F00: 3A EA 00 BE C8 34 5E 16 00 19 71 C9 2A E2 00 23 :....4^...q.*..#
029F10: 23 7E B7 C8 36 00 0E 15 CD BA 19 C8 3E F0 32 D0 #~..6.......>.2.
029F20: 00 C9 7D C3 C6 16 C1 D1 C5 DD 2A D2 00 CB 7C 28 ..}.......*...|(
029F30: 06 CD 83 07 EB 18 0E EB CB 7C 28 09 CD 83 07 DD .........|(.....
029F40: 36 00 2D DD 23 D5 CD C6 07 E1 CD C8 04 ED 5B D2 6.-.#.........[.
029F50: 00 DD E5 E1 B7 ED 52 4D EB 91 38 0E 28 0C 47 E5 ......RM..8.(.G.
029F60: 3E 20 C5 CD C6 16 C1 10 F7 E1 41 04 05 C8 7E C5 > ........A...~.
029F70: E5 CD C6 16 E1 C1 23 18 F3 C1 D1 D9 E1 D1 C1 D9 ......#.........
029F80: C5 DD 2A D2 00 D5 CD 27 10 18 BE C1 D1 C5 CD C8 ..*....'........
029F90: 04 CB 43 21 A1 17 0E 04 20 BF 21 A5 17 0E 05 18 ..C!.... .!.....
029FA0: B8 54 52 55 45 46 41 4C 53 45 CD C8 04 21 02 00 .TRUEFALSE...!..
029FB0: 39 4E 23 CD 59 17 D1 F9 D5 C9 E1 7E 23 B7 28 0C 9N#.Y......~#.(.
029FC0: 47 7E C5 E5 CD C6 16 E1 C1 23 10 F5 E9 3E 0D CD G~.......#...>..
029FD0: C6 16 3E 0A C3 C6 16 11 0D 01 18 0D 11 0D 00 18 ..>.............
029FE0: 08 11 1A 01 18 03 11 1A 00 22 E2 00 CB 7E 28 1C ........."...~(.
029FF0: D5 CD 6B 15 D1 BB 28 10 FE 1A 28 0C FE 21 30 0C ..k...(...(..!0.
02A000: 14 15 28 08 CB AE 18 E8 21 01 00 C9 21 00 00 C9 ..(.....!...!...
02A010: 3E AF 32 E8 00 ED 53 E6 00 CD 7A 18 3A D0 00 B7 >.2...S...z.:...
02A020: C0 CD 30 14 3A D0 00 B7 C0 2A E2 00 36 D0 23 23 ..0.:....*..6.##
02A030: 77 11 06 00 19 77 23 77 11 24 00 19 77 23 77 11 w....w#w.$..w#w.
02A040: D6 FF 19 3A E8 00 B7 20 1B E5 01 04 00 AF CD 09 ...:... ........
02A050: 19 E1 23 23 4E 23 46 2A E6 00 B7 ED 42 C8 3E 90 ..##N#F*....B.>.
02A060: 32 D0 00 C9 E5 AF 77 23 77 23 ED 5B E6 00 73 23 2.....w#w#.[..s#
02A070: 72 E1 01 04 00 3E 03 C3 09 19 22 E2 00 7E E6 C0 r....>...."..~..
02A080: C8 CD AE 19 2A E2 00 11 2D 00 19 AF 77 23 77 11 ....*...-...w#w.
02A090: D4 FF 19 77 23 23 01 04 00 3E 01 CD 09 19 CD AE ...w##...>......
02A0A0: 19 C3 81 14 E3 22 E4 00 E3 22 E2 00 7E E6 C0 C0 ....."..."..~...
02A0B0: 3E 04 32 D0 00 C9 3A D0 00 B7 C0 E5 CD 5A 1A EB >.2...:......Z..
02A0C0: B7 ED 52 E1 30 10 AF CD 09 19 2A E2 00 11 08 00 ..R.0.....*.....
02A0D0: 19 34 C0 23 34 C9 3E 99 32 D0 00 C9 3A D0 00 B7 .4.#4.>.2...:...
02A0E0: C0 E5 CD 5A 1A B7 ED 52 3E 01 20 10 2A E2 00 11 ...Z...R>. .*...
02A0F0: 04 00 19 34 20 04 23 34 28 08 3E 03 E1 CD 09 19 ...4 .#4(.>.....
02A100: 18 C8 E1 3E F2 32 D0 00 C9 32 E9 00 EB 2A E2 00 ...>.2...2...*..
02A110: CB 66 28 2F CB A6 3A E9 00 CB 47 28 18 23 23 7E .f(/..:...G(.##~
02A120: 2B 2B B7 20 10 3A E9 00 CB 4F 20 17 78 B7 20 13 ++. .:...O .x. .
02A130: 79 B7 FA 43 19 C5 D5 0E 21 CD BA 19 D1 C1 20 51 y..C....!..... Q
02A140: 2A E2 00 3A E9 00 CB 47 28 02 CB EE 23 23 7E C6 *..:...G(...##~.
02A150: 2E D5 5F 16 00 19 D1 D6 2E CD 9A 19 ED A0 E2 66 .._............f
02A160: 19 3C F2 5C 19 3D 3C CD 9A 19 2A E2 00 23 23 E6 .<.\.=<...*..##.
02A170: 7F 77 20 16 C5 D5 E5 CD AE 19 E1 D1 C1 20 15 D5 .w .......... ..
02A180: 11 2B 00 19 D1 34 20 02 23 34 78 B1 C2 0D 19 EB .+...4 .#4x.....
02A190: C9 3E 99 01 3E F0 32 D0 00 C9 F5 3A E9 00 CB 47 .>..>.2....:...G
02A1A0: 28 01 EB F1 C9 22 E2 00 CD AE 19 C8 18 E6 0E 22 (...."........."
02A1B0: 2A E2 00 CB E6 CB 6E C8 CB AE 2A E2 00 E5 C5 11 *.....n...*.....
02A1C0: 30 00 19 EB 0E 1A CD 05 00 C1 E1 11 0C 00 19 EB 0...............
02A1D0: CD 05 00 B7 C9 C1 D1 ED 53 E2 00 C5 E5 CD 5A 1A ........S.....Z.
02A1E0: D1 B7 ED 52 38 40 2A E2 00 01 06 00 09 4E 23 46 ...R8@*......N#F
02A1F0: 23 73 23 72 CD 2C 1A 01 04 00 09 30 01 13 7D E6 #s#r.,.....0..}.
02A200: 7F 29 EB ED 6A EB 53 5C 2A E2 00 23 23 77 01 2B .)..j.S\*..##w.+
02A210: 00 09 4E 23 46 EB B7 ED 42 09 C8 D5 E5 CD AE 19 ..N#F...B.......
02A220: D1 E1 72 2B 73 C9 3E 91 32 D0 00 C9 D5 D9 E1 D9 ..r+s.>.2.......
02A230: 21 00 00 54 5D 3E 10 29 EB ED 6A EB D9 29 D9 30 !..T]>.)..j..).0
02A240: 04 09 30 01 13 3D 20 EF C9 CD 5D 1A B7 ED 52 21 ..0..= ...]...R!
02A250: 00 00 C0 23 C9 CD 5D 1A EB C9 2A E2 00 11 04 00 ...#..]...*.....
02A260: 19 5E 23 56 23 D5 4E 23 46 23 5E 23 56 E1 C9 3E .^#V#.N#F#^#V..>
02A270: AF 32 E8 00 CD B0 1A 3A D0 00 B7 C0 CD 30 14 3A .2.....:.....0.:
02A280: D0 00 B7 C0 2A E2 00 36 C0 E5 11 0C 00 19 EB 0E ....*..6........
02A290: 23 CD 05 00 E1 11 2D 00 19 AF 4E 77 23 46 77 11 #.....-...Nw#Fw.
02A2A0: D6 FF 19 71 23 70 23 36 80 23 77 23 77 23 77 C9 ...q#p#6.#w#w#w.
02A2B0: 22 E2 00 7E E6 C0 C8 C3 81 14 3E 22 18 02 3E 21 "..~......>"..>!
02A2C0: 44 4D 21 F0 00 22 E6 00 DD E1 D1 E1 DD E5 C5 CD DM!.."..........
02A2D0: FD 1A C1 3A D0 00 B7 C0 2A F0 00 ED 42 C8 3A E9 ...:....*...B.:.
02A2E0: 00 FE 21 3E 99 28 02 3E F0 32 D0 00 C9 3E 22 18 ..!>.(.>.2...>".
02A2F0: 02 3E 21 22 E6 00 DD E1 C1 D1 E1 DD E5 32 E9 00 .>!".........2..
02A300: 22 E2 00 7E E6 C0 CA B0 18 2A E6 00 AF 77 23 77 "..~.....*...w#w
02A310: 78 B1 28 39 C5 D5 0E 1A CD 05 00 2A E2 00 11 0C x.(9.......*....
02A320: 00 19 EB 3A E9 00 4F CD 05 00 D1 C1 B7 20 1E D5 ...:..O...... ..
02A330: 2A E2 00 11 2D 00 19 34 20 02 23 34 D1 21 80 00 *...-..4 .#4.!..
02A340: 19 EB 2A E6 00 34 20 02 23 34 0B 18 C3 2A E2 00 ..*..4 .#4...*..
02A350: 11 2D 00 19 4E 23 46 11 DA FF 19 71 23 70 11 FC .-..N#F....q#p..
02A360: FF 19 56 2B 5E EB B7 ED 42 D0 EB 71 23 70 C9 C1 ..V+^...B..q#p..
02A370: D1 ED 53 E2 00 C5 E5 CD 5A 1A D1 B7 ED 52 DA 26 ..S.....Z....R.&
02A380: 1A 2A E2 00 01 08 00 09 73 23 72 01 24 00 09 73 .*......s#r.$..s
02A390: 23 72 C9 CD 4C 1C C0 11 0C 00 19 EB 0E 13 CD 05 #r..L...........
02A3A0: 00 3C C0 18 3F FD E1 2A D2 00 06 10 CD E2 05 AF .<..?..*........
02A3B0: 12 E1 FD E5 CD 4C 1C C0 E5 CD F2 03 E1 E5 11 1C .....L..........
02A3C0: 00 19 EB 21 5C 00 01 0C 00 ED B0 E1 11 0C 00 19 ...!\...........
02A3D0: E5 EB 0E 17 CD 05 00 D1 3C 28 09 21 5C 00 01 24 ........<(.!\..$
02A3E0: 00 ED B0 C9 3E 01 32 D0 00 C9 3E AF 32 E8 00 CD ....>.2...>.2...
02A3F0: 4C 1C C0 3A D8 00 B7 3E 21 28 EB 2A E2 00 11 0C L..:...>!(.*....
02A400: 00 19 11 5C 00 01 24 00 ED B0 11 5C 00 0E 0F CD ...\..$....\....
02A410: 05 00 3C 28 CF 21 33 1C 11 B0 00 01 19 00 ED B0 ..<(.!3.........
02A420: 11 00 01 3A E8 00 B7 20 04 ED 5B 01 01 31 00 01 ...:... ..[..1..
02A430: C3 B0 00 D5 0E 1A CD 05 00 11 5C 00 0E 14 CD 05 ..........\.....
02A440: 00 D1 21 80 00 19 EB B7 28 E9 18 37 22 E2 00 7E ..!.....(..7"..~
02A450: E6 0F C8 3E 20 32 D0 00 C9 22 E6 00 ED 53 E8 00 ...> 2..."...S..
02A460: EB E1 22 E2 00 4E 73 23 46 72 EB B7 ED 42 28 5A .."..Ns#Fr...B(Z
02A470: EB 23 11 5C 00 3A DC 00 12 13 01 0B 00 ED B0 06 .#.\.:..........
02A480: 18 AF 12 13 10 FC E5 11 5C 00 0E 0F CD 05 00 D1 ........\.......
02A490: 3C 28 3F 2A E6 00 22 7D 00 ED 4B E8 00 C5 D5 0E <(?*.."}..K.....
02A4A0: 1A CD 05 00 11 5C 00 0E 21 CD 05 00 D1 C1 B7 20 .....\..!......
02A4B0: 21 2A 7D 00 23 22 7D 00 21 80 00 19 EB 0B 78 B1 !*}.#"}.!.....x.
02A4C0: 20 DB 11 5C 00 0E 10 CD 05 00 2A E2 00 11 0D 00 ..\......*.....
02A4D0: 19 E9 DD 2A E2 00 3E F0 C3 29 20 CD C8 04 FE 11 ...*..>..) .....
02A4E0: D0 32 DC 00 C9 22 F0 00 EB E1 E3 22 F2 00 13 13 .2..."....."....
02A4F0: 13 7B E6 FC 5F 21 DE 00 22 F8 00 DD 2A DE 00 DD .{.._!.."...*...
02A500: 6E 02 DD 66 03 7D B4 28 48 ED 52 30 0F DD 6E 00 n..f.}.(H.R0..n.
02A510: DD 66 01 E5 DD 22 F8 00 DD E1 18 E3 20 0A DD 5E .f..."...... ..^
02A520: 00 DD 56 01 DD E5 18 1B 4D 44 DD 6E 00 DD 66 01 ..V.....MD.n..f.
02A530: DD E5 DD 19 DD 75 00 DD 74 01 DD 71 02 DD 70 03 .....u..t..q..p.
02A540: DD E5 D1 2A F8 00 73 23 72 D1 2A F2 00 73 23 72 ...*..s#r.*..s#r
02A550: C9 DD E5 E1 19 22 C4 00 2A F0 00 01 04 00 09 DD ....."..*.......
02A560: E5 C1 09 DA 75 1D ED 4B C6 00 ED 42 01 00 00 21 ....u..K...B...!
02A570: 00 00 DA 30 1D 3E FF C3 27 20 EB E1 E3 7E 23 66 ...0.>..' ...~#f
02A580: 6F 13 13 13 7B E6 FC 5F EB 22 F0 00 2A DE 00 E5 o...{.._."..*...
02A590: DD E1 B7 ED 52 30 52 DD 6E 00 DD 66 01 E5 B7 ED ....R0R.n..f....
02A5A0: 52 30 04 DD E1 18 F0 E1 D5 FD E1 ED 4B F0 00 FD R0..........K...
02A5B0: 71 02 FD 70 03 FD 75 00 FD 74 01 DD 73 00 DD 72 q..p..u..t..s..r
02A5C0: 01 DD E5 E1 DD 4E 02 DD 46 03 CD 04 1E 28 09 DD .....N..F....(..
02A5D0: 5E 00 DD 56 01 D5 DD E1 DD E5 E1 DD 4E 02 DD 46 ^..V........N..F
02A5E0: 03 DD 5E 00 DD 56 01 18 1B 2A DE 00 ED 53 DE 00 ..^..V...*...S..
02A5F0: D5 DD E1 DD 75 00 DD 74 01 ED 4B F0 00 DD 71 02 ....u..t..K...q.
02A600: DD 70 03 EB 09 B7 ED 52 C0 D5 FD E1 2A C4 00 B7 .p.....R....*...
02A610: ED 52 28 1B FD 7E 00 DD 77 00 FD 7E 01 DD 77 01 .R(..~..w..~..w.
02A620: FD 6E 02 FD 66 03 09 DD 75 02 DD 74 03 AF C9 DD .n..f...u..t....
02A630: E5 E1 22 C4 00 06 04 36 00 23 10 FB C9 CD 4B 1E .."....6.#....K.
02A640: 2A F4 00 C9 CD 4B 1E 2A F6 00 C9 21 00 00 22 F4 *....K.*...!..".
02A650: 00 22 F6 00 DD 2A DE 00 DD 4E 02 DD 46 03 79 B0 ."...*...N..F.y.
02A660: 28 1E 2A F4 00 09 22 F4 00 2A F6 00 B7 ED 42 30 (.*..."..*....B0
02A670: 04 ED 43 F6 00 DD 6E 00 DD 66 01 E5 DD E1 18 D8 ..C...n..f......
02A680: 2A C6 00 01 FB FF 09 ED 5B C4 00 B7 ED 52 D8 EB *.......[....R..
02A690: 2A F4 00 19 22 F4 00 2A F6 00 B7 ED 52 D0 ED 53 *..."..*....R..S
02A6A0: F6 00 C9 ED 5B C4 00 73 23 72 C9 5E 23 56 EB 22 ....[..s#r.^#V."
02A6B0: C4 00 22 DE 00 06 04 36 00 23 10 FB C9 3E AF 4F .."....6.#...>.O
02A6C0: 22 E8 00 AF 77 32 D0 00 78 32 EA 00 2A E2 00 22 "...w2..x2..*.."
02A6D0: ED 00 21 46 1F 22 E2 00 E1 22 E4 00 E1 0C 0D 20 ..!F."...".....
02A6E0: 05 CD 26 17 18 03 CD 79 17 2A ED 00 22 E2 00 2A ..&....y.*.."..*
02A6F0: E4 00 E9 3E AF 32 EC 00 22 E8 00 2A E2 00 22 ED ...>.2.."..*..".
02A700: 00 21 46 1F 22 E2 00 E1 22 E4 00 E1 22 EA 00 21 .!F."..."..."..!
02A710: 5C 00 06 1E CD E2 05 AF 12 2A EA 00 3A EC 00 B7 \........*..:...
02A720: 20 05 CD 4E 16 18 03 CD 72 16 21 D0 00 7E 36 00 ..N....r.!..~6.
02A730: B7 67 6F 28 08 DD E5 E1 11 5C 00 ED 52 EB 2A E8 .go(.....\..R.*.
02A740: 00 73 23 72 18 A3 C6 00 ED 5F 32 CB 00 C9 EB DD .s#r.£..._2.....
02A750: E1 C1 E1 78 B1 28 0B 73 0B 78 B1 28 05 54 5D 13 ...x.(.s.x.(.T].
02A760: ED B0 DD E9 44 4D DD E1 D1 E1 78 B1 28 F4 ED 52 ....DM....x.(..R
02A770: 19 30 ED 0B 09 EB 09 EB 03 ED B8 DD E9 55 14 15 .0...........U..
02A780: 28 03 CD 9D 1F DD E1 4F 06 00 2F 6F 26 FF 39 F9 (......O../o&.9.
02A790: 71 23 EB 0C 0D 28 02 ED B0 DD E9 16 00 21 80 00 q#...(.......!..
02A7A0: 3E 1F 46 B8 30 02 06 1F 23 0E 00 04 05 28 0D 7E >.F.0...#....(.~
02A7B0: FE 20 28 04 FE 09 20 04 23 05 18 EF 5D 04 05 28 . (... .#...]..(
02A7C0: 0D 7E FE 20 28 08 FE 09 28 04 23 05 18 EF 7D 93 .~. (...(.#...}.
02A7D0: 28 04 0C 15 20 D5 69 26 00 54 C9 D1 C1 D5 2D 61 (... .i&.T....-a
02A7E0: 25 C3 A2 02 7D CD A6 04 6F C9 2A 01 00 19 19 19 %...}...o.*.....
02A7F0: E9 21 D0 00 7E 36 00 6F 26 00 C9 CD 16 03 7C B5 .!..~6.o&.....|.
02A800: C8 3A DD 00 F5 AF 32 DD 00 CD 20 03 F1 32 DD 00 .:....2... ..2..
02A810: 7D FE 03 C0 DD E1 11 01 00 18 11 3A D0 00 B7 C8 }..........:....
02A820: DD E1 5F 16 01 18 05 DD E1 5F 16 02 D5 CD 7A 03 .._......_....z.
02A830: D1 AF 32 DD 00 2A CE 00 7C B5 DD E5 E1 ED 4B CC ..2..*..|.....K.
02A840: 00 ED 42 01 15 00 09 22 CE 00 B7 20 07 D5 D5 E5 ..B...."... ....
02A850: CD D9 00 D1 7A B7 20 14 CD 00 02 5E 43 0D 0A 55 ....z. ....^C..U
02A860: 73 65 72 20 62 72 65 61 6B 00 18 2B 3D 20 0B CD ser break..+= ..
02A870: 00 02 0D 0A 49 2F 4F 00 18 0E CD 00 02 0D 0A 52 ....I/O........R
02A880: 75 6E 2D 74 69 6D 65 00 CD 00 02 20 65 72 72 6F un-time.... erro
02A890: 72 20 00 7B CD B4 04 CD 00 02 2C 20 50 43 3D 00 r .{......, PC=.
02A8A0: 2A CE 00 CD AF 04 18 15 CD 00 02 4E 6F 74 20 65 *..........Not e
02A8B0: 6E 6F 75 67 68 20 6D 65 6D 6F 72 79 00 CD 00 02 nough memory....
02A8C0: 0D 0A 50 72 6F 67 72 61 6D 20 61 62 6F 72 74 65 ..Program aborte
02A8D0: 64 0D 0A 00 3A D8 00 B7 CA 8E 27 C3 00 00 E1 D1 d...:.....'.....
02A8E0: D1 E9 31 00 01 21 C2 F2 01 C2 F2 CD 64 03 21 64 ..1..!......d.!d
02A8F0: 03 11 64 03 01 42 F3 3E 01 CD D4 04 C3 BA F2 CD ..d..B.>........
02A900: 3E 02 CD 9B 14 CD CD 17 CD 1B 20 CD 9B 14 CD BA >......... .....
02A910: 17 0E 20 20 20 20 20 20 4D 20 45 20 4E 20 55 20 .. M E N U
02A920: CD CD 17 CD 1B 20 CD 9B 14 CD CD 17 CD 1B 20 CD ..... ........ .
02A930: 9B 14 CD BA 17 1B 20 20 3C 31 3E 20 45 6E 74 72 ...... <1> Entr
02A940: 65 65 20 64 65 20 6C 61 20 66 6F 6E 63 74 69 6F ee de la fonctio
02A950: 6E CD CD 17 CD 1B 20 CD 9B 14 CD CD 17 CD 1B 20 n..... ........
02A960: CD 9B 14 CD BA 17 1D 20 20 3C 32 3E 20 44 65 76 ....... <2> Dev
02A970: 65 6C 6F 70 70 65 72 20 64 65 73 20 70 72 6F 64 elopper des prod
02A980: 75 69 74 73 CD CD 17 CD 1B 20 CD 9B 14 CD CD 17 uits..... ......
02A990: CD 1B 20 CD 9B 14 CD BA 17 28 20 20 3C 33 3E 20 .. ......( <3>
02A9A0: 44 65 76 65 6C 6F 70 70 65 72 20 64 65 73 20 70 Developper des p
02A9B0: 75 69 73 73 61 6E 63 65 73 20 65 6E 74 69 65 72 uissances entier
02A9C0: 65 73 CD CD 17 CD 1B 20 CD 9B 14 CD CD 17 CD 1B es..... ........
02A9D0: 20 CD 9B 14 CD BA 17 1F 20 20 3C 34 3E 20 43 61 ....... <4> Ca
02A9E0: 6C 63 75 6C 20 64 65 20 76 61 6C 65 75 72 73 20 lcul de valeurs
02A9F0: 64 65 20 66 28 78 29 CD CD 17 CD 1B 20 CD 9B 14 de f(x)..... ...
02AA00: CD CD 17 CD 1B 20 CD 9B 14 CD BA 17 1D 20 20 3C ..... ....... <
02AA10: 35 3E 20 44 65 72 69 76 65 65 73 20 64 65 20 6C 5> Derivees de l
02AA20: 61 20 66 6F 6E 63 74 69 6F 6E CD CD 17 CD 1B 20 a fonction.....
02AA30: CD 9B 14 CD CD 17 CD 1B 20 CD 9B 14 CD BA 17 1C ........ .......
02AA40: 20 20 3C 36 3E 20 44 65 76 65 6C 6F 70 70 65 6D <6> Developpem
02AA50: 65 6E 74 73 20 6C 69 6D 69 74 65 73 CD CD 17 CD ents limites....
02AA60: 1B 20 CD 9B 14 CD CD 17 CD 1B 20 CD 9B 14 CD BA . ........ .....
02AA70: 17 16 20 20 3C 37 3E 20 46 69 6E 20 64 75 20 70 .. <7> Fin du p
02AA80: 65 28 27 4E 2E 20 64 65 20 6C 61 20 66 6F 6E 63 e('N. de la fonc
02AA90: 74 69 6F 6E 20 28 31 20 61 20 39 29 3F 27 29 3B tion (1 a 9)?');
02AAA0: 0D 0A 69 3A 3D 6E 75 6D 66 6F 6E 63 3B 0D 0A 69 ..i:=numfonc;..i
02AAB0: 66 20 66 5B 69 5D 3D 6E 69 6C 20 74 68 65 6E 20 f f[i]=nil then
02AAC0: 6C 69 72 66 6F 6E 63 74 69 6F 6E 28 66 5B 69 5D lirfonction(f[i]
02AAD0: 29 3B 0D 0A 77 72 69 74 65 28 27 44 65 76 65 6C );..write('Devel
02AAE0: 6F 70 70 65 6D 65 6E 74 20 61 75 20 76 6F 69 73 oppement au vois
02AAF0: 69 6E 61 67 65 20 64 65 20 61 3D 27 29 3B 72 65 inage de a=');re
02AB00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AB10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AB20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AB30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AB40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AB50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AB60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AB70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AB80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AB90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ABA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ABB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ABC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ABD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ABE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ABF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AC00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AC10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AC20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AC30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AC40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AC50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AC60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AC70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AC80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AC90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ACA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ACB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ACC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ACD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ACE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ACF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02AD00: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
02AD10: 24 00 00 00 02 09 4E E5 24 00 41 02 00 00 00 02 $.....N.$.A.....
02AD20: 24 00 42 02 00 00 00 02 24 00 43 02 00 00 00 02 $.B.....$.C.....
02AD30: 24 00 44 02 00 00 00 02 24 00 45 02 00 00 00 02 $.D.....$.E.....
02AD40: 24 00 46 02 00 00 00 02 24 00 47 02 00 00 00 02 $.F.....$.G.....
02AD50: 24 00 48 02 00 00 00 02 24 00 49 02 00 00 00 02 $.H.....$.I.....
02AD60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02AD70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02AD80: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02AD90: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02ADA0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02ADB0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02ADC0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02ADD0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02ADE0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02ADF0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02AE00: 0D 0A 66 75 6E 63 74 69 6F 6E 20 20 20 6D 65 6E ..function men
02AE10: 75 3A 69 6E 74 65 67 65 72 3B 0D 0A 0D 0A 62 65 u:integer;....be
02AE20: 67 69 6E 0D 0A 63 6C 72 73 63 72 3B 0D 0A 77 72 gin..clrscr;..wr
02AE30: 69 74 65 6C 6E 3B 77 72 69 74 65 6C 6E 28 27 20 iteln;writeln('
02AE40: 4D 20 45 20 4E 20 55 20 27 29 3B 0D 0A 77 72 69 M E N U ');..wri
02AE50: 74 65 6C 6E 3B 77 72 69 74 65 6C 6E 28 27 3C 31 teln;writeln('<1
02AE60: 3E 20 45 6E 74 72 65 65 20 64 65 20 6C 61 20 66 > Entree de la f
02AE70: 6F 6E 63 74 69 6F 6E 27 29 3B 0D 0A 77 72 69 74 onction');..writ
02AE80: 65 6C 6E 3B 77 72 69 74 65 6C 6E 28 27 3C 32 3E eln;writeln('<2>
02AE90: 20 43 61 6C 63 75 6C 20 64 65 20 76 61 6C 65 75 Calcul de valeu
02AEA0: 72 73 20 64 65 20 66 28 78 29 27 29 3B 0D 0A 77 rs de f(x)');..w
02AEB0: 72 69 74 65 6C 6E 3B 77 72 69 74 65 6C 6E 28 27 riteln;writeln('
02AEC0: 3C 33 3E 20 47 72 61 70 68 65 73 20 64 65 20 66 <3> Graphes de f
02AED0: 6F 6E 63 74 69 6F 6E 73 27 29 3B 0D 0A 77 72 69 onctions');..wri
02AEE0: 74 65 6C 6E 3B 77 72 69 74 65 6C 6E 28 27 3C 34 teln;writeln('<4
02AEF0: 3E 20 46 69 6E 20 64 75 20 70 72 6F 67 72 61 6D > Fin du program
02AF00: 6D 65 27 29 3B 0D 0A 77 72 69 74 65 6C 6E 3B 77 me');..writeln;w
02AF10: 72 69 74 65 6C 6E 28 27 20 56 4F 54 52 45 20 43 riteln(' VOTRE C
02AF20: 48 4F 49 58 3F 20 27 29 3B 0D 0A 72 65 61 64 6C HOIX? ');..readl
02AF30: 6E 28 63 68 6F 69 78 29 3B 6D 65 6E 75 3A 3D 63 n(choix);menu:=c
02AF40: 68 6F 69 78 3B 0D 0A 65 6E 64 3B 0D 0A 0D 0A 66 hoix;..end;....f
02AF50: 75 6E 63 74 69 6F 6E 20 6E 75 6D 66 6F 6E 63 3A unction numfonc:
02AF60: 69 6E 74 65 67 65 72 3B 0D 0A 76 61 72 20 6A 3A integer;..var j:
02AF70: 69 6E 74 65 67 65 72 3B 0D 0A 0D 0A 62 65 67 69 integer;....begi
02AF80: 6E 0D 0A 63 61 72 3A 3D 27 20 27 3B 0D 0A 72 65 n..car:=' ';..re
02AF90: 70 65 61 74 0D 0A 72 65 61 64 28 6B 62 64 2C 63 peat..read(kbd,c
02AFA0: 61 72 29 3B 0D 0A 75 6E 74 69 6C 20 28 28 63 61 ar);..until ((ca
02AFB0: 72 3E 27 30 27 29 20 61 6E 64 20 28 63 61 72 3C r>'0') and (car<
02AFC0: 27 3A 27 29 29 3B 0D 0A 77 72 69 74 65 6C 6E 3B ':'));..writeln;
02AFD0: 0D 0A 76 61 6C 28 63 61 72 2C 6A 2C 72 65 73 75 ..val(car,j,resu
02AFE0: 6C 74 29 3B 0D 0A 6E 75 6D 66 6F 6E 63 3A 3D 6A lt);..numfonc:=j
02AFF0: 3B 0D 0A 65 6E 64 3B 0D 0A 0D 0A 70 72 6F 63 65 ;..end;....proce
02B000: 64 75 72 65 20 20 67 72 61 70 68 65 28 72 65 76 dure graphe(rev
02B010: 6F 69 72 3A 69 6E 74 65 67 65 72 29 3B 0D 0A 66 oir:integer);..f
02B020: 6F 72 77 61 72 64 3B 0D 0A 0D 0A 70 72 6F 63 65 orward;....proce
02B030: 64 75 72 65 20 62 6F 75 63 6C 65 3B 0D 0A 76 61 dure boucle;..va
02B040: 72 20 7A 3A 69 6E 74 65 67 65 72 3B 0D 0A 62 65 r z:integer;..be
02B050: 67 69 6E 0D 0A 72 65 70 65 61 74 0D 0A 63 68 6F gin..repeat..cho
02B060: 69 78 3A 3D 6D 65 6E 75 3B 0D 0A 63 61 73 65 20 ix:=menu;..case
02B070: 63 68 6F 69 78 20 6F 66 0D 0A 20 31 3A 20 20 20 choix of.. 1:
02B080: 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 77 begin.. w
02B090: 72 69 74 65 28 27 4E 6F 20 64 65 20 6C 61 20 66 rite('No de la f
02B0A0: 6F 6E 63 74 69 6F 6E 20 28 31 20 61 20 39 29 3F onction (1 a 9)?
02B0B0: 27 29 3B 0D 0A 20 20 20 20 20 20 20 69 3A 3D 6E ');.. i:=n
02B0C0: 75 6D 66 6F 6E 63 3B 0D 0A 20 20 20 20 20 20 20 umfonc;..
02B0D0: 63 6C 72 73 63 72 3B 63 61 72 3A 3D 27 20 27 3B clrscr;car:=' ';
02B0E0: 0D 0A 20 20 20 20 20 20 20 6C 69 72 66 6F 6E 63 .. lirfonc
02B0F0: 74 69 6F 6E 28 66 5B 69 5D 29 3B 0D 0A 20 20 20 tion(f[i]);..
02B100: 20 20 20 20 73 69 6D 70 6C 69 66 28 66 5B 69 5D simplif(f[i]
02B110: 29 3B 0D 0A 20 20 20 20 20 20 20 74 65 6D 70 6F );.. tempo
02B120: 3B 0D 0A 20 20 20 20 20 20 20 65 6E 64 3B 0D 0A ;.. end;..
02B130: 20 32 3A 20 20 20 20 62 65 67 69 6E 0D 0A 20 20 2: begin..
02B140: 20 20 20 20 20 63 6C 72 73 63 72 3B 77 72 69 74 clrscr;writ
02B150: 65 28 27 4E 6F 20 64 65 20 6C 61 20 66 6F 6E 63 e('No de la fonc
02B160: 74 69 6F 6E 20 28 31 20 61 20 39 29 3F 27 29 3B tion (1 a 9)?');
02B170: 0D 0A 20 20 20 20 20 20 20 69 3A 3D 6E 75 6D 66 .. i:=numf
02B180: 6F 6E 63 3B 0D 0A 20 20 20 20 20 20 20 69 66 20 onc;.. if
02B190: 6D 5B 69 5D 3E 30 20 74 68 65 6E 0D 0A 20 20 20 m[i]>0 then..
02B1A0: 20 20 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 begin..
02B1B0: 20 20 66 6F 72 20 7A 3A 3D 31 20 74 6F 20 6D 5B for z:=1 to m[
02B1C0: 69 5D 20 64 6F 0D 0A 20 20 20 20 20 20 20 62 65 i] do.. be
02B1D0: 67 69 6E 0D 0A 20 20 20 20 20 20 20 77 72 69 74 gin.. writ
02B1E0: 65 28 27 56 61 6C 65 75 72 20 64 75 20 70 61 72 e('Valeur du par
02B1F0: 61 6D 65 74 72 65 20 6E 2E 27 29 3B 77 72 69 74 ametre n.');writ
02B200: 65 28 7A 29 3B 77 72 69 74 65 28 27 20 3D 27 29 e(z);write(' =')
02B210: 3B 72 65 61 64 6C 6E 28 70 5B 7A 2C 69 5D 29 3B ;readln(p[z,i]);
02B220: 0D 0A 20 20 20 20 20 20 20 65 6E 64 3B 0D 0A 20 .. end;..
02B230: 20 20 20 20 20 20 65 6E 64 3B 0D 0A 20 20 20 20 end;..
02B240: 20 20 20 63 61 6C 63 75 6C 66 6F 6E 63 74 69 6F calculfonctio
02B250: 6E 28 66 5B 69 5D 29 3B 0D 0A 20 20 20 20 20 20 n(f[i]);..
02B260: 20 65 6E 64 3B 0D 0A 20 33 3A 20 20 20 20 67 72 end;.. 3: gr
02B270: 61 70 68 65 28 30 29 3B 0D 0A 0D 0A 65 6E 64 3B aphe(0);....end;
02B280: 0D 0A 75 6E 74 69 6C 20 63 68 6F 69 78 3D 34 3B ..until choix=4;
02B290: 0D 0A 65 6E 64 3B 0D 0A 0D 0D 1A 1A 1A 1A 1A 1A ..end;..........
02B2A0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
02B2B0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
02B2C0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
02B2D0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
02B2E0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
02B2F0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
02B300: 61 6D 69 6C 6C 65 20 64 65 20 63 6F 75 72 62 65 amille de courbe
02B310: 73 2E 0D 0A 0D 0A 20 50 6F 75 72 20 65 6E 74 72 s..... Pour entr
02B320: 65 72 20 6C 65 73 20 70 61 72 61 6D 65 74 72 65 er les parametre
02B330: 73 3A 20 70 28 69 29 2C 20 69 20 65 74 61 6E 74 s: p(i), i etant
02B340: 20 6C 65 20 6E 75 6D 65 72 6F 20 64 75 20 70 61 le numero du pa
02B350: 72 61 6D 65 74 72 65 2C 0D 0A 20 20 69 20 64 65 rametre,.. i de
02B360: 76 61 6E 74 20 65 74 72 65 20 63 6F 6D 70 72 69 vant etre compri
02B370: 73 20 65 6E 74 72 65 20 31 20 65 74 20 33 2E 0D s entre 1 et 3..
02B380: 0A 0D 0A 0D 0A 0D 0A 20 20 53 49 20 56 4F 55 53 ....... SI VOUS
02B390: 20 4E 27 45 4E 54 52 45 5A 20 50 41 53 20 43 4F N'ENTREZ PAS CO
02B3A0: 52 52 45 43 54 45 4D 45 4E 54 20 56 4F 54 52 45 RRECTEMENT VOTRE
02B3B0: 20 46 4F 4E 43 54 49 4F 4E 20 56 4F 55 53 20 41 FONCTION VOUS A
02B3C0: 55 52 45 5A 0D 0A 20 20 55 4E 20 4D 45 53 53 41 UREZ.. UN MESSA
02B3D0: 47 45 20 44 27 45 52 52 45 55 52 20 45 54 20 55 GE D'ERREUR ET U
02B3E0: 4E 20 4E 55 4D 45 52 4F 3A 0D 0A 0D 0A 20 20 65 N NUMERO:.... e
02B3F0: 72 72 65 75 72 20 6E 2E 31 3A 20 70 20 6E 27 65 rreur n.1: p n'e
02B400: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B410: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B420: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B430: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B440: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B450: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B460: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B470: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B480: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B490: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B4A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B4B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B4C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B4D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B4E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B4F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B500: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B510: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B520: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B5A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B5B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B5C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B5D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B5E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B5F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02B600: 0D 0A 70 72 6F 63 65 64 75 72 65 20 20 67 72 61 ..procedure gra
02B610: 70 68 65 3B 0D 0A 0D 0A 76 61 72 0D 0A 78 6F 2C phe;....var..xo,
02B620: 79 6F 2C 78 78 64 2C 78 78 61 2C 75 78 2C 75 79 yo,xxd,xxa,ux,uy
02B630: 2C 70 61 73 3A 72 65 61 6C 3B 0D 0A 78 70 2C 79 ,pas:real;..xp,y
02B640: 70 2C 6E 62 66 6F 6E 63 2C 7A 2C 62 6B 2C 69 6E p,nbfonc,z,bk,in
02B650: 64 65 78 2C 63 68 6F 69 78 62 69 73 3A 69 6E 74 dex,choixbis:int
02B660: 65 67 65 72 3B 0D 0A 70 72 65 63 65 64 65 3A 62 eger;..precede:b
02B670: 6F 6F 6C 65 61 6E 3B 0D 0A 66 78 2C 66 79 3A 61 oolean;..fx,fy:a
02B680: 72 72 61 79 5B 31 2E 2E 31 30 5D 20 6F 66 20 69 rray[1..10] of i
02B690: 6E 74 65 67 65 72 3B 0D 0A 6C 64 61 3A 61 72 72 nteger;..lda:arr
02B6A0: 61 79 5B 31 2E 2E 32 30 5D 20 6F 66 20 72 65 61 ay[1..20] of rea
02B6B0: 6C 3B 0D 0A 62 65 67 69 6E 0D 0A 20 63 6C 72 73 l;..begin.. clrs
02B6C0: 63 72 3B 0D 0A 20 20 69 66 20 72 65 76 6F 69 72 cr;.. if revoir
02B6D0: 3D 30 20 74 68 65 6E 0D 0A 20 20 62 65 67 69 6E =0 then.. begin
02B6E0: 0D 0A 20 20 20 77 72 69 74 65 6C 6E 28 27 31 2D .. writeln('1-
02B6F0: 43 6F 75 72 62 65 20 79 3D 66 28 78 29 27 29 3B Courbe y=f(x)');
02B700: 77 72 69 74 65 6C 6E 3B 0D 0A 20 20 20 77 72 69 writeln;.. wri
02B710: 74 65 6C 6E 28 27 32 2D 43 6F 75 72 62 65 20 78 teln('2-Courbe x
02B720: 3D 66 28 74 29 3B 79 3D 66 28 74 29 27 29 3B 77 =f(t);y=f(t)');w
02B730: 72 69 74 65 6C 6E 3B 0D 0A 20 20 20 77 72 69 74 riteln;.. writ
02B740: 65 6C 6E 28 27 33 2D 43 6F 75 72 62 65 20 70 6F eln('3-Courbe po
02B750: 6C 61 69 72 65 20 72 3D 66 28 74 29 27 29 3B 77 laire r=f(t)');w
02B760: 72 69 74 65 6C 6E 3B 0D 0A 20 20 20 77 72 69 74 riteln;.. writ
02B770: 65 28 27 56 6F 74 72 65 20 63 68 6F 69 78 3F 20 e('Votre choix?
02B780: 27 29 3B 0D 0A 20 20 20 72 65 70 65 61 74 0D 0A ');.. repeat..
02B790: 20 20 20 72 65 61 64 28 6B 62 64 2C 63 61 72 29 read(kbd,car)
02B7A0: 3B 0D 0A 20 20 20 75 6E 74 69 6C 20 28 28 63 61 ;.. until ((ca
02B7B0: 72 3E 27 30 27 29 20 61 6E 64 20 28 63 61 72 3C r>'0') and (car<
02B7C0: 27 34 27 29 29 3B 0D 0A 20 20 20 77 72 69 74 65 '4'));.. write
02B7D0: 6C 6E 3B 0D 0A 20 20 20 76 61 6C 28 63 61 72 2C ln;.. val(car,
02B7E0: 63 68 6F 69 78 2C 72 65 73 75 6C 74 29 3B 0D 0A choix,result);..
02B7F0: 20 20 20 77 72 69 74 65 6C 6E 3B 0D 0A 20 20 65 writeln;.. e
02B800: 6E 64 3B 0D 0A 20 20 77 72 69 74 65 6C 6E 3B 0D nd;.. writeln;.
02B810: 0A 20 20 77 72 69 74 65 28 27 41 62 73 63 69 73 . write('Abscis
02B820: 73 65 20 6F 72 69 67 69 6E 65 20 27 29 3B 72 65 se origine ');re
02B830: 61 64 6C 6E 28 78 6F 29 3B 0D 0A 20 20 77 72 69 adln(xo);.. wri
02B840: 74 65 28 27 4F 72 64 6F 6E 6E 65 65 20 6F 72 69 te('Ordonnee ori
02B850: 67 69 6E 65 20 27 29 3B 72 65 61 64 6C 6E 28 79 gine ');readln(y
02B860: 6F 29 3B 0D 0A 20 20 77 72 69 74 65 28 27 42 6F o);.. write('Bo
02B870: 72 6E 65 20 69 6E 66 65 72 69 65 75 72 65 20 69 rne inferieure i
02B880: 6E 74 20 64 27 27 65 74 75 64 65 20 27 29 3B 72 nt d''etude ');r
02B890: 65 61 64 6C 6E 28 78 78 64 29 3B 0D 0A 20 20 77 eadln(xxd);.. w
02B8A0: 72 69 74 65 28 27 42 6F 72 6E 65 20 73 75 70 65 rite('Borne supe
02B8B0: 72 69 65 75 72 65 20 69 6E 74 20 64 27 27 65 74 rieure int d''et
02B8C0: 75 64 65 20 27 29 3B 72 65 61 64 6C 6E 28 78 78 ude ');readln(xx
02B8D0: 61 29 3B 0D 0A 20 20 77 72 69 74 65 28 27 55 6E a);.. write('Un
02B8E0: 69 74 65 20 61 62 73 63 69 73 73 65 20 27 29 3B ite abscisse ');
02B8F0: 72 65 61 64 6C 6E 28 75 78 29 3B 0D 0A 20 20 77 readln(ux);.. w
02B900: 72 69 74 65 28 27 55 6E 69 74 65 20 6F 72 64 6F rite('Unite ordo
02B910: 6E 6E 65 65 20 27 29 3B 72 65 61 64 6C 6E 28 75 nnee ');readln(u
02B920: 79 29 3B 0D 0A 20 20 77 72 69 74 65 28 27 50 61 y);.. write('Pa
02B930: 73 20 64 27 27 65 74 75 64 65 20 27 29 3B 72 65 s d''etude ');re
02B940: 61 64 6C 6E 28 70 61 73 29 3B 0D 0A 0D 0A 69 66 adln(pas);....if
02B950: 20 72 65 76 6F 69 72 3D 30 20 74 68 65 6E 0D 0A revoir=0 then..
02B960: 20 62 65 67 69 6E 0D 0A 20 20 77 72 69 74 65 28 begin.. write(
02B970: 27 4E 6F 6D 62 72 65 20 64 65 20 67 72 61 70 68 'Nombre de graph
02B980: 65 73 20 73 75 72 20 6C 65 20 6D 65 6D 65 20 65 es sur le meme e
02B990: 63 72 61 6E 20 28 31 20 61 20 39 29 3F 27 29 3B cran (1 a 9)?');
02B9A0: 0D 0A 20 20 6E 62 66 6F 6E 63 3A 3D 6E 75 6D 66 .. nbfonc:=numf
02B9B0: 6F 6E 63 3B 0D 0A 20 20 69 6E 64 65 78 3A 3D 30 onc;.. index:=0
02B9C0: 3B 0D 0A 20 20 66 6F 72 20 7A 3A 3D 31 20 74 6F ;.. for z:=1 to
02B9D0: 20 6E 62 66 6F 6E 63 20 64 6F 0D 0A 20 20 62 65 nbfonc do.. be
02B9E0: 67 69 6E 0D 0A 20 20 20 63 61 73 65 20 63 68 6F gin.. case cho
02B9F0: 69 78 20 6F 66 0D 0A 20 20 20 20 31 3A 20 62 65 ix of.. 1: be
02BA00: 67 69 6E 0D 0A 20 20 20 20 20 20 77 72 69 74 65 gin.. write
02BA10: 28 27 4E 6F 20 64 65 20 6C 61 20 66 6F 6E 63 74 ('No de la fonct
02BA20: 69 6F 6E 20 79 3D 66 28 78 29 20 6E 2E 27 2C 7A ion y=f(x) n.',z
02BA30: 2C 27 20 3D 27 29 3B 66 78 5B 7A 5D 3A 3D 6E 75 ,' =');fx[z]:=nu
02BA40: 6D 66 6F 6E 63 3B 0D 0A 20 20 20 20 20 20 69 66 mfonc;.. if
02BA50: 20 66 5B 66 78 5B 7A 5D 5D 3D 6E 69 6C 20 74 68 f[fx[z]]=nil th
02BA60: 65 6E 20 6C 69 72 66 6F 6E 63 74 69 6F 6E 28 66 en lirfonction(f
02BA70: 5B 66 78 5B 7A 5D 5D 29 3B 0D 0A 20 20 20 20 20 [fx[z]]);..
02BA80: 20 69 66 20 6D 5B 66 78 5B 7A 5D 5D 3E 30 20 74 if m[fx[z]]>0 t
02BA90: 68 65 6E 0D 0A 20 20 20 20 20 20 62 65 67 69 6E hen.. begin
02BAA0: 20 66 6F 72 20 62 6B 3A 3D 31 20 74 6F 20 6D 5B for bk:=1 to m[
02BAB0: 66 78 5B 7A 5D 5D 20 64 6F 0D 0A 20 20 20 20 20 fx[z]] do..
02BAC0: 20 20 20 20 62 65 67 69 6E 20 69 6E 64 65 78 3A begin index:
02BAD0: 3D 69 6E 64 65 78 2B 31 3B 77 72 69 74 65 28 27 =index+1;write('
02BAE0: 56 61 6C 65 75 72 20 64 75 20 70 61 72 61 6D 65 Valeur du parame
02BAF0: 74 72 65 20 6E 2E 27 2C 62 6B 2C 27 20 3D 27 29 tre n.',bk,' =')
02BB00: 3B 0D 0A 20 20 20 20 20 20 20 20 20 72 65 61 64 ;.. read
02BB10: 6C 6E 28 6C 64 61 5B 69 6E 64 65 78 5D 29 3B 0D ln(lda[index]);.
02BB20: 0A 20 20 20 20 20 20 20 20 20 65 6E 64 3B 0D 0A . end;..
02BB30: 20 20 20 20 20 20 65 6E 64 3B 0D 0A 20 20 20 20 end;..
02BB40: 20 65 6E 64 3B 0D 0A 20 20 20 20 32 3A 20 62 65 end;.. 2: be
02BB50: 67 69 6E 0D 0A 20 20 20 20 20 20 77 72 69 74 65 gin.. write
02BB60: 28 27 4E 6F 20 64 65 20 6C 61 20 66 6F 6E 63 74 ('No de la fonct
02BB70: 69 6F 6E 20 78 3D 66 28 74 29 20 6E 2E 27 2C 7A ion x=f(t) n.',z
02BB80: 2C 27 20 3D 27 29 3B 66 78 5B 7A 5D 3A 3D 6E 75 ,' =');fx[z]:=nu
02BB90: 6D 66 6F 6E 63 3B 0D 0A 20 20 20 20 20 20 69 66 mfonc;.. if
02BBA0: 20 66 5B 66 78 5B 7A 5D 5D 3D 6E 69 6C 20 74 68 f[fx[z]]=nil th
02BBB0: 65 6E 20 6C 69 72 66 6F 6E 63 74 69 6F 6E 28 66 en lirfonction(f
02BBC0: 5B 66 78 5B 7A 5D 5D 29 3B 0D 0A 20 20 20 20 20 [fx[z]]);..
02BBD0: 20 69 66 20 6D 5B 66 78 5B 7A 5D 5D 3E 30 20 74 if m[fx[z]]>0 t
02BBE0: 68 65 6E 0D 0A 20 20 20 20 20 20 62 65 67 69 6E hen.. begin
02BBF0: 20 66 6F 72 20 62 6B 3A 3D 31 20 74 6F 20 6D 5B for bk:=1 to m[
02BC00: 66 78 5B 7A 5D 5D 20 64 6F 0D 0A 20 20 20 20 20 fx[z]] do..
02BC10: 20 20 20 20 62 65 67 69 6E 20 20 69 6E 64 65 78 begin index
02BC20: 3A 3D 69 6E 64 65 78 2B 31 3B 77 72 69 74 65 28 :=index+1;write(
02BC30: 27 56 61 6C 65 75 72 20 64 75 20 70 61 72 61 6D 'Valeur du param
02BC40: 65 74 72 65 20 6E 2E 27 2C 62 6B 2C 27 20 3D 27 etre n.',bk,' ='
02BC50: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 72 65 61 );.. rea
02BC60: 64 6C 6E 28 6C 64 61 5B 69 6E 64 65 78 5D 29 3B dln(lda[index]);
02BC70: 0D 0A 20 20 20 20 20 20 20 20 20 65 6E 64 3B 0D .. end;.
02BC80: 0A 20 20 20 20 20 20 65 6E 64 3B 0D 0A 20 20 20 . end;..
02BC90: 20 20 20 77 72 69 74 65 28 27 4E 6F 20 64 65 20 write('No de
02BCA0: 6C 61 20 66 6F 6E 63 74 69 6F 6E 20 79 3D 66 28 la fonction y=f(
02BCB0: 74 29 20 6E 2E 27 2C 7A 2C 27 20 3D 27 29 3B 66 t) n.',z,' =');f
02BCC0: 79 5B 7A 5D 3A 3D 6E 75 6D 66 6F 6E 63 3B 0D 0A y[z]:=numfonc;..
02BCD0: 20 20 20 20 20 20 69 66 20 66 5B 66 79 5B 7A 5D if f[fy[z]
02BCE0: 5D 3D 6E 69 6C 20 74 68 65 6E 20 6C 69 72 66 6F ]=nil then lirfo
02BCF0: 6E 63 74 69 6F 6E 28 66 5B 66 79 5B 7A 5D 5D 29 nction(f[fy[z]])
02BD00: 3B 0D 0A 20 20 20 20 20 20 69 66 20 6D 5B 66 79 ;.. if m[fy
02BD10: 5B 7A 5D 5D 3E 30 20 74 68 65 6E 0D 0A 20 20 20 [z]]>0 then..
02BD20: 20 20 20 62 65 67 69 6E 20 66 6F 72 20 62 6B 3A begin for bk:
02BD30: 3D 31 20 74 6F 20 6D 5B 66 79 5B 7A 5D 5D 20 64 =1 to m[fy[z]] d
02BD40: 6F 0D 0A 20 20 20 20 20 20 20 20 20 62 65 67 69 o.. begi
02BD50: 6E 20 20 69 6E 64 65 78 3A 3D 69 6E 64 65 78 2B n index:=index+
02BD60: 31 3B 77 72 69 74 65 28 27 56 61 6C 65 75 72 20 1;write('Valeur
02BD70: 64 75 20 70 61 72 61 6D 65 74 72 65 20 6E 2E 27 du parametre n.'
02BD80: 2C 62 6B 2C 27 20 3D 27 29 3B 0D 0A 20 20 20 20 ,bk,' =');..
02BD90: 20 20 20 20 20 72 65 61 64 6C 6E 28 6C 64 61 5B readln(lda[
02BDA0: 69 6E 64 65 78 5D 29 3B 0D 0A 20 20 20 20 20 20 index]);..
02BDB0: 20 20 20 65 6E 64 3B 0D 0A 20 20 20 20 20 20 65 end;.. e
02BDC0: 6E 64 3B 0D 0A 20 20 20 20 65 6E 64 3B 0D 0A 20 nd;.. end;..
02BDD0: 20 20 20 33 3A 20 62 65 67 69 6E 0D 0A 20 20 20 3: begin..
02BDE0: 20 20 77 72 69 74 65 28 27 4E 6F 20 64 65 20 6C write('No de l
02BDF0: 61 20 66 6F 6E 63 74 69 6F 6E 20 72 3D 66 28 74 a fonction r=f(t
02BE00: 29 20 6E 2E 27 2C 7A 2C 27 20 3D 27 29 3B 66 78 ) n.',z,' =');fx
02BE10: 5B 7A 5D 3A 3D 6E 75 6D 66 6F 6E 63 3B 0D 0A 20 [z]:=numfonc;..
02BE20: 20 20 20 20 69 66 20 66 5B 66 78 5B 7A 5D 5D 3D if f[fx[z]]=
02BE30: 6E 69 6C 20 74 68 65 6E 20 6C 69 72 66 6F 6E 63 nil then lirfonc
02BE40: 74 69 6F 6E 28 66 5B 66 78 5B 7A 5D 5D 29 3B 0D tion(f[fx[z]]);.
02BE50: 0A 20 20 20 20 20 69 66 20 6D 5B 66 78 5B 7A 5D . if m[fx[z]
02BE60: 5D 3E 30 20 74 68 65 6E 0D 0A 20 20 20 20 20 62 ]>0 then.. b
02BE70: 65 67 69 6E 20 66 6F 72 20 62 6B 3A 3D 31 20 74 egin for bk:=1 t
02BE80: 6F 20 6D 5B 66 78 5B 7A 5D 5D 20 64 6F 0D 0A 20 o m[fx[z]] do..
02BE90: 20 20 20 20 20 20 20 20 62 65 67 69 6E 20 20 69 begin i
02BEA0: 6E 64 65 78 3A 3D 69 6E 64 65 78 2B 31 3B 77 72 ndex:=index+1;wr
02BEB0: 69 74 65 28 27 56 61 6C 65 75 72 20 64 75 20 70 ite('Valeur du p
02BEC0: 61 72 61 6D 65 74 72 65 20 6E 2E 27 2C 62 6B 2C arametre n.',bk,
02BED0: 27 20 3D 27 29 3B 0D 0A 20 20 20 20 20 20 20 20 ' =');..
02BEE0: 20 72 65 61 64 6C 6E 28 6C 64 61 5B 69 6E 64 65 readln(lda[inde
02BEF0: 78 5D 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 65 x]);.. e
02BF00: 6E 64 3B 0D 0A 20 20 20 20 20 65 6E 64 3B 0D 0A nd;.. end;..
02BF10: 20 20 20 20 20 65 6E 64 3B 0D 0A 20 20 20 20 65 end;.. e
02BF20: 6E 64 3B 0D 0A 20 20 20 65 6E 64 3B 0D 0A 20 65 nd;.. end;.. e
02BF30: 6E 64 3B 0D 0A 20 20 63 6C 72 73 63 72 3B 0D 0A nd;.. clrscr;..
02BF40: 20 20 6F 72 69 67 69 6E 28 72 6F 75 6E 64 28 78 origin(round(x
02BF50: 6F 29 2C 72 6F 75 6E 64 28 79 6F 29 29 3B 0D 0A o),round(yo));..
02BF60: 20 20 67 72 61 66 6D 6F 76 65 28 30 2C 30 29 3B grafmove(0,0);
02BF70: 64 72 61 77 72 28 36 34 30 2D 72 6F 75 6E 64 28 drawr(640-round(
02BF80: 78 6F 29 2C 30 29 3B 64 72 61 77 72 28 2D 36 34 xo),0);drawr(-64
02BF90: 30 2C 30 29 3B 0D 0A 20 20 67 72 61 66 6D 6F 76 0,0);.. grafmov
02BFA0: 65 28 30 2C 30 29 3B 64 72 61 77 72 28 30 2C 34 e(0,0);drawr(0,4
02BFB0: 30 30 2D 72 6F 75 6E 64 28 79 6F 29 29 3B 64 72 00-round(yo));dr
02BFC0: 61 77 72 28 30 2C 2D 34 30 30 29 3B 0D 0A 20 20 awr(0,-400);..
02BFD0: 67 72 61 66 6D 6F 76 65 28 72 6F 75 6E 64 28 75 grafmove(round(u
02BFE0: 78 29 2C 30 29 3B 64 72 61 77 72 28 30 2C 35 29 x),0);drawr(0,5)
02BFF0: 3B 64 72 61 77 72 28 30 2C 2D 31 30 29 3B 0D 0A ;drawr(0,-10);..
02C000: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
02C010: 25 00 00 00 02 09 4E E5 25 00 41 02 00 00 00 02 %.....N.%.A.....
02C020: 25 00 42 02 00 00 00 02 25 00 43 02 00 00 00 02 %.B.....%.C.....
02C030: 25 00 44 02 00 00 00 02 25 00 45 02 00 00 00 02 %.D.....%.E.....
02C040: 25 00 46 02 00 00 00 02 25 00 47 02 00 00 00 02 %.F.....%.G.....
02C050: 25 00 48 02 00 00 00 02 25 00 49 02 00 00 00 02 %.H.....%.I.....
02C060: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C070: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C080: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C090: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C0A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C0B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C0C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C0D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C0E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C0F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02C100: 20 20 67 72 61 66 6D 6F 76 65 28 30 2C 72 6F 75 grafmove(0,rou
02C110: 6E 64 28 75 79 29 29 3B 64 72 61 77 72 28 35 2C nd(uy));drawr(5,
02C120: 30 29 3B 64 72 61 77 72 28 2D 31 30 2C 30 29 3B 0);drawr(-10,0);
02C130: 0D 0A 20 20 69 6E 64 65 78 3A 3D 30 3B 0D 0A 20 .. index:=0;..
02C140: 20 66 6F 72 20 7A 3A 3D 31 20 74 6F 20 6E 62 66 for z:=1 to nbf
02C150: 6F 6E 63 20 64 6F 0D 0A 20 20 62 65 67 69 6E 0D onc do.. begin.
02C160: 0A 20 20 63 61 73 65 20 63 68 6F 69 78 20 6F 66 . case choix of
02C170: 0D 0A 20 20 31 3A 20 62 65 67 69 6E 0D 0A 20 20 .. 1: begin..
02C180: 78 3A 3D 78 78 64 3B 70 72 65 63 65 64 65 3A 3D x:=xxd;precede:=
02C190: 66 61 6C 73 65 3B 0D 0A 20 20 69 66 20 72 65 76 false;.. if rev
02C1A0: 6F 69 72 3D 30 20 74 68 65 6E 0D 0A 20 20 62 65 oir=0 then.. be
02C1B0: 67 69 6E 0D 0A 20 20 20 20 69 66 20 6D 5B 66 78 gin.. if m[fx
02C1C0: 5B 7A 5D 5D 3E 30 20 74 68 65 6E 0D 0A 20 20 20 [z]]>0 then..
02C1D0: 20 20 62 65 67 69 6E 20 66 6F 72 20 62 6B 3A 3D begin for bk:=
02C1E0: 31 20 74 6F 20 6D 5B 66 78 5B 7A 5D 5D 20 64 6F 1 to m[fx[z]] do
02C1F0: 0D 0A 20 20 20 20 20 20 20 20 20 62 65 67 69 6E .. begin
02C200: 0D 0A 20 20 20 20 20 20 20 20 20 69 6E 64 65 78 .. index
02C210: 3A 3D 69 6E 64 65 78 2B 31 3B 70 5B 62 6B 2C 66 :=index+1;p[bk,f
02C220: 78 5B 7A 5D 5D 3A 3D 6C 64 61 5B 69 6E 64 65 78 x[z]]:=lda[index
02C230: 5D 3B 0D 0A 20 20 20 20 20 20 20 20 20 65 6E 64 ];.. end
02C240: 3B 0D 0A 20 20 20 20 20 65 6E 64 3B 0D 0A 20 20 ;.. end;..
02C250: 65 6E 64 3B 0D 0A 20 20 77 68 69 6C 65 20 78 3C end;.. while x<
02C260: 78 78 61 20 64 6F 0D 0A 20 20 62 65 67 69 6E 0D xxa do.. begin.
02C270: 0A 20 20 64 65 66 69 6E 69 3A 3D 74 72 75 65 3B . defini:=true;
02C280: 69 3A 3D 66 78 5B 7A 5D 3B 0D 0A 20 20 20 20 20 i:=fx[z];..
02C290: 20 20 20 20 72 65 73 75 6C 74 61 74 3A 3D 63 61 resultat:=ca
02C2A0: 6C 63 75 6C 28 66 5B 66 78 5B 7A 5D 5D 2C 78 29 lcul(f[fx[z]],x)
02C2B0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 69 66 20 28 ;.. if (
02C2C0: 28 64 65 66 69 6E 69 3D 74 72 75 65 29 20 61 6E (defini=true) an
02C2D0: 64 20 28 61 62 73 28 72 65 73 75 6C 74 61 74 29 d (abs(resultat)
02C2E0: 3C 31 30 30 30 29 29 20 74 68 65 6E 20 62 65 67 <1000)) then beg
02C2F0: 69 6E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 in..
02C300: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02C310: 20 20 78 70 3A 3D 72 6F 75 6E 64 28 78 2A 75 78 xp:=round(x*ux
02C320: 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 );..
02C330: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02C340: 20 20 79 70 3A 3D 72 6F 75 6E 64 28 72 65 73 75 yp:=round(resu
02C350: 6C 74 61 74 2A 75 79 29 3B 0D 0A 20 20 20 20 20 ltat*uy);..
02C360: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02C370: 20 20 20 20 20 20 20 20 20 69 66 20 70 72 65 63 if prec
02C380: 65 64 65 3D 66 61 6C 73 65 20 74 68 65 6E 20 70 ede=false then p
02C390: 6C 6F 74 28 78 70 2C 79 70 29 0D 0A 20 20 20 20 lot(xp,yp)..
02C3A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02C3B0: 20 20 20 20 20 20 20 20 20 20 65 6C 73 65 20 64 else d
02C3C0: 72 61 77 28 78 70 2C 79 70 29 3B 0D 0A 20 20 20 raw(xp,yp);..
02C3D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02C3E0: 20 20 20 20 20 20 20 20 20 20 20 70 72 65 63 65 prece
02C3F0: 64 65 3A 3D 74 72 75 65 3B 0D 0A 20 20 20 20 20 de:=true;..
02C400: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02C410: 20 20 20 20 20 20 20 20 65 6E 64 0D 0A 20 20 20 end..
02C420: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02C430: 20 20 20 20 20 20 20 20 20 20 65 6C 73 65 0D 0A else..
02C440: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02C450: 20 20 20 20 20 20 20 20 20 20 20 20 20 70 72 65 pre
02C460: 63 65 64 65 3A 3D 66 61 6C 73 65 3B 0D 0A 20 20 cede:=false;..
02C470: 20 20 20 20 20 20 78 3A 3D 78 2B 70 61 73 3B 0D x:=x+pas;.
02C480: 0A 20 20 20 20 20 65 6E 64 3B 0D 0A 20 20 20 20 . end;..
02C490: 65 6E 64 3B 0D 0A 20 20 20 32 3A 20 62 65 67 69 end;.. 2: begi
02C4A0: 6E 0D 0A 20 20 20 78 3A 3D 78 78 64 3B 70 72 65 n.. x:=xxd;pre
02C4B0: 63 65 64 65 3A 3D 66 61 6C 73 65 3B 0D 0A 20 20 cede:=false;..
02C4C0: 20 69 66 20 72 65 76 6F 69 72 3D 30 20 74 68 65 if revoir=0 the
02C4D0: 6E 0D 0A 20 20 20 62 65 67 69 6E 0D 0A 20 20 20 n.. begin..
02C4E0: 20 69 66 20 6D 5B 66 78 5B 7A 5D 5D 3E 30 20 74 if m[fx[z]]>0 t
02C4F0: 68 65 6E 0D 0A 20 20 20 20 62 65 67 69 6E 20 66 hen.. begin f
02C500: 6F 72 20 62 6B 3A 3D 31 20 74 6F 20 6D 5B 66 78 or bk:=1 to m[fx
02C510: 5B 7A 5D 5D 20 64 6F 0D 0A 20 20 20 20 20 20 20 [z]] do..
02C520: 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 begin..
02C530: 20 20 69 6E 64 65 78 3A 3D 69 6E 64 65 78 2B 31 index:=index+1
02C540: 3B 70 5B 62 6B 2C 66 78 5B 7A 5D 5D 3A 3D 6C 64 ;p[bk,fx[z]]:=ld
02C550: 61 5B 69 6E 64 65 78 5D 3B 0D 0A 20 20 20 20 20 a[index];..
02C560: 20 20 20 20 65 6E 64 3B 0D 0A 20 20 20 20 65 6E end;.. en
02C570: 64 3B 0D 0A 20 20 20 20 69 66 20 6D 5B 66 79 5B d;.. if m[fy[
02C580: 7A 5D 5D 3E 30 20 74 68 65 6E 0D 0A 20 20 20 20 z]]>0 then..
02C590: 62 65 67 69 6E 20 66 6F 72 20 62 6B 3A 3D 31 20 begin for bk:=1
02C5A0: 74 6F 20 6D 5B 66 79 5B 7A 5D 5D 20 64 6F 0D 0A to m[fy[z]] do..
02C5B0: 20 20 20 20 20 20 20 20 20 62 65 67 69 6E 0D 0A begin..
02C5C0: 20 20 20 20 20 20 20 20 20 69 6E 64 65 78 3A 3D index:=
02C5D0: 69 6E 64 65 78 2B 31 3B 70 5B 62 6B 2C 66 79 5B index+1;p[bk,fy[
02C5E0: 7A 5D 5D 3A 3D 6C 64 61 5B 69 6E 64 65 78 5D 3B z]]:=lda[index];
02C5F0: 0D 0A 20 20 20 20 20 20 20 20 20 65 6E 64 3B 0D .. end;.
02C600: 0A 20 20 20 20 65 6E 64 3B 0D 0A 20 20 20 65 6E . end;.. en
02C610: 64 3B 0D 0A 20 20 20 77 68 69 6C 65 20 78 3C 78 d;.. while x<x
02C620: 78 61 20 64 6F 0D 0A 20 20 20 62 65 67 69 6E 0D xa do.. begin.
02C630: 0A 20 20 20 64 65 66 69 6E 69 3A 3D 74 72 75 65 . defini:=true
02C640: 3B 69 3A 3D 66 78 5B 7A 5D 3B 0D 0A 20 20 20 20 ;i:=fx[z];..
02C650: 20 20 20 20 20 20 72 65 73 75 6C 74 61 74 3A 3D resultat:=
02C660: 63 61 6C 63 75 6C 28 66 5B 66 78 5B 7A 5D 5D 2C calcul(f[fx[z]],
02C670: 78 29 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 69 x);.. i
02C680: 66 20 28 28 64 65 66 69 6E 69 3D 74 72 75 65 29 f ((defini=true)
02C690: 20 61 6E 64 20 28 61 62 73 28 72 65 73 75 6C 74 and (abs(result
02C6A0: 61 74 29 3C 31 30 30 30 29 29 20 74 68 65 6E 20 at)<1000)) then
02C6B0: 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 20 begin..
02C6C0: 20 78 70 3A 3D 72 6F 75 6E 64 28 72 65 73 75 6C xp:=round(resul
02C6D0: 74 61 74 2A 75 78 29 3B 69 3A 3D 66 79 5B 7A 5D tat*ux);i:=fy[z]
02C6E0: 3B 0D 0A 20 20 20 20 20 20 20 20 20 20 72 65 73 ;.. res
02C6F0: 75 6C 74 61 74 3A 3D 63 61 6C 63 75 6C 28 66 5B ultat:=calcul(f[
02C700: 66 79 5B 7A 5D 5D 2C 78 29 3B 0D 0A 20 20 20 20 fy[z]],x);..
02C710: 20 20 20 20 20 20 69 66 20 28 28 64 65 66 69 6E if ((defin
02C720: 69 3D 74 72 75 65 29 20 61 6E 64 20 28 61 62 73 i=true) and (abs
02C730: 28 72 65 73 75 6C 74 61 74 29 3C 31 30 30 30 29 (resultat)<1000)
02C740: 29 20 74 68 65 6E 20 62 65 67 69 6E 0D 0A 20 20 ) then begin..
02C750: 20 20 20 20 20 20 20 20 79 70 3A 3D 72 6F 75 6E yp:=roun
02C760: 64 28 72 65 73 75 6C 74 61 74 2A 75 79 29 3B 0D d(resultat*uy);.
02C770: 0A 20 20 20 20 20 20 20 20 20 20 69 66 20 70 72 . if pr
02C780: 65 63 65 64 65 3D 66 61 6C 73 65 20 74 68 65 6E ecede=false then
02C790: 20 70 6C 6F 74 28 78 70 2C 79 70 29 20 65 6C 73 plot(xp,yp) els
02C7A0: 65 20 64 72 61 77 28 78 70 2C 79 70 29 3B 0D 0A e draw(xp,yp);..
02C7B0: 20 20 20 20 20 20 20 20 20 20 70 72 65 63 65 64 preced
02C7C0: 65 3A 3D 74 72 75 65 3B 0D 0A 20 20 20 20 20 20 e:=true;..
02C7D0: 20 20 20 20 65 6E 64 0D 0A 20 20 20 20 20 20 20 end..
02C7E0: 20 20 20 65 6C 73 65 20 70 72 65 63 65 64 65 3A else precede:
02C7F0: 3D 66 61 6C 73 65 0D 0A 20 20 20 20 20 20 20 20 =false..
02C800: 20 20 65 6E 64 0D 0A 20 20 20 20 20 20 20 20 20 end..
02C810: 20 65 6C 73 65 20 70 72 65 63 65 64 65 3A 3D 66 else precede:=f
02C820: 61 6C 73 65 3B 0D 0A 20 20 20 20 20 20 20 78 3A alse;.. x:
02C830: 3D 78 2B 70 61 73 3B 0D 0A 20 20 20 20 20 65 6E =x+pas;.. en
02C840: 64 3B 0D 0A 20 20 20 65 6E 64 3B 0D 0A 20 20 33 d;.. end;.. 3
02C850: 3A 62 65 67 69 6E 0D 0A 20 20 78 3A 3D 78 78 64 :begin.. x:=xxd
02C860: 3B 70 72 65 63 65 64 65 3A 3D 66 61 6C 73 65 3B ;precede:=false;
02C870: 0D 0A 20 20 69 66 20 72 65 76 6F 69 72 3D 30 20 .. if revoir=0
02C880: 74 68 65 6E 0D 0A 20 20 62 65 67 69 6E 0D 0A 20 then.. begin..
02C890: 20 20 69 66 20 6D 5B 66 78 5B 7A 5D 5D 3E 30 20 if m[fx[z]]>0
02C8A0: 74 68 65 6E 0D 0A 20 20 20 62 65 67 69 6E 20 20 then.. begin
02C8B0: 66 6F 72 20 62 6B 3A 3D 31 20 74 6F 20 6D 5B 66 for bk:=1 to m[f
02C8C0: 78 5B 7A 5D 5D 20 64 6F 0D 0A 20 20 20 20 20 20 x[z]] do..
02C8D0: 20 20 20 62 65 67 69 6E 0D 0A 20 20 20 20 20 20 begin..
02C8E0: 20 20 20 69 6E 64 65 78 3A 3D 69 6E 64 65 78 2B index:=index+
02C8F0: 31 3B 70 5B 62 6B 2C 66 78 5B 7A 5D 5D 3A 3D 6C 1;p[bk,fx[z]]:=l
02C900: 64 61 5B 69 6E 64 65 78 5D 3B 0D 0A 20 20 20 20 da[index];..
02C910: 20 20 20 20 20 65 6E 64 3B 0D 0A 20 20 20 65 6E end;.. en
02C920: 64 3B 0D 0A 20 20 65 6E 64 3B 0D 0A 20 20 77 68 d;.. end;.. wh
02C930: 69 6C 65 20 78 3C 78 78 61 20 64 6F 0D 0A 20 20 ile x<xxa do..
02C940: 62 65 67 69 6E 0D 0A 20 20 20 64 65 66 69 6E 69 begin.. defini
02C950: 3A 3D 74 72 75 65 3B 69 3A 3D 66 78 5B 7A 5D 3B :=true;i:=fx[z];
02C960: 0D 0A 20 20 20 20 20 20 20 20 20 72 65 73 75 6C .. resul
02C970: 74 61 74 3A 3D 63 61 6C 63 75 6C 28 66 5B 66 78 tat:=calcul(f[fx
02C980: 5B 7A 5D 5D 2C 78 29 3B 0D 0A 20 20 20 20 20 20 [z]],x);..
02C990: 20 20 20 69 66 20 28 28 64 65 66 69 6E 69 3D 74 if ((defini=t
02C9A0: 72 75 65 29 20 61 6E 64 20 28 61 62 73 28 72 65 rue) and (abs(re
02C9B0: 73 75 6C 74 61 74 29 3C 31 30 30 30 29 29 20 74 sultat)<1000)) t
02C9C0: 68 65 6E 0D 0A 20 20 20 20 20 20 20 20 20 62 65 hen.. be
02C9D0: 67 69 6E 0D 0A 20 20 20 20 20 20 20 20 20 20 20 gin..
02C9E0: 78 70 3A 3D 72 6F 75 6E 64 28 72 65 73 75 6C 74 xp:=round(result
02C9F0: 61 74 2A 63 6F 73 28 78 29 2A 75 78 29 3B 0D 0A at*cos(x)*ux);..
02CA00: 20 20 20 20 20 20 20 20 20 20 20 79 70 3A 3D 72 yp:=r
02CA10: 6F 75 6E 64 28 72 65 73 75 6C 74 61 74 2A 73 69 ound(resultat*si
02CA20: 6E 28 78 29 2A 75 79 29 3B 0D 0A 20 20 20 20 20 n(x)*uy);..
02CA30: 20 20 20 20 20 20 69 66 20 70 72 65 63 65 64 65 if precede
02CA40: 3D 66 61 6C 73 65 20 74 68 65 6E 20 70 6C 6F 74 =false then plot
02CA50: 28 78 70 2C 79 70 29 20 65 6C 73 65 20 64 72 61 (xp,yp) else dra
02CA60: 77 28 78 70 2C 79 70 29 3B 0D 0A 20 20 20 20 20 w(xp,yp);..
02CA70: 20 20 20 20 20 20 70 72 65 63 65 64 65 3A 3D 74 precede:=t
02CA80: 72 75 65 0D 0A 20 20 20 20 20 20 20 20 20 65 6E rue.. en
02CA90: 64 0D 0A 20 20 20 20 20 20 20 20 20 65 6C 73 65 d.. else
02CAA0: 0D 0A 20 20 20 20 20 20 20 20 20 70 72 65 63 65 .. prece
02CAB0: 64 65 3A 3D 66 61 6C 73 65 3B 0D 0A 20 20 20 20 de:=false;..
02CAC0: 20 20 20 78 3A 3D 78 2B 70 61 73 3B 0D 0A 20 20 x:=x+pas;..
02CAD0: 20 20 65 6E 64 3B 0D 0A 20 20 20 65 6E 64 3B 0D end;.. end;.
02CAE0: 0A 20 20 65 6E 64 3B 0D 0A 20 20 65 6E 64 3B 0D . end;.. end;.
02CAF0: 0A 20 20 67 6F 74 6F 78 79 28 31 2C 32 34 29 3B . gotoxy(1,24);
02CB00: 65 75 78 20 6D 6F 64 75 6C 65 73 3A 0D 0A 0D 0A eux modules:....
02CB10: 20 20 20 20 20 2D 2D 20 46 4F 4E 43 54 49 4F 4E -- FONCTION
02CB20: 2E 43 4F 4D 20 70 6F 75 72 20 63 65 20 71 75 69 .COM pour ce qui
02CB30: 20 65 73 74 20 63 61 6C 63 75 6C 20 66 6F 72 6D est calcul form
02CB40: 65 6C 2C 20 64 65 72 69 76 61 74 69 6F 6E 20 65 el, derivation e
02CB50: 74 0D 0A 20 20 20 20 20 20 20 20 64 65 76 65 6C t.. devel
02CB60: 6F 70 70 65 6D 65 6E 74 73 20 6C 69 6D 69 74 65 oppements limite
02CB70: 73 2E 0D 0A 0D 0A 20 20 20 20 20 2D 2D 20 43 4F s..... -- CO
02CB80: 55 52 42 45 2E 43 4F 4D 20 70 6F 75 72 20 63 65 URBE.COM pour ce
02CB90: 20 71 75 69 20 65 73 74 20 65 74 75 64 65 20 67 qui est etude g
02CBA0: 72 61 70 68 69 71 75 65 2E 0D 0A 0D 0A 20 20 20 raphique.....
02CBB0: 20 4C 65 73 20 62 61 72 72 69 65 72 65 73 20 61 Les barrieres a
02CBC0: 75 78 20 65 6E 74 72 65 65 73 20 73 6F 6E 74 20 ux entrees sont
02CBD0: 74 72 65 73 20 6C 69 6D 69 74 65 65 73 2C 20 76 tres limitees, v
02CBE0: 6F 75 73 20 70 6F 75 76 65 7A 0D 0A 20 20 20 20 ous pouvez..
02CBF0: 20 3C 70 6C 61 6E 74 65 72 3E 20 74 6F 75 74 20 <planter> tout
02CC00: 61 20 6C 6F 69 73 69 72 20 63 65 73 20 70 72 6F a loisir ces pro
02CC10: 67 72 61 6D 6D 65 73 2E 2E 2E 0D 0A 0D 0A 0D 0A grammes.........
02CC20: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 4C ************* L
02CC30: 65 73 20 65 6E 74 72 65 65 73 20 64 65 20 66 6F es entrees de fo
02CC40: 6E 63 74 69 6F 6E 73 20 2A 2A 2A 2A 2A 2A 2A 2A nctions ********
02CC50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
02CC60: 2A 2A 0D 0A 0D 0A 20 56 6F 75 73 20 64 65 76 65 **.... Vous deve
02CC70: 7A 20 65 6E 74 72 65 72 20 54 4F 55 53 20 6C 65 z entrer TOUS le
02CC80: 73 20 73 79 6D 62 6F 6C 65 73 20 6F 70 65 72 61 s symboles opera
02CC90: 74 6F 69 72 65 73 3A 0D 0A 20 20 2A 2C 2B 2C 2D toires:.. *,+,-
02CCA0: 2C 2F 2C 5E 20 61 76 65 63 20 6C 65 73 20 70 61 ,/,^ avec les pa
02CCB0: 72 65 6E 74 68 65 73 65 73 20 69 6E 64 69 73 70 rentheses indisp
02CCC0: 65 6E 73 61 62 6C 65 73 2E 0D 0A 20 20 20 45 78 ensables... Ex
02CCD0: 65 6D 70 6C 65 3A 20 33 2A 78 5E 32 2D 63 6F 73 emple: 3*x^2-cos
02CCE0: 28 32 2A 78 29 20 6F 75 20 28 32 2A 78 2B 31 29 (2*x) ou (2*x+1)
02CCF0: 5E 32 20 6F 75 20 28 78 2D 31 29 5E 2D 32 0D 0A ^2 ou (x-1)^-2..
02CD00: 20 20 20 20 20 20 20 20 20 20 20 20 28 32 2A 78 (2*x
02CD10: 2B 31 29 2F 28 33 2A 78 2D 35 29 0D 0A 0D 0A 20 +1)/(3*x-5)....
02CD20: 4C 65 73 20 66 6F 6E 63 74 69 6F 6E 73 20 73 75 Les fonctions su
02CD30: 69 76 61 6E 74 65 73 20 73 6F 6E 74 20 64 65 66 ivantes sont def
02CD40: 69 6E 69 65 73 3A 0D 0A 20 20 20 20 20 20 6C 6E inies:.. ln
02CD50: 3A 20 20 6C 6F 67 61 72 69 74 6D 65 20 6E 65 70 : logaritme nep
02CD60: 65 72 69 65 6E 2C 0D 0A 20 20 20 20 20 20 65 78 erien,.. ex
02CD70: 70 3A 20 66 6F 6E 63 74 69 6F 6E 20 65 78 70 6F p: fonction expo
02CD80: 6E 65 6E 74 69 65 6C 6C 65 2C 0D 0A 20 20 20 20 nentielle,..
02CD90: 20 20 73 69 6E 3A 20 73 69 6E 75 73 2C 20 63 6F sin: sinus, co
02CDA0: 73 3A 20 63 6F 73 69 6E 75 73 2C 20 74 61 6E 67 s: cosinus, tang
02CDB0: 3A 20 74 61 6E 67 65 6E 74 65 2C 0D 0A 20 20 20 : tangente,..
02CDC0: 20 20 20 28 6C 65 73 20 61 72 63 73 20 73 6F 6E (les arcs son
02CDD0: 74 20 65 78 70 72 69 6D 65 73 20 65 6E 20 52 41 t exprimes en RA
02CDE0: 44 49 41 4E 53 29 0D 0A 20 20 20 20 20 20 73 71 DIANS).. sq
02CDF0: 72 74 3A 20 72 61 64 69 63 61 6C 20 6F 75 20 72 rt: radical ou r
02CE00: 61 63 69 6E 65 20 63 61 72 72 65 65 2C 0D 0A 20 acine carree,..
02CE10: 20 20 20 20 20 73 68 3A 20 20 20 73 69 6E 75 73 sh: sinus
02CE20: 20 68 79 70 65 72 62 6F 6C 69 71 75 65 2C 20 63 hyperbolique, c
02CE30: 68 3A 20 63 6F 73 69 6E 75 73 20 68 79 70 65 72 h: cosinus hyper
02CE40: 62 6F 6C 69 71 75 65 2C 0D 0A 20 20 20 20 20 20 bolique,..
02CE50: 74 68 3A 20 20 20 74 61 6E 67 65 6E 74 65 20 68 th: tangente h
02CE60: 79 70 65 72 62 6F 6C 69 71 75 65 2C 0D 0A 20 20 yperbolique,..
02CE70: 20 20 20 20 61 72 63 73 69 6E 3A 20 61 72 63 73 arcsin: arcs
02CE80: 69 6E 75 73 2C 20 66 6F 6E 63 74 69 6F 6E 20 72 inus, fonction r
02CE90: 65 63 69 70 72 6F 71 75 65 20 64 65 20 73 69 6E eciproque de sin
02CEA0: 75 73 2C 0D 0A 20 20 20 20 20 20 61 72 63 63 6F us,.. arcco
02CEB0: 73 3A 20 61 72 63 63 6F 73 69 6E 75 73 20 72 65 s: arccosinus re
02CEC0: 63 69 70 72 6F 71 75 65 20 64 65 20 63 6F 73 69 ciproque de cosi
02CED0: 6E 75 73 2C 0D 0A 20 20 20 20 20 20 61 72 63 74 nus,.. arct
02CEE0: 61 6E 3A 20 61 72 63 74 61 6E 67 65 6E 74 65 20 an: arctangente
02CEF0: 72 65 63 69 70 72 6F 71 75 65 20 64 65 20 74 61 reciproque de ta
02CF00: 6E 67 65 6E 74 65 2C 0D 0A 0D 0A 20 20 20 54 6F ngente,.... To
02CF10: 75 74 65 73 20 63 65 73 20 66 6F 6E 63 74 69 6F utes ces fonctio
02CF20: 6E 73 20 73 6F 6E 74 20 64 65 72 69 76 61 62 6C ns sont derivabl
02CF30: 65 73 20 66 6F 72 6D 65 6C 6C 65 6D 65 6E 74 2E es formellement.
02CF40: 0D 0A 0D 0A 20 44 65 75 78 20 66 6F 6E 63 74 69 .... Deux foncti
02CF50: 6F 6E 73 20 73 75 70 70 6C 65 6D 65 6E 74 61 69 ons supplementai
02CF60: 72 65 73 20 71 75 27 69 6C 20 76 61 75 74 20 6D res qu'il vaut m
02CF70: 69 65 75 78 20 65 76 69 74 65 72 20 64 65 20 64 ieux eviter de d
02CF80: 65 72 69 76 65 72 3A 0D 0A 20 20 20 20 20 20 69 eriver:.. i
02CF90: 6E 74 3A 20 70 61 72 74 69 65 20 65 6E 74 69 65 nt: partie entie
02CFA0: 72 65 2C 0D 0A 20 20 20 20 20 20 61 62 73 3A 20 re,.. abs:
02CFB0: 76 61 6C 65 75 72 20 61 62 73 6F 6C 75 65 2E 0D valeur absolue..
02CFC0: 0A 0D 0A 20 56 6F 75 73 20 70 6F 75 76 65 7A 20 ... Vous pouvez
02CFD0: 65 6E 74 72 65 72 20 64 65 73 20 70 61 72 61 6D entrer des param
02CFE0: 65 74 72 65 73 20 74 72 65 73 20 75 74 69 6C 65 etres tres utile
02CFF0: 73 20 70 6F 75 72 20 6C 27 65 74 75 64 65 20 67 s pour l'etude g
02D000: 72 61 70 68 69 71 75 65 0D 0A 20 64 27 75 6E 65 raphique.. d'une
02D010: 20 66 61 6D 69 6C 6C 65 20 64 65 20 63 6F 75 72 famille de cour
02D020: 62 65 73 2E 0D 0A 0D 0A 20 50 6F 75 72 20 65 6E bes..... Pour en
02D030: 74 72 65 72 20 6C 65 73 20 70 61 72 61 6D 65 74 trer les paramet
02D040: 72 65 73 3A 20 70 28 69 29 2C 20 69 20 65 74 61 res: p(i), i eta
02D050: 6E 74 20 6C 65 20 6E 75 6D 65 72 6F 20 64 75 20 nt le numero du
02D060: 70 61 72 61 6D 65 74 72 65 2C 0D 0A 20 20 69 20 parametre,.. i
02D070: 64 65 76 61 6E 74 20 65 74 72 65 20 63 6F 6D 70 devant etre comp
02D080: 72 69 73 20 65 6E 74 72 65 20 31 20 65 74 20 33 ris entre 1 et 3
02D090: 2E 0D 0A 0D 0A 0D 0A 0D 0A 20 20 53 49 20 56 4F ......... SI VO
02D0A0: 55 53 20 4E 27 45 4E 54 52 45 5A 20 50 41 53 20 US N'ENTREZ PAS
02D0B0: 43 4F 52 52 45 43 54 45 4D 45 4E 54 20 56 4F 54 CORRECTEMENT VOT
02D0C0: 52 45 20 46 4F 4E 43 54 49 4F 4E 20 56 4F 55 53 RE FONCTION VOUS
02D0D0: 20 41 55 52 45 5A 0D 0A 20 20 55 4E 20 4D 45 53 AUREZ.. UN MES
02D0E0: 53 41 47 45 20 44 27 45 52 52 45 55 52 20 45 54 SAGE D'ERREUR ET
02D0F0: 20 55 4E 20 4E 55 4D 45 52 4F 3A 0D 0A 0D 0A 20 UN NUMERO:....
02D100: 20 65 72 72 65 75 72 20 6E 2E 31 3A 20 70 20 6E erreur n.1: p n
02D110: 27 65 73 74 20 70 61 73 20 73 75 69 76 69 20 64 'est pas suivi d
02D120: 65 20 28 0D 0A 20 20 65 72 72 65 75 72 20 6E 2E e (.. erreur n.
02D130: 32 3A 20 70 28 69 20 6E 27 65 73 74 20 70 61 73 2: p(i n'est pas
02D140: 20 73 75 69 76 69 20 64 65 20 29 0D 0A 20 20 65 suivi de ).. e
02D150: 72 72 65 75 72 20 6E 2E 33 3A 20 70 61 72 20 65 rreur n.3: par e
02D160: 78 65 6D 70 6C 65 20 63 6F 73 28 33 2A 78 20 6E xemple cos(3*x n
02D170: 27 65 73 74 20 70 61 73 20 73 75 69 76 69 20 64 'est pas suivi d
02D180: 65 20 29 0D 0A 20 20 65 72 72 65 75 72 20 6E 2E e ).. erreur n.
02D190: 34 3A 20 76 6F 75 73 20 6E 27 61 76 65 7A 20 70 4: vous n'avez p
02D1A0: 61 73 20 6F 75 76 65 72 74 20 64 65 20 70 61 72 as ouvert de par
02D1B0: 65 6E 74 68 65 73 65 20 61 70 72 65 73 20 75 6E enthese apres un
02D1C0: 65 20 66 6F 6E 63 74 69 6F 6E 0D 0A 20 20 20 20 e fonction..
02D1D0: 20 20 20 20 20 20 20 20 20 20 65 78 20 63 6F 73 ex cos
02D1E0: 33 0D 0A 20 20 65 72 72 65 75 72 20 6E 2E 35 3A 3.. erreur n.5:
02D1F0: 20 6C 27 69 64 65 6E 74 69 66 69 63 61 74 65 75 l'identificateu
02D200: 72 20 64 65 20 66 6F 6E 63 74 69 6F 6E 20 65 73 r de fonction es
02D210: 74 20 69 6E 63 6F 6E 6E 75 2C 20 65 78 20 6C 6F t inconnu, ex lo
02D220: 67 28 2E 2E 2C 0D 0A 20 20 65 72 72 65 75 72 20 g(..,.. erreur
02D230: 6E 2E 36 3A 20 6C 65 20 6E 6F 6D 62 72 65 20 71 n.6: le nombre q
02D240: 75 65 20 76 6F 75 73 20 61 76 65 7A 20 65 6E 74 ue vous avez ent
02D250: 72 65 20 6E 65 20 70 65 75 74 20 65 74 72 65 20 re ne peut etre
02D260: 69 6E 74 65 72 70 72 65 74 65 0D 0A 20 20 20 20 interprete..
02D270: 20 20 20 20 20 20 20 20 20 20 65 78 3A 20 30 2E ex: 0.
02D280: 31 2E 32 0D 0A 20 20 65 72 72 65 75 72 20 6E 2E 1.2.. erreur n.
02D290: 37 3A 20 76 6F 75 73 20 6E 65 20 66 65 72 6D 65 7: vous ne ferme
02D2A0: 7A 20 70 61 73 20 6C 61 20 70 61 72 65 6E 74 68 z pas la parenth
02D2B0: 65 73 65 20 6F 75 76 65 72 74 65 20 70 6F 75 72 ese ouverte pour
02D2C0: 20 75 6E 20 66 61 63 74 65 75 72 2C 0D 0A 20 20 un facteur,..
02D2D0: 65 72 72 65 75 72 20 6E 2E 38 3A 20 76 6F 75 73 erreur n.8: vous
02D2E0: 20 63 6F 6D 6D 65 6E 63 65 7A 20 75 6E 20 66 61 commencez un fa
02D2F0: 63 74 65 75 72 20 64 65 20 6D 61 6E 69 65 72 65 cteur de maniere
02D300: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
02D310: 26 00 00 00 02 09 4E E5 26 00 41 02 00 00 00 02 &.....N.&.A.....
02D320: 26 00 42 02 00 00 00 02 26 00 43 02 00 00 00 02 &.B.....&.C.....
02D330: 26 00 44 02 00 00 00 02 26 00 45 02 00 00 00 02 &.D.....&.E.....
02D340: 26 00 46 02 00 00 00 02 26 00 47 02 00 00 00 02 &.F.....&.G.....
02D350: 26 00 48 02 00 00 00 02 26 00 49 02 00 00 00 02 &.H.....&.I.....
02D360: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D370: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D380: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D390: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D3A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D3B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D3C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D3D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D3E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D3F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02D400: 20 69 6E 63 6F 72 72 65 63 74 65 2C 0D 0A 20 20 incorrecte,..
02D410: 65 72 72 65 75 72 20 6E 2E 39 3A 20 76 6F 75 73 erreur n.9: vous
02D420: 20 65 6E 74 72 65 7A 20 75 6E 65 20 65 78 70 72 entrez une expr
02D430: 65 73 73 69 6F 6E 20 69 6E 63 6F 72 72 65 63 74 ession incorrect
02D440: 65 2C 0D 0A 20 20 20 20 20 20 20 20 20 20 20 20 e,..
02D450: 20 20 65 78 3A 20 28 28 33 2A 78 2B 31 29 2F 28 ex: ((3*x+1)/(
02D460: 78 2D 32 29 20 70 75 69 73 20 3C 45 4E 54 45 52 x-2) puis <ENTER
02D470: 3E 0D 0A 0D 0A 0D 0A 20 20 4C 45 53 20 4C 49 4D >...... LES LIM
02D480: 49 54 45 53 20 44 45 53 20 44 49 4D 45 4E 53 49 ITES DES DIMENSI
02D490: 4F 4E 4E 45 4D 45 4E 54 53 20 44 45 20 56 41 52 ONNEMENTS DE VAR
02D4A0: 49 41 42 4C 45 53 0D 0A 0D 0A 20 20 55 6E 65 20 IABLES.... Une
02D4B0: 66 6F 6E 63 74 69 6F 6E 20 6E 65 20 70 65 75 74 fonction ne peut
02D4C0: 20 63 6F 6D 70 6F 72 74 65 72 20 70 6C 75 73 20 comporter plus
02D4D0: 64 65 20 32 35 30 20 63 61 72 61 63 74 65 72 65 de 250 caractere
02D4E0: 73 2E 2E 2E 0D 0A 20 20 56 6F 75 73 20 70 6F 75 s..... Vous pou
02D4F0: 76 65 7A 20 65 6E 74 72 65 72 20 61 20 6C 61 20 vez entrer a la
02D500: 66 6F 69 73 20 31 30 20 66 6F 6E 63 74 69 6F 6E fois 10 fonction
02D510: 73 20 6E 75 6D 65 72 6F 74 65 65 73 20 64 65 20 s numerotees de
02D520: 31 20 61 20 31 30 2C 0D 0A 20 20 6C 65 20 6E 75 1 a 10,.. le nu
02D530: 6D 65 72 6F 20 30 20 65 74 61 6E 74 20 72 65 73 mero 0 etant res
02D540: 65 72 76 65 20 70 6F 75 72 20 64 65 73 20 75 73 erve pour des us
02D550: 61 67 65 73 20 69 6E 74 65 72 6E 65 73 20 61 75 ages internes au
02D560: 78 20 70 72 6F 67 72 61 6D 6D 65 73 2E 0D 0A 20 x programmes...
02D570: 20 50 6F 75 72 20 6C 65 73 20 67 72 61 70 68 65 Pour les graphe
02D580: 73 2C 20 75 6E 20 6D 61 78 69 6D 75 6D 20 64 65 s, un maximum de
02D590: 20 31 30 20 67 72 61 70 68 65 73 20 73 75 72 20 10 graphes sur
02D5A0: 6C 65 20 6D 65 6D 65 20 65 63 72 61 6E 2E 0D 0A le meme ecran...
02D5B0: 0D 0A 0D 0A 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A .... **********
02D5C0: 20 4C 65 20 63 61 6C 63 75 6C 20 61 6C 67 65 62 Le calcul algeb
02D5D0: 72 69 71 75 65 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A rique **********
02D5E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
02D5F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D 0A 0D 0A 20 ***********....
02D600: 20 44 65 75 78 20 6F 70 74 69 6F 6E 73 3A 0D 0A Deux options:..
02D610: 0D 0A 20 20 64 65 76 65 6C 6F 70 70 65 72 20 6C .. developper l
02D620: 65 73 20 70 72 6F 64 75 69 74 73 3A 0D 0A 20 20 es produits:..
02D630: 65 78 65 6D 70 6C 65 3A 20 28 33 2A 78 2D 32 29 exemple: (3*x-2)
02D640: 2A 28 78 5E 32 2D 35 2A 78 2B 33 29 20 64 65 76 *(x^2-5*x+3) dev
02D650: 69 65 6E 64 72 61 20 28 33 2A 78 5E 33 2D 31 37 iendra (3*x^3-17
02D660: 2A 78 5E 32 2B 31 39 2A 78 2D 36 29 0D 0A 20 20 *x^2+19*x-6)..
02D670: 63 65 74 74 65 20 6F 70 74 69 6F 6E 20 65 73 74 cette option est
02D680: 20 61 70 70 6C 69 71 75 65 65 20 61 75 74 6F 6D appliquee autom
02D690: 61 74 69 71 75 65 6D 65 6E 74 20 61 75 78 20 64 atiquement aux d
02D6A0: 65 72 69 76 65 65 73 2E 0D 0A 0D 0A 20 20 64 65 erivees..... de
02D6B0: 76 65 6C 6F 70 70 65 72 20 6C 65 73 20 70 75 69 velopper les pui
02D6C0: 73 73 61 6E 63 65 73 20 65 6E 74 69 65 72 65 73 ssances entieres
02D6D0: 3A 0D 0A 20 20 65 78 3A 20 28 78 2B 32 29 5E 33 :.. ex: (x+2)^3
02D6E0: 20 64 65 76 69 65 6E 64 72 61 20 28 78 5E 33 2B deviendra (x^3+
02D6F0: 36 2A 78 5E 32 2B 31 32 2A 78 2B 38 29 0D 0A 0D 6*x^2+12*x+8)...
02D700: 0A 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A . *************
02D710: 20 4C 61 20 64 65 72 69 76 61 74 69 6F 6E 20 2A La derivation *
02D720: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
02D730: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
02D740: 2A 2A 2A 2A 2A 2A 2A 0D 0A 0D 0A 20 20 56 6F 75 *******.... Vou
02D750: 73 20 70 6F 75 76 65 7A 20 61 76 6F 69 72 20 6C s pouvez avoir l
02D760: 27 65 63 72 69 74 75 72 65 20 64 65 20 6C 61 20 'ecriture de la
02D770: 64 65 72 69 76 65 65 20 64 65 20 76 6F 74 72 65 derivee de votre
02D780: 20 66 6F 6E 63 74 69 6F 6E 2C 0D 0A 20 20 28 73 fonction,.. (s
02D790: 61 75 66 20 73 69 20 63 65 6C 6C 65 2D 63 69 20 auf si celle-ci
02D7A0: 63 6F 6E 74 69 65 6E 74 20 49 4E 54 20 6F 75 20 contient INT ou
02D7B0: 41 42 53 29 0D 0A 20 20 63 65 74 74 65 20 64 65 ABS).. cette de
02D7C0: 72 69 76 65 65 20 61 75 72 61 20 6C 65 20 6E 75 rivee aura le nu
02D7D0: 6D 65 72 6F 20 64 65 20 76 6F 74 72 65 20 63 68 mero de votre ch
02D7E0: 6F 69 78 20 65 74 20 76 6F 75 73 20 70 6F 75 72 oix et vous pour
02D7F0: 72 65 7A 20 6C 75 69 0D 0A 20 20 61 70 70 6C 69 rez lui.. appli
02D800: 71 75 65 72 20 6C 27 65 6E 73 65 6D 62 6C 65 20 quer l'ensemble
02D810: 64 75 20 6D 65 6E 75 2C 20 64 6F 6E 63 20 65 76 du menu, donc ev
02D820: 69 64 65 6D 6D 65 6E 74 20 6C 61 20 64 65 72 69 idemment la deri
02D830: 76 65 72 2E 2E 2E 2E 0D 0A 0D 0A 0D 0A 20 20 2A ver.......... *
02D840: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 4C 65 73 ************ Les
02D850: 20 63 61 6C 63 75 6C 73 20 6E 75 6D 65 72 69 71 calculs numeriq
02D860: 75 65 73 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ues ************
02D870: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
02D880: 2A 2A 0D 0A 0D 0A 20 20 56 6F 75 73 20 70 6F 75 **.... Vous pou
02D890: 76 65 7A 20 61 76 6F 69 72 20 6C 61 20 76 61 6C vez avoir la val
02D8A0: 65 75 72 20 6E 75 6D 65 72 69 71 75 65 20 64 65 eur numerique de
02D8B0: 20 76 6F 74 72 65 20 66 6F 6E 63 74 69 6F 6E 20 votre fonction
02D8C0: 70 6F 75 72 20 74 6F 75 74 20 78 2C 0D 0A 20 20 pour tout x,..
02D8D0: 73 69 20 76 6F 74 72 65 20 66 6F 6E 63 74 69 6F si votre fonctio
02D8E0: 6E 20 63 6F 6E 74 69 65 6E 74 20 75 6E 20 6F 75 n contient un ou
02D8F0: 20 64 65 73 20 70 61 72 61 6D 65 74 72 65 73 2C des parametres,
02D900: 20 69 6C 20 76 6F 75 73 20 73 65 72 61 20 64 65 il vous sera de
02D910: 6D 61 6E 64 65 0D 0A 20 20 6C 65 75 72 28 73 29 mande.. leur(s)
02D920: 20 76 61 6C 65 75 72 28 73 29 2E 0D 0A 0D 0A 20 valeur(s).....
02D930: 20 53 69 20 6C 61 20 66 6F 6E 63 74 69 6F 6E 20 Si la fonction
02D940: 6E 27 65 73 74 20 70 61 73 20 64 65 66 69 6E 69 n'est pas defini
02D950: 65 2C 20 63 65 6C 61 20 76 6F 75 73 20 73 65 72 e, cela vous ser
02D960: 61 20 69 6E 64 69 71 75 65 2E 0D 0A 20 20 41 69 a indique... Ai
02D970: 6E 73 69 20 73 69 20 76 6F 75 73 20 61 76 65 7A nsi si vous avez
02D980: 20 66 31 28 78 29 3D 73 71 72 74 28 32 2D 78 29 f1(x)=sqrt(2-x)
02D990: 20 65 74 20 73 69 20 76 6F 75 73 20 65 6E 74 72 et si vous entr
02D9A0: 65 7A 20 78 3D 33 0D 0A 20 20 76 6F 75 73 20 61 ez x=3.. vous a
02D9B0: 75 72 65 7A 20 6C 65 20 6D 65 73 73 61 67 65 20 urez le message
02D9C0: 66 31 28 33 29 20 6E 27 65 73 74 20 70 61 73 20 f1(3) n'est pas
02D9D0: 64 65 66 69 6E 69 65 2E 0D 0A 0D 0A 0D 0A 20 20 definie.......
02D9E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 4C 65 ************* Le
02D9F0: 73 20 64 65 76 65 6C 6F 70 70 65 6D 65 6E 74 73 s developpements
02DA00: 20 6C 69 6D 69 74 65 73 20 2A 2A 2A 2A 2A 2A 2A limites *******
02DA10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
02DA20: 2A 2A 2A 2A 0D 0A 0D 0A 20 20 56 6F 75 73 20 61 ****.... Vous a
02DA30: 75 72 65 7A 20 6C 65 20 64 65 76 65 6C 6F 70 70 urez le developp
02DA40: 65 6D 65 6E 74 20 6C 69 6D 69 74 65 20 64 65 20 ement limite de
02DA50: 76 6F 74 72 65 20 66 6F 6E 63 74 69 6F 6E 20 61 votre fonction a
02DA60: 75 20 76 6F 69 73 69 6E 61 67 65 0D 0A 20 20 64 u voisinage.. d
02DA70: 65 20 78 3D 30 20 61 20 6C 27 6F 72 64 72 65 20 e x=0 a l'ordre
02DA80: 71 75 65 20 76 6F 75 73 20 64 65 73 69 72 65 7A que vous desirez
02DA90: 2E 2E 0D 0A 20 20 4E 27 61 62 75 73 65 7A 20 70 .... N'abusez p
02DAA0: 61 73 20 3A 20 64 65 6D 61 6E 64 65 72 20 6C 65 as : demander le
02DAB0: 20 64 65 76 65 6C 6F 70 70 65 6D 65 6E 74 20 6C developpement l
02DAC0: 69 6D 69 74 65 20 64 65 0D 0A 20 20 20 20 20 66 imite de.. f
02DAD0: 31 28 78 29 3D 61 72 63 73 69 6E 28 33 2A 78 5E 1(x)=arcsin(3*x^
02DAE0: 32 2D 35 2A 78 29 20 61 20 6C 27 6F 72 64 72 65 2-5*x) a l'ordre
02DAF0: 20 36 0D 0A 0D 0A 20 20 76 6F 75 73 20 61 6D 65 6.... vous ame
02DB00: 6E 65 72 61 20 61 70 72 65 73 20 75 6E 20 74 65 nera apres un te
02DB10: 6D 70 73 20 63 65 72 74 61 69 6E 20 6C 65 20 6D mps certain le m
02DB20: 65 73 73 61 67 65 3A 0D 0A 20 20 20 20 3C 3C 3C essage:.. <<<
02DB30: 3C 3C 20 52 55 4E 2D 54 49 4D 45 20 45 52 52 4F << RUN-TIME ERRO
02DB40: 52 20 46 46 2C 20 50 43 3D 2E 2E 2E 2E 20 3E 3E R FF, PC=.... >>
02DB50: 3E 3E 3E 3E 3E 3E 3E 0D 0A 0D 0A 20 20 43 45 4C >>>>>>>.... CEL
02DB60: 41 20 56 45 55 54 20 44 49 52 45 20 51 55 45 20 A VEUT DIRE QUE
02DB70: 4C 27 45 53 50 41 43 45 20 41 4C 4C 4F 55 45 20 L'ESPACE ALLOUE
02DB80: 41 55 58 20 50 4F 49 4E 54 45 55 52 53 20 45 53 AUX POINTEURS ES
02DB90: 54 20 45 4E 54 52 45 20 45 4E 0D 0A 20 20 43 4F T ENTRE EN.. CO
02DBA0: 4C 4C 49 53 49 4F 4E 20 41 56 45 43 20 4C 27 45 LLISION AVEC L'E
02DBB0: 53 50 41 43 45 20 41 4C 4C 4F 55 45 20 41 55 58 SPACE ALLOUE AUX
02DBC0: 20 50 52 4F 43 45 44 55 52 45 53 20 52 45 43 55 PROCEDURES RECU
02DBD0: 52 53 49 56 45 53 0D 0A 0D 0A 20 20 4C 65 73 20 RSIVES.... Les
02DBE0: 75 6E 73 20 65 74 20 6C 65 73 20 61 75 74 72 65 uns et les autre
02DBF0: 73 20 6E 65 20 6D 61 6E 71 75 61 6E 74 20 70 61 s ne manquant pa
02DC00: 73 20 64 61 6E 73 20 63 65 73 20 70 72 6F 67 72 s dans ces progr
02DC10: 61 6D 6D 65 73 2E 2E 2E 2E 0D 0A 0D 0A 0D 0A 20 ammes..........
02DC20: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 4C 65 73 ************ Les
02DC30: 20 67 72 61 70 68 65 73 20 2A 2A 2A 2A 2A 2A 2A graphes *******
02DC40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
02DC50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
02DC60: 2A 2A 2A 2A 0D 0A 0D 0A 20 41 55 20 43 48 4F 49 ****.... AU CHOI
02DC70: 58 3A 0D 0A 0D 0A 20 43 4F 55 52 42 45 53 20 79 X:.... COURBES y
02DC80: 3D 66 28 78 29 3A 0D 0A 0D 0A 20 43 4F 55 52 42 =f(x):.... COURB
02DC90: 45 53 20 50 41 52 41 4D 45 54 52 49 51 55 45 53 ES PARAMETRIQUES
02DCA0: 20 78 3D 66 28 74 29 2C 20 79 3D 67 28 74 29 3A x=f(t), y=g(t):
02DCB0: 0D 0A 0D 0A 20 43 4F 55 52 42 45 53 20 45 4E 20 .... COURBES EN
02DCC0: 43 4F 4F 52 44 4F 4E 4E 45 45 53 20 50 4F 4C 41 COORDONNEES POLA
02DCD0: 49 52 45 53 20 72 3D 66 28 74 29 3A 0D 0A 0D 0A IRES r=f(t):....
02DCE0: 20 50 6F 75 72 20 63 68 61 63 75 6E 20 64 65 20 Pour chacun de
02DCF0: 63 65 73 20 63 68 6F 69 78 20 69 6C 20 76 6F 75 ces choix il vou
02DD00: 73 20 65 73 74 20 64 65 6D 61 6E 64 65 3A 0D 0A s est demande:..
02DD10: 20 20 2D 2D 2D 20 6C 27 6F 72 69 67 69 6E 65 20 --- l'origine
02DD20: 28 20 63 65 6E 74 72 65 20 64 65 20 6C 27 65 63 ( centre de l'ec
02DD30: 72 61 6E 3A 20 33 32 30 2C 32 30 30 20 29 0D 0A ran: 320,200 )..
02DD40: 20 20 2D 2D 2D 20 6C 27 75 6E 69 74 65 20 64 65 --- l'unite de
02DD50: 73 20 61 62 73 63 69 73 73 65 73 20 65 74 20 64 s abscisses et d
02DD60: 65 73 20 6F 72 64 6F 6E 6E 65 73 20 28 20 65 6E es ordonnes ( en
02DD70: 20 70 6F 69 6E 74 73 2D 65 63 72 61 6E 20 29 0D points-ecran ).
02DD80: 0A 20 20 2D 2D 2D 20 6C 27 69 6E 74 65 72 76 61 . --- l'interva
02DD90: 6C 6C 65 20 64 27 65 74 75 64 65 20 70 6F 75 72 lle d'etude pour
02DDA0: 20 78 20 73 69 20 79 3D 66 28 78 29 20 70 6F 75 x si y=f(x) pou
02DDB0: 72 20 74 20 64 61 6E 73 20 6C 65 73 20 61 75 74 r t dans les aut
02DDC0: 72 65 73 20 63 61 73 0D 0A 20 20 2D 2D 2D 20 6C res cas.. --- l
02DDD0: 65 20 70 61 73 20 64 27 65 74 75 64 65 2C 20 69 e pas d'etude, i
02DDE0: 6E 74 65 72 76 61 6C 6C 65 20 65 6E 74 72 65 20 ntervalle entre
02DDF0: 6C 65 20 63 61 6C 63 75 6C 20 64 65 20 64 65 75 le calcul de deu
02DE00: 78 20 76 61 6C 65 75 72 73 0D 0A 0D 0A 20 50 55 x valeurs.... PU
02DE10: 49 53 0D 0A 0D 0A 20 4C 65 20 6E 6F 6D 62 72 65 IS.... Le nombre
02DE20: 20 64 65 20 67 72 61 70 68 65 73 20 73 75 72 20 de graphes sur
02DE30: 6C 65 20 6D 65 6D 65 20 65 63 72 61 6E 3A 0D 0A le meme ecran:..
02DE40: 20 20 20 2D 2D 2D 20 61 20 70 61 72 74 69 72 20 --- a partir
02DE50: 64 65 20 70 6C 75 73 69 65 75 72 73 20 66 6F 6E de plusieurs fon
02DE60: 63 74 69 6F 6E 73 20 70 6F 75 72 20 75 6E 65 20 ctions pour une
02DE70: 65 74 75 64 65 20 63 6F 6D 70 61 72 61 74 69 76 etude comparativ
02DE80: 65 0D 0A 20 20 20 2D 2D 2D 20 75 6E 65 20 66 6F e.. --- une fo
02DE90: 6E 63 74 69 6F 6E 20 65 74 20 70 6C 75 73 69 65 nction et plusie
02DEA0: 75 72 73 20 76 61 6C 65 75 72 73 20 64 75 20 6F urs valeurs du o
02DEB0: 75 20 64 65 73 20 70 61 72 61 6D 65 74 72 65 28 u des parametre(
02DEC0: 73 29 0D 0A 0D 0A 20 4C 65 20 74 72 61 63 65 20 s).... Le trace
02DED0: 64 75 20 6F 75 20 64 65 73 20 67 72 61 70 68 65 du ou des graphe
02DEE0: 28 73 29 20 74 65 72 6D 69 6E 65 20 76 6F 75 73 (s) termine vous
02DEF0: 20 70 6F 75 76 65 7A 20 66 61 69 72 65 0D 0A 20 pouvez faire..
02DF00: 75 6E 65 20 3C 48 41 52 44 43 4F 50 59 3E 20 64 une <HARDCOPY> d
02DF10: 65 20 76 6F 74 72 65 20 65 63 72 61 6E 20 73 75 e votre ecran su
02DF20: 72 20 69 6D 70 72 69 6D 61 6E 74 65 20 63 6F 6D r imprimante com
02DF30: 70 61 74 69 62 6C 65 20 3C 45 50 53 4F 4E 3E 0D patible <EPSON>.
02DF40: 0A 0D 0A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 51 ...*********** Q
02DF50: 55 45 4C 51 55 45 53 20 41 53 54 55 43 45 53 20 UELQUES ASTUCES
02DF60: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
02DF70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
02DF80: 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D 0A 0D 0A 20 50 6F *********.... Po
02DF90: 75 72 20 67 61 67 6E 65 72 20 64 75 20 74 65 6D ur gagner du tem
02DFA0: 70 73 3A 0D 0A 0D 0A 20 20 20 20 50 6F 75 72 20 ps:.... Pour
02DFB0: 6C 65 73 20 64 65 76 65 6C 6F 70 70 65 6D 65 6E les developpemen
02DFC0: 74 73 20 6C 69 6D 69 74 65 73 3A 0D 0A 20 20 20 ts limites:..
02DFD0: 20 20 65 6D 70 6C 6F 79 65 72 20 6C 65 73 20 65 employer les e
02DFE0: 78 70 6F 73 61 6E 74 73 20 6E 65 67 61 74 69 66 xposants negatif
02DFF0: 73 20 6F 75 20 66 72 61 63 74 69 6F 6E 6E 61 69 s ou fractionnai
02E000: 72 65 73 0D 0A 20 20 20 20 20 65 78 20 28 31 2B res.. ex (1+
02E010: 78 29 5E 2D 31 20 61 75 20 6C 69 65 75 20 64 65 x)^-1 au lieu de
02E020: 20 31 2F 28 31 2B 78 29 0D 0A 20 20 20 20 20 20 1/(1+x)..
02E030: 6F 75 20 28 33 2D 78 29 5E 30 2E 35 20 61 75 20 ou (3-x)^0.5 au
02E040: 6C 69 65 75 20 64 65 20 73 71 72 74 28 33 2D 78 lieu de sqrt(3-x
02E050: 29 0D 0A 20 20 20 20 20 20 70 65 72 6D 65 74 74 ).. permett
02E060: 72 61 20 75 6E 65 20 65 78 65 63 75 74 69 6F 6E ra une execution
02E070: 20 62 65 61 75 63 6F 75 70 20 70 6C 75 73 20 72 beaucoup plus r
02E080: 61 70 69 64 65 2E 0D 0A 0D 0A 20 20 20 20 50 6F apide..... Po
02E090: 75 72 20 64 65 76 65 6C 6F 70 70 65 72 20 75 6E ur developper un
02E0A0: 65 20 70 75 69 73 73 61 6E 63 65 20 65 6E 74 69 e puissance enti
02E0B0: 65 72 65 3A 0D 0A 20 20 20 20 20 65 78 20 28 78 ere:.. ex (x
02E0C0: 5E 32 2D 33 2A 78 2B 32 29 5E 34 0D 0A 20 20 20 ^2-3*x+2)^4..
02E0D0: 20 20 64 65 6D 61 6E 64 65 72 20 6C 65 20 64 65 demander le de
02E0E0: 76 65 6C 6F 70 70 65 6D 65 6E 74 20 6C 69 6D 69 veloppement limi
02E0F0: 74 65 20 64 65 20 63 65 74 74 65 20 66 6F 6E 63 te de cette fonc
02E100: 74 69 6F 6E 0D 0A 20 20 20 20 20 61 75 20 76 6F tion.. au vo
02E110: 69 73 69 6E 61 67 65 20 64 65 20 61 3D 30 20 65 isinage de a=0 e
02E120: 74 20 61 20 6C 27 6F 72 64 72 65 2C 20 64 65 67 t a l'ordre, deg
02E130: 72 65 20 64 75 20 70 6F 6C 79 6E 6F 6D 65 20 28 re du polynome (
02E140: 69 63 69 20 38 29 0D 0A 20 20 20 20 20 64 6F 6E ici 8).. don
02E150: 6E 65 72 61 20 75 6E 65 20 65 78 65 63 75 74 69 nera une executi
02E160: 6F 6E 20 74 72 65 73 20 72 61 70 69 64 65 2E 0D on tres rapide..
02E170: 0A 0D 0A 0D 0A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 .....**********
02E180: 50 4F 55 52 20 4C 45 53 20 50 4F 53 53 45 53 53 POUR LES POSSESS
02E190: 45 55 52 53 20 44 45 20 54 55 52 42 4F 20 50 41 EURS DE TURBO PA
02E1A0: 53 43 41 4C 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A SCAL ***********
02E1B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D 0A 0D 0A ************....
02E1C0: 20 41 76 65 63 20 6C 65 73 20 70 72 6F 67 72 61 Avec les progra
02E1D0: 6D 6D 65 73 20 73 6F 75 72 63 65 73 20 69 6C 20 mmes sources il
02E1E0: 65 73 74 20 70 6F 73 73 69 62 6C 65 20 64 65 0D est possible de.
02E1F0: 0A 0D 0A 20 2B 2B 2B 2B 20 66 72 61 63 74 69 6F ... ++++ fractio
02E200: 6E 6E 65 72 20 63 65 73 20 70 72 6F 67 72 61 6D nner ces program
02E210: 6D 65 73 20 70 6F 75 72 20 6C 65 73 20 65 78 65 mes pour les exe
02E220: 63 75 74 65 72 20 73 6F 75 73 20 43 50 4D 20 32 cuter sous CPM 2
02E230: 0D 0A 20 2B 2B 2B 2B 20 65 6E 72 69 63 68 69 72 .. ++++ enrichir
02E240: 20 6C 65 20 6D 65 6E 75 0D 0A 20 20 20 20 20 20 le menu..
02E250: 20 70 61 72 20 65 78 65 6D 70 6C 65 20 72 65 73 par exemple res
02E260: 6F 6C 75 74 69 6F 6E 20 64 65 20 66 28 78 29 3D olution de f(x)=
02E270: 30 0D 0A 20 2B 2B 2B 2B 20 65 6E 72 69 63 68 69 0.. ++++ enrichi
02E280: 72 20 6C 65 20 63 61 74 61 6C 6F 67 75 65 20 64 r le catalogue d
02E290: 65 20 66 6F 6E 63 74 69 6F 6E 73 20 64 65 66 69 e fonctions defi
02E2A0: 6E 69 65 73 0D 0A 20 20 20 20 20 20 20 41 72 67 nies.. Arg
02E2B0: 73 68 2C 20 41 72 67 63 68 2C 20 41 72 67 74 68 sh, Argch, Argth
02E2C0: 20 20 6F 75 20 65 6E 63 6F 72 65 20 6C 6F 67 20 ou encore log
02E2D0: 64 65 63 69 6D 61 6C 2E 2E 2E 0D 0A 20 2B 2B 2B decimal..... +++
02E2E0: 2B 20 65 63 72 69 72 65 20 6C 65 73 20 66 6F 6E + ecrire les fon
02E2F0: 63 74 69 6F 6E 73 20 73 6F 75 73 20 6C 61 20 66 ctions sous la f
02E300: 6F 72 6D 65 20 63 6C 61 73 73 69 71 75 65 3A 0D orme classique:.
02E310: 0A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .
02E320: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 32 0D 2.
02E330: 0A 20 20 20 20 20 20 33 2A 78 5E 32 2D 35 2A 78 . 3*x^2-5*x
02E340: 2B 33 20 64 65 76 65 6E 61 6E 74 20 33 78 20 2D +3 devenant 3x -
02E350: 35 78 2B 33 0D 0A 20 2B 2B 2B 2B 20 70 65 72 73 5x+3.. ++++ pers
02E360: 6F 6E 6E 61 6C 69 73 65 72 20 6C 65 20 6D 65 6E onnaliser le men
02E370: 75 20 2E 0D 0A 0D 0A 20 4D 41 49 53 20 43 45 4C u ..... MAIS CEL
02E380: 41 20 4E 27 45 53 54 20 50 4F 53 53 49 42 4C 45 A N'EST POSSIBLE
02E390: 20 51 55 27 45 4E 20 41 4C 4C 45 47 45 41 4E 54 QU'EN ALLEGEANT
02E3A0: 20 4C 45 20 4D 45 4E 55 20 41 43 54 55 45 4C 2E LE MENU ACTUEL.
02E3B0: 2E 2E 2E 2E 2E 0D 0A 0D 0A 2A 2A 2A 2A 2A 2A 2A .........*******
02E3C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
02E3D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
02E3E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
02E3F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
02E400: 0D 0A 43 4F 50 59 52 49 47 48 54 20 4D 69 63 68 ..COPYRIGHT Mich
02E410: 65 6C 20 48 49 52 54 5A 4C 45 52 20 20 20 20 20 el HIRTZLER
02E420: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02E430: 20 20 20 20 20 20 20 20 20 20 20 44 65 63 65 6D Decem
02E440: 62 72 65 20 20 31 39 38 36 0D 0A 2A 2A 2A 2A 2A bre 1986..*****
02E450: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
02E460: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
02E470: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
02E480: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A ****************
02E490: 2A 2A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A **..............
02E4A0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
02E4B0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
02E4C0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
02E4D0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
02E4E0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
02E4F0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
02E500: E5 21 F6 FF E5 CD D9 4E 21 00 00 E5 21 C8 EC CD .!.....N!...!...
02E510: 2C 05 CD D0 0F E5 CD 2D 4F 21 05 00 E5 21 00 00 ,......-O!...!..
02E520: E5 CD D9 4E 21 F6 FF E5 21 00 00 E5 CD D9 4E 21 ...N!...!.....N!
02E530: 00 00 22 B6 EC 21 01 00 E5 2A BC EC D1 CD 66 06 .."..!...*....f.
02E540: 7A B3 CA C6 5E D5 22 BA EC 2A 90 F2 11 01 00 B7 z...^."..*......
02E550: ED 52 C2 92 5B 21 DA EC CD 2C 05 D9 21 C1 F1 CD .R..[!...,..!...
02E560: D1 05 21 00 00 7D 32 B5 EC 21 C1 F1 CD 2C 05 C5 ..!..}2..!...,..
02E570: D5 E5 21 D4 EC CD 2C 05 D9 E1 D1 C1 CD E9 06 CB ..!...,.........
02E580: 45 CA 8F 5B 21 01 00 7D 32 C7 F1 21 A1 EC E5 2A E..[!..}2..!...*
02E590: BA EC 2B 29 D1 19 5E 23 56 EB 22 98 F2 21 A6 F2 ..+)..^#V."..!..
02E5A0: E5 21 A1 EC E5 2A BA EC 2B 29 D1 19 5E 23 56 EB .!...*..+)..^#V.
02E5B0: 2B 29 D1 19 5E 23 56 EB E5 21 C1 F1 CD 2C 05 C5 +)..^#V..!...,..
02E5C0: D5 E5 CD 4D 2D D9 21 BB F1 CD D1 05 2A C7 F1 26 ...M-.!.....*..&
02E5D0: 00 E5 21 01 00 D1 CD 7F 06 E5 21 BB F1 CD 2C 05 ..!.......!...,.
02E5E0: CB B8 C5 D5 E5 21 E8 03 CD 08 10 D9 E1 D1 C1 CD .....!..........
02E5F0: E9 06 D1 7D A3 6F CB 45 CA 68 5B 21 C1 F1 CD 2C ...}£o.E.h[!...,
02E600: 54 72 61 63 6B 2D 49 6E 66 6F 0D 0A 00 00 00 00 Track-Info......
02E610: 27 00 00 00 02 09 4E E5 27 00 41 02 00 00 00 02 '.....N.'.A.....
02E620: 27 00 42 02 00 00 00 02 27 00 43 02 00 00 00 02 '.B.....'.C.....
02E630: 27 00 44 02 00 00 00 02 27 00 45 02 00 00 00 02 '.D.....'.E.....
02E640: 27 00 46 02 00 00 00 02 27 00 47 02 00 00 00 02 '.F.....'.G.....
02E650: 27 00 48 02 00 00 00 02 27 00 49 02 00 00 00 02 '.H.....'.I.....
02E660: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E670: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E680: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E690: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E6A0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E6B0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E6C0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E6D0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E6E0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E6F0: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
02E700: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E710: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E720: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E730: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E740: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E750: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E7A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E7B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E7C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E7D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E7E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E7F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E800: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E810: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E820: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E8A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E8B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E8C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E8D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E8E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E8F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02E900: 77 72 69 74 65 28 27 3C 31 3E 20 49 6D 70 72 69 write('<1> Impri
02E910: 6D 65 72 20 3C 32 3E 20 52 65 76 6F 69 72 20 3C mer <2> Revoir <
02E920: 33 3E 20 52 65 74 6F 75 72 20 61 75 20 6D 65 6E 3> Retour au men
02E930: 75 27 29 3B 0D 0A 20 20 72 65 70 65 61 74 0D 0A u');.. repeat..
02E940: 20 20 72 65 61 64 28 6B 62 64 2C 63 61 72 29 3B read(kbd,car);
02E950: 0D 0A 20 20 75 6E 74 69 6C 20 28 28 63 61 72 3E .. until ((car>
02E960: 27 30 27 29 20 61 6E 64 20 28 63 61 72 3C 27 34 '0') and (car<'4
02E970: 27 29 29 3B 0D 0A 20 20 76 61 6C 28 63 61 72 2C '));.. val(car,
02E980: 63 68 6F 69 78 62 69 73 2C 72 65 73 75 6C 74 29 choixbis,result)
02E990: 3B 0D 0A 20 20 69 66 20 63 68 6F 69 78 62 69 73 ;.. if choixbis
02E9A0: 3D 31 20 74 68 65 6E 0D 0A 20 20 20 62 65 67 69 =1 then.. begi
02E9B0: 6E 0D 0A 20 20 20 67 6F 74 6F 78 79 28 31 2C 32 n.. gotoxy(1,2
02E9C0: 34 29 3B 77 72 69 74 65 28 27 20 20 20 20 20 20 4);write('
02E9D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02E9E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02E9F0: 20 20 20 20 20 27 29 3B 0D 0A 20 20 20 6F 72 69 ');.. ori
02EA00: 67 69 6E 28 30 2C 30 29 3B 76 69 64 61 67 65 3B gin(0,0);vidage;
02EA10: 0D 0A 20 20 20 65 6E 64 3B 0D 0A 20 20 69 66 20 .. end;.. if
02EA20: 63 68 6F 69 78 62 69 73 3D 32 20 74 68 65 6E 0D choixbis=2 then.
02EA30: 0A 20 20 67 72 61 70 68 65 28 31 29 3B 0D 0A 65 . graphe(1);..e
02EA40: 6E 64 3B 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A nd;.............
02EA50: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
02EA60: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
02EA70: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
02EA80: 56 6F 74 72 65 20 63 68 6F 69 78 3F 20 CD 1B 20 Votre choix? ..
02EA90: 21 BA 00 CD A9 14 21 A5 F2 CD 44 16 CD 1B 20 2A !.....!...D... *
02EAA0: A5 F2 26 00 E5 21 30 00 D1 CD CC 06 E5 2A A5 F2 ..&..!0......*..
02EAB0: 26 00 E5 21 34 00 D1 CD E0 06 D1 7D A3 6F CB 45 &..!4......}£o.E
02EAC0: CA 90 52 CD 9B 14 CD CD 17 CD 1B 20 2A A5 F2 26 ..R........ *..&
02EAD0: 00 65 2E 01 E5 21 90 F2 E5 21 94 F2 CD F4 1E CD .e...!...!......
02EAE0: 9B 14 CD CD 17 CD 1B 20 CD 9B 14 CD CD 17 CD 1B ....... ........
02EAF0: 20 CD 9B 14 CD BA 17 11 41 62 73 63 69 73 73 65 .......Abscisse
02EB00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EB10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EB20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EB30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EB40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EB50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EB60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EB70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EB80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EB90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EBA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EBB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EBC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EBD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EBE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EBF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC00: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC10: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC20: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC30: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC40: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC50: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC60: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC70: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC80: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02EC90: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ECA0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ECB0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ECC0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ECD0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ECE0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ECF0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02ED00: E5 21 01 00 D1 CD 7F 06 E5 21 BB F1 CD 2C 05 CB .!.......!...,..
02ED10: B8 C5 D5 E5 21 E8 03 CD 08 10 D9 E1 D1 C1 CD E9 ....!...........
02ED20: 06 D1 7D A3 6F CB 45 CA BD 61 21 BB F1 CD 2C 05 ..}£o.E..a!...,.
02ED30: C5 D5 E5 21 C1 F1 CD 2C 05 CD 7F 0C D9 E1 D1 C1 ...!...,........
02ED40: CD FA 09 C5 D5 E5 21 CE EC CD 2C 05 D9 E1 D1 C1 ......!...,.....
02ED50: CD FA 09 CD D0 0F 22 C0 EC 21 BB F1 CD 2C 05 C5 ......"..!...,..
02ED60: D5 E5 21 C1 F1 CD 2C 05 CD 87 0C D9 E1 D1 C1 CD ..!...,.........
02ED70: FA 09 C5 D5 E5 21 C8 EC CD 2C 05 D9 E1 D1 C1 CD .....!...,......
02ED80: FA 09 CD D0 0F 22 BE EC 2A B3 EC 26 00 E5 21 00 ....."..*..&..!.
02ED90: 00 D1 CD 7F 06 CB 45 CA A8 61 2A C0 EC E5 2A BE ......E..a*...*.
02EDA0: EC E5 CD B3 4F C3 B3 61 2A C0 EC E5 2A BE EC E5 ....O..a*...*...
02EDB0: CD 35 4F 21 01 00 7D 32 B3 EC C3 C4 61 21 00 00 .5O!..}2....a!..
02EDC0: 7D 32 B3 EC 21 C1 F1 CD 2C 05 C5 D5 E5 21 C2 EC }2..!...,....!..
02EDD0: CD 2C 05 D9 E1 D1 C1 CD E9 09 D9 21 C1 F1 CD D1 .,.........!....
02EDE0: 05 C3 98 60 2A BA EC 23 D1 1B C3 73 5A 21 01 00 ...`*..#...sZ!..
02EDF0: E5 21 18 00 CD DB 1F CD 9B 14 CD BA 17 2A 3C 31 .!...........*<1
02EE00: 3E 20 49 6D 70 72 69 6D 65 72 20 3C 32 3E 20 52 > Imprimer <2> R
02EE10: 65 76 6F 69 72 20 3C 33 3E 20 52 65 74 6F 75 72 evoir <3> Retour
02EE20: 20 61 75 20 6D 65 6E 75 CD 1B 20 21 BA 00 CD A9 au menu.. !....
02EE30: 14 21 A5 F2 CD 44 16 CD 1B 20 2A A5 F2 26 00 E5 .!...D... *..&..
02EE40: 21 30 00 D1 CD CC 06 E5 2A A5 F2 26 00 E5 21 34 !0......*..&..!4
02EE50: 00 D1 CD E0 06 D1 7D A3 6F CB 45 CA 2B 62 2A A5 ......}£o.E.+b*.
02EE60: F2 26 00 65 2E 01 E5 21 B4 EC E5 21 94 F2 CD F4 .&.e...!...!....
02EE70: 1E 2A B4 EC E5 21 01 00 D1 CD 7F 06 CB 45 CA CE .*...!.......E..
02EE80: 62 21 01 00 E5 21 18 00 CD DB 1F CD 9B 14 CD BA b!...!..........
02EE90: 17 2B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 .+
02EEA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02EEB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 CD 1B 20 ..
02EEC0: 21 00 00 E5 21 00 00 E5 CD 07 50 CD 9A 50 2A B4 !...!.....P..P*.
02EED0: EC E5 21 02 00 D1 CD 7F 06 CB 45 CA E5 62 21 01 ..!.......E..b!.
02EEE0: 00 E5 CD 70 4D 01 E3 00 11 13 EC C3 22 05 21 01 ...pM.......".!.
02EEF0: 00 E5 21 0A 00 D1 CD 66 06 7A B3 CA 33 63 D5 22 ..!....f.z..3c."
02EF00: 98 F2 21 A6 F2 E5 2A 98 F2 2B 29 D1 19 E5 21 00 ..!...*..+)...!.
02EF10: 00 EB E1 73 23 72 21 C8 F1 E5 2A 98 F2 2B 29 D1 ...s#r!...*..+).
02EF20: 19 E5 21 00 00 EB E1 73 23 72 2A 98 F2 23 D1 1B ..!....s#r*..#..
02EF30: C3 F9 62 21 0A 00 E5 21 0A 00 E5 CD 31 50 CD 73 ..b!...!....1P.s
02EF40: 4D C3 D4 20 21 00 00 E5 CD 07 50 CD 9A 50 2A B4 M.. !.....P..P*.
02EF50: EC E5 21 02 00 D1 CD 7F 06 CB 45 CA 7F 06 21 01 ..!.......E...!.
02EF60: 00 E5 CD 70 4D 01 E3 00 11 13 EC C3 22 05 21 01 ...pM.......".!.
02EF70: 00 E5 21 0A 00 D1 CD 66 06 7A B3 CA 00 00 D5 22 ..!....f.z....."
02EF80: 63 68 6F 69 78 62 69 73 2C 72 65 73 75 6C 74 29 choixbis,result)
02EF90: 3B 0D 0A 20 20 69 66 20 63 68 6F 69 78 62 69 73 ;.. if choixbis
02EFA0: 3D 31 20 74 68 65 6E 0D 0A 20 20 20 62 65 67 69 =1 then.. begi
02EFB0: 6E 0D 0A 20 20 20 67 6F 74 6F 78 79 28 31 2C 32 n.. gotoxy(1,2
02EFC0: 34 29 3B 77 72 69 74 65 28 27 20 20 20 20 20 20 4);write('
02EFD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02EFE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02EFF0: 20 20 20 20 20 27 29 3B 0D 0A 20 20 20 6F 72 69 ');.. ori
02F000: 67 69 6E 28 30 2C 30 29 3B 76 69 64 61 67 65 3B gin(0,0);vidage;
02F010: 0D 0A 20 20 20 65 6E 64 3B 0D 0A 20 20 69 66 20 .. end;.. if
02F020: 63 68 6F 69 78 62 69 73 3D 32 20 74 68 65 6E 0D choixbis=2 then.
02F030: 0A 20 20 67 72 61 70 68 65 28 31 29 3B 0D 0A 65 . graphe(1);..e
02F040: 6E 64 3B 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A nd;.............
02F050: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
02F060: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
02F070: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
02F080: 56 6F 74 72 65 20 63 68 6F 69 78 3F 20 CD 1B 20 Votre choix? ..
02F090: 21 BA 00 CD A9 14 21 A5 F2 CD 44 16 CD 1B 20 2A !.....!...D... *
02F0A0: A5 F2 26 00 E5 21 30 00 D1 CD CC 06 E5 2A A5 F2 ..&..!0......*..
02F0B0: 26 00 E5 21 34 00 D1 CD E0 06 D1 7D A3 6F CB 45 &..!4......}£o.E
02F0C0: CA 90 52 CD 9B 14 CD CD 17 CD 1B 20 2A A5 F2 26 ..R........ *..&
02F0D0: 00 65 2E 01 E5 21 90 F2 E5 21 94 F2 CD F4 1E CD .e...!...!......
02F0E0: 9B 14 CD CD 17 CD 1B 20 CD 9B 14 CD CD 17 CD 1B ....... ........
02F0F0: 20 CD 9B 14 CD BA 17 11 41 62 73 63 69 73 73 65 .......Abscisse
02F100: 3E 20 49 6D 70 72 69 6D 65 72 20 3C 32 3E 20 52 > Imprimer <2> R
02F110: 65 76 6F 69 72 20 3C 33 3E 20 52 65 74 6F 75 72 evoir <3> Retour
02F120: 20 61 75 20 6D 65 6E 75 27 29 3B 0D 0A 20 20 72 au menu');.. r
02F130: 65 70 65 61 74 0D 0A 20 20 72 65 61 64 28 6B 62 epeat.. read(kb
02F140: 64 2C 63 61 72 29 3B 0D 0A 20 20 75 6E 74 69 6C d,car);.. until
02F150: 20 28 28 63 61 72 3E 27 30 27 29 20 61 6E 64 20 ((car>'0') and
02F160: 28 63 61 72 3C 27 34 27 29 29 3B 0D 0A 20 20 76 (car<'4'));.. v
02F170: 61 6C 28 63 61 72 2C 63 68 6F 69 78 2C 72 65 73 al(car,choix,res
02F180: 75 6C 74 29 3B 0D 0A 20 20 69 66 20 63 68 6F 69 ult);.. if choi
02F190: 78 3D 31 20 74 68 65 6E 0D 0A 20 20 20 62 65 67 x=1 then.. beg
02F1A0: 69 6E 0D 0A 20 20 20 67 6F 74 6F 78 79 28 31 2C in.. gotoxy(1,
02F1B0: 32 34 29 3B 77 72 69 74 65 28 27 20 20 20 20 20 24);write('
02F1C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02F1D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
02F1E0: 20 20 20 20 20 20 27 29 3B 0D 0A 20 20 20 6F 72 ');.. or
02F1F0: 69 67 69 6E 28 30 2C 30 29 3B 76 69 64 61 67 65 igin(0,0);vidage
02F200: 3B 0D 0A 20 20 20 65 6E 64 3B 0D 0A 20 20 69 66 ;.. end;.. if
02F210: 20 63 68 6F 69 78 3D 32 20 74 68 65 6E 0D 0A 20 choix=2 then..
02F220: 20 67 72 61 70 68 65 28 31 29 3B 0D 0A 65 6E 64 graphe(1);..end
02F230: 3B 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ;...............
02F240: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
02F250: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
02F260: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
02F270: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A ................
02F280: 20 20 20 20 20 20 20 20 20 20 20 20 20 8D 5B 20 .[
02F290: 21 00 00 E5 21 00 00 E5 CD 05 D3 CD 9A 50 2A 90 !...!........P*.
02F2A0: F2 E5 21 02 00 D1 CD 7F 06 CB C5 CA B5 62 21 01 ..!..........b!.
02F2B0: 00 E5 CD 70 4D 01 EC 00 11 0A EC C3 22 05 21 01 ...pM.......".!.
02F2C0: 00 E5 21 0A 00 D1 CD 66 06 7A B3 CA 03 63 D5 22 ..!....f.z...c."
02F2D0: 98 F2 21 A6 F2 E5 2A 98 F2 2B 29 D1 19 E5 21 00 ..!...*..+)...!.
02F2E0: 00 EB E1 73 23 22 E1 C8 F1 E5 2A 98 F2 2B 29 D1 ...s#"....*..+).
02F2F0: 19 E5 21 00 00 EB E1 73 23 72 2A 98 F2 23 D1 1B ..!....s#r*..#..
02F300: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F310: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F320: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F330: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F340: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F350: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F360: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F370: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F380: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F390: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F3A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F3B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F3C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F3D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F3E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F3F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F400: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F410: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F420: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F430: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F440: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F450: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F460: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F470: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F480: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F490: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F4A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F4B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F4C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F4D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F4E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F4F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F500: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F510: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F520: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F530: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F540: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F550: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F560: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F570: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F580: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F590: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F5A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F5B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F5C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F5D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F5E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F5F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F600: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F610: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F620: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F630: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F640: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F650: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F660: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F670: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F680: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F690: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F6A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F6B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F6C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F6D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F6E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F6F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F700: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F710: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F720: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F730: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F740: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F750: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F760: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F770: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F780: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F790: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F7A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F7B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F7C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F7D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F7E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F7F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F800: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F810: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F820: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F830: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F840: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F850: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F860: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F870: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F880: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F890: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F8A0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F8B0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F8C0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F8D0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F8E0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
02F8F0: E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 E5 ................
RESULT OF SEARCH :
PRO=89 CHEA=0 COD=0 MUSI=0 COP=8 GRA=63 WRIT=194 198=4 199=0 STARTER=0 KBI=0 CAAV=0 L.TOURNIER=0
EXTENDED CPC DSK File SAMdisk100620( NABCDEFGHI!04 d(o&0#!*4(!!Fk Discette
read failure Press any key to restart!4 Cannot find ".EMS" file Press any key
to restart#Z 8! " ++( )8gJO.#EMS NABCDEFGHI NABCDEFGHILIREFONCPAS#SOURCES DOC
$ GRAFIK3 INCCOURBE COMABEDERIVEE PAS !"#CALCULF BAK ,-./LMFONCTIONCOM$%&'()*+0
1234678ECRIF PAS 5GRAPHEF PAS-CghijvFONCTIONPASDFONCTIONCOM9YZabcCOURBE COMFF
GHIJKdefCALCULF PASOPQRSTUVWXFONCTIONCOMAALGEBRE PASUklmnopqrstuMENU PAS&wyzC
OURBE PASxCALCULF BAKMENU COMCECRIF BAK GRAPHEF BAK+A-LIRE DOCN£ procedu
re lirfonction(var ffonction) forward procedure relache(var ffonction) begi
n if fnil then begin dispose(f)fnilmi0
end end procedure erreur(noeinteger) begin writelnwrite('Erreur de sy
ntaxe a l''entree n.')writeln(noe) relache(fi) lirfonction(fi) end proc
edure lircar begin repeat read(kbd,car) until ((car in filtre) or
(carchr(13))) write (car) end procedure lirnaturel begin lircar
idfcar while ((car in '0'..'9') and (length(idf)6)) do begin lircar
idfidf+car end idfcopy(idf,1,length(idf)-1) end procedure lirpara(v
ar ffonction) var indxinteger begin lircar if car '(' then erreur(1)
else begin lirnaturel if car')' then erreur(2) else
begin f.nature'param' f.valeuridf f.dnil f.gnil
val(idf,indx,result) if miindx then miindx end end
lircar end procedure lirx(var ffonction) begin f.nature'variab' f.va
leur'x' f.dnil f.gnil lircar end procedure lirexp(var ffonction) for
ward procedure liridfct(var ffonction) begin idfcar while ((car in 'a'.
.'z') and (length(idf)7)) do begin lircar idfidf+car end idfcopy(i
df,1,length(idf)-1) if ((idf'sin')or(idf'cos')or(idf'tang')or(idf'exp')or(idf'
ln')or (idf'arctan')or(idf'int')or(idf'abs')or(idf'sqrt')or(idf'sh')or(idf'ch'
) or(idf'th')or(idf'arcsin')or(idf'arccos')) then begin f.nature'
idfct' f.valeuridf f.gnil if car'(' then begin
lircar lirexp(f.d) if car')' then erreur(3) else lircar
end else erreur(4) end else begin erreur(
5) end end procedure lirfacteur(var ffonction) forward procedure l
irpuissance(var ffonction) var hfonction begin new(h)h.gffh f.nature'
puiss' f.valeur'' new(f.d) lircar lirfacteur(f.d) end procedur
e lirnombre(var ffonction) var nbrereal begin idfcarcar'0' while ((car in
'0'..'9') and (length(idf)10)) do begin lircar idfidf+car end
if car'.' then begin car'0' while (
(car in '0'..'9') and (length(idf)10)) do begin
NABCDEFGHI lircar idfidf+car
end end idfcopy(idf,1,length(idf)-1) val(idf
,nbre,result) if result0 then erreur(6) else begin f.nature'
nombre' f.valeuridf f.dnil f.gnil end end procedur
e lirfacteur begin case car of 'p' lirpara(f) 'x' lirx(f)
'(' begin lircar lirexp(f) if car')' then e
rreur(7) else lircar end '+','-','0'..'9' lirnombre(f) 'a'.
.'w','y','z' liridfct(f) else erreur(8) end while car'' do lir
puissance(f) end procedure lirterme(var ffonction) var hfonction begi
n lirfacteur(f) while car in '*','/' do begin new(h)h.gffh
if car'*' then f.nature'multi' else f.nature'divise' f.valeurcar ne
w(f.d) lircar lirfacteur(f.d) end end procedure lirexp var
hfonction begin new(f) if car in '+','-' then begin if car'
+' then f.nature'plus' else f.nature'moins' f.valeurcar
f.gnil new(f.d) lircar lirterme(f.d) end
else lirterme(f) while car in '+','-' do begin ne
w(h)h.gf fh if car'+' then f.nature'plus' else f.nature'moins'
f.valeurcar new(f.d) lircar lirterme(f.d) end end
procedure lirfonction begin if fnil then relache(f) writeln('Entrez vot
re fonction') lircar lirexp(f) if carchr(13) then erreur(9) end p
rocedure tempo begin writeln gotoxy(1,25)write('appuyez une touche pour reven
ir au menu') while not keypressed do end ****** QUELQUES EXPLICATIONS SU
R LES FICHIERS SOURCES ******* Les fonctions numeriques sont mises sous for
me d'un arbre par exemple pour f1(x)3*x*(x-2) nous aurons l'arbre
* qui permettra tout le calcul
/ formel necessaire / a l'etude de cette fonction
* - calcul de valeurs / /
pour le graphe, developpement / /
de ce polynome 3 x x 2 ecriture de sa derivee..... Pou
r representer cet arbre, utilisation de pointeurs definis comme fonction p
ointeur a 4 composants nature une chaine indiquant la nature du no
eud valeur valeur numerique pour nombre, num
ero du parametre... droit adresse du pointeur de droite
gauche adresse du pointeur de gauche. Les declarations relatives a ces
pointeurs sont dans FONCTION.PAS et COURBE.PAS ******** ENTREE D
'UNE FONCTION ************************************** C'est le fichier LIREF
ONC.PAS Il comprend les diverses procedures pour l'entree des elements d
'une fonction. L'articulation des procedures respecte la syntaxe des foncti
ons numeriques. Expression algebrique ----- + ----
------------------------------ Terme ------------
------- /
/ ----- - ---- -------- + ---------
/ /
-------- - --------- Terme
------------------------- Facteur ----------------
/ /
NABCDEFGHI ---------- * -----------
/
/ ---------- / ---------
-- Facteur ----------------- Nombre -------------------
/ /
---------------- Parametre ------------
----- / /
---------- ( -- Exp.Algeb.
-- ) --------- /
/ -------
-------------- /
/ ------------------- x ---------------------- /
/ ---------------- Puissance -----------------
/
/ --- Id.fonction-- ( -- Exp.Alg.-- ) ---
Parametre ------ p ----- ( --- Entier non signe --- ) ---------
Puissance ----------- Facteur ------ ----- Facteur -----------
- ********** Calcul et ecriture des fonctions ***********************
C'est le fichier CALCULF.PAS Avec les procedures pour ecrire la f
onction Tapefonction calculer f(x) Calculf avec tests p
our savoir si le calcul est possible simplifier la fonction Simplif
**************** Calcul Formel ************************************* Pou
r les developpements de produits ou de puissances function menuinteger
begin clrscr writelnwriteln(' M E N U ') writelnwriteln('1 Entree de la fonct
ion') writelnwriteln('2 Calcul de valeurs de f(x)') writelnwriteln('3 Graphes
de fonctions') writelnwriteln('4 Fin du programme') writelnwriteln(' VOTRE CHO
IX ') repeat read(kbd,car) until ((car'0') and (car'5')) val(car,choix,resul
t) menuchoix end function numfoncinteger var jklinteger begin car' '
repeat read(kbd,car) until ((car'0') and (car'')) writeln val(car,jkl,result
) numfoncjkl end procedure graphe(revoirinteger) forward procedure bou
cle var zinteger begin repeat choixmenu case choix of 1 begin
write('No de la fonction (1 a 9)') inumfonc clrscrcar' '
lirfonction(fi) simplif(fi) tempo end 2 begin
clrscrwrite('No de la fonction (1 a 9)') inumfonc if mi0 the
n begin for fichier ALGEBRE.PAS avec algebrique pour le
s produits binome pour les puissances Pour l'ecriture des fonctions
derivees fichier DERIVEE.PAS ************* Menus, Graphes, Developp
ements limites *************** Ces procedures n'ont que peu d'importance...
.............. ***********************************************************
*************** s(' ',f.valeur)0 do delete(f.valeur,1,1) end f.
nature'nombre' f.gnilf.dnilresult1 end else if ((f.
valeur'*') and (f.d.nature'nombre') and (f.d.valeur'1')) then begin
ff.g simplif(f)result1
end else if ((f.valeur'*') and (f.g.nature'nombre') and (f.g.va
leur'1')) then begin ff.d
sfunction calcul(ffonctionxreal)real forward function oppose(var ffonction
)fonction forward function tapefonction(ffonctionvchar)str200 forward p
rocedure simplif(var ffonction) var hfonctionnbrereal begin if fnil then b
egin if ((f.d.nature'nombre')and(f.g.nature'nombre')and(f.valeur'/')) t
hen begin nbrecalcul(f,0)if frac(nbre)0 then str(round(nbre),f.val
eur) else begin str(nbre83,f.valeur) while po NABCD
EFGHIs(' ',f.valeur)0 do delete(f.valeur,1,1) end f.nature'nombre'
f.gnilf.dnilresult1 end else if ((f.valeur'*') and
(f.d.nature'nombre') and (f.d.valeur'1')) then begin
ff.g simplif(f)result1 end
else if ((f.valeur'*') and (f.g.nature'nombre') and (f.g.valeur'1'))
then begin ff.d simplif(f)re
sult1 end else if (((f.valeur'*') or(f.valeur'/'))
and (((f.g.nature'nombre') and (f.g.valeur'0')) or (f.gnil))) then
begin fnilresult1 end else if ((f
.valeur'*') and (((f.d.nature'nombre') and (f.d.valeur'0')) or (f.dnil))) th
en begin fnilresult1 end else
if ((f.valeur'*') and (f.g.nature'nombre') and (f.d.valeur'*') and (f.d.g.na
ture'nombre')) then begin hf.df.df.gf.gh hf.g.df.g.df.df.dhsi
mplif(f.d)simplif(f) result1 end else if (((f
.nature'plus') or (f.nature'moins')) and ((f.dnil) or (f.d.valeur'0'))) th
en begin ff.g simplif(f)result1 end
else if (((f.nature'plus') or (f.nature'moins')) and ((f.g
nil) or (f.g.valeur'0'))) then begin if f.valeur'-' t
hen foppose(f.d) else ff.d simplif(f)result1
end else if ((f.nature'puiss') and (f.d.nature'nombre')
and (f.d.valeur'1')) then begin ff.g simpl
if(f)result1 end else if ((f.nature'puiss')and(f.d.nature'nombr
e')and (f.g.nature'puiss')and(f.g.d.nature'nombre')) then begin
new(h)h.nature'multi'h.valeur'*'h.df.dh.gf.g.d f.dhf.gf.g.gsimpli
f(f.d)result1 end else begin if f.dnil then simplif(f.d)
if f.gnil then simplif(f.g) end end end function exposant(
k,lreal)real forward function calcul label fincalcul var nbrerealresulta
tinteger begin if f.nature'nombre' then begin
val(f.valeur,nbre,resultat)
calculnbre end
else if f.nature'param' then begin
val(f.valeur,indice,resultat)
calculpindice,i end
else if f.nature'variab' then calculx else if f.nature'plus' t
hen calculcalcul(f.g,x)+calcul(f.d,x) else if f.nature'moins' then calculcalc
ul(f.g,x)-calcul(f.d,x) else if f.nature'multi' then calculcalcul(f.g,x)*calc
ul(f.d,x) else if f.nature'puiss' then begin
if frac(calcul(f.d,x))0 then cal
culexposant(calcul(f.g,x),calcul(f.d,x)) else
begin if calcul(f.g,x)0 then
begin
definifalse
goto fincalcul en
d else
calculexp((ln(calcul(f.g,x)))*calcul(f.d,x))
end end else if f.natur
e'divise' then begin i
f calcul(f.d,x)0 then begin
definifalse goto fincalcul
end
else calculcalcul(f.
g,x)/calcul(f.d,x) end
else if f.nature'idfct' then begin
nbrecalcul(f.d,x) NABCDEFGHIprocedure drawr(x,yin
teger) begin inline($2A/x/$EB/$2A/y/$cd/$5a/$fc/$F9/$BB) end procedure d
raw(x,yinteger) begin inline($2A/x/$EB/$2A/y/$cd/$5a/$fc/$F6/$BB) end pr
ocedure grafmove(x,yinteger) begin inline($2A/x/$EB/$2A/y/$cd/$5a/$fc/$C0/$B
B) end procedure grafmover(x,yinteger) begin inline($2A/x/$EB/$2A/y/$cd/
$5a/$fc/$c3/$BB) end procedure plot(x,yinteger) begin inline($2A/x/$EB/$
2A/y/$cd/$5a/$fc/$EA/$BB) end procedure plotr(x,yinteger) begin inline($
2A/x/$EB/$2A/y/$cd/$5a/$fc/$ED/$BB) end procedure origin(x,yinteger) begin
inline($2A/x/$EB/$2A/y/$cd/$5a/$fc/$C9/$BB) end procedure border(v1,v2byt
e) begin inline($3a/v1/$47/$3a/v2/$4f/$cd/$5a/$fc/$38/$bc) end function
test(x,yinteger)byte var btgbyte begin inline($2A/x/$EB/$2A/y/$CD/$5A/$FC/$
F0/$BB/$32/btg) testbtg end procedure vidage var x,y,j,ninteger begin
write(lst,chr(27),'',chr(27),'3',chr(21)) for y0 to 28 do begin write(l
st,chr(27),'*',chr(3),chr(0),chr(5)) for x0 to 639 do begin n0
for j0 to 6 do nn*2+test(x,398-(y*7+j)*2) write(lst,chr(n),chr(n))
end write(lst,chr(13),chr(10)) end write(lst,chr(13),chr(27),'') end
l0 then begin ll+1exposant(1/k)*exposant(k,l) end end s(' ',f.valeur)0
do delete(f.valeur,1,1) end f.nature'nombre' f.gnilf.dnilre
sult1 end else if ((f.valeur'*') and (f.d.nature'nombre')
and (f.d.valeur'1')) then begin ff.g
simplif(f)result1 end else if ((f.val
eur'*') and (f.g.nature'nombre') and (f.g.valeur'1')) then begin
ff.d s Copyright (C) 1985 BORLAND IncBZ
enithder CPC464/664P Y ELMKqp7# ok!!"#($ +*!5!*!!(2!5(2!!!OO!*!!45(! +/0y0( d
!k5!5o&(( *"x2y(28!"9!!og2""22 9/4*9 Co&£ (!eA8Q0G x!w# ( (*(.(w. !h6# ((*((w#
w# 8 ! .,*a ''72*B "og"22! ""*B"Ru*"#V##V#N#FO/o&9O/o&9!9( (G!9 w#Ew8OCA#0w#xo&9
xG7s#r#s#r#q#px!D9N#8y#(Ox!D9N##Vh&D9! 9! 9#Vh&D9!"x/o&9p#HR' RB0' RqRR!+R!+r!+r
!+r!#r!+TKB!z S))0 DMgojB07 Hz5a)az 0Ggo/g/o#o&KxAJSJDM!b"!6J"DM'd R0 0w#$O! #
08) 8 ! 80T)) T)y	N8w!DB9+O#) W8(8J9To9yk-&9w	o&!T9K#C#y8O(# !#!9RO8 (8wP
TOsOS!988xW8/oz88x8&8#(*BPOz(Ox8(*!9O!T9-fl&!T96#w!T9K#C#( x # ) ' ' x T(
0Dz, ( 0%, 7 (8x - r8x ,-xGrM9r.#n0 - nx ,-(-G,-rM NABCDEFGHI9.8 u+-(08x , 78
88ox!oGOWggzWyOxGgzWyOxGxyzxxx(r(r7 g£zWyOxG x' /o - 0- ,l8 4 x( -8 -8, l8*!
! 4 --- ,,,-xGg+2n*8t z,-' x' . , ! 4,- o&0%, gr.8cI$IL*x 0G,,-(- !I0
o8 ' m.1pF,t6!wS.z%FXcur1x(8 !J0.O!s8 n s .n 0 - OT0j oD,j !I.8cI$IL! I
nn nfVNF!DLTI!!53!r1!! x #- ox(- (x8(z,zi!' r)(DMbo88x(08W!Oz k68x(-(ay(
z(.( E+(Dg-/ 0p## +0w#,- 60#ogM wD05.(z x0w#xG%%ZJDM% 65+w661#6r. p7#E(!90To&p(
#+(- #6O#60 #WyOh(yDOyZy0 GD! !ws( hx-Sx9+zzgZJDM0,7o #yO!9i& #w#/w#w#!9! E
9!!9(+F!"9!(#2*" "2( *w*6!$! (( #CONTRMKBDLSTCAUXUSR2i*0*(q##pZ*( x2*6#"v( * 26
"!"""2""v2"!"(!8O6*"w(6(2(-()(6 (8 0 (* y(#+ (( 66 #6 #"* yo p .##(.6w4. *##55 *
R8*#" £ *#w+#+*('k!0(k!8!-#827kwO$6s #r$£6 k ((qk( ( k *O ##.q4((*4q*##62*((
6-#RM8(G A#*'C! !TRUEFALSE!9N#Y#(G# "(k((!0(!!2Sz0*6##ww#w$w#w ##N#F*B2w#w#s
#r"*-w#ww##""2ZR0*4#42ZR *4 #4(22*f(/G(##++ O x yC! Q*G(##..f*##w +4 #4x 2G(""*
n*0SZR8*N#F#s#r,0)jS*##w+N#FBr+s2!T)j)00 R!#*#V#N#F##V20*6#-Nw#Fwq#p#6#w#w#w""!D
M!"*B!(2"!"2"*w#wx(9*O *-4 #4!*4 #4*-N#Fq#pV+Bq#pSZR&*s#r$s#rL*L!(!$22L!(*$(!3 1
!(7" 2"S"Ns#FrB(Z#(*"K! !*#"!x * *) 2""!"* NABCDEFGHInf(HR0nf" VMDnfutqp*s#r*s
#r"*uKB!0' #fo"*R0RnfR0KqputsrNF(VNFV*SutKqpR*R(wwnfut"6#K*K*!""*NFy(*"*B0Cnf*R*
"*RSs#r#V""6#O"w2x2*"!F"" &y*"*2"*"!F"""!* Nr!6go(R*s#r£2x(sx(TDMx(R0U(O/o&9q#
(!F0#( ( #( ((#( i&T-a%o*!6o&2 2z2*KB" z C User break+ I/O Run-time error
, PC*Not enough memory Program aborted '1!d!dBcfunction derive(ffonction
)fonction var p,q,r,s,u,v,wfonction xxxinteger nbrereal begin new(p)deri
vep if fnil then begin dispose(p)derivenil end else if ((f.nature'nom
bre') or (f.nature'param')) then begin
p.nature'nombre' p.valeur'0'
p.dnil p.gnil
end else if f.nature'variab' then
begin p.nature'nombre'
p.valeur'1' p.dnil
p.gnil end else
if ((f.nature'plus') or (f.nature'moins')) then beg
in p.naturef.nature p.vale
urf.valeur p.dderive(f.d)
p.gderive(f.g) end else
if f.nature'multi' then begin p.nature'plus'p.valeur'+'new(p
.g) p.g.nature'multi'p.g.valeur'*'p.g.df.d new(p.d)p.d.nature'
multi'p.d.valeur'*'p.d.gf.g p.d.dderive(f.d)p.g.gderive(f.g) en
d else if f.nature'divise' then begin new(u)new(v)n
ew(w)new(s)new(q)u.nature'moins'u.valeur'-' u.gwu.dsv.nature'puiss'v.va
leur'' v.gf.dv.dqq.nature'nombre'q.valeur'2' q.dnilq.gnilw.nat
ure'multi'w.valeur'*'w.df.d w.gderive(f.g) s.nature'multi's.va
leur'*'s.dderive(f.d)s.gf.g p.nature'divise'p.valeur'/'p.gup.dv
end else if f.nature'puiss' then begin if f.d.nature'n
ombre' then begin new(u)new(v)new(w)val(f.d.valeur,
nbre,result)qf.d v.gf.gu.nature'multi'u.valeur'*'u.gq
u.dderive(f.g)v.nature'puiss'v.valeur''v.dw w.nature'nombre'w
.gnilw.dnilnbrenbre-1 if frac(nbre)0 then str(round(nbre),w.valeu
r) else begin str(nbre83,w.valeur)
while pos(' ',w.valeur)0 do delete(w.valeur,1,1) end
p.nature'multi'p.valeur'*'p.gup.dv end else
begin new(u)u.nature'idfct'u.valeur'ln'u.gnilu.df.g
new(v)v.nature'multi'v.valeur'*'v.gderive(f.d)v.du new(w)w.nature'mult
i'w.valeur'*'w.gderive(f.g)w.df.d new(q)q.nature'divise'q.valeur'/'q.g
wq.df.g new(r)r.nature'plus'r.valeur'+'r.gvr.dq p.natu
re'multi'p.valeur'*'p.grp.df end end else if f.nature'idfc
t' then begin if f.valeur'sin' then begin new(u)u
.nature'idfct'u.valeur'cos'u.gnilu.df.d p.nature'multi'p.valeur'*'p.gd
erive(f.d)p.du end else if f.valeur'cos' then
begin new(v)v.nature'idfct'v.valeur'sin'v.gnilv.df.d new(u)
u.natur NABCDEFGHIe'multi'u.valeur'*'new(u.g) u.g.nature'nombre'u.g.v
aleur'-1'u.g.dnil u.g.gnilu.dv p.nature'multi'p.valeur'*'p.g
derive(f.d)p.du end else if f.valeur'tang' then
begin new(s)s.nature'nombre's.valeur'2's.dnils.gnil new(w
)w.nature'idfct'w.valeur'cos'w.gnilw.df.d new(v)v.nature'puiss'v.valeu
r''v.gwv.ds p.nature'divise'p.valeur'/'p.dvp.gderive(f.d) end
else if f.valeur'ln' then begin p.nature'd
ivise'p.valeur'/'p.df.dp.gderive(f.d) end else if f.v
aleur'exp' then begin new(u)u.nature'idfct'u.valeur'exp'u.gni
lu.df.d p.nature'multi'p.valeur'*'p.gderive(f.d)p.du end
else if f.valeur'sqrt' then begin new(u)new(v)n
ew(w)w.nature'nombre'w.valeur'2'w.gnil w.dnilv.nature'multi'v.valeur'
*'v.gwv.df p.nature'divise'p.valeur'/'p.gderive(f.d)p.dv end
else if f.valeur'sh' then begin new(u)u.natu
re'idfct'u.valeur'ch'u.gnilu.df.d p.nature'multi'p.valeur'*'p.gderive(
f.d)p.du end else if f.valeur'ch' then begin
new(u)u.nature'idfct'u.valeur'sh'u.gnilu.df.d p.nature'multi'
p.valeur'*'p.gderive(f.d)p.du end else if f.valeur'th'
then begin new(v)v.nature'nombre'v.valeur'2'v.dnilv.gnil new
(u)u.nature'puiss'u.valeur''u.dvu.gf new(w)w.nature'nombre'w.valeur'1'
w.dnilw.gnil new(s)s.nature'moins's.valeur'-'s.gws.du p.natu
re'multi'p.valeur'*'p.gderive(f.d)p.ds end else if f.v
aleur'arctan' then begin new(v)v.nature'nombre'v.valeur'2'v.dnilv.gnil
new(u)u.nature'puiss'u.valeur''u.dvu.gf.d new(w)w.nature'no
mbre'w.valeur'1'w.dnilw.gnil new(s)s.nature'plus's.valeur'+'s.gws.du
p.nature'divise'p.valeur'/'p.gderive(f.d)p.ds end els
e if f.valeur'arcsin' then begin new(v)v.nature'nombre'v.valeur
'2'v.dnilv.gnil new(u)u.nature'puiss'u.valeur''u.dvu.gf.d ne
w(w)w.nature'nombre'w.valeur'1'w.dnilw.gnil new(s)s.nature'moins's.val
eur'-'s.gws.du new(r)r.nature'idfct'r.valeur'sqrt'r.gnilr.ds
p.nature'divise'p.valeur'/'p.gderive(f.d)p.dr end else
if f.valeur'arccos' then begin new(v)v.nature'nombre'v.valeur'2'v.dni
lv.gnil new(u)u.nature'puiss'u.valeur''u.dvu.gf.d new(w)w.na
ture'nombre'w.valeur'1'w.dnilw.gnil new(s)s.nature'moins's.valeur'-'s.
gws.du new(r)r.nature'idfct'r.valeur'sqrt'r.gnilr.ds new(q)q
.nature'nombre'q.valeur'-1'q.gnilq.dnil new(p.g)p.g.nature'multi'p.g.valeu
r'*'p.g.gderive(f.d) p.g.dqp.nature'divise'p.valeur'/'p.dr end
else begin pnildefinifalse end end end else
if f.valeur'cos' then begin new(v)v.nature'idfct'v.valeur's
in'v.gnilv.df.d new(u)u.nature'multi'u.valeur'*'new(u.g) u.g
.nature'nombre'u.g.valeur'-1'u.g.dn N A B C D E F G H I Copyright (C) 1985 BOR
LAND IncBZenithder CPC464/664P Y ELMKqp7# ok!!"#($ +*!5!*!!(2!5(2!!!OO!*!!45(
! +/0y0( d!k5!5o&(( *"x2y(28!"9!!og2""22 9/4*9 Co&£ (!eA8Q0G x!w# ( (*(.(w. !h6
# ((*((w# w# 8 ! .,*a ''72*B "og"22! ""*B"Ru*"#V##V#N#FO/o&9O/o&9!9( (G!9 w#Ew8O
CA#0w#xo&9xG7s#r#s#r#q#px!D9N#8y#(Ox!D9N##Vh&D9! 9! 9#Vh&D9!"x/o&9p#HR' RB0' RqR
R!+R!+r!+r!+r!#r!+TKB!z S))0 DMgojB07 Hz5a)az 0Ggo/g/o#o&KxAJSJDM!b"!6J"DM'd R
0 0w#$O! #08) 8 ! 80T)) T)y	N8w!DB9+O#) W8(8J9To9yk-&9w	o&!T9K#C#y8O(# !#
!9RO8 (8wPTOsOS!988xW8/oz88x8&8#(*BPOz(Ox8(*!9O!T9-fl&!T96#w!T9K#C#( x # ) '
' x T(0Dz, ( 0%, 7 (8x - r8x ,-xGrM9r.#n0 - nx ,-(-G,-rM9.8 u+-(08x , 7888
ox!oGOWggzWyOxGgzWyOxGxyzxxx(r(r7 g£zWyOxG x' /o - 0- ,l8 4 x( -8 -8, l8*! !
4 --- ,,,-xGg+2n*8t z,-' x' . , ! 4,- o&0%, gr.8cI$IL*x 0G,,-(- !I0
o8 ' m.1pF,t6!wS.z%FXcur1x(8 !J0.O!s8 n s .n 0 - OT0j oD,j !I.8cI$IL! I nn
nfVNF!DLTI!!53!r1!! x #- ox(- (x8(z,zi!' r)(DMbo88x(08W!Oz k68x(-(ay( z(
.( E+(Dg-/ 0p## +0w#,- 60#ogM wD05.(z x0w#xG%%ZJDM% 65+w661#6r. p7#E(!90To&p( #+
(- #6O#60 #WyOh(yDOyZy0 GD! !ws( hx-Sx9+zzgZJDM0,7o #yO!9i& NABCDEFGHI #w#
/w#w#!9! E9!!9(+F!"9!(#2*" "2( *w*6!$! (( #CONTRMKBDLSTCAUXUSR2i*0*(q##pZ*( x2*
6#"v( * 26"!"""2""v2"!"(!8O6*"w(6(2(-()(6 (8 0 (* y(#+ (( 66 #6 #"* yo p .##(.6w
4. *##55 *R8*#" £ *#w+#+*('k!0(k!8!-#827kwO$6s #r$£6 k ((qk( ( k *O ##.q4((*
4q*##62*((6-#RM8(G A#*'C! !TRUEFALSE!9N#Y#(G# "(k((!0(!!2Sz0*6##ww#w$w#w ##N
#F*B2w#w#s#r"*-w#ww##""2ZR0*4#42ZR *4 #4(22*f(/G(##++ O x yC! Q*G(##..f*##w +4
#4x 2G(""*n*0SZR8*N#F#s#r,0)jS*##w+N#FBr+s2!T)j)00 R!#*#V#N#F##V20*6#-Nw#Fwq#p#6
#w#w#w""!DM!"*B!(2"!"2"*w#wx(9*O *-4 #4!*4 #4*-N#Fq#pV+Bq#pSZR&*s#r$s#rL*L!(!$22
L!(*$(!3 1!(7" 2"S"Ns#FrB(Z#(*"K! !*#"!x * *) 2""!"*nf(HR0nf" VMDnfutqp*s#r*s#r
"*uKB!0' #fo"*R0RnfR0KqputsrNF(VNFV*SutKqpR*R(wwnfut"6#K*K*!""*NFy(*"*B0Cnf*R*"*
RSs#r#V""6#O"w2x2*"!F"" &y*"*2"*"!F"""!* Nr!6go(R*s#r£2x(sx(TDMx(R0U(O/o&9q# (!
F0#( ( #( ((#( i&T-a%o*!6o&2 2z2*KB" z C User break+ I/O Run-time error ,
PC*Not enough memory Program aborted '1!d!B if f.valeur'cos' then calcul
cos(nbre) else if f.valeur'sin' then calculsin(nbre) else
if f.valeur'tang' then begin
if cos(nbre)0 then begin definifal
se goto fincalcul
end else cal
culsin(nbre)/cos(nbre) end
else if f.valeur'int' then cal
culint(nbre) else if f.valeur'abs' then calculabs(nbre) else
if f.valeur'arctan' then calcularctan(nbre) else
if f.valeur'exp' then calculexp(nbre) else if f.valeur'ln' the
n begin
if nbre0 then NABCDE
FGHI begin
definifalse
goto fincalcul
end else
calculln(nbre)
end
else if f.valeur'sqrt' then
begin
if nbre0 then b
egin definifalse
goto fincalcul
end
else
calculsqrt(nbre) end
else if f.vale
ur'sh' then calcul0.5*(exp(nbre)-exp(nbre*-1)) else if f.valeur'ch' th
en calcul0.5*(exp(nbre)+exp(nbre*-1)) else if f.valeur'th' then
calcul(exp(nbre)-exp(nbre*-1))/(exp(nbre)+exp(nbre*-1)) else
if f.valeur'arcsin' then begin if nbre-1 then ca
lcul-0.5*pi else if nbre1 then calcul0.5*pi else
if ((nbre-1)or(nbre1)) then
begin definifalsegoto fincalcul end else
calcularctan(nbre/sqrt(1-nbre*nbre)) end else
if f.valeur'arccos' then begin if n
bre-1 then calculpi else if nbre1 then calcul0 els
e if ((nbre-1)or(nbre1)) then
begin definifalsegoto fincalcul end els
e calcul(pi/2)-arctan(nbre/sqrt(1-nbre*nbre)) end
else erreur(10) end
else if fnil then calcul0 fincalcul end function tapefonction v
ar www,wwxstr200 coeffrealresultatinteger formatstr10 begin if f.nature'idf
ct' then tapefonctionf.valeur+'('+tapefonction(f.d,v)+')' else if f.nature'nom
bre' then tapefonctionf.valeur else if f.nature'param' then tapefonction'p('+
f.valeur+')' else if f.nature'variab' then tapefonctionv else if ((f.nature'p
lus') or (f.nature'moins')) then begin wwwtapefonction(f.d,v)wwxtapefo
nction(f.g,v) if (((f.d.valeur'+')or(f.d.valeur'-'))and(f.valeur'+')) then
begin delete(www,1,1)delete(www,length(www),1) end ifn, !
"*#V!Eo!*!z!*s#r!*+)!s#r " !" Erreur de syntaxe a l'entree n. *!& !*+)"!!*+)! "!
!!D *&! O*&! oE!*&" "!!*&e. !*&!0!9O!£!£oE"!!*&e. !j"!!!£!Rk !"!"!*&!(E#!x!#M"*
&!)E#!x!#*#VMparam*#V! *#V!s#r*#V!s#r!!!!*+)#V*E#!*+)*s#r!" !"*#VMvariab*#V!xe.
*#V!s#r*#V!s#r! "* !w"*&e. !*&!a!zO!£!£oE$!!*&e. !t$!!!£!Rk !!Msin!Mcoso!Mtango!
Mexpo!Mlno!Marctano!Minto!Mabso!Msqrto!Msho!Mcho!Mtho!Marcsino!MarccosoE&*#VMidf
ct*#V! *#V!s#r*&!(E&!*#VO$*&!)E&!x!&!&!x!&!x! w"(!k"u!k!*k*u#Vs#r*k*us#r*u#VM
N A B C D E F G H Ipuiss*u#V!e. *u#V!!*u#V&k"!"i*&e. !!02*&!0!9O!£! £oE'!!*&e. !
z'*&!.E5(!02*&!0!9O!£! £oE5(!!*&e. !'!!!£!Rk !!!!*!E(!x!(*i#VMnombre*i#V! *i#V!s
#r*i#V!s#r" !Q"Y*&pR)*Y")xR")*Y#)(RX)!*YO$*&!)ER)!x!U)!)+R)-R)0 RB)*YQ')aRB)yR)z
R)*YR$)!x!*&!E)*Y&) Q"!E"O*O&*&!*!/OE*!E!*E*O#Vs#r*E*Os#r*&!*Ej**O#VMmulti**O#VM
divise*O#V*&e. *O#V!!*O#V&)E"!9"C*C!*&!+!-OE+*&!+E-+*C#VMplusC+*C#VMmoins*C#V*&e
. *C#V!s#r*C#V!!*C#V)+*C)*&!+!-OEe,!9!*9*C#Vs#r*9*Cs#r*&!+E,*C#VMplus$,*C#VMmoin
s*C#V*&e. *C#V!!*C#V)+9" !/"7*7#V!E,*7"!Entrez votre fonction !*7O$*&! E,!x! /"!
' !!'appuyez une touche pour revenir au menu oED-5-'"86"D!"%*%#V!E,6*%#V#VMnombr
e*%#V#VMnombre£o*%#V!/e.£oE.*%#V!M-!!,4!E.!,!*%#V .!,!!*%#V ! e.*%#V!E.*%#V!!.*%
#VMnombre*%#V!s#r*%#V!s#r!",6*%#V!*e.*%#V#VMnombre£o*%#V#V!1e.£oEm/*%#V#V*%s#r*%
V-!",6*%#V!*e.*%#V#VMnombre£o*%#V#V!1e.£oE/*%#V#V*%s#r*%V-!",6*%#V!*e.*%#V!/e.o*
%#V#VMnombre*%#V#V!0e.£o*%#V#V!o£oE0!*%s#r!",6*%#V!*e.*%#V#VMnombre*%#V#V!0e.£o*
%#V#V!o£oE1!*%s#r!",6*%#V!*e.*%#V#VMnombre£o*%#V#V!*e.£o*%#V#V#VMnombre£oE2*%#V#
V"*%#V*%#V#Vs#r*%#V*s#r*%#V#V#V"*%#V#V*%#V#Vs#r*%#V*s#r*%#VV-*%V-!",6*%#VMplus*%
#VMmoinso*%#V#V!*%#V#V!0e.o£oE)3*%#V#V*%s#r*%V-!",6*%#VMplus*%#VMmoinso*%#V#V!*%
#V#V!0e.o£oE3*%#V!-e.E3*%#VP-*%s#r3*%#V#V*%s#r*%V-!",6*%#VMpuiss*%#V#VMnombre£o*
%#V#V!1e.£oE4*%#V#V*%s#r*%V-!",6*%#VMpuiss*%#V#VMnombre£o*%#V#VMpuiss£o*%#V#V#VM
z1 to mi do begin write('Valeur du parametre n.')write(z)write('
')readln(pz,i) end end calculfonction(fi) end
3 graphe(0) end until choix4 end me') writelnwriteln(' VOTRE CHOIX
') readln(choix)menuchoix end function numfoncinteger var jinteger begi
n car' ' repeat read(kbd,car) until ((car'0') and (car'')) writeln(car) va
l(car,j,result) numfoncj end NABCDEFGHInombre£oE5!!Mmulti**!*e. **%#V#Vs#
r**%#V#V#Vs#r*%#V*s#r*%#V*%#V#V#Vs#r*%#VV-!",6*%#V#V!E6*%#VV-*%#V#V!E,6*%#VV-"&I
!!" * MnombreE6* !!!,!* MparamE6* !!!*+)))))*+)T),!* MvariabE7!,!* MplusEm7* #V!
,M-* #V!,M-!* MmoinsE7* #V!,M-* #V!,M-!* MmultiE#8* #V!,M-* #V!,M-!* MpuissE19*
#V!,M-4!E8* #V!,M-* #V!,M-56!.9* #V!,M-!E8!2.9* #V!,M-+ * #V!,M- !* MdiviseE9* #
V!,M-!E9!29* #V!,M-* #V!,M-!* MidfctE* #V!,M-!* McosE)!,!* MsinEU!,!* MtangE!,!E
!2!,!,!* MintE!,!* MabsE!,!* MarctanEF!,F!* MexpEr!, !* MlnE!,!E!2!,+ !* MsqrtE!
,!E!2!,F!* MshE!!, !,! !* MchE!!, !,! !* MthE!, !,! !, !,! !* MarcsinE!,!E!!!I!!
,!E!!!I!!,!!,!oEA!2!,!!,!,FF!* MarccosE!,!E!!I!!,!E!!!,!!,!oE!2!!I!!,!!,!,FF!! x
!* !E!!!,"!2"*MidfctEE*!(e.*#V*&S-!)e.!D*MnombreEr*!D*MparamEMp(*!)e.!D*MvariabE
*&e.!D*Mplus*MmoinsoExC*#V*&S-!*#V*&S-!*#V!+e.*#V!-e.o*!+e.£oEA!!!!!£!*#V!+e.*#V
!-e.oE%B!!!!!£!!!*#VMnombreEnB*#V!!*#V!*e.*#V#VMnombre£oEB*#V#V!!*!+e.!,!£oEC!(!
!!)e.!uC!(!*!!)e.!D*Mdivise*Mmultio*MpuissoED*#V*&S-**#V*&S-!DM!!"!"*#V!*e.*#V#V
Mnombre£oED!!Mmulti**!*e. **#V#Vs#r**#VP-s#r*"I*#V!*e.*function calcul(ffonction
xreal)real forward function oppose(var ffonction)fonction forward functi
on tapefonction(ffonctionvchar)str200 forward procedure simplif(var ffoncti
on) var hfonctionnbrereal begin if fnil then begin if ((f.d.nature'nom
bre')and(f.g.nature'nombre')and(f.valeur'/')) then begin nbre
calcul(f,0)if frac(nbre)0 then str(round(nbre),f.valeur) else begi
n str(nbre83,f.valeur) while po NABCDEFGHIs(' ',f.valeur)0 do del
ete(f.valeur,1,1) end f.nature'nombre' f.gnilf.dnilresult1
end else if ((f.valeur'*') and (f.d.nature'nombre') and (f
.d.valeur'1')) then begin ff.g
simplif(f)result1 end else if ((f.valeur'*'
) and (f.g.nature'nombre') and (f.g.valeur'1')) then begin
ff.d simplif(f)result1 end
else if (((f.valeur'*') or(f.valeur'/'))and (((f.g.nature'nombre')
and (f.g.valeur'0')) or (f.gnil))) then begin
fnilresult1 end else if ((f.valeur'*') and (((f.d.natur
e'nombre') and (f.d.valeur'0')) or (f.dnil))) then begin
fnilresult1 end else if ((f.valeur'*') and (f.g.n
ature'nombre') and (f.d.valeur'*') and (f.d.g.nature'nombre')) then begi
n hf.df.df.gf.gh hf.g.df.g.df.df.dhsimplif(f.d)simplif(f)
result1 end else if (((f.nature'plus') or (f.nature'
moins')) and ((f.dnil) or (f.d.valeur'0'))) then begin ff.
g simplif(f)result1 end else if (((f
.nature'plus') or (f.nature'moins')) and ((f.gnil) or (f.g.valeur'0'))) i,
!"£*£#V!En!*£!z!*£s#r!*)!s#r " !" Erreur de syntaxe a l'entree n. *!& !*)"!!*)!
"!!!£D *£&! O*£&! oE!*£&" "!!*£&e. !*£&!0!9O!£!£oE"!!*£&e. !g"!!!£!Rk !"!u"!*£
&!(E#!w!#J"*£&!)E7#!w!#*#VMparam*#V! *#V!s#r*#V!s#r!!u!!*)#V*uE#!*)*us#r!u" !k"s
*s#VMvariab*s#V!xe. *s#V!s#r*s#V!s#r! k"* !a"i*£&e. !*£&!a!zO!£!£oE$!!*£&e. !o$!
!!£!Rk !!Msin!Mcoso!Mtango!Mexpo!Mlno!Marctano!Minto!Mabso!Msqrto!Msho!Mcho!Mtho
!Marcsino!MarccosoE&*i#VMidfct*i#V! *i#V!s#r*£&!(E&!*i#VJ$*£&!)E&!w!&!&!w!&!w! a
"(!U"!U!*U*#Vs#r*U*s#r*#VMpuiss*#V!e. *#V!!*#V&U"!E"S*£&e. !!02£*£&!0!9O!£! £oE'
!!*£&e. !u'*£&!.E0(!02£*£&!0!9O!£! £oE0(!!*£&e. !'!!!£!Rk !!!E!*!E(!w!(*S#VMnomb
re*S#V! *S#V!s#r*S#V!s#rE" !"C*£&pR)*C")xR)*C#)(RS)!*CJ$*£&!)EM)!w!P)!)+Rw)-Rw)0
RB)*CL')aRB)yR)zR)*CM$)!w!*£&!E)*C&) "!/"9*9&*£&!*!/OE*!/!*/*9#Vs#r*/*9s#r*£&!*
Ee**9#VMmulti**9#VMdivise*9#V*£&e. *9#V!!*9#V&)/"!#"-*-!*£&!+!-OE+*£&!+E(+*-#VMp
lus+*-#VMmoins*-#V*£&e. *-#V!s#r*-#V!!*-#V)+*-)*£&!+!-OE,!#!*#*-#Vs#r*#*-s#r*£&!
+E,*-#VMplus,*-#VMmoins*-#V*£&e. *-#V!!*-#V)+#" !"!*!#V!E,*!"!Entrez votre fonct
ion !*!J$*£&! E,!w! "! !! NABCDEFGHI'appuyez une touche pour revenir au menu oE
-0-"36D!"*#V!E'6*#V#VMnombre*#V#VMnombre£o*#V!/e.£oE.*#V!H-!!,4!E5.!,!*#V .!,!!*
#V ! e.*#V!E.*#V!!V.*#VMnombre*#V!s#r*#V!s#r!"'6*#V!*e.*#V#VMnombre£o*#V#V!1e.£o
Eh/*#V#V*s#r*Q-!"'6*#V!*e.*#V#VMnombre£o*#V#V!1e.£oE/*#V#V*s#r*Q-!"'6*#V!*e.*#V!
/e.o*#V#VMnombre*#V#V!0e.£o*#V#V!o£oE0!*s#r!"'6*#V!*e.*#V#VMnombre*#V#V!0e.£o*#V
#V!o£oE1!*s#r!"'6*#V!*e.*#V#VMnombre£o*#V#V!*e.£o*#V#V#VMnombre£oE2*#V#V"*#V*#V#
Vs#r*#V*s#r*#V#V#V"*#V#V*#V#Vs#r*#V*s#r*#VQ-*Q-!"'6*#VMplus*#VMmoinso*#V#V!*#V#V
!0e.o£oE$3*#V#V*s#r*Q-!"'6*#VMplus*#VMmoinso*#V#V!*#V#V!0e.o£oE3*#V!-e.E3*#VK-*s
#r3*#V#V*s#r*Q-!"'6*#VMpuiss*#V#VMnombre£o*#V#V!1e.£oE4*#V#V*s#r*Q-!"'6*#VMpuiss
*#V#VMnombre£o*#V#VMpuiss£o*#V#V#VMnombre£oE5!!Mmulti**!*e. **#V#Vs#r**#V#V#Vs#r
*#V*s#r*#V*#V#V#Vs#r*#VQ-!"'6*#V#V!E5*#VQ-*#V#V!E'6*#VQ-"!H!!"*MnombreE6*!!!,!*M
paramE6*!!!*+))))))*)T),!*MvariabE7!,!*MplusEb7*#V!,H-*#V!,H-!*MmoinsE7*#V!,H-*#
V!,H-!*MmultiE8*#V!,H-*#V!,H-!*MpuissE&9*#V!,H-4!E8*#V!,H-*#V!,H-06!#9*#V!,H-!E8
!2#9*#V!,H-+ *#V!,H- !*MdiviseE9*#V!,H-!Ex9!29*#V!,H-*#V!,H-!*MidfctE*#V!,H-!*Mc
osE!,!*MsinEJ!,!*MtangE!,!E!2!,!,!*MintE!,!*MabsE!,!*MarctanE!,F!*MexpEg!, !*Mln
E!,!E!2!,+ !*MsqrtE!,!E!2!,F!*MshEp!!, !,! !*MchE!!, !,! !*MthEU!, !,! procedur
e graphe var xo,yo,xxd,xxa,ux,uy,pasreal xp,yp,nbfonc,z,bk,index,choixbisi
nteger precedeboolean fx,fyarray1..10 of integer ldaarray1..20 of real begin
clrscr if revoir0 then begin writeln('1-Courbe yf(x)')writeln w
riteln('2-Courbe xf(t)yf(t)')writeln writeln('3-Courbe polaire rf(t)')writel
n write('Votre choix ') repeat read(kbd,car) until ((car'0') and
(car'4')) writeln val(car,choix,result) writeln e NABCDEFGHInd
writeln write('Abscisse origine ')readln(xo) write('Ordonnee origine ')
readln(yo) write('Borne inferieure int d''etude ')readln(xxd) write('Borne
superieure int d''etude ')readln(xxa) write('Unite abscisse ')readln(ux)
write('Unite ordonnee ')readln(uy) write('Pas d''etude ')readln(pas) if re
voir0 then begin write('Nombre de graphes sur le meme ecran (1 a 9)') nb
foncnumfonc index0 for z1 to nbfonc do begin case choix of 1 b
e$A- program courbe type fonctionsommet sommetrecord na
turestring6 valeurstring10 d fonction
g fonction end str200string250 str10string10 const filtreset
of char'+','*','-','/','','.','(',')','a'..'z','0'..'9' var farray1..10 of
fonction carchar idfstring10 i,j,resultinteger indice,choixinteger par
ray1..3,1..10 of real marray1..10 of integer definiboolean x,resultatreal
$I lirefonc.pas $I calculf.pas $I algebre.pas $I derivee.pas $I menu.pas
begin for i1 to 10 do begin finilmi0 end boucle end. begin new(u)u.nat
ure'multi'u.valeur'*'u.df.d u.goppose(f.g)opposeu end else if ((f.valeur
'x') or (f.valeur'')) then begin new(u)u.nature'multi'u.valeur'*'u.df ne
w(v)v.nature'nombre'v.valeur !, !,! !*MarcsinEx!,!E!!!I!u!,!E!!!I!u!,!!,!oE6!2u!
,!!,!,FF!*MarccosE!,!E!!I!!,!E!!!,!!,!oE0!2!!I!!,!!,!,FF!! w!*!E!!!,"!2"*MidfctE
*!(e.*#V*&N-!)e.!D*MnombreEg*!D*MparamEMp(*!)e.!D*MvariabE*&e.!D*Mplus*MmoinsoEm
C*#V*&N-!*#V*&N-!*#V!+e.*#V!-e.o*!+e.£oEA!!!!!£!*#V!+e.*#V!-e.oEB!!!!!£!!!*#VMno
mbreEcB*#V!!*#V!*e.*#V#VMnombre£oEB*#V#V!!*!+e.!,!£oE2C!(!!!)e.!jC!(!*!!)e.!D*Md
ivise*Mmultio*MpuissoEC*#V*&N-**#V*&N-!DM!!"!"*#V!*e.*#V#VMnombre£oED!!Mmulti**!
*e. **#V#Vs#r**#VK-s#r*"H*#V!xe.*#V!e.oEE!!Mmulti**!*e. **#Vs#r!!Mnombre**M-1 *!
s#r*!s#r**s#r*"H*#VMnombreEF!!Mnombre**!s#r*!s#r*#V!!!,!!!,4!EF!,!* F!,! !* ! e.
*!EF*!!£F*"H*#V!+e.EnG!!Mplus**!+e. **#VK-s#r**#VK-s#r*"H*#V!-e.EG!!Mplus**!+e.
**#VK-s#r**#V#Vs#r*"H*#V!EH!"*"!!!!,"!,!EyH!!ZI*!EH!!ZI*!EH!,!!!,!,!,06!ZI*! NA
BCDEFGHIEZI!,!!!!,!,!,06!!," !" valeur de x !r !2*!,H-!!,4!EI!,!! J!,!!! *&!EJ!
f"*!&!("!!) !,4!EJ!,!! J!,!!! !! J!f"*!&!("!!) n'est pas definie #1 Un autre x 2
Retour au menu !!£D *£&!1*£&!2oE)K*£&e.!! *!EI " !r M E N U 1 Entree de la
fonction 2 Calcul de valeurs de f(x) 3 Graphes de fonctions 4 Fin du programm
e VOTRE CHOIX !!£D *£&!0*£&!5£oEL*£&e.!!*"z*z r"!f! 2£!!£D *£&!0*£&!£oEM *£&e
.!f!*f"p*pf"Q !K"*RMNo de la fonction (1 a 9) L"! 2£!*)!!*)Q-,NRNNo de la foncti
on (1 a 9) L"!*)#V!EN!!*)#VfzN"Valeur du parametre n. *!& !*+))))))*)T)r *#AN!
*)#VjINRN!eM*!EqM "!P"X"Z*Z*XZP"!D"L"N*N*LZD"!8""B*B*Z8"!,"4"6*6*4Z,"! "("****(Z
"!""**Z"!""**Z" !22GOZ8 "!""**Z2*&2*&"!!!"!"!"!3"!" !!fzQ"!!"!*"!"!"!" !!fzQ"!"
!!fzaQ"*!*!*!*!RHP"*#Q!*"*" *#P!! "! " *#P!! "!"!" "!"*!ER1-Courbe yf(x) 2-Cour
be xf(t)yf(t) 3-Courbe polaire rf(t) Votre choix !!£D *£&!0*£&!4£oEzR *£&e.!
! Abscisse origine !r Ordonnee origine !r Borne inferieure int d'etude !r Bo
rne superieure int d'etude !r Unite abscisse !r Unite ordonnee !r Pas d'etude
!r *!EZ,Nombre de graphes sur le meme ecran (1 a 9) L"!"!*fzZ"*RUNo de la fonc
tion yf(x) n.*!& !*+)Ls#r!!*+)#V)#V!E!U!!*+)#V)!!!*+)#V)!*)#Vs#r!!*+)#V)#V!EU!!
!*+)#V)#VfzU"*!"Valeur du parametre n.*!& !*+)T)r *#jU£ZR6YNo de la fonction xf
(t) n.*!& !*+)Ls#r!!*+)#V)#V!EV!!*+)#V)!!!*+)#V)!*)#Vs#r!!*+)#V)#V!EW!!!*+)#V)#
VfzW"*!"Valeur du parametre n.*!& !*+)T)r *#VNo de la fonction yf(t) n.*!& !u*
+)Ls#r!!u*+)#V)#V!EW!!u*+)#V)!!!u*+)#V)!*)#Vs#r!u*+)#V!*+)#VEX!u*+)!s#r!!)!!*+)#
V)#Vs#r!!)!!*+)#V)#Vs#r!!u*+)#V)#V!E3Y!!!u*+)#V)#Vfz3Y"*!"Valeur du parametre n.
* ((f.g.valeur'+')or(f.g.valeur'-')) then begin delete(wwx,1,1)delet
e(wwx,length(wwx),1) endcoeff1 if f.d.nature'nombre' then val(f.d.va
leur,coeff,resultat) if ((f.d.valeur'*')and (f.d.g.nature'nombre')) then
val(f.d.g.valeur,coeff,resultat) if ((f.valeur'+') and (coeff0)) then
tapefonction'('+wwx+www+')' else tapefonction'('+wwx+f.valeur+www+')'
end else if ((f.nature'divise') or (f.nature'multi') or (f.nat NABCDEF
GHIure'puiss')) then tapefonctiontapefonction(f.g,v)+f.valeur+tapefonction(f.d,
v) else tapefonction'' end function oppose var u,vfonction coeff,resulta
tinteger coef2real begin if ((f.valeur'*') and (f.g.nature'nombre')) then b
egin new(u)u.nature'multi'u.valeur'*'u.df.d u.goppose(f.g)opposeu end
else if ((f.valeur'*') or (f.valeur'/') then begin new(u)u.nature'multi'u.
valeur'*'u.dfnew(u.g) u.g.nature'nombre'u.g.valeur'-1'u.g.gnilu.g.dnil opp
oseu end else if ((f.valeur'x') or (f.valeur'')) then begin new(u)u.na
ture'multi'u.valeur'*'u.df new(v)v.nature'nombre'v.valeur'-1'v.dnilv.gnil
u.gvopposeu end else if f.nature'nombre' then begin new(u)u.nature'nom
bre'u.dnilu.gnil val(f.valeur,coef2,resultat)coef2coef2*(-1) if frac(coef2
)0 then str(round(coef2),u.valeur) else begin str(coef2105,u.vale
ur) while pos(' ',u.valeur)0 do delete(u.valeur,1,1) end opposeu
end else if f.valeur'+' then begin new(u)u.nature'plus'u.valeur'+' u.go
ppose(f.g)u.doppose(f.d)opposeu end else if f.valeur'-' then begin new(u)u
.nature'plus'u.valeur'+'u.goppose(f.g)u.df.d opposeu end else if fnil the
n opposenil end function exposant var llinteger begin llround(l) i
f k0 then exposant0 else if ll0 th QUELQUES PRECISIONS SUR CES PROGRAMMES
D'ANALYSE ************************************************* Ces progra
mmes sont ecrits en TURBO PASCAL. Vous trouverez sur cette disquette les prog
rammes compiles (*.COM). Il n'est donc pas necessaire de posseder TURBO PAS
CAL pour les executer. Cependant, les programmes sources sont a votre di
sposition (*.PAS) sur la disquette, ainsi qu'un fichier d'explications que vo
us pouvez lire ou imprimer ( sous CPM TYPE + CTRL P), ce fichier tres deta
ille est nomme SOURCES.DOC . Ces programmes sont executables sous CPM plus
, c'est a dire sur CPC 6128 ou CPC 464/664 avec RAM suppleme
ntaire+CPM plus. La partie algebrique tourne fort bien sur
PCW 256/512 mais il faudra rediger une bibliotheque graphique po
ur tracer les courbes. Une version compatible IBM sous MS/DOS existe egalem
ent. POUR DES RAISONS DE PLACE DISPONIBLE SOUS CPM+ Le programme est
scinde en d then begin if f.valeur'-' then foppose(f.
d) else ff.d simplif(f)result1 end
else if ((f.nature'puiss') and (f.d.nature'nombre') and (f.d
.valeur'1')) then begin ff.g simplif(f)result1
end else if ((f.nature'puiss')and(f.d.nature'nombre')and (f
.g.nature'puiss')and(f.g.d.nature'nombre')) then begin new(h)h.n
ature'multi'h.valeur'*'h.df.dh.gf.g.d f.dhf.gf.g.gsimplif(f.d)result1
end else begin if f.dnil then simplif(f.d) if f.gn
il then simplif(f.g) end end end function exposant(k,lreal)real
forward function calcul label fincalcul var nbrerealresultatinteger begi
n if f.nature'nombre' then begin
val(f.valeur,nbre,resultat) cal
culnbre end else
if f.nature'param' then begin
val(f.valeur,indice,resultat) calc
ulpindice,i end el
se if f.nature'variab' then calculx else if f.nature'plus' then calculcalc
ul(f.g,x)+calcul(f.d,x) else if f.nature'moins' then calculcalcul(f.g,x)-calc
ul(f.d,x) else if f.nature'multi' then calculcalcul(f.g,x)*calcul(f.d,x) else
if f.nature'puiss' then begin
if frac(calcul(f.d,x))0 then calculexposant(ca
lcul(f.g,x),calcul(f.d,x)) else
begin if calcul(f.g,x)0 then
begin NAB
CDEFGHI definifalse
goto fincalcul end
else
calculexp((ln(calcul(f.g,x)))*calcul(f.d,x))
end end else if f.nature'
divise' then begin if
calcul(f.d,x)0 then begin de
finifalse goto fincalcul
end
else calculcalcul(f.g,
x)/calcul(f.d,x) end
else if f.nature'idfct' then begin
nbrecalcul(f.d,x) if f.valeur'cos' then calcul
cos(nbre) else if f.valeur'sin' then calculsin(nbre) else
if f.valeur'tang' then begin
if cos(nbre)0 then begin definifal
se goto fincalcul
end else cal
culsin(nbre)/cos(nbre) end
else if f.valeur'int' then cal
culint(nbre) else if f.valeur'abs' then calculabs(nbre) else
if f.valeur'arctan' then calcularctan(nbre) else
if f.valeur'exp' then calculexp(nbre) else if f.valeur'ln' the
n begin
if nbre0 then
begin
definifalse got
o fincalcul end
else
calculln(nbre)
end else
if f.valeur'sqrt' then
begin if nbr
e0 then begin
definifalse
goto fincalcul
end
else cal
culsqrt(nbre) end
else if f.valeur'sh' then
calcul0.5*(exp(nbre)-exp(nbre*-1)) else if f.valeur'ch' then calcul0.5
*(exp(nbre)+exp(nbre*-1)) else if f.valeur'th' then c
alcul(exp(nbre)-exp(nbre*-1))/(exp(nbre)+exp(nbre*-1)) else if f.valeu
r'arcsin' then begin if nbre-1 then calcul-0.5*pi
else if nbre1 then calcul0.5*pi else
if ((nbre-1)or(nbre1)) then begin
definifalsegoto fincalcul end else
calcularctan(nbre/sqrt(1-nbre*nbre)) end else
if f.valeur'arccos' then begin if nbre-1 then c
alculpi else if nbre1 then calcul0 else
if ((nbre-1)or(nbre1)) then be
gin definifalsegoto fincalcul end else
calcul(pi/2)-arctan(nbre/sqrt(1-nbre*nbre)) end else
erreur(10) end else
if fnil then calcul0 fincalcul end function tapefonction var www,wwxs
tr200 coeffrealresultatinteger formatstr10 begin if f.nature'idfct' t NABCD
EFGHIhen tapefonctionf.valeur+'('+tapefonction(f.d,v)+')' else if f.nature'nom
bre' then tapefonctionf.valeur else if f.nature'param' then tapefonction'p('+
f.valeur+')' else if f.nature'variab' then tapefonctionv else if ((f.nature'p
lus') or (f.nature'moins')) then begin wwwtapefonction(f.d,v)wwxtapefo
nction(f.g,v) if (((f.d.valeur'+')or(f.d.valeur'-'))and(f.valeur'+')) then
begin delete(www,1,1)delete(www,length(www),1) end if ((f
.g.valeur'+')or(f.g.valeur'-')) then begin delete(wwx,1,1)delete(wwx
,length(wwx),1) endcoeff1 if f.d.nature'nombre' then val(f.d.valeur,
coeff,resultat) if ((f.d.valeur'*')and (f.d.g.nature'nombre')) then
val(f.d.g.valeur,coeff,resultat) if ((f.valeur'+') and (coeff0)) then
tapefonction'('+wwx+www+')' else tapefonction'('+wwx+f.valeur+www+')' e
nd else if ((f.nature'divise') or (f.nature'multi') or (f.nature'puiss'))
then tapefonctiontapefonction(f.g,v)+f.valeur+tapefonction(f.d,v) else tapefonc
tion'' end function oppose var u,vfonction coeff,resultatinteger coef2re
al begin if ((f.valeur'*') and (f.g.nature'nombre')) then begin new(u)u.n
ature'multi'u.valeur'*'u.df.d u.goppose(f.g)opposeu end else if ((f.vale
ur'*') or (f.valeur'/')) then begin new(u)u.nature'multi'u.valeur'*'u.dfnew
(u.g) u.g.nature'nombre'u.g.valeur'-1'u.g.gnilu.g.dnil opposeu end els
e if ((f.valeur'x') or (f.valeur'')) then begin new(u)u.nature'multi'u.val
eur'*'u.df new(v)v.nature'nombre'v.valeur'-1'v.dnilv.gnil u.gvopposeu en
d else if f.nature'nombre' then begin new(u)u.nature'nombre'u.dnilu.gnil
val(f.valeur,coef2,resultat)coef2coef2*(-1) if frac(coef2)0 then str(roun
d(coef2),u.valeur) else begin str(coef2105,u.valeur) while p
os(' ',u.valeur)0 do delete(u.valeur,1,1) end opposeu end else if f
.valeur'+' then begin new(u)u.nature'plus'u.valeur'+' u.goppose(f.g)u.dopp
ose(f.d)opposeu end else if f.valeur'-' then begin new(u)u.nature'plus'u.v
aleur'+'u.goppose(f.g)u.df.d opposeu end else if fnil then opposenil end
function exposant var llinteger begin llround(l) if k0 then exposa
nt0 else if ll0 then exposant1 else if ll0 then begin ll-1exposantk*exposant(k
,l) end else if ll0 then begin ll+1exposant(1/k)*exposant(k,l) end end pr
ocedure calculfonction(ffonction) var chx,chystr10 begin clrscr repeat
write('valeur de x ') readln(x) definitrueresultatcalcul(f,x) if frac(x
)0 then str(round(x),chx) else str(x83,chx) if definitrue then
begin write('f',i,'(',chx,')') i
f frac(resultat)0 then str(round(resultat),chy) else str(re
sultat83,chy) writeln(chy) end
else begin writeln('f',i
,'(',chx,') n''est pas definie') end writeln('1 Un autre
x 2 Retour au menu ') repeat read(kbd,car) until ((car'1') or (car'2
')) val(car,choix,result) writeln until choix2 end #V!/e.oEE!!Mmul
ti**!*e. **#Vs#r*!*#VMnombre*#VM-1 *#V!s#r*#V!s#r*"I*#V!xe.*#V!e.oEF!!Mmulti**!*
e. **#Vs#r!!Mnombre**M-1 *!s#r*!s#r**s#r*"I*#VMnombreEG!!Mnombre**!s#r*!s#r*#V!!
!,!!!,4!EG!,!* G!,! !* ! e.*!EG*!!G*"I*#V!+e.EsH!!Mplus**!+e. **#VP-s#r**#VP-s#r
*"I*#V!-e.EH!!Mplus**!+e. **#VP-s#r**#V#Vs#r*"I* NABCDEFGHI#V!EI!"*"!!!!,"!,!EI
!!J*!EI!!J*!EI!,!!!,!,!,56!J*!EJ!,!!!!,!,!,56!!," !" valeur de x !r !2*!,M-!!,4
!EJ!,!! K!,!!! *&!EK!f"*!&!("!!) !,4!EK!,!! K!,!!! !! K!f"*!&!("!!) n'est pas de
finie #1 Un autre x 2 Retour au menu !!D *&!1*&!2oE.L*&e.!! *!EJ "jal!"*#V!*e.*
#V#V!+e.*#V#V!-e.o£o*#V#VMidfct£oEN*#V*#V#V*#V*#V#V !!Mmulti**!*e. **#V#V#Vs#r**
#V#Vs#r!!Mmulti**!*e. **#V#V#Vs#r**#V#Vs#r*#V*s#r*#V*s#r!"Q*#V!*e.*#V#V!+e.*#V#V
!-e.o£o*#V#VMidfct£oEkP*#V*#V#V*#V*#V#V !!Mmulti**!*e. **#V#Vs#r**#V#V#Vs#r!!Mmu
lti**!*e. **#V#Vs#r**#V#V#Vs#r*#V*s#r*#V*s#r!"Q*#V!e.*#V#V!2e.£o*#V#V!*e.£oE)Q*#
VMmulti*#V!*e. *#V*#V#Vs#r!"Q*#V#V!ETQ*#VL*#V#V!EQ*#VL"!v"*#V!+e.*#V!-e.o*#V#VL!
£o*#V#VL*#V#VL£oEhW*#V#V!*e.*#V#V!*e.£oEvT*#V#V#V!xe.*#V#V#V!xe.£o*#V#V#V!e.*#V#
V#V!e.£o*#V#V#V#V*#V#V#V#V£ooEsT!x!*#V*x*x*#V *#VMmulti*#V!*e. *x*#V#V#Vs#r*x*#V
#V#Vs#r*#V*xs#r*#V*#V#V#Vs#r*#VV-!"eW*#V#V!xe.*#V#V!e.*#V#V#V!xe.£ooEU!x!Mmulti*
x*x!*e. !v!Mnombre*v*v!1e. *v!s#r*v!s#r*x*vs#r*x*#V#Vs#r*#V*xs#r*Q!"W*#V#V!xe.*#
V#V!e.*#V#V#V!xe.£ooEW!x!Mmulti*x*x!*e. !v!Mnombre*v*v!1e. *v!s#r*v!s#r*x*vs#r*x
*#V#Vs#r*#V*xs#r*Q!"W*V-!"*#V#V!EW*#VQ*#V#V!EeW*#VQW*#V#V!EW*#VQ*#V#V!EW*#VQv"!h
"t*t#V!*e.Ea*t#VL*t#VL*tL*t#V#V!*e.*t#V#VMnombre£o*t#V#V#VMnombre£oERY!h!*h*t#V#
Vs#r*h*t#V#V#Vs#rMmulti*h*h!*e. *t#V*t#V#V#Vs#r*t#V*hs#r*t#VV-!"a*t#V#V!*e.*t#V#
V#VMnombre£o*t#V#VMnombre£oEZ!h!*h*t#V#V#Vs#r*h*t#V#Vs#rMmulti*h*h!*e. *t#V*t#V#
V#Vs#r*t#V*hs#r*t#VV-!"a*t#V#V!*e.*t#V#V!*e.£o*t#V#V#VMnombre£o*t NABCDEFGHI#V#
V#VMnombre£oEZ!j!Mmulti*j*j!*e. *j*t#V#V#Vs#r*j*t#V#V#Vs#r!h!Mmulti*h*h!*e. *h*t
#V#V#Vs#r*h*t#V#V#Vs#r*t#V*js#r*t#V*hs#r*t#VV-!"a*t#V#V!xe.*t#V#V!e.*t#V#V#V!xe.
£oo*t#V#V!xe.*t#V#V!e.*t#V#V#V!xe.£oo£oEp*t#VMpuiss*t#V!e. !j!Mplus*j*j!+e. *t#V
#V!xe.E,!h!Mnombre*h*h!1e. *h!s#r*h!s#r*j*hs#rP*j*t#V#V#Vs#r*t#V#V!xe.E!h!Mnombr
e*h*h!1e. *h!s#r*h!s#r*j*hs#r*t#V*t#V#Vs#rD*j*t#V#V#Vs#r*t#V*t#V#V#Vs#r*t#V*js#r
*t#VV-!"a*t#V#V!*e.*t#V#V!xe.*t#V#V!e.o£oE*t#VL!j!Mmulti*j*j!*e. *j*t#V#Vs#r*j*t
#V#V#Vs#r*t#V*js#r*t#V*t#V#V#Vs#r*t#VW*tLa*t#V#V!E*t#VW*t#V#V!Ea*t#VWaa*t#V#V!E6
a*t#VW*t#V#V!Eaa*t#VWh"!"f*f#V!+e.*f#V!-e.oEk*f#V!-e.Eb*f#VMplus*f#V!+e. *f#V*f#
VP-s#r*f#V#V!+e.*f#V#V!-e.o*f#V#V!+e.*f#V#V!-e.o£oEe*f#VL*f#VL*f#V#V#VL!*f#V#V#V
L*f#V#V#VL£oEe*f#V#V!-e.Ec*f#V#VMplus*f#V#V!+e. *f#V#V*f#V#VP-s#r*f#V#V!-e.Ed*f#
V#VMplus*f#V#V!+e. *f#V#V*f#V#VP-s#r!!Mplus**!+e. *!*#VMplus*#V!+e. *#V*f#V#V#Vs
#r*#V*f#V#V#Vs#r*!*#V!+e. *#VMplus*#V*f#V#V#Vs#r*#V*f#V#V#Vs#r*f#V"!"k*f#V!+e.*f
#V!-e.o*f#V#V!+e.*f#V#V!-e.o£oEh*f#VL*f#V#V#VL!*f#V#V#VL*f#V#VL£oEh*f#V#V!-e.EYg
*f#V#VMplus*f#V#V!+e. *f#V#V*f#V#VP-s#r!!Mplus**!+e. **f#V#V#Vs#r**f#V#Vs#r*f#V*
f#V#V#Vs#r*f#V*s#r!"k*f#V!+e.*f#V!-e.o*f#V#V!+e.*f#V#V!-e.o£oEj*f#VL*f#V#VL!*f#V
#VL*f#V#V#VL£oEj*f#V#V!-e.Ei*f#V#VMplus*f#V#V!+e. *f#V#V*f#V#VP-s#r*f#V#V"*f#V*f
#V#V#Vs#r*f#V#V*s#r*f#VQ*f#V#V"*f#V*f#V#Vs#r*f#V*s#r!"k*f#V!+e.*f#V!-e.o*f#V#VL!
£o*f#V#VL*f#V#VL£oEk*f#V#V"*f#V*f#V#Vs#r*f#V*s#r!"l*f#V!*e.*f#V#V!xe.*f#V#V!e.*f
#V#V#V!xe.£oo£oEl*f#V!-e.El*f#VMplus*f#V!+e. *f#V*f#VP-s#r*f#V#V"*f#V*f#V#Vs#r*f
#V*s#r!"*f#V#V!El*f#VL*f#V#V!El*f#VL"!L"X*X!*e.E5n*X#VMnombr NABCDEFGHIe*X#VMno
mbre£oE2m!"Z2n*X#VMnombre*X#V!xe.£oEm!"Z2n*X#VMnombre*X#V!e.£o*X#V#V!xe.£oE,n*X#
V#V!N!L*L!E#n*N"Z)n!"Z2n!"Zo*X!xe.EWn!"Zo*XMnombreExn!"Zo*X!e.*X#V!xe.£o*X#VMnom
bre£oEo*X#V!N!L*L!Eo*N"Z o!"Zo!"Z*ZL"!"J*J#V!Eu*J#V!+e.*J#V!-e.oEu*JQ*J#V#V!Eo*J
#VL*J#V#V!Eo*J#VL*J#V!-e.EIp*J#V!+e. *J#VMplus*J#V*J#VP-s#r*J#V#V!-e.Ep*J#V#V*J#
V#VP-s#r*J#V#V!+e. *J#V#VMplus*J#V#V!-e.Emq!& !*+)T)r *#X£ZR£ZNo de la fonction
rf(t) n.*!& !*+)Ls#r!!*+)#V)#V!EY!!*+)#V)!!!*+)#V)!*)#Vs#r!!*+)#V)#V!E£Z!!!*+)
#V)#Vfz£Z"*!"Valeur du parametre n.*!& !*+)T)r *#Z*#XT!,!,O!!IO!!,R!N!!N!!IO!!!
,RN!!pN!,!IO!!N!!N!!,IO!!N!!N!"!*fzb"*R!,!!2!!*+)#V)#V!EW!!!*+)#V)#VfzW"*!"!*+))
))))!*+)#V)T)!*+)T),*#!,!,E!2!*+)#V"!!*+)#V)#V!,H-!*&!!,!£oEU!,!,"!,!,"*&!E**OK*
*O!2!2!,!,!WbR!,!!2!!*+)#V)#V!EF!!!*+)#V)#VfzF"*!"!*+))))))!*+)#V)T)!*+)T),*#!!u
*+)#V)#V!E!!!u*+)#V)#Vfz"*!"!*+))))))!u*+)#V)T)!*+)T),*#!,!,E!2!*+)#V"!!*+)#V)#V
!,H-!*&!!,!£oEf!,!,"!u*+)#V"!!u*+)#V)#V!,H-!*&!!,!£oE!,!,"*&!EG**OR**O!2c!2m!2!,
!,!bRb!,!!2!!*+)#V)#V!EWa!!!*+)#V)#VfzWa"*!"!*+))))))!*+)#V)T)!*+)T),*#!,!,Eb!2!
*+)#V"!!*+)#V)#V!,H-!*&!!,!£oEb!,!,!,"!,!,!,"*&!Efb**Oqb**O!2b!2!,!,!Wa*#!!*1 Im
primer 2 Revoir 3 Retour au menu !!£D *£&!0*£&!4£oEb*£&e.!!*!Ec!!+
!!OP*!E£c!eM"!! fzc"!*)!s#r!*)!s#r*#c! ! PhM o
rigin(0,0)vidage end if choixbis2 then graphe(1) end begin cl
rscrwrite('No de la fonction (1 a 9)') inumfonc if mi0 then
begin for gin write('No de la fonction yf(x) n.',z,' ')fxznum
fonc if ffxznil then begin lirfonction(ffxz) mf
xzmi end if mfxz0 then begin for bk1 to mfxz do b
egin indexindex+1write('Valeur du parametre n.',bk,' ') readln(ldainde
x) end end end 2 begin write('No de la foncti
on xf(t) n.',z,' ')fxznumfonc if ffxznil then begin NABCDEFG
HI lirfonction(ffxz) mfxzmi end if mfxz0 then b
egin for bk1 to mfxz do begin indexindex+1write('Valeur du parametre
n.',bk,' ') readln(ldaindex) end end write('No
de la fonction yf(t) n.',z,' ')fyznumfonc if ffyznil then begin
lirfonction(ffyz) mfyzmi end if fyzfxz then
begin fyz0 f0ffxz m0mfxz end if mf
yz0 then begin for bk1 to mfyz do begin indexindex+1write('Val
eur du parametre n.',bk,' ') readln(ldaindex) end end
end 3 begin write('No de la fonction rf(t) n.',z,' ')fxznumfonc
if ffxznil then begin lirfonction(ffxz) mfxzm
i end if mfxz0 then begin for bk1 to mfxz do begin
indexindex+1write('Valeur du parametre n.',bk,' ') readln(ldaindex)
end end end end end end clrscr origin(rou
nd(xo),round(yo)) grafmove(0,0)drawr(640-round(xo),0)drawr(-640,0) grafmov
e(0,0)drawr(0,400-round(yo))drawr(0,-400) grafmove(round(ux),0)drawr(0,5)draw
r(0,-10) grafmove(0,round(uy))drawr(5,0)drawr(-10,0) index0 for z1 to n
bfonc do begin case choix of 1 begin xxxdprecedefalse if mfxz0
then begin for bk1 to mfxz do begin indexindex+1pbk,fx
zldaindex end end while xxxa do begin definitrueifxz
resultatcalcul(ffxz,x) if ((definitrue) and (abs(resultat)1000
)) then begin xpround(x*ux)
ypround(resultat*uy) if precedefalse th
en plot(xp,yp) else draw(xp,yp)
precedetrue end
else precedefalse xx+pas
end end 2 begin xxxdprecedefalse if mfxz0 then begin for
bk1 to mfxz do begin indexindex+1pbk,fxzldaindex e
nd end if mfyz0 then begin for bk1 to mfyz do begin
indexindex+1pbk,fyzldaindex end end while xxxa do
begin definitrueifxz resultatcalcul(ffxz,x) if ((defin
itrue) and (abs(resultat)1000)) then begin xpround(resultat*ux)ifyz
resultatcalcul(ffyz,x) if ((definitrue) and (abs(resultat)1
000)) then begin ypround(resultat*uy) if precedefalse then
plot(xp,yp) else draw(xp,yp) precedetrue end e
lse precedefalse end else precedefalse xx+pas
end end 3begin xxxdprecedefalse if mfxz0 then begin for bk1
to mfxz do begin indexindex+1pbk,fxzldaindex end
end while xxxa do begin definitrueifxz resultatcalcul(ff
xz,x) if ((definitrue) and (abs(resultat)1000)) then begin
xpround(resultat*cos(x)*ux) procedure ordre(var ffonction) f
orward function monome(ffonction)integer forward procedure develop(var
ffonction) var u,vfonction begin if ((f.valeur'*') and ((f.g.valeur'+') or
(f.g.valeur'-')) and (f.d.nature'idfct')) then begin f.naturef.g.naturef.v
aleurf.g.valeur new(v)v.nature'multi'v.valeur'*'v.gf.g.gv.df.d
new(u)u.nature'multi'u.valeur'*'u.gf.g.du.df.d f.gvf.du r
esult1 end else if ((f.valeur'*') and ((f.d.valeur'+') or (f.d.valeur
'-')) and (f.g.nature'idfct')) then begin f.naturef.d.naturef.valeurf.d.v
aleur new(v)v.nature'multi'v.valeur'*'v.gf.gv.df.d.g new(u)u
.nature'multi'u.valeur'*'u.gf.gu.df.d.d f.duf.gv result1
end else if ((f.valeur'')and(f.d.valeur'2')and(f.g.valeur'*')) then
begin f.nature'm NABCDEFGHIulti'f.valeur'*'f.df.gresult1 end else
begin if f.gnil then develop(f.g)if f.dnil then develop(f.d) end
end procedure reduire(var ffonction) var u,vfonction begin if (((f.val
eur'+')or(f.valeur'-'))and(monome(f.d)0)and (monome(f.d)monome(f.g))) then b
egin if ((f.d.valeur'*')and(f.g.valeur'*')) then begin if (((f.g.d.va
leur'x') and (f.d.d.valeur'x')) or ((f.g.d.valeur'')and(f.d.d.valeur'')and
(f.g.d.d.valeurf.d.d.d.valeur))) then begin new(u)u.naturef.na
tureu.valeurf.valeur f.nature'multi'f.valeur'*' u.df.d.gu.gf.g.gf.
guf.df.d.dsimplif(f.g) result1 end end else begin
if ((f.d.valeur'x')or((f.d.valeur'')and(f.d.g.valeur'x'))) then begin n
ew(u)u.nature'multi'u.valeur'*' new(v)v.nature'nombre'v.valeur
'1' v.dnilv.gnilu.gvu.df.df.du reduire(f)re
sult1 end else if ((f.g.valeur'x')or((f.g.valeur'')a
nd(f.g.g.valeur'x'))) then begin new(u)u.nature'multi'u.valeur'*'
new(v)v.nature'nombre'v.valeur'1' v.dnilv.gnilu.gvu.df
.gf.gu reduire(f)result1 end else
begin simplif(f)result1 end if f.dnil then reduire(
f.d)if f.gnil then reduire(f.g) end end else begin if f.dnil then red
uire(f.d)if f.gnil then reduire(f.g) end end procedure produit(var ffonct
ion) var u,vfonction begin if f.valeur'*' then begin ordre(f.d)ordr
e(f.g)ordre(f) if ((f.d.valeur'*')and(f.g.nature'nombre')and(f.d.g.nature'nomb
re')) then begin new(v)v.df.gv.gf.d.gv.nature'multi'v.valeur'*'
f.df.d.df.gvsimplif(f.g)result1 end else if ((f.g.valeur'*')
and(f.g.g.nature'nombre')and(f.d.nature'nombre')) then begin new(
v)v.gf.g.gv.df.dv.nature'multi'v.valeur'*' f.df.g.df.gvsimplif(f.g)result1
end else if ((f.d.valeur'*')and(f.g.valeur'*')and(f.g.g.nature'n
ombre') and (f.d.g.nature'nombre')) then begin new(u)u.nature
'multi'u.valeur'*'u.gf.g.gu.df.d.g new(v)v.nature'multi'v.valeur'*'v.gf.g.
dv.df.d.d f.guf.dvsimplif(f.g)result1 end else if (((f.g.va
leur'x') or ((f.g.valeur'') and (f.g.g.valeur'x'))) and ((f.d.valeur'x') or
((f.d.valeur'') and (f.d.g.valeur'x')))) then begin f.nature'p
uiss'f.valeur'' new(u)u.nature'plus'u.valeur'+' if f.g.valeur'x' t
hen begin new(v)v.nature'nombre' v.valeur'1'v.dnilv.gnilu.gv end e
lse u.gf.g.d if f.d.valeur'x' then begin new(v)v.nature'nombre' v.
valeur'1'v.gnilv.dnilu.dvf.gf.d end else begin u.df.d.df.gf.d.g end
f.dusimplif(f.d)result1 end else if ((f.g.valeur'*') and ((f.d.
valeur'x') or (f.d.valeur''))) then begin ordre(f.g)new(u)u.nature'mult
i'u.valeur'*' u.df.du.gf.g.df.duf.gf.g.gproduit(f.d)ordre(f) end els
e begin if f.gnil then produit(f.g)if f.dnil then produit(f.d) end end
else begin if f.gnil then produit(f.g)if f.dnil then produit(f.d) end en
d procedure ordre var ufonction begin if ((f.valeur'+')or(f.valeur'-'
)) then begin if f.valeur'-' then begin f.nature'plus'f.valeur'+'
f.doppose(f.d)end if (((f.g.valeur'+')or (f.g.valeur'-'))
and((f.d.valeur'+')or(f.d.valeur'-'))) then begin ordre(f.d)ordre(f.g)
if ((monome(f.g.d)0)and(monome(f.g.d)monome(f.d.g))) then begin if f
.g.valeur'-' then begin f.g.nature'plus'f.g.valeur'+' f.g.d
oppose(f.g.d)end if f.d.valeur'-' then begin f.d.nature'plus'f.d.valeur'+'
f.d.doppose(f.d.d) end new(u)u.nature'plus'u.valeur'+'
new(u.d)u.d.nature'plus' u.d.valeur'+'u.d.df.d.du.d.gf.g.dnew(u.g) NABCDEF
GHI u.g.valeur'+'u.g.nature'plus'u.g.gf.g.gu.g.df.d.g ufresult1 e
nd end else if ((f.valeur'+')or(f.valeur'-'))and((f.g.valeur'+')or(f.g.va
leur'-')) then begin ordre(f.g) if ((monome(f.g.d)0)and (monome(f.g.d)mo
nome(f.d))) then begin if f.g.valeur'-' then begin f.g.nature'plus'f.g.v
aleur'+' f.g.doppose(f.g.d) end new(u)u.nature'plus'u.v
aleur'+'u.gf.g.gu.df.d f.df.g.df.guresult1 end end else if (
(f.valeur'+')or(f.valeur'-'))and((f.d.valeur'+')or(f.d.valeur'-')) then begin
ordre(f.d) if ((monome(f.g)0)and (monome(f.g)monome(f.d.g))) then begi
n if f.d.valeur'-' then begin f.d.nature'plus'f.d.valeur'+'
f.d.doppose(f.d.d) end uf.gf.gf.d.gf.d.gureduire(f.d) uf.df.df.gf.g
uresult1 end end else if (((f.valeur'+')or(f.valeur'-'))and (mono
me(f.g)0) and (monome(f.g)monome(f.d))) then begin uf.df.df.gf.gures
ult1 end end else if ((f.valeur'*') and ((f.g.valeur'x') or ((f.g
.valeur'') and (f.g.g.valeur'x')))) then begin if f.valeur'-' then b
egin f.nature'plus'f.valeur'+' f.doppose(f.d)end uf.df
.df.gf.guresult1 end if f.dnil then ordre(f.d) if f.gnil then ordre(f.g
) end function monome var degre,resultatinteger begin if f.valeur
'*' then begin if ((f.g.nature'nombre') and (f.d.nature'nombre')) then
monome0 else if ((f.g.nature'nombre') and (f.d.valeur'x')) then
monome1 else if ((f.g.nature'nombre') and (f.d.valeur'') and (f.d.
g.valeur'x')) then begin val(f.d.d.valeur,degre,resultat)
if resultat0 then monomedegre else monome-1 end else monome-
1 end else if f.valeur'x' then monome1 else if f.nature'nomb
re' then monome0 else if ((f.valeur'') and (f.g.valeur'x') and (f.d.natu
re'nombre')) then begin val(f.d.valeur,degre,resultat) if result
at0 then monomedegre else monome-1 end else monome-1 end proce
dure polynome(var ffonction) var u,vfonction begin if fnil then begin
if ((f.valeur'+') or (f.valeur'-')) then begin reduire(f)if f.dnil then ord
re(f.d)if f.gnil then ordre(f.g) if f.valeur'-' then begin f.valeur'+'f.nature
'plus' f.doppose(f.d)end if f.d.valeur'-' then b
egin f.d.doppose(f.d.d)f.d.valeur'+' f.d.nature'plus' end i
f f.g.valeur'-' then begin f.g.doppose(f.g.d)f.g.nature'plus'f.g.valeur'+'
end if (((f.d.valeur'+') or (f.d.valeur'-')) and ((f.g.valeur'+') or (f.g.va
leur'-'))) then begin new(u)u.naturef.natureu.valeurf.valeuru.gf.gu.df.d.g
f.guf.df.d.dresult1polynome(f.g) end else if ((f.g.valeur'+') or (f
.g.valeur'-')) then begin if ((monome(f.d)0) and (monome(f.d)monome(f.g.d
))) then begin uf.df.df.g.gf.g.guuf.gf.gf.df.du reduire(f.d)result
1 end end else if (((f.d.valeur'+') or (f.d.valeur'-'))and(monome(f
.g)0)and (monome(f.g)monome(f.d.g))) then begin uf.df.df.gf.guordre(f.
g)result1polynome(f) end else begin if f.dnil then polynome(f.d)
if f.gnil then polynome(f.g) end end if f.dnil then polynome(f.d) if
f.gnil then polynome(f.g) end end procedure algebrique(var ffonction) beg
in repeat result0simplif(f) until result0 repeat result0develop(f) until r
esult0 repeat result0 produit(f) until result0 repeat result0ordre(f)polyn
ome(f) until result0 repeat result0 simplif(f) until result0 end proced
ure binome(var ffonction) var u,v,wfonction coeffreal resultatinteger begin
if ((f.valeur'')and((f.g.valeur'+')or(f.g.valeur'-'))and (f.d.nature'nombre')
) then begin val(f.d.valeur,coeff,resultat) if ((frac(coeff)0) and (c
oeff2)) then begin if coeff2 then begin f.n
ature'multi'f.valeur'*'f.df.g NABCDEFGHI algebrique(f)
end else begin
new(u)u.nature'puiss'u.valeur''u.gf.g new(v)v.nature'no
mbre'coeffcoeff-1 str(round(coeff),v.valeur) v.dni
lv.gnilu.dvf.df.gf.gu binome(f.g)f.nature'multi'f.valeur'*'
algebrique(f) end end end else
begin if f.dnil then binome(f.d) if f.gnil then binome(f.g)
end end (f.d.valeur'-')) then begin ordre(f.d) if ((monome(f.g)0)
and (monome(f.g)monome(f.d.g))) then begin if f.d.valeur'-' then begin f
.d.nature'plus'f.d.valeur'+' f.d.doppose(f.d.d) end uf.
gf.gf.d.gf.d.gureduire(f.d) uf.df.df.gf.guresult1 end end else
if (((f.v ypround(resultat*sin(x)*uy) if precedefalse then plo
t(xp,yp) else draw(xp,yp) precedetrue end else
precedefalse xx+pas end end end end gotoxy(1,
24)write('1 Imprimer 2 Revoir 3 Retour au menu') repeat read(kbd,car) u
ntil ((car'0') and (car'4')) val(car,choixbis,result) if choixbis1 then
begin gotoxy(1,24)write(' ')
origin(0,0)vidage end if choixbis2 then graphe(1) endffLLp EIn5%A1A$
A*Ro$A*R $!/e.!, x function menuinteger begin clrscr writelnwriteln('
M E N U ') writelnwriteln(' 1 Entree de la fonction') writelnwriteln(' 2
Developper des produits') writelnwriteln(' 3 Developper des puissances entiere
s') writelnwriteln(' 4 Calcul de valeurs de f(x)') writelnwriteln(' 5 Derive
es de la fonction') writelnwriteln(' 6 Developpements limites') writelnwritel
n(' 7 Fin du programme') writelnwriteln(' VOTRE CHOIX ') repeat read(kbd,
car) until ((car'0') and (car'8')) val(car,choix,result) menuchoix end fu
nction numfoncinteger var jinteger begin car' ' repeat read(kbd,
car) until ((car'0') and (car'')) writeln(car) val(car,j
,result) numfoncj end procedure devlim label findevlim var zintegerareal
coef1,coef2real begin clrscrwrite('N. de la fonction (1 a 9)') inumfo
nc if finil then lirfonction(fi) write('Developpement au voisinage de a')re$A-
program courbe type fonctionsommet sommetrecord nature
string6 valeurstring10 d fonction g
fonction end str200string250 str10string10 const filtreset of c
har'+','*','-','/','','.','(',')','a'..'z','0'..'9' var farray0..10 of fonc
tion carchar idfstring10 i,j,resultinteger indice,choixinteger parray1
..3,0..10 of real marray0..10 of integer definiboolean x,resultatreal $
I lirefonc.pas $I calculf.pas $I ecrif.pas $I grafik3.inc $I graphef.pas
begin for i0 to 10 do begin finilmi0 end border(10,10) boucle end.adln(a) w
rite ('Developpement a quel ordre (1 a 5)') repeat read(kbd,car) until ((car'
0') and (car'6')) writeln(car) val(car,j,result) writeln('f',i,'(x)',tapefonc
tion(fi,'x')) writeln('Developpement limite au voisinage de a',a) definitruere
sultatcalcul(fi,a)f0ficoef21 if definitrue then begin if resultat0 then
begin if resultat0 then write('+') if frac
(resultat)0 then write(round(resultat)) else wri NABCDEFGHIte(re
sultat83) end end else b
egin writeln('La fonction n''est pas definie en ',a)
goto findevlim end for z1 to j do begin f
0derive(f0) repeat result0simplif(f0) until result0 coef
2coef2*z definitrueresultatcalcul(f0,a) if definitrue th
en begin if resultat0 then begin coef1
resultat/coef2 if resultat0 then write('+') if
frac(coef1)0 then write(round(coef1)) else if fr
ac(resultat)0 then write(round(resultat),'/',round(coef2)) else write
(resultat83,'/',round(coef2)) if a0 then write('x') else write('(x
-a)') if z1 then write('',z) end e
nd else begin writelnwriteln('L
a derivee',z,'ieme n''est pas definie en ',a) goto findevlim
end end writeln findevlim tempo end procedure boucle
var zinteger begin repeat choixmenu case choix of 1 begin write
('No de la fonction (1 a 9)') inumfonc clrscrcar' ' lirf
onction(fi) repeat result0simplif(fi) until result0
tempo end 2 begin clrscrwrite('No de la fonction (1 a 9
)') inumfonc if finil then lirfonction(fi) writeln('f',i
,'(x)',tapefonction(fi,'x')) algebrique(fi) writeln('f',i,'(x)',
tapefonction(fi,'x')) tempo end 3 begin clrscrwrite
('No de la fonction (1 a 9)') inumfonc if finil then lirfonction
(fi) writeln('f',i,'(x)',tapefonction(fi,'x')) binome(fi)
writeln('f',i,'(x)',tapefonction(fi,'x')) tempo end 4 beg
in clrscrwrite('No de la fonction (1 a 9)') inumfonc if
finil then lirfonction(fi) if mi0 then begin for z1 to m
i do begin write('Valeur du parametre n.')write(z)write(' ')read
ln(pz,i) end end calculfonction(fi) end 5 b
egin clrscrwrite('No de la fonction (1 a 9)') inumfonc i
f finil then lirfonction(fi) writeln('f',i,'(x)',tapefonction(fi,'x'))
write('No de la derivee (1 a 9 et different du no fonction)') jnu
mfonc if ij then begin definitrue fjderive(fi)mjmi
if definitrue then begin algebrique(fj) writ
eln('Derivee de f',i,'(x)',tapefonction(fj,'x')) end else
writeln('La derivee n''est pas definie (INT ou ABS..)') tempo
end else begin writeln writeln('Meme numero pour f
et f''. Recommencez !!!') tempo end end 6 devlim en
d until choix7 end writeln writeln('2-Courbe xf(t)yf(t)')writeln wr
iteln('3-Courbe polaire rf(t)')writeln write('Votre choix ') repeat
read(kbd,car) until ((car'0') and (car'4')) writeln val(car,choix,re
sult) writeln een exposant1 else if ll0 then begin ll-1exposantk*exposan
t(k,l) end else if ll0 then begin ll+1exposant(1/k)*exposant(k,l) end end
procedure calculfonction(ffonction) var chx,chystr10 begin clrscr rep
eat write('valeur de x ') readln(x) definitrueresultatcalcul(f,x) if fra
c(x)0 then str(round(x),chx) else str(x83,chx) if definitrue then
begin write('f',i,'(',chx,')')
if frac(resultat)0 then str(round(resultat),chy) else str
(resultat83,chy) writeln(chy) end
else begin writeln('f
',i,'(',chx,') n''est pas definie') end writeln('1 Un aut
re x 2 Retour au menu ') repeat read(kbd,car) until ((car'1') or (ca
r'2')) val(car,choix,result) writeln until choix2 end NABCDEFGHI
*J#V#V*J#V#VP-s#r*J#V#VMplus*J#V#V!+e. *J#V#V!+e.*J#V#V!-e.o*J#V#V!+e.*J#V#V!-e.
o£oEr!!*J#V***J#V **J#V#Vs#r**J#V#V#Vs#r*J#V*s#r*J#V*J#V#V#Vs#r!"*J#V#ou*J#V#V!+
e.*J#V#V!-e.oE"t*J#V#VL!*J#V#VL*J#V#V#VL£oEt*J#V#V"*J#V*J#V#V#Vs#r*J#V#V*s#r*J#V
#V"*J#V*J#V#Vs#r*J#V*s#r*J#VQ!"u*J#V#V!+e.*J#V#V!-e.o*J#V#VL!£o*J#V#VL*J#V#V#VL£
oE)u*J#V#V"*J#V*J#V#Vs#r*J#V*s#r*J#VL!"*J#ou*J#V#V!ETu*J#V#o*J#V#V!Eu*J#V#o*J#V#
V!Eu*J#V#o*J#V#V!Eu*J#V#o" !4"!"*V-*!Eu!"*L*!Ev!"*W*!E)v!"*L*#o*!EFv!"*V-*!Ejv 4
"!"2*2#V!e.*2#V#V!+e.*2#V#V!-e.o£o*2#V#VMnombre£oEAy*2#V#V!!!,4!!,!£oEy!,!Ew*2#V
Mmulti*2#V!*e. *2#V*2#V#Vs#r*2uy!(!Mpuiss*(*(!e. *(*2#V#Vs#r!&!Mnombre*&!,!!!,!*
& *&!s#r*&!s#r*(*&s#r*2#V*2#V#Vs#r*2#V*(s#r*2#Vv*2#VMmulti*2#V!*e. *2uy*2#V#V!El
y*2#Vv*2#V#V!Ey*2#Vv""!"!!*"*!Ey!!z!"*Mnombre*MparamoEzMnombre**!0e. *!s#r*!s#r*
MvariabEzMnombre**!1e. *!s#r*!s#r*Mplus*MmoinsoEJ**** **#Vys#r**#Vys#r*MmultiEMp
lus**!+e. *!*#VMmulti*#V!*e. *#V*#Vs#r*!*#VMmulti*#V!*e. *#V*#Vs#r*#V*#Vys#r*#V*
#Vys#r*MdiviseE!!!!!!!!!!Mmoins**!-e. **s#r**s#rMpuiss**!e. **#Vs#r**s#rMnombre*
*!2e. *!s#r*!s#rMmulti**!*e. **#Vs#r**#Vys#rMmulti**!*e. **#Vys#r**#Vs#rMdivise*
*!/e. **s#r**s#r*MpuissE*#VMnombreE!!!!!!*#V!!*#V"**#Vs#rMmulti**!*e. **s#r**#Vy
s#rMpuiss**!e. **s#rMnombre**!s#r*!s#r!,!!!,4!E!,!* !,!!* ! e.*!E*!!yMmulti**!*e
. **s#r**s#r!!Midfct**Mln *!s#r**#Vs#r!!Mmulti**!*e. **#Vys#r**s#r!!Mmulti**!*e.
**#Vys#r**#Vs#r!!Mdivise**!/e. **s#r**#Vs#r! !Mplus* * !+e. * *s#r* *s#rMmulti*
*!*e. ** s#r**s#r* NABCDEFGHIMidfctE*MsinE!!Midfct**Mcos *!s#r**#Vs#rMmulti**!*
e. **#Vys#r**s#r*McosEK!!Midfct**Msin *!s#r**#Vs#r!!Mmulti**!*e. *!*#VMnombre*#V
M-1 *#V!s#r*#V!s#r**s#rMmulti**!*e. **#Vys#r**s#r*MtangE!!Mnombre**!2e. *!s#r*!s
#r!!Midfct**Mcos *!s#r**#Vs#r!!Mpuiss**!e. **s#r**s#rMdivise**!/e. **s#r**#Vys#r
*MlnE%Mdivise**!/e. **#Vs#r**#Vys#r*MexpE!!Midfct**Mexp *!s#r**#Vs#rMmulti**!*e.
**#Vys#r**s#r*MsqrtE!!!!!!Mnombre**!2e. *!s#r*!s#rMmulti**!*e. **s#r**s#rMdivis
e**!/e. **#Vys#r**s#r*MshE!!Midfct**Mch *!s#r**#Vs#rMmulti**!*e. **#Vys#r**s#r*M
chE!!Midfct**Msh *!s#r**#Vs#rMmulti**!*e. **#Vys#r**s#r*MthE/!!Mnombre**!2e. *!s
#r*!s#r!!Mpuiss**!e. **s#r**s#r!!Mnombre**!1e. *!s#r*!s#r!!Mmoins**!-e. **s#r**s
#rMmulti**!*e. **#Vys#r**s#r*MarctanE!!Mnombre**!2e. *!s#r*!s#r!!Mpuiss**!e. **s
#r**#Vs#r!!Mnombre**!1e. *!s#r*!s#r!!Mplus**!+e. **s#r**s#rMdivise**!/e. **#Vys#
r**s#r*MarcsinE!!Mnombre**!2e. *!s#r*!s#r!!Mpuiss**!e. **s#r**#Vs#r!!Mnombre**!1
e. *!s#r*!s#r!!Mmoins**!-e. **s#r**s#r! !Midfct* * Msqrt * !s#r* *s#rMdivise**!/
e. **#Vys#r** s#r*MarccosE!!Mnombre**!2e. *!s#r*!s#r!!Mpuiss**!e. **s#r**#Vs#r!!
Mnombre**!1e. *!s#r*!s#r!!Mmoins**!-e. **s#r**s#r! !Midfct* * Msqrt * !s#r* *s#r
!!Mnombre**M-1 *!s#r*!s#r*!*#VMmulti*#V!*e. *#V*#Vys#r*#V*s#rMdivise**!/e. ** s#
r!"!2*"" ! M E N U 1 Entree de la fonction 2 Developper des produit
s ( 3 Developper des puissances entieres 4 Calcul de valeurs de f(x) 5 D
erivees de la fonction 6 Developpements limites 7 Fin du programme VO
TRE CHOIX !!D *&!0*&!8£oE*&e.!!*"* "!! 2!!D *&!0 N A B C D E F G H I*&!£oE*&"
*&e.!!*"*"!N. de la fonction (1 a 9) "!*+)#V!E!*+)! Developpement au voisinage
de a !r #Developpement a quel ordre (1 a 5) !!D *&!0*&!6£oE*&" *&e.!!!f"*!&(x)!*
+)#V!xS-! 'Developpement limite au voisinage de a!,!!y !2!*+)#V!,M-!!!+)!*+)#Vs#
r!!*&!E!,!E!,!E!+" !,4!E!,!& !,!!y 4!La fonction n'est pas definie en !,!!y !*fz
"!!+)!!+)#Vys#r!"!!+)V-*!El!,*!!2!!+)#V!,M-!*&!E!,!E!,!,!!,!EI!+" !,4!E!,!& !,4!
E!,!&!/"!,!& !,!!y!/"!,!& !,!E&!x" 5(x-a) *!E!"*!& La derivee*!&ieme n'est pas
definie en !,!!y *# ," !"*RjNo de la fonction (1 a 9) "! 2!*+)!!"!*+)V-*!E,RNo
de la fonction (1 a 9) "!*+)#V!E!*+)!!f"*!&(x)!*+)#V!xS-! !*+)u!f"*!&(x)!*+)#V!x
S-! ,RPNo de la fonction (1 a 9) "!*+)#V!E!*+)!!f"*!&(x)!*+)#V!xS-! !*+)v!f"*!&(
x)!*+)#V!xS-! ,RvNo de la fonction (1 a 9) "!*+)#V!E!*+)!!*+)#V!E!!*+)#Vfz"Valeu
r du parametre n. *!& !*+)))))*+)T)r *#!*+)#VoJRNo de la fonction (1 a 9) "!*+
)#V!E!*+)!!f"*!&(x)!*+)#V!xS-! 5No de la derivee (1 a 9 et different du no fonct
ion) "**E!2!*+)!*+)#Vys#r!*+)!*+)#Vs#r*&!E"!*+)uDerivee de f*!&(x)!*+)#V!xS-! Z+
La derivee n'est pas definie (INT ou ABS..) , )Meme numero pour f et f'. Recomme
ncez !!! ,RR*!E "!! fz"!*+)!s#r!*+)!s#r*# !!! ,RR*!E "!! fz"!*+)!s#r!*+)!'puiss'
u.valeur''u.dvu.gf.d new(w)w.nature'nombre'w.valeur'1'w.dnilw.gnil
new(s)s.nature'moins's.valeur'-'s.gws.du new(r)r.nature'idfct'r
.valeur'sqrt'r.gnilr.ds p.nature'divise'p.valeur'/'p.gderive(f.d)p.dr
end else if f.valeur'arccos if f.valeur'sqrt' the
n begin
if nbre0 then
begin
definifalse got
o fincalcul end
else
calculsqrt(nbre)
end else
if f.valeur'sh' then calcul0.5*(exp(nbre)-exp(nbre*-1)) els
e if f.valeur'ch' then calcul0.5*(exp(nbre)+exp(nbre*-1)) else if f.
valeur'th' then calcul(exp(nbre)-exp(nbre*-1))/(exp(nbre)+exp(n
bre*-1)) else if f.valeur'arcsin' then begin
if nbre !N!A!B!C!D!E!F!G!H!I-1 then calcul-0.5*pi else
if nbre1 then calcul0.5*pi else if ((nb
re-1)or(nbre1)) then begin definifalsegoto fincalc
ul end else calcularctan(nbre/sqrt(1
-nbre*nbre)) end else if f.valeur'arccos' t
hen begin if nbre-1 then calculpi else
if nbre1 then calcul0 else if (
(nbre-1)or(nbre1)) then begin definifalsegoto finc
alcul end else calcul(pi/2)-arctan(n
bre/sqrt(1-nbre*nbre)) end else erreur(10)
end else if fnil then calcul0
fincalcul end function tapefonction var www,wwxstr200 coeffrealresultat
integer formatstr10 begin if f.nature'idfct' then tapefonctionf.valeur+'('+t
apefonction(f.d,v)+')' else if f.nature'nombre' then tapefonctionf.valeur else
if f.nature'param' then tapefonction'p('+f.valeur+')' else if f.nature'varia
b' then tapefonctionv else if ((f.nature'plus') or (f.nature'moins')) then
begin wwwtapefonction(f.d,v)wwxtapefonction(f.g,v) if (((f.d.valeur'
+')or(f.d.valeur'-'))and(f.valeur'+')) then begin delete(www,1,1)del
ete(www,length(www),1) end if ((f.g.valeur'+')or(f.g.valeur'-')) then
begin delete(wwx,1,1)delete(wwx,length(wwx),1) endcoeff1
if f.d.nature'nombre' then val(f.d.valeur,coeff,resultat) if ((f.d.valeu
r'*')and (f.d.g.nature'nombre')) then val(f.d.g.valeur,coeff,resultat)
if ((f.valeur'+') and (coeff0)) then tapefonction'('+wwx+www+')' else
tapefonction'('+wwx+f.valeur+www+')' end else if ((f.nature'divise')
or (f.nature'multi') or (f.nature'puiss')) then tapefonctiontapefonction(f.g,v)
+f.valeur+tapefonction(f.d,v) else tapefonction'' end function oppose var
u,vfonction coeff,resultatinteger coef2real begin if ((f.valeur'*') and (f.
g.nature'nombre')) then begin new(u)u.nature'multi'u.valeur'*'u.df.d u.g
oppose(f.g)opposeu end else if ((f.valeur'x') or (f.valeur'')) then begin
new(u)u.nature'multi'u.valeur'*'u.df new(v)v.nature'nombre'v.valeur'-1'v.
dnilv.gnil u.gvopposeu end else if f.nature'nombre' then begin new(
u)u.nature'nombre'u.dnilu.gnil val(f.valeur,coef2,resultat)coef2coef2*(-1)
if frac(coef2)0 then str(round(coef2),u.valeur) else begin str(c
oef2105,u.valeur) while pos(' ',u.valeur)0 do delete(u.valeur,1,1) end
opposeu end else if f.valeur'+' then begin new(u)u.nature'plus'u.val
eur'+' u.goppose(f.g)u.doppose(f.d)opposeu end else if f.valeur'-' then
begin new(u)u.nature'plus'u.valeur'+'u.goppose(f.g)u.df.d opposeu end els
e if fnil then opposenil end function exposant var llinteger begin
llround(l) if k0 then exposant0 else if ll0 then exposant1 else if ll0 then
begin ll-1exposantk*exposant(k,l) end else if ll0 then begin ll+1exposant(1/k)*
exposant(k,l) end end procedure calculfonction(ffonction) var chx,chy
str10 begin clrscr repeat write('valeur de x ') readln(x) definitruer
esultatcalcul(f,x) if frac(x)0 then str(round(x),chx) else str(x83,chx) if d
efinitrue then begin write('f',i,'(',c
hx,')') if frac(resultat)0 then str(round(resultat),chy) el
se str(resultat83,chy) writeln(chy)
end else begin
writeln('f',i,'(',chx,') n''est pas definie')
end writeln('1 Un autre x 2 Retour au menu ') repeat read(kbd,car)
until ((car'1') or (car'2')) val(car,choix,result) writeln until ch
oix2 end e)-exp(nbre*-1))/(exp(nbre)+exp(nbre*-1)) else if f.val
eur'arcsin' then begin if nbre "N"A"B"C"D"E"F"G"H
"I Copyright (C) 1985 BORLAND IncBZenithder CPC464/664P Y ELMKqp7# ok!!"#($ +
*!5!*!!(2!5(2!!!OO!*!!45(! +/0y0( d!k5!5o&(( *"x2y(28!"9!!og2""22 9/4*9 Co&£ (!
eA8Q0G x!w# ( (*(.(w. !h6# ((*((w# w# 8 ! .,*a ''72*B "og"22! ""*B"Ru*"#V##V#N#F
O/o&9O/o&9!9( (G!9 w#Ew8OCA#0w#xo&9xG7s#r#s#r#q#px!D9N#8y#(Ox!D9N##Vh&D9! 9! 9#V
h&D9!"x/o&9p#HR' RB0' RqRR!+R!+r!+r!+r!#r!+TKB!z S))0 DMgojB07 Hz5a)az 0Ggo/g/o
#o&KxAJSJDM!b"!6J"DM'd R0 0w#$O! #08) 8 ! 80T)) T)y	N8w!DB9+O#) W8(8J9To9yk
-&9w	o&!T9K#C#y8O(# !#!9RO8 (8wPTOsOS!988xW8/oz88x8&8#(*BPOz(Ox8(*!9O!T9-fl&!
T96#w!T9K#C#( x # ) ' ' x T(0Dz, ( 0%, 7 (8x - r8x ,-xGrM9r.#n0 - nx ,-
(-G,-rM9.8 u+-(08x , 7888ox!oGOWggzWyOxGgzWyOxGxyzxxx(r(r7 g£zWyOxG x' /o - 0
- ,l8 4 x( -8 -8, l8*! ! 4 --- ,,,-xGg+2n*8t z,-' x' . , ! 4,- o&0%,
gr.8cI$IL*x 0G,,-(- !I0 o8 ' m.1pF,t6!wS.z%FXcur1x(8 !J0.O!s8 n s .n 0 - O
T0j oD,j !I.8cI$IL! I nn nfVNF!DLTI!!53!r1!! x #- ox(- (x8(z,zi!' r)(DMb
o88x(08W!Oz k68x(-(ay( z(.( E+(Dg-/ 0p## +0w#,- 60#ogM wD05.(z x0w#xG%%ZJDM% 65+
w661#6r. p7#E(!90To&p( #+(- #6O#60 #WyOh(yDOyZy0 GD! !ws( hx-Sx9+zzgZJDM0,7o
#yO!9i& #N#A#B#C#D#E#F#G#H#I #w#/w#w#!9! E9!!9(+F!"9!(#2*" "2( *w*6!$! (( #C
ONTRMKBDLSTCAUXUSR2i*0*(q##pZ*( x2*6#"v( * 26"!"""2""v2"!"(!8O6*"w(6(2(-()(6 (8
0 (* y(#+ (( 66 #6 #"* yo p .##(.6w4. *##55 *R8*#" £ *#w+#+*('k!0(k!8!-#827kwO$6
s #r$£6 k ((qk( ( k *O ##.q4((*4q*##62*((6-#RM8(G A#*'C! !TRUEFALSE!9N#Y#(G#
"(k((!0(!!2Sz0*6##ww#w$w#w ##N#F*B2w#w#s#r"*-w#ww##""2ZR0*4#42ZR *4 #4(22*f
(/G(##++ O x yC! Q*G(##..f*##w +4 #4x 2G(""*n*0SZR8*N#F#s#r,0)jS*##w+N#FBr+s2!T
)j)00 R!#*#V#N#F##V20*6#-Nw#Fwq#p#6#w#w#w""!DM!"*B!(2"!"2"*w#wx(9*O *-4 #4!*4 #4
*-N#Fq#pV+Bq#pSZR&*s#r$s#rL*L!(!$22L!(*$(!3 1!(7" 2"S"Ns#FrB(Z#(*"K! !*#"!x * *)
2""!"*nf(HR0nf" VMDnfutqp*s#r*s#r"*uKB!0' #fo"*R0RnfR0KqputsrNF(VNFV*SutKqpR*R
(wwnfut"6#K*K*!""*NFy(*"*B0Cnf*R*"*RSs#r#V""6#O"w2x2*"!F"" &y*"*2"*"!F"""!* Nr!
6go(R*s#r£2x(sx(TDMx(R0U(O/o&9q# (!F0#( ( #( ((#( i&T-a%o*!6o&2 2z2*KB" z C U
ser break+ I/O Run-time error , PC*Not enough memory Program aborted '1!d!d
dB M E N U 1 Entree de la fonction 2 Developper des produits ( 3
Developper des puissances entieres 4 Calcul de valeurs de f(x) 5 Derivees
de la fonction 6 Developpements limites 7 Fin du pe('N. de la fonction (1
a 9)') inumfonc if finil then lirfonction(fi) write('Developpement au voisina
ge de a')re $N$A$B$C$D$E$F$G$H$I function menuinteger begin clrscr writ
elnwriteln(' M E N U ') writelnwriteln('1 Entree de la fonction') writelnwrite
ln('2 Calcul de valeurs de f(x)') writelnwriteln('3 Graphes de fonctions') wri
telnwriteln('4 Fin du programme') writelnwriteln(' VOTRE CHOIX ') readln(choix
)menuchoix end function numfoncinteger var jinteger begin car' ' repea
t read(kbd,car) until ((car'0') and (car'')) writeln val(car,j,result) numf
oncj end procedure graphe(revoirinteger) forward procedure boucle var
zinteger begin repeat choixmenu case choix of 1 begin write('No
de la fonction (1 a 9)') inumfonc clrscrcar' ' lirfonct
ion(fi) simplif(fi) tempo end 2 begin clrsc
rwrite('No de la fonction (1 a 9)') inumfonc if mi0 then
begin for z1 to mi do begin write('Valeur du parametre
n.')write(z)write(' ')readln(pz,i) end end calculfonctio
n(fi) end 3 graphe(0) end until choix4 end amille de courbe
s. Pour entrer les parametres p(i), i etant le numero du parametre, i dev
ant etre compris entre 1 et 3. SI VOUS N'ENTREZ PAS CORRECTEMENT VOTRE
FONCTION VOUS AUREZ UN MESSAGE D'ERREUR ET UN NUMERO erreur n.1 p n'e p
rocedure graphe var xo,yo,xxd,xxa,ux,uy,pasreal xp,yp,nbfonc,z,bk,index,ch
oixbisinteger precedeboolean fx,fyarray1..10 of integer ldaarray1..20 of real
begin clrscr if revoir0 then begin writeln('1-Courbe yf(x)')writel
n writeln('2-Courbe xf(t)yf(t)')writeln writeln('3-Courbe polaire rf(t)'
)writeln write('Votre choix ') repeat read(kbd,car) until ((car'
0') and (car'4')) writeln val(car,choix,result) writeln end wr
iteln write('Abscisse origine ')readln(xo) write('Ordonnee origine ')readl
n(yo) write('Borne inferieure int d''etude ')readln(xxd) write('Borne supe
rieure int d''etude ')readln(xxa) write('Unite abscisse ')readln(ux) write
('Unite ordonnee ')readln(uy) write('Pas d''etude ')readln(pas) if revoir0
then begin write('Nombre de graphes sur le meme ecran (1 a 9)') nbfoncn
umfonc index0 for z1 to nbfonc do begin case choix of 1 begin
write('No de la fonction yf(x) n.',z,' ')fxznumfonc if ffxznil the
n lirfonction(ffxz) if mfxz0 then begin for bk1 to mfxz do
begin indexindex+1write('Valeur du parametre n.',bk,' ') readln(lda
index) end end end 2 begin write('No de la fo
nction xf(t) n.',z,' ')fxznumfonc if ffxznil then lirfonction(ffxz)
if mfxz0 then begin for bk1 to mfxz do begin indexindex+1wri
te('Valeur du parametre n.',bk,' ') readln(ldaindex) end
end write('No de la fonction yf(t) n.',z,' ')fyznumfonc if ffy
znil then lirfonction(ffyz) if mfyz0 then begin for bk1 to mfyz do
begin indexindex+1write('Valeur du parametre n.',bk,' ') r
eadln(ldaindex) end end end 3 begin write('No d
e la fonction rf(t) n.',z,' ')fxznumfonc if ffxznil then lirfonction(ffxz)
if mfxz0 then begin for bk1 to mfxz do begin indexindex+
1write('Valeur du parametre n.',bk,' ') readln(ldaindex) end
end end end end end clrscr origin(round(xo),round(
yo)) grafmove(0,0)drawr(640-round(xo),0)drawr(-640,0) grafmove(0,0)drawr(0
,400-round(yo))drawr(0,-400) grafmove(round(ux),0)drawr(0,5)drawr(0,-10) %
N%A%B%C%D%E%F%G%H%I grafmove(0,round(uy))drawr(5,0)drawr(-10,0) index0 fo
r z1 to nbfonc do begin case choix of 1 begin xxxdprecedefalse if
revoir0 then begin if mfxz0 then begin for bk1 to mfxz do
begin indexindex+1pbk,fxzldaindex end end end
while xxxa do begin definitrueifxz resultatcalcul(ffxz,x)
if ((definitrue) and (abs(resultat)1000)) then begin
xpround(x*ux) ypround(resultat*uy)
if precedefalse then plot(xp,yp)
else draw(xp,yp) precedetrue
end else
precedefalse xx+pas end end 2 begin xxxdpre
cedefalse if revoir0 then begin if mfxz0 then begin for bk1 to
mfxz do begin indexindex+1pbk,fxzldaindex end
end if mfyz0 then begin for bk1 to mfyz do begin
indexindex+1pbk,fyzldaindex end end end while xxxa do
begin definitrueifxz resultatcalcul(ffxz,x) if ((def
initrue) and (abs(resultat)1000)) then begin xpround(resultat*ux)ifyz
resultatcalcul(ffyz,x) if ((definitrue) and (abs(resultat
)1000)) then begin ypround(resultat*uy) if precedefalse th
en plot(xp,yp) else draw(xp,yp) precedetrue end
else precedefalse end else precedefalse xx+pas
end end 3begin xxxdprecedefalse if revoir0 then begin if
mfxz0 then begin for bk1 to mfxz do begin indexindex+1
pbk,fxzldaindex end end end while xxxa do begin defin
itrueifxz resultatcalcul(ffxz,x) if ((definitrue) and (abs(r
esultat)1000)) then begin xpround(resultat*cos(x)*ux)
ypround(resultat*sin(x)*uy) if precedefalse then plot(xp,yp)
else draw(xp,yp) precedetrue end else
precedefalse xx+pas end end end end gotoxy(1,24)eux m
odules -- FONCTION.COM pour ce qui est calcul formel, derivation et
developpements limites. -- COURBE.COM pour ce qui est etude graphiq
ue. Les barrieres aux entrees sont tres limitees, vous pouvez plant
er tout a loisir ces programmes... ************* Les entrees de fonctions
************************** Vous devez entrer TOUS les symboles operatoires
*,+,-,/, avec les parentheses indispensables. Exemple 3*x2-cos(2*x) ou (2*
x+1)2 ou (x-1)-2 (2*x+1)/(3*x-5) Les fonctions suivantes sont d
efinies ln logaritme neperien, exp fonction exponentielle,
sin sinus, cos cosinus, tang tangente, (les arcs sont exprimes en RADIAN
S) sqrt radical ou racine carree, sh sinus hyperbolique, ch cosi
nus hyperbolique, th tangente hyperbolique, arcsin arcsinus, fon
ction reciproque de sinus, arccos arccosinus reciproque de cosinus,
arctan arctangente reciproque de tangente, Toutes ces fonctions sont der
ivables formellement. Deux fonctions supplementaires qu'il vaut mieux eviter
de deriver int partie entiere, abs valeur absolue. Vous pouve
z entrer des parametres tres utiles pour l'etude graphique d'une famille de co
urbes. Pour entrer les parametres p(i), i etant le numero du parametre, i
devant etre compris entre 1 et 3. SI VOUS N'ENTREZ PAS CORRECTEMENT VO
TRE FONCTION VOUS AUREZ UN MESSAGE D'ERREUR ET UN NUMERO erreur n.1 p n'
est pas suivi de ( erreur n.2 p(i n'est pas suivi de ) erreur n.3 par exem
ple cos(3*x n'est pas suivi de ) erreur n.4 vous n'avez pas ouvert de parenth
ese apres une fonction ex cos3 erreur n.5 l'identificateur de
fonction est inconnu, ex log(.., erreur n.6 le nombre que vous avez entre ne
peut etre interprete ex 0.1.2 erreur n.7 vous ne fermez pas la
parenthese ouverte pour un facteur, erreur n.8 vous commencez un facteur de
maniere &N&A&B&C&D&E&F&G&H&I incorrecte, erreur n.9 vous entrez une expressi
on incorrecte, ex ((3*x+1)/(x-2) puis ENTER LES LIMITES DE
S DIMENSIONNEMENTS DE VARIABLES Une fonction ne peut comporter plus de 250
caracteres... Vous pouvez entrer a la fois 10 fonctions numerotees de 1 a 10,
le numero 0 etant reserve pour des usages internes aux programmes. Pour l
es graphes, un maximum de 10 graphes sur le meme ecran. ********** Le cal
cul algebrique ************************************* Deux options deve
lopper les produits exemple (3*x-2)*(x2-5*x+3) deviendra (3*x3-17*x2+19*x-6)
cette option est appliquee automatiquement aux derivees. developper les
puissances entieres ex (x+2)3 deviendra (x3+6*x2+12*x+8) ************* L
a derivation **************************************** Vous pouvez avoir l'e
criture de la derivee de votre fonction, (sauf si celle-ci contient INT ou AB
S) cette derivee aura le numero de votre choix et vous pourrez lui appliqu
er l'ensemble du menu, donc evidemment la deriver.... ************* Les c
alculs numeriques ****************************** Vous pouvez avoir la valeu
r numerique de votre fonction pour tout x, si votre fonction contient un ou d
es parametres, il vous sera demande leur(s) valeur(s). Si la fonction n'
est pas definie, cela vous sera indique. Ainsi si vous avez f1(x)sqrt(2-x) et
si vous entrez x3 vous aurez le message f1(3) n'est pas definie. ****
********* Les developpements limites *************************** Vous aurez
le developpement limite de votre fonction au voisinage de x0 a l'ordre que v
ous desirez.. N'abusez pas demander le developpement limite de f1(x)ar
csin(3*x2-5*x) a l'ordre 6 vous amenera apres un temps certain le message
RUN-TIME ERROR FF, PC.... CELA VEUT DIRE QUE L'ESPACE ALLOUE AUX POIN
TEURS EST ENTRE EN COLLISION AVEC L'ESPACE ALLOUE AUX PROCEDURES RECURSIVES
Les uns et les autres ne manquant pas dans ces programmes.... ********
**** Les graphes ******************************************* AU CHOIX CO
URBES yf(x) COURBES PARAMETRIQUES xf(t), yg(t) COURBES EN COORDONNEES PO
LAIRES rf(t) Pour chacun de ces choix il vous est demande --- l'origine (
centre de l'ecran 320,200 ) --- l'unite des abscisses et des ordonnes ( en p
oints-ecran ) --- l'intervalle d'etude pour x si yf(x) pour t dans les autres
cas --- le pas d'etude, intervalle entre le calcul de deux valeurs PUIS
Le nombre de graphes sur le meme ecran --- a partir de plusieurs fonctio
ns pour une etude comparative --- une fonction et plusieurs valeurs du ou de
s parametre(s) Le trace du ou des graphe(s) termine vous pouvez faire une
HARDCOPY de votre ecran sur imprimante compatible EPSON *********** QUELQUES
ASTUCES ***************************************** Pour gagner du temps
Pour les developpements limites employer les exposants negatifs ou fract
ionnaires ex (1+x)-1 au lieu de 1/(1+x) ou (3-x)0.5 au lieu de sqrt
(3-x) permettra une execution beaucoup plus rapide. Pour developpe
r une puissance entiere ex (x2-3*x+2)4 demander le developpement lim
ite de cette fonction au voisinage de a0 et a l'ordre, degre du polynome (
ici 8) donnera une execution tres rapide. ********** POUR LES POSSESS
EURS DE TURBO PASCAL *********************** Avec les programmes sources il
est possible de ++++ fractionner ces programmes pour les executer sous CPM 2
++++ enrichir le menu par exemple resolution de f(x)0 ++++ enrichir
le catalogue de fonctions definies Argsh, Argch, Argth ou encore log d
ecimal... ++++ ecrire les fonctions sous la forme classique
2 3*x2-5*x+3 devenant 3x -5x+3 ++++ personnaliser le menu .
MAIS CELA N'EST POSSIBLE QU'EN ALLEGEANT LE MENU ACTUEL...... **********
************************************************************* COPYRIGHT Michel
HIRTZLER Decembre 1986 ************************
***********************************************!N!!,-O!!N!!N!"!*fz"*R!,!!2!,!,E!
2!*+)#V"!!*+)#V+)#V!,M-!*&!!,!£oEh!, 'N'A'B'C'D'E'F'G'H'Iwrite('1 Imprimer 2 Re
voir 3 Retour au menu') repeat read(kbd,car) until ((car'0') and (car'4
')) val(car,choixbis,result) if choixbis1 then begin gotoxy(1,24)w
rite(' ') origin(0,0)vidage en
d if choixbis2 then graphe(1) endVotre choix !!D *&!0*&!4£oER *&e.!! Ab
scisse!!,!£oEa!,!,!,"!,!,!,"*&!Ea**Oa**5O!2a!2!,!,!*#sZ!!*1 Imprimer 2 Revoir 3
Retour au menu !!D *&!0*&!4£oE+b*&e.!!*!Eb!!+
!!PP*!Eb!pM"!! fz3c"!*+)!s#r!*+)!s#r*#b! ! 1PsM !PP*!E!pM"!! fz"choixbi
s,result) if choixbis1 then begin gotoxy(1,24)write('
') origin(0,0)vidage end if choixbis2 then
graphe(1) endVotre choix !!D *&!0*&!4£oER *&e.!! Abscisse Imprimer 2 Revo
ir 3 Retour au menu') repeat read(kbd,car) until ((car'0') and (car'4')
) val(car,choix,result) if choix1 then begin gotoxy(1,24)write('
') origin(0,0)vidage end if
choix2 then graphe(1) end !!P*!b!pM "!! fzc"!*+)!s#"*+)!s#r*#