/* Martin Hess, 6.05.2001 MC1 TSU */
#include <stdio.h>
#include <conio.h>
#include <math.h>

#define total 10 /* Anzahl Messwerte */

void crt_init(void);        // Initialisiert Screem
void get_values(void);      // Messwert-Eingabe
void print_menu(void);      // Menu-Ausgabe
int doing_selection(void);  // Abfrage User-Selection
float calc_mean(int max);   // Mittelwert
float calc_stdabw(int max); // Standartabweichung
float calc_max(int max);    // Maximalwert-Berechnung
float calc_min(int max);    // Minimalwert-Berechnung
float calc_s_mean(int max); // Gr”sser Mittelwert
float calc_g_mean(int max); // Kleiner Mittelwert

/* Globale Variablen */
int values [total];

void main(void)
{
/* lokale Variablen */
int NewValues;
int abort;

/* Beginn main */
crt_init();
abort = 1;
do
  {
  get_values();
  NewValues = 0;
  print_menu();
  do
    {
    switch(doing_selection())
      {
      case 1: // Mittelwert
	printf("Mittelwert = %4.2f                    ",calc_mean(total));
	break;
      case 2: // Standartabweichung
	printf("Standartabweichung = %f               ",calc_stdabw(total));
	break;
      case 3: // Maximalwert
	printf("Maximalwert = %4.0f                   ",calc_max(total));
	break;
      case 4: // Minimalwert
	printf("Minimalwert = %4.0f                   ",calc_min(total));
	break;
      case 5: // kleiner Mittelwert
	printf("Werte kleiner Mittelwert = %2.0f      ",calc_s_mean(total));
	break;
      case 6: // gr”sser Mittelwert
	printf("Werte gr”sser Mittelwert = %2.0f       ",calc_g_mean(total));
	break;
      case 7: // neue Werte
	NewValues = 1;
	clrscr();
	break;
      case 9: // exit
	abort = 0;
	NewValues = 1;
    } //end of switch
    }
  while (NewValues != 1); // zweites do
  }
while (abort != 0); // erstes do
} // of main

void crt_init(void)
{
clrscr();
gotoxy(25,1);
printf("*****   šbung 7 Martin Hess *****");
gotoxy(25,2);
printf("*****   Messwerte           *****");
}// of crt_init

void get_values(void)
{
int i;
int user;
int where;

printf("\n %d Messwerte (0..254) eingeben:\n\n",total);
for (i=0;i<total;i++)
  {
  gotoxy(1,6);
  printf("                                 ");
  gotoxy(1,6);
  where = i+1;
  printf("Messwert Nr.%d : ",where);
  scanf("%d",&user);
  values[i] = user;
  } // of for
gotoxy(1,6);
printf("** Eingabe abgeschlossen **            ");
} // of get_values

void print_menu(void)
{
gotoxy(1,8);
printf("\nEs stehen nun folgende M”glichkeiten zur Auswahl:");
printf("\n1: Mittelwertberechnung");
printf("\n2: Standartabweichung");
printf("\n3: Maximalwert");
printf("\n4: Minimalwert");
printf("\n5: Anzahl Werte kleiner als Mittelwert");
printf("\n6: Anzahl Werte gr”sser als Mittelwert");
printf("\n7: Neue Werte eingeben");
printf("\n9: Programm beenden");
printf("\n\n Ihre Wahl : ");
} // of print_menu

int doing_selection(void)
{
int selection;

do
  {
  gotoxy(14,19);
  printf("  ");
  gotoxy(14,19);
  scanf("%d",&selection);
  printf("\n");
  }
while ((selection<1) || (selection>9));
return(selection);
} // of doing_selection

float calc_mean(int count)
{
int i;
float x;

for (i=0;i<count;i++)
  x += values[i];
x = x/count;
return(x);
} // of calc_mean

float calc_stdabw(int count)
{
float out = 0.0;
float help;
float mean;
int i;

mean = calc_mean(count);
for (i=0;i<count;i++)
  {
  help = (values[i]-mean)*(values[i]-mean);
  out += help;
  }
out = 1.0/(total-1)*out;
out = sqrt(out);
return(out);
} // of calc_stdabw

float calc_max(int count)
{
float out;
int i;

out = values[0];
for(i=1;i< count;i++)
   if (values[i] > out) out = values[i];
return(out);
} // of calc_max

float calc_min(int count)
{
float out;
int i;

out = values[0];
for(i=1;i<count;i++)
   if (values[i] < out) out = values[i];
return(out);
} // of calc_min

float calc_s_mean(int count)
{
float out = 0.0;
float mean;
int i;

mean = calc_mean(count);
for (i=0;i<count;i++)
   if (values[i] < mean) out++;
return(out);
} // of calc_s_mean

float calc_g_mean(int count)
{
float out = 0.0;
float mean;
int i;

mean = calc_mean(count);
for (i=0;i<count;i++)
   if (values[i] > mean) out++;
return(out);
} // of calc_g_mean