#include <stdio.h>
#include <stdlib.h>
#include <time.h>

void riempimento_campo(int[][2]);
void riempimento_campo(int campo[][2]){
  int i, k, j;
  for(i = 0; i < 500; i++){
    for (j = 0; j <= 1; j++){
      campo[i][j] = 3;
    }
  }
}

int caduta_chicchi(int[][2], int, int[][2]);
int caduta_chicchi(int campo[][2], int N, int colpite[][2]){
  int i, x, y;
  for (i = 0; i < N; i++){
    x = lrand48()%10000;
    y = lrand48()%10000;
    if ( (x > 5000) && (y >= 1010) && (y <= 1022) && (y != 1011)){
      printf("E' stata colpita una pianta nelle coordinate %d x e %d y \n", x, y);
      x = x/10 - 500;
      if( (y >= 1000) && (y < 1011)){
    y = 0;
      }
      else {
    y = 1;
      }
      campo[x][y] += -1;
      colpite[x][y] += 1;
      printf("La vita della pianta è %d , è stata colpita %d volte \n", campo[x][y], colpite[x][y]);
      printf("\n");
     }
    }
}

void la_rabbia_del_contadino(int [][2]);
void la_rabbia_del_contadino(int colpite[][2]){
  int i, k, n = 0;
  double percent;
  FILE *p;
  for (i = 0; i < 500; i++){
    for (k = 0; k < 2; k++){
      if (colpite[i][k] >= 3){
    k++;
    printf("La pianta %d della fila %d è stata distrutta \n", i, k);
    p = fopen("fragole.dat", "a");
    fprintf(p, "La pianta %d della fila %d è stata distrutta \n", i, k);
    n++;
    fclose(p);
      }
    }
  }
  percent = (double)n/1000 * 100;
  printf("La percentuale di piante distrutte è stata il %f %% \n", percent);
}

main(){
  int N, i, k;
  int campo[500][2];
  int colpite[500][2] = {0};
  printf("Questo programma simula una grandinata su un campo di fragole \n");
  printf("\n");
  do{
    printf("Inserire il numero di chicchi di grandine, tale numero dovrà essere positivo \n");
    scanf("%d", &N);
    if (N < 0){
      printf("Valore non valido \n");
    }
  } while (N < 0);
  riempimento_campo(campo);
  srand48(time(0));
  caduta_chicchi(campo, N, colpite);
  la_rabbia_del_contadino(colpite);
}