knihovna.c

   1 /**************************************************************************** *
   2  *   nazev projektu: BETON                                                    *
   3  *   soubor: knihovna.c                                                       *
   4  *   autor: Vojtech Simsa xsimsa01                                            *
   5  *                                                                            *
   6  *   popis: knihovna funkci                                                   *
   7  *                                                                            *
   8  ******************************************************************************/
   9 /**
  10  * @file knihovna.c
  11  *
  12  * @brief knihovna funkci
  13  * @author Vojtech Simsa (xsimsa01)
  14  */
  15 #include <math.h>
  16 #include <float.h>
  17
  18 /**
  19  * Struktura obsahujici vysledek a priznak chyby
  20  */
  21 typedef struct vysledek
  22 {
  23 double result;  /**< Ciselny vysledek */
  24 int error;      /**< Priznak oznacujici chybu */
  25 } Tvysledek;
  26
  27 /**
  28  * provede operaci scitani a vysledek vrati ve strukture Tvysledek.
  29  * @param a prvni scitanec.
  30  * @param b druhy scitanec.
  31  * @return Vraci strukturu obsahujici soucet a+b.
  32  */
  33 Tvysledek scitani(double a, double b){
  34  Tvysledek result={
  35   .error=0,
  36   .result=a+b,
  37   };
  38  return result;
  39 }
  40
  41 /**
  42  * provede operaci odcitani a vysledek vrati ve strukture Tvysledek.
  43  * @param a mensenec.
  44  * @param b mensitel.
  45  * @return Vraci strukturu obsahujici rozdil a-b.
  46  */
  47 Tvysledek odcitani(double a, double b) {
  48  Tvysledek result={
  49   .error=0,
  50   .result=a-b,
  51   };
  52  return result;
  53 }
  54
  55 /**
  56  * provede operaci nasobeni a vysledek vrati ve strukture Tvysledek.
  57  * @param a prvni cinitel.
  58  * @param b druhy cinitel.
  59  * @return Vraci strukturu obsahujici soucin a*b.
  60  */
  61 Tvysledek nasobeni(double a, double b) {
  62  Tvysledek result={
  63   .error=0,
  64   .result=a*b,
  65   };
  66  return result;
  67 }
  68
  69 /**
  70  * provede operaci deleni a vysledek vrati ve strukture Tvysledek.
  71  * @param a delenec.
  72  * @param b delitel.
  73  * @return Vraci strukturu obsahujici podil a/b.
  74  */
  75 Tvysledek deleni(double a, double b) {
  76  Tvysledek result={
  77   .error=0,
  78   .result=0,
  79   };
  80  if (b==0) {
  81   result.error=1;
  82   return result;
  83   }
  84  result.result=a/b;
  85  return result;
  86 }
  87
  88 /**
  89  * provede operaci scitani a vysledek vrati ve strukture Tvysledek.
  90  * pokud vysledek neni zobrazitelny v ciselnem rozsahu double je vysledna hodnota .error nastavena na 1.
  91  * pokud exponent neni prirozene cislo je vysledna hodnota .error nastavena na 1.
  92  * @param a zaklad mocniny.
  93  * @param exponent exponent umocneni.
  94  * @return Vraci strukturu obsahujici hodnotu a^exponent a pripadnou indikaci chyby.
  95  */
  96 Tvysledek umocneni(double a, double exponent) {
  97  Tvysledek result={
  98   .error=0,
  99   .result=0,
 100   };
 101  if (ceil(exponent)!=exponent || exponent<0 || exponent>DBL_MAX_EXP){
 102   result.error=1;
 103   return result;
 104   }
 105  result.result=pow(a,exponent);
 106  return result;
 107 }
 108
 109 /**
 110  * vypocita faktorial a vysledek vrati ve strukture Tvysledek.
 111  * pokud vysledek neni zobrazitelny v ciselnem rozsahu double je vysledna hodnota .error nastavena na 1.
 112  * pokud zaklad faktorialu neni prirozene cislo je vysledna hodnota .error nastavena na 1.
 113  * @param a zaklad faktorialu.
 114  * @return Vraci strukturu obsahujici hodnotu a! a pripadnou indikaci chyby.
 115  */
 116 Tvysledek faktorial(double a){
 117  int x=1;
 118  Tvysledek result={
 119   .error=0,
 120   .result=1,
 121   };
 122  if (ceil(a)!=a || a<0){
 123   result.error=1;
 124   return result;
 125   }
 126  while (x<=a){
 127  if (result.result>(DBL_MAX/x)) {
 128   result.error=1;
 129   return result;
 130   }
 131  result.result=result.result*x;
 132  x++;
 133  }
 134  return result;
 135 }
 136
 137 /**
 138  * vypocita prirozeny logaritmus a vysledek vrati ve strukture Tvysledek.
 139  * pokud je numerus logaritmu zaporny je vysledna hodnota .error nastavena na 1.
 140  * @param a numerus logaritmu.
 141  * @return Vraci strukturu obsahujici hodnotu ln(a) a pripadnou indikaci chyby.
 142  */
 143 Tvysledek logaritmus(double a) {
 144  Tvysledek result={
 145   .error=0,
 146   .result=0,
 147   };
 148  if (a<=0){
 149   result.error=1;
 150   return result;
 151  }
 152  result.result=log(a);
 153  return result;
 154 }
 155 /*** konec souboru knihovna.c ***/