Micro Systèmes n°93 janvier 1989
Micro Systèmes n°93 janvier 1989
  • Prix facial : 30 F

  • Parution : n°93 de janvier 1989

  • Périodicité : mensuel

  • Editeur : Société Parisienne d'Edition

  • Format : (203 x 271) mm

  • Nombre de pages : 182

  • Taille du fichier PDF : 160 Mo

  • Dans ce numéro : systèmes experts et psychologie cognitive.

  • Prix de vente (PDF) : gratuit

Dans ce numéro...
< Pages précédentes
Pages : 64 - 65  |  Aller à la page   OK
Pages suivantes >
64 65
seraient alors des procédures). Mais cela aurait été bien plus compliqué, et moins proche de la logique de la pensée, qui veut qu'une procédure de haut niveau soit plus élaborée qu'une simple routine. En fait, le passage de paramètres procédures (ou paramètres de type procédure) donne vraiment une liberté totale au programmeur Pascal. De plus, cela permet de construire des bibliothèques de procédures de haut niveau, à l'instar des bibliothèques de « routines » habituelles. Pour compiler le programme de démonstration, il faut soit un Amstrad CPC (avec CP/M 2.2 ou 3.0), soit un compatible PC avec carte CGA, mais les procédures de vectorisation fonctionnent sur tout ordinateur acceptant Turbo Pascal. Les procédures graphiques sur Amstrad CPC utilisent un vecteur système différent selon la version CP/M, pour accéder aux routines de la ROM, à mettre à jour au début de GRAF.INC (fig. 3). Sur IBM PC, ces procédures, chargées dans GRAPH.P (livre, avec GRAPH.BIN, avec le système Turbo) sont exploitées par les procédures de GRAF.INC version PC (fig. 4), pour émuler le graphisme Amstrad. Cela vient du fait que le programme de démonstration (fig. 5) a d'abord été écrit sur Amstrad. (Il tourne directement sur cette machine). La seule chose à changer éventuellement est le « ADDR » sous CP/M, qui est « OFS » sous MS-DOS. Bonne programmation ! L. Fournier bibliotheque graphique MSDOS pour fonction.pas emulant les procedures de l'amstrad cpc 1 const xechelle= 320 ; yechelle= 200 ; couleur=1 ; var ancienxGraf,ancienyGraf:integer ; originxGraf,originyGraf:integer : procedure mode_texte ; begin textmode ; end ; procedure mode_graphique ; begin graphcolormode ; end ; procedure clg ; begin clearscreen ; end ; procedure deplace(x,y:integer) ; begin ancienxGraf:= ancienyGraf:= y ; end ; procedure origine(x,y:integer) ; begin originxGraf:= x ; originyGraf:= -y ; deplace(0,0) ; end ; procedure ligne(x,y:integer) ; begin draw (ancienxGraf+originxGraf,yechelle-anciegyGraf+originYGraf, x+originxGraf,yechelle-y+originYGraf,couleur) ; deplace(x,y) ; end ; procedure point(x,y:integer) ; begin plot(x+originxGraf,yechelle-Y+originyGraf,couleur) ; deplace(x,y) ; end ; Ag. 4. - GRAF-INC pour MS-DOS. { programme de demonstration : parametres de type procedure { PROCEDURE UNIVERSELLE DE TRACE DE FONCTION { Fonctionne telle quelle sur Amstrad CPC } { Sous MS-DOS : Remplacer TOUS les "addr" du texte par "ofs" { (peut se faire par la commande : (CTRL-Q-A),00tions (gwun)) } {$I GRAPH.P} {sur IBM PC uniquement. {$I GRAF.INC} {prendre la version correcte (Amstrad ou PC) ! } {$I VECTORX.INC} {idem... fonction identite(x:real):real ; begin i dent ite = x ; end ; function inverse(x:real):real ; const maxreal=1E+30 ; 64 - MICRO-SYSTEMES Janvier 1989
PROGRAMME begin if x 0 then inverse:= 1/x else inverse:= maxreal ; end ; function sinus(x:real):real ; begin sinus:= sin(x) ; end ; function cosinus(x:real):real ; begin cosinus:= cos(x) ; end ; function xsinus(x:real):real ; begin xsinus:= x*sin(x) ; end ; function xcosinus(x:real):real ; begin xcosinus:= x*cos(x) ; end ; function x2sinus(x:real):real ; begin x2sinus:= sqr(x)*sin(x) ; end ; function x2cosinus(x:real):real ; begin x2cosinus:= spr(x)*cos(x) ; end ; function x2x3(x:real):real ; var c:real ; begin c:= sbr(x) ; x2x3:= 8*c-x*c ; end ; const oi=3.1415927 ; procedure attends ; const delai=20000 ; var ch:char ; i:integer ; begin i:= 0 ; repeat i:= succ(i) ; until (i=delai) or keypressed ; if keypressed then read(kbd,ch) ; gotoxy(1,25) ; end ; procedure trace (foncx,foncy,dess:integer ; p1, p2,decal:real ; nombre:intener ; rapportx,rapportylreal) ; var rapportn:real ; i:integer ; function fx(x:real):real ; begin rien ; end ; function fy(x:real):realbegin rien ; end ; procedure dessine(x,y:integer) begin rien ; end ; Janvier 1989 MICRO-SYSTEM ES - 65



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 :


Micro Systèmes numéro 93 janvier 1989 Page 1Micro Systèmes numéro 93 janvier 1989 Page 2-3Micro Systèmes numéro 93 janvier 1989 Page 4-5Micro Systèmes numéro 93 janvier 1989 Page 6-7Micro Systèmes numéro 93 janvier 1989 Page 8-9Micro Systèmes numéro 93 janvier 1989 Page 10-11Micro Systèmes numéro 93 janvier 1989 Page 12-13Micro Systèmes numéro 93 janvier 1989 Page 14-15Micro Systèmes numéro 93 janvier 1989 Page 16-17Micro Systèmes numéro 93 janvier 1989 Page 18-19Micro Systèmes numéro 93 janvier 1989 Page 20-21Micro Systèmes numéro 93 janvier 1989 Page 22-23Micro Systèmes numéro 93 janvier 1989 Page 24-25Micro Systèmes numéro 93 janvier 1989 Page 26-27Micro Systèmes numéro 93 janvier 1989 Page 28-29Micro Systèmes numéro 93 janvier 1989 Page 30-31Micro Systèmes numéro 93 janvier 1989 Page 32-33Micro Systèmes numéro 93 janvier 1989 Page 34-35Micro Systèmes numéro 93 janvier 1989 Page 36-37Micro Systèmes numéro 93 janvier 1989 Page 38-39Micro Systèmes numéro 93 janvier 1989 Page 40-41Micro Systèmes numéro 93 janvier 1989 Page 42-43Micro Systèmes numéro 93 janvier 1989 Page 44-45Micro Systèmes numéro 93 janvier 1989 Page 46-47Micro Systèmes numéro 93 janvier 1989 Page 48-49Micro Systèmes numéro 93 janvier 1989 Page 50-51Micro Systèmes numéro 93 janvier 1989 Page 52-53Micro Systèmes numéro 93 janvier 1989 Page 54-55Micro Systèmes numéro 93 janvier 1989 Page 56-57Micro Systèmes numéro 93 janvier 1989 Page 58-59Micro Systèmes numéro 93 janvier 1989 Page 60-61Micro Systèmes numéro 93 janvier 1989 Page 62-63Micro Systèmes numéro 93 janvier 1989 Page 64-65Micro Systèmes numéro 93 janvier 1989 Page 66-67Micro Systèmes numéro 93 janvier 1989 Page 68-69Micro Systèmes numéro 93 janvier 1989 Page 70-71Micro Systèmes numéro 93 janvier 1989 Page 72-73Micro Systèmes numéro 93 janvier 1989 Page 74-75Micro Systèmes numéro 93 janvier 1989 Page 76-77Micro Systèmes numéro 93 janvier 1989 Page 78-79Micro Systèmes numéro 93 janvier 1989 Page 80-81Micro Systèmes numéro 93 janvier 1989 Page 82-83Micro Systèmes numéro 93 janvier 1989 Page 84-85Micro Systèmes numéro 93 janvier 1989 Page 86-87Micro Systèmes numéro 93 janvier 1989 Page 88-89Micro Systèmes numéro 93 janvier 1989 Page 90-91Micro Systèmes numéro 93 janvier 1989 Page 92-93Micro Systèmes numéro 93 janvier 1989 Page 94-95Micro Systèmes numéro 93 janvier 1989 Page 96-97Micro Systèmes numéro 93 janvier 1989 Page 98-99Micro Systèmes numéro 93 janvier 1989 Page 100-101Micro Systèmes numéro 93 janvier 1989 Page 102-103Micro Systèmes numéro 93 janvier 1989 Page 104-105Micro Systèmes numéro 93 janvier 1989 Page 106-107Micro Systèmes numéro 93 janvier 1989 Page 108-109Micro Systèmes numéro 93 janvier 1989 Page 110-111Micro Systèmes numéro 93 janvier 1989 Page 112-113Micro Systèmes numéro 93 janvier 1989 Page 114-115Micro Systèmes numéro 93 janvier 1989 Page 116-117Micro Systèmes numéro 93 janvier 1989 Page 118-119Micro Systèmes numéro 93 janvier 1989 Page 120-121Micro Systèmes numéro 93 janvier 1989 Page 122-123Micro Systèmes numéro 93 janvier 1989 Page 124-125Micro Systèmes numéro 93 janvier 1989 Page 126-127Micro Systèmes numéro 93 janvier 1989 Page 128-129Micro Systèmes numéro 93 janvier 1989 Page 130-131Micro Systèmes numéro 93 janvier 1989 Page 132-133Micro Systèmes numéro 93 janvier 1989 Page 134-135Micro Systèmes numéro 93 janvier 1989 Page 136-137Micro Systèmes numéro 93 janvier 1989 Page 138-139Micro Systèmes numéro 93 janvier 1989 Page 140-141Micro Systèmes numéro 93 janvier 1989 Page 142-143Micro Systèmes numéro 93 janvier 1989 Page 144-145Micro Systèmes numéro 93 janvier 1989 Page 146-147Micro Systèmes numéro 93 janvier 1989 Page 148-149Micro Systèmes numéro 93 janvier 1989 Page 150-151Micro Systèmes numéro 93 janvier 1989 Page 152-153Micro Systèmes numéro 93 janvier 1989 Page 154-155Micro Systèmes numéro 93 janvier 1989 Page 156-157Micro Systèmes numéro 93 janvier 1989 Page 158-159Micro Systèmes numéro 93 janvier 1989 Page 160-161Micro Systèmes numéro 93 janvier 1989 Page 162-163Micro Systèmes numéro 93 janvier 1989 Page 164-165Micro Systèmes numéro 93 janvier 1989 Page 166-167Micro Systèmes numéro 93 janvier 1989 Page 168-169Micro Systèmes numéro 93 janvier 1989 Page 170-171Micro Systèmes numéro 93 janvier 1989 Page 172-173Micro Systèmes numéro 93 janvier 1989 Page 174-175Micro Systèmes numéro 93 janvier 1989 Page 176-177Micro Systèmes numéro 93 janvier 1989 Page 178-179Micro Systèmes numéro 93 janvier 1989 Page 180-181Micro Systèmes numéro 93 janvier 1989 Page 182