Mathc initiation/Fichiers h : x 17c08

Un livre de Wikilivres.
Aller à la navigation Aller à la recherche


Sommaire


Installer et compiler ces fichiers dans votre répertoire de travail.

Crystal Clear mimetype source c.png c08.c
'
/* ---------------------------------- */
/*  Save as :   c08.c                 */
/* ---------------------------------- */
#include "x_ahfile.h"
/* ---------------------------------- */
int main(void)
{
Set  A,B,C,D,E;
int  i;
 
  create_SetI(&A);  create_SetI(&B);  create_SetI(&C);
  create_SetI(&D);  create_SetI(&E);

  clrscrn();
  
  for(i=1; i<=5; i++) insert_EI(&A,i);
  for(i=3; i<=9; i++) insert_EI(&B,i);
  
  p_SetI(&A,"A");
  p_SetI(&B,"B");

  printf(" C = A inter B\n");
  inter_SI(&A,&B,&C);
  p_SetI(&C,"C");

  printf(" D = A mns B\n");
  mns_SI(&A,&B,&D);
  p_SetI(&D,"D");

  printf(" E = A mns (A mns B) = A inter B\n");
  mns_SI(&A,&D,&E);
  p_SetI(&C,"E");

  erase_SetI(&C);  erase_SetI(&B);  erase_SetI(&A);
  erase_SetI(&D);  erase_SetI(&E);

  stop();

  return 0;
}
Nous allons vérifier que :

 A mns (A mns B) = A inter B


Exemple de sortie écran :

 A = {5,4,3,2,1}


 B = {9,8,7,6,5,4,3}



 C = A inter B
 C = {3,4,5}



 D = A mns B
 D = {1,2}



 E = A mns (A mns B) = A inter B
 E = {3,4,5}




 Press return to continue.