//---------------------------------------------------------------------------

#include <windows.hpp>
#include <stdio.h>      // для sprintf
#pragma hdrstop
//---------------------------------------------------------------------------
#define ARR_TYPE    short
#define ARR_RANGE    1000 
//---------------------------------------------------------------------------

typedef struct {
    float (*func)(ARR_TYPE*, WORD);
    /* аргументы этой ф-ции: */
        ARR_TYPE* mas;
        WORD range;
    } THREAD_PARAM_forCOUNT, * LPTHREAD_PARAM_forCOUNT;

typedef struct {
    ARR_TYPE (*func)(ARR_TYPE*, WORD, float);
    /* аргументы этой ф-ции: */
        ARR_TYPE* mas;
        WORD range;
        float middle;
    } THREAD_PARAM_forFIND, * LPTHREAD_PARAM_forFIND;

//---------------------------------------------------------------------------

float CountMiddle   (ARR_TYPE*, WORD);
ARR_TYPE FindMiddle (ARR_TYPE*, WORD, float);

DWORD WINAPI ThreadFunc1 (LPVOID);
DWORD WINAPI ThreadFunc2 (LPVOID);

//---------------------------------------------------------------------------

int WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int) {
  //randomize();
  ARR_TYPE* mas;
  float FoundNumber;
  char  strTemp[ 255 ];
  /* Перменные, необходимы для потоков */
  DWORD idThread;
  THREAD_PARAM_forCOUNT ThreadParam1;
  THREAD_PARAM_forFIND  ThreadParam2;
  HANDLE hThread;
  DWORD result;

  if ( !(mas = new ARR_TYPE [ARR_RANGE]) ) {
    MessageBox (NULL, "There is some problem with memory allocation", "Program with threads", MB_OK);
    return - 1 ;
    }

  /* Вызов первого потока с функцией CountMiddle */
  ThreadParam1.func  = CountMiddle;
  ThreadParam1.mas   = mas;
  ThreadParam1.range = ARR_RANGE;

  hThread = CreateThread (NULL,  0 ,  ThreadFunc1,  &ThreadParam1,  0 , &idThread);
  do
    GetExitCodeThread (hThread, &result);
  while (result == STILL_ACTIVE);

  /* Вызов второго потока с функцией FindMiddle */
  ThreadParam2.func   = FindMiddle;
  ThreadParam2.mas    = mas;
  ThreadParam2.range  = ARR_RANGE;
  ThreadParam2.middle = result;

  hThread = CreateThread (NULL,  0 ,  ThreadFunc2, &ThreadParam2,  0 , &idThread);
  do
    GetExitCodeThread (hThread, &result);
  while (result == STILL_ACTIVE);

  //FoundNumber = FindMiddle (mas, ARR_RANGE, CountMiddle (mas, ARR_RANGE));
  FoundNumber = result;
  sprintf (strTemp, "There is %g number is the nearest to middle", FoundNumber);
  MessageBox (NULL, strTemp, "Program with threads", MB_OK);
  delete [] mas;
  return  0 ;
}
//---------------------------------------------------------------------------

float CountMiddle   (ARR_TYPE* mas, WORD count) {
/* Сразу заполняет массив ивозвращает среднее значение */
  double Sum =  0 ;
  for (WORD i= 0 ; i<count; i++)
    Sum += mas[i] = i;
  return (float)(Sum/count);
  }

ARR_TYPE FindMiddle (ARR_TYPE* mas, WORD count, float number) {
/* Собственно, ищет наиболее близкий к среднему значению элемент */
  ARR_TYPE temp = mas[ 0 ];
  for (WORD i= 1 ; i<count; i++)
    if ( abs(mas[i]-number) < abs(temp-number) )
      temp = mas[i];
  return temp;
  }

DWORD WINAPI ThreadFunc1 (LPVOID argument) {
  THREAD_PARAM_forCOUNT temp;
  float result;

  temp = *(LPTHREAD_PARAM_forCOUNT)argument;
  result = temp.func (temp.mas, temp.range);
  return (DWORD)result;
  }

DWORD WINAPI ThreadFunc2 (LPVOID argument) {
  THREAD_PARAM_forFIND temp;
  ARR_TYPE result;

  temp = *(LPTHREAD_PARAM_forFIND)argument;
  result = temp.func (temp.mas, temp.range, temp.middle);
  return (DWORD)result;
  }