L'Ordinateur Individuel n°45 février 1983
L'Ordinateur Individuel n°45 février 1983
  • Prix facial : 20 F

  • Parution : n°45 de février 1983

  • Périodicité : mensuel

  • Editeur : Groupe Tests

  • Format : (202 x 281) mm

  • Nombre de pages : 254

  • Taille du fichier PDF : 257 Mo

  • Dans ce numéro : création artistique et informatique... tout un programme !

  • Prix de vente (PDF) : gratuit

Dans ce numéro...
< Pages précédentes
Pages : 216 - 217  |  Aller à la page   OK
Pages suivantes >
216 217
POUR VOTRE PROGRAMMABLE POUR VOTRE ORDINATEUR POCH L'ORDINATEUR DE POCHE est la seule revue française consacrée à l'informatique de poche. Vous possédez déjà une calculatrice programmable, vous trouverez dans L'ORDINATEUR DE POCHE mille astuces qui vous permettront de tirer un meilleur parti de votre machine. Vous envisagez d'en acheter une, L'ORDINATEUR DE POCHE vous guidera dans votre choix et accompagnera vos premiers pas. L ORDINATEUR DE POCHE - 41 rue de la Grange aux Belles. 75483 Pans Cedex 10 14 Francs chez votre marchand de journaux.
Positionnement sur le END FINAL sans module XFUNCTIONS J'ai été très intéressé par le calculatruc d'Olivier Arbey paru dans LOI n°40, mais à peine la lecture achevée, j'ai pensé à tous ceux (dont je fais partie) qui n'ont pas la chance de posséder le module XFUNCTIONS. Alors, sans une seconde d'hésitation et avec un peu de programmation synthétique, j'ai décidé de réaliser le méme programme sans utiliser de fonctions de ce module. Après mûre réflexion (voir ci-dessous le résultat), le mode d'emploi est le méme : faire XEQ « GE » (ou assigner le programme), et la calculatrice se positionne sur le END final. 81+LBL "GE'83 8'PRC1 c 84 P3HF 05 86 RCL I 87 M> d 88 CF 88 09 CF el le 3F 82 11 SF 03 12 X<> 13 STO [14 15 RCL\16 STC END 2nd INV Inx CE CLR Pgrn R r os tan cALCULATRUC : PROGRAMMASTUC:ES Del Eng F1X Int I t I BST EE Pause = t NI) p OIS Deg GTO 7 8 X Martial Bornet PRP'3EDécodage du registre Ce programme utilitaire a pour but, avec l'aide du mo- dule XFUNCTIONS, de décoder les trois informations contenues dans le registrec. A savoir (dans l'ordre) : la position du premier registre de données, celle du premier registre du bloc statistique et celle du END final. PRP "LiTc" 81*L8L "LITc" CFA RCL c STO I XEQ 99 FIX 9 "S=" RCL X PVIEW PSTO X RCL c STO I 4 PROT RCL Z XEQ 88 "R8=" RCL X PVIEW PSTO X RCLc. STO I 5 PROT Rt Rt AUX 16 MOD 256 * PTOX + "EN=" PRCL X PSTO X CLD STOP 39+LBL 88 PTOX RCL X 16/INT 256 * XOY 16 MOD LPSTX * + PTOX 16 INT + END END 188 BYTES Après avoir fait XEQ « LIT c », l'affichage de ces trois valeurs en décimal se fait dans la pile : l'adresse du END dans le registre en Z et T. Un exemple : une HP- 41 C de base, sans QUAD, en SIZE 30 et avec le seul programme LITc, donne : T.':=237" Z= "2=237'Y= « R8=726'X= "EH=218" PPSTK Olivier Arbey Empilez dans l'ordre ! La « pile » de la HP-41 C comprend quatre registres : X, Y, Z et T. Le petit programme suivant classe par ordre croissant les quatre valeurs contenues dans ces registres ; puis il reloge le plus petit dansX, et les autres en suivant jusqu'à T. 81*LBL "ORDRE" 82 X>Y ? 93 XOY t4 RDN 85 X)Y2 86 XOY 07 RDN 88 X>Y ? 89 X0V 18 Rt 11 X Z 17 X>Y2 18 XOY 19 END Pour les classer dans l'ordre décroissant, on peut utiliser deux méthodes. Soit on remplace XY ? par XLY ? Soit on ajoute les deux lignes de programme suivant : R4, X < > Z Frédéric Blanc HIR et% pour Ti-58 et pour Ti-59 Les Ti-58 et Ti-59 possèdent de magnifiques fonctions statistiques : régression linéaire, moyenne, variance, etc. Malheureusement, il manque une fonction des plus utiles : la touche%. Il est possible d'en fabriquer une grâce à HIR. Rappelons que HIR se programme par : STO 82 BST BST DEL SST Après avoir fait LRN, entrons le programme ciaprès : 01 LBL A 02 HIR 02 03 1 04 0 05 0 06 HIR 62 07 HIR 11 08 HIR 42 09 HIR 12 10 = 11 R/S Un exemple permet d'illustrer ce programme. Soit à calculer : 45 — 25%. On tape : 45/- 25/A et le résultat s'affiche : 33,75. Pour connaître le résultat intermédiaire (25% de 45), supprimez le « = » du programme (ligne 10). Le programme affichera alors : 11,25. Taper ensuite = et vous aurez le résultat final : 33,75. Jérôme Poudevigne Rectificatif Le programme intitulé « GOEND » (LOI n°40) comprenait une erreur. Il utilisait la fonction ASHF pour supprimer les cinq premiers octets du registrec. Maladresse impardonnable ! En effet, si le registre c est considéré par la machine comme un nombre et non comme une chaîne de caractères, ceux rappelés par la fonction ARCLc n'ont rien à voir avec les octets contenus dansc. Voici donc le programme corrigé. 4,1+L E."CE'62 CLP 83 RCL c 84 STU 1 85'-****l'86 CiX 07 STO\88 PCL 1 89 X<> d 161 CP 89 11 CF 01 12 SF 02 13 Si : 83 14 M> 15 STO 1 16'F.4,#'17 RCL 18 STO b 19 END END 48 BYTESn. 45 Février 83 217 LeVinateudnieilduel



Autres parutions de ce magazine  voir tous les numéros


Liens vers cette page
Couverture seule :


Couverture avec texte parution au-dessus :


Couverture avec texte parution en dessous :


L'Ordinateur Individuel numéro 45 février 1983 Page 1L'Ordinateur Individuel numéro 45 février 1983 Page 2-3L'Ordinateur Individuel numéro 45 février 1983 Page 4-5L'Ordinateur Individuel numéro 45 février 1983 Page 6-7L'Ordinateur Individuel numéro 45 février 1983 Page 8-9L'Ordinateur Individuel numéro 45 février 1983 Page 10-11L'Ordinateur Individuel numéro 45 février 1983 Page 12-13L'Ordinateur Individuel numéro 45 février 1983 Page 14-15L'Ordinateur Individuel numéro 45 février 1983 Page 16-17L'Ordinateur Individuel numéro 45 février 1983 Page 18-19L'Ordinateur Individuel numéro 45 février 1983 Page 20-21L'Ordinateur Individuel numéro 45 février 1983 Page 22-23L'Ordinateur Individuel numéro 45 février 1983 Page 24-25L'Ordinateur Individuel numéro 45 février 1983 Page 26-27L'Ordinateur Individuel numéro 45 février 1983 Page 28-29L'Ordinateur Individuel numéro 45 février 1983 Page 30-31L'Ordinateur Individuel numéro 45 février 1983 Page 32-33L'Ordinateur Individuel numéro 45 février 1983 Page 34-35L'Ordinateur Individuel numéro 45 février 1983 Page 36-37L'Ordinateur Individuel numéro 45 février 1983 Page 38-39L'Ordinateur Individuel numéro 45 février 1983 Page 40-41L'Ordinateur Individuel numéro 45 février 1983 Page 42-43L'Ordinateur Individuel numéro 45 février 1983 Page 44-45L'Ordinateur Individuel numéro 45 février 1983 Page 46-47L'Ordinateur Individuel numéro 45 février 1983 Page 48-49L'Ordinateur Individuel numéro 45 février 1983 Page 50-51L'Ordinateur Individuel numéro 45 février 1983 Page 52-53L'Ordinateur Individuel numéro 45 février 1983 Page 54-55L'Ordinateur Individuel numéro 45 février 1983 Page 56-57L'Ordinateur Individuel numéro 45 février 1983 Page 58-59L'Ordinateur Individuel numéro 45 février 1983 Page 60-61L'Ordinateur Individuel numéro 45 février 1983 Page 62-63L'Ordinateur Individuel numéro 45 février 1983 Page 64-65L'Ordinateur Individuel numéro 45 février 1983 Page 66-67L'Ordinateur Individuel numéro 45 février 1983 Page 68-69L'Ordinateur Individuel numéro 45 février 1983 Page 70-71L'Ordinateur Individuel numéro 45 février 1983 Page 72-73L'Ordinateur Individuel numéro 45 février 1983 Page 74-75L'Ordinateur Individuel numéro 45 février 1983 Page 76-77L'Ordinateur Individuel numéro 45 février 1983 Page 78-79L'Ordinateur Individuel numéro 45 février 1983 Page 80-81L'Ordinateur Individuel numéro 45 février 1983 Page 82-83L'Ordinateur Individuel numéro 45 février 1983 Page 84-85L'Ordinateur Individuel numéro 45 février 1983 Page 86-87L'Ordinateur Individuel numéro 45 février 1983 Page 88-89L'Ordinateur Individuel numéro 45 février 1983 Page 90-91L'Ordinateur Individuel numéro 45 février 1983 Page 92-93L'Ordinateur Individuel numéro 45 février 1983 Page 94-95L'Ordinateur Individuel numéro 45 février 1983 Page 96-97L'Ordinateur Individuel numéro 45 février 1983 Page 98-99L'Ordinateur Individuel numéro 45 février 1983 Page 100-101L'Ordinateur Individuel numéro 45 février 1983 Page 102-103L'Ordinateur Individuel numéro 45 février 1983 Page 104-105L'Ordinateur Individuel numéro 45 février 1983 Page 106-107L'Ordinateur Individuel numéro 45 février 1983 Page 108-109L'Ordinateur Individuel numéro 45 février 1983 Page 110-111L'Ordinateur Individuel numéro 45 février 1983 Page 112-113L'Ordinateur Individuel numéro 45 février 1983 Page 114-115L'Ordinateur Individuel numéro 45 février 1983 Page 116-117L'Ordinateur Individuel numéro 45 février 1983 Page 118-119L'Ordinateur Individuel numéro 45 février 1983 Page 120-121L'Ordinateur Individuel numéro 45 février 1983 Page 122-123L'Ordinateur Individuel numéro 45 février 1983 Page 124-125L'Ordinateur Individuel numéro 45 février 1983 Page 126-127L'Ordinateur Individuel numéro 45 février 1983 Page 128-129L'Ordinateur Individuel numéro 45 février 1983 Page 130-131L'Ordinateur Individuel numéro 45 février 1983 Page 132-133L'Ordinateur Individuel numéro 45 février 1983 Page 134-135L'Ordinateur Individuel numéro 45 février 1983 Page 136-137L'Ordinateur Individuel numéro 45 février 1983 Page 138-139L'Ordinateur Individuel numéro 45 février 1983 Page 140-141L'Ordinateur Individuel numéro 45 février 1983 Page 142-143L'Ordinateur Individuel numéro 45 février 1983 Page 144-145L'Ordinateur Individuel numéro 45 février 1983 Page 146-147L'Ordinateur Individuel numéro 45 février 1983 Page 148-149L'Ordinateur Individuel numéro 45 février 1983 Page 150-151L'Ordinateur Individuel numéro 45 février 1983 Page 152-153L'Ordinateur Individuel numéro 45 février 1983 Page 154-155L'Ordinateur Individuel numéro 45 février 1983 Page 156-157L'Ordinateur Individuel numéro 45 février 1983 Page 158-159L'Ordinateur Individuel numéro 45 février 1983 Page 160-161L'Ordinateur Individuel numéro 45 février 1983 Page 162-163L'Ordinateur Individuel numéro 45 février 1983 Page 164-165L'Ordinateur Individuel numéro 45 février 1983 Page 166-167L'Ordinateur Individuel numéro 45 février 1983 Page 168-169L'Ordinateur Individuel numéro 45 février 1983 Page 170-171L'Ordinateur Individuel numéro 45 février 1983 Page 172-173L'Ordinateur Individuel numéro 45 février 1983 Page 174-175L'Ordinateur Individuel numéro 45 février 1983 Page 176-177L'Ordinateur Individuel numéro 45 février 1983 Page 178-179L'Ordinateur Individuel numéro 45 février 1983 Page 180-181L'Ordinateur Individuel numéro 45 février 1983 Page 182-183L'Ordinateur Individuel numéro 45 février 1983 Page 184-185L'Ordinateur Individuel numéro 45 février 1983 Page 186-187L'Ordinateur Individuel numéro 45 février 1983 Page 188-189L'Ordinateur Individuel numéro 45 février 1983 Page 190-191L'Ordinateur Individuel numéro 45 février 1983 Page 192-193L'Ordinateur Individuel numéro 45 février 1983 Page 194-195L'Ordinateur Individuel numéro 45 février 1983 Page 196-197L'Ordinateur Individuel numéro 45 février 1983 Page 198-199L'Ordinateur Individuel numéro 45 février 1983 Page 200-201L'Ordinateur Individuel numéro 45 février 1983 Page 202-203L'Ordinateur Individuel numéro 45 février 1983 Page 204-205L'Ordinateur Individuel numéro 45 février 1983 Page 206-207L'Ordinateur Individuel numéro 45 février 1983 Page 208-209L'Ordinateur Individuel numéro 45 février 1983 Page 210-211L'Ordinateur Individuel numéro 45 février 1983 Page 212-213L'Ordinateur Individuel numéro 45 février 1983 Page 214-215L'Ordinateur Individuel numéro 45 février 1983 Page 216-217L'Ordinateur Individuel numéro 45 février 1983 Page 218-219L'Ordinateur Individuel numéro 45 février 1983 Page 220-221L'Ordinateur Individuel numéro 45 février 1983 Page 222-223L'Ordinateur Individuel numéro 45 février 1983 Page 224-225L'Ordinateur Individuel numéro 45 février 1983 Page 226-227L'Ordinateur Individuel numéro 45 février 1983 Page 228-229L'Ordinateur Individuel numéro 45 février 1983 Page 230-231L'Ordinateur Individuel numéro 45 février 1983 Page 232-233L'Ordinateur Individuel numéro 45 février 1983 Page 234-235L'Ordinateur Individuel numéro 45 février 1983 Page 236-237L'Ordinateur Individuel numéro 45 février 1983 Page 238-239L'Ordinateur Individuel numéro 45 février 1983 Page 240-241L'Ordinateur Individuel numéro 45 février 1983 Page 242-243L'Ordinateur Individuel numéro 45 février 1983 Page 244-245L'Ordinateur Individuel numéro 45 février 1983 Page 246-247L'Ordinateur Individuel numéro 45 février 1983 Page 248-249L'Ordinateur Individuel numéro 45 février 1983 Page 250-251L'Ordinateur Individuel numéro 45 février 1983 Page 252-253L'Ordinateur Individuel numéro 45 février 1983 Page 254