Exemplo n.º 1
0
void
DadosPaciente()
{
   static int PrimeiroPaciente=TRUE;
   int novopaciente=FALSE;
   char Resposta[2];

   LimpaTela();
   if (PrimeiroPaciente && !DadosPacienteOk)
      {
      novopaciente=TRUE;
      PrimeiroPaciente=FALSE;
      }
   else
      novopaciente=NovoPaciente();
   AmbienteDados();
   do {
      do {
         Leitura (58,10,Paciente.Nome,45);
         } while (*Paciente.Nome==NULL);
      LeituraN(154,23,Paciente.Prontuario,5,1,99999L);
      do {
         LeituraC(58,36,Paciente.Sexo,"MmFf");
         } while (Paciente.Sexo[0]!='M' && Paciente.Sexo[0]!='F');
      ApagaWord(66,36,8);
      if (Paciente.Sexo[0]=='M')
         gprintf(66,36,"asculino");
      else
         gprintf(66,36,"eminino");
      LeituraN(170,49,Paciente.Dia,2,1,31);
      if (atoi(Paciente.Dia)<10)
         if (*Paciente.Dia!='0')
            {
            *(Paciente.Dia+1)=*Paciente.Dia;
            *Paciente.Dia='0';
            ApagaWord(170,49,2);
            gprintf(170,49,"%2s",Paciente.Dia);
            }
      LeituraN(194,49,Paciente.Mes,2,1,12);
      if (atoi(Paciente.Mes)<10)
         if (*Paciente.Mes!='0')
            {
            *(Paciente.Mes+1)=*Paciente.Mes;
            *Paciente.Mes='0';
            ApagaWord(194,49,2);
            gprintf(194,49,"%2s",Paciente.Mes);
            }
      do {
         LeituraN(218,49,Paciente.Ano,2,1,99);
         if (atoi(Paciente.Ano)<10)
            if (*Paciente.Ano!='0')
               {
               *(Paciente.Ano+1)=*Paciente.Ano;
               *Paciente.Ano='0';
	       ApagaWord(218,49,2);
               gprintf(218,49,"%2s",Paciente.Ano);
               }
         CalculaIdade();
         ApagaWord(356,49,2);
         gprintf(300,49,"IDADE: %2s anos",PacienteIdade);
         } while (atoi(PacienteIdade)<6 || atoi(PacienteIdade)>90);
      if (atoi(PacienteIdade)<16)
         *Paciente.Fase='C';
      else if (atoi(PacienteIdade)>18)
	           *Paciente.Fase='A';
	        else
	           do {
		           LeituraC(226,62,Paciente.Fase,"AaCc");
		           } while (Paciente.Fase[0]!='A' && Paciente.Fase[0]!='C');
      ApagaWord(234,62,6);
      if (Paciente.Fase[0]=='A')
         gprintf(226,62,"Adulto");
      else
	 {
         setcolor(0);
	 gprintf(226,62,"A");
	 setcolor(1);
	 gprintf(226,62,"Crianca");
	 }
      if (Paciente.Fase[0]=='A')
	 {
	 LeituraN(114,75,Paciente.Altura,3,110,210);
	 LeituraN(98,88,Paciente.Peso,3,20,150);
	 }
      else
	 {
	 LeituraN(114,75,Paciente.Altura,3,110,210);
         if (atof(Paciente.Altura)>170)
	    {
	    *Paciente.Fase='A';
	    setcolor(0);
	    gprintf(226,62,"Crianca");
	    setcolor(1);
	    gprintf(226,62,"Adulto");
	    }
	 LeituraN(98,88,Paciente.Peso,3,10,150);
	 }
      CalculaSupCorporea();
      ApagaWord(468,88,5);
      gprintf(300,88,"SUPERFICIE CORPORAL: %-5.2f",SupCorp);
      LeituraC(162,118,Paciente.Fumante,"SsNnEe");
      ApagaLinha(131);
      ApagaLinha(144);
      ApagaLinha(157);
      if (strchr ( "Ss" , Paciente.Fumante[0] ) != NULL)
         {
         gprintf(40,131,"HA QUANTOS ANOS ? : %s",Paciente.tempfumo);
         gprintf(40,144,"No CIGARROS/DIA   : %s",Paciente.cigardia);
         LeituraN(200,131,Paciente.tempfumo,2,1,99);
         LeituraN(200,144,Paciente.cigardia,2,1,99);
         }
      else if (strchr ( "Ee" , Paciente.Fumante[0] ) != NULL)
              {
              gprintf(40,131,"HA QUANTO TEMPO DEIXOU DE FUMAR ? :"" %2s ANOS  %2s MESES",Paciente.deixfumoA,Paciente.deixfumoM);
              gprintf(40,144,"QUANTOS ANOS FUMOU ? : %2s",Paciente.tempfumo);
              gprintf(40,157,"No CIGARROS/DIA : %2s",Paciente.cigardia);
              LeituraN(328,131,Paciente.deixfumoA,2,1,99);
              LeituraN(400,131,Paciente.deixfumoM,2,1,12);
              LeituraN(224,144,Paciente.tempfumo,2,1,99);
              LeituraN(184,157,Paciente.cigardia,2,1,99);
              }
      Leitura(114,177,institu,52);
      LeituraC(346,190,IouA,"IiAa");
      Leitura(234,203,justif,37);
      Leitura(178,216,medico,38);
      Leitura(186,229,servico,43);
      LeituraC(418,242,temdiag,"SsNn");
      ApagaLinha(255);
      if (strchr ( "Ss" , temdiag[0] ) != NULL)
         {
         gprintf(40,255,"DIAGNOSTICO: %s",diagnost);
         Leitura(144,255,diagnost,30);
         }
      LeituraC(210,268,temcirur,"SsNn");
      ApagaLinha(281);
      ApagaLinha(294);
      if (strchr ( "Ss" , temcirur[0] ) != NULL)
         {
         gprintf(40,281,"CIRURGIA: %s",cirurgia);
         gprintf(40,294,"DATA: %2s/%2s/%2s",cirurgiaD,cirurgiaM,cirurgiaA);
         Leitura(120,281,cirurgia,43);
         LeituraN(88,294,cirurgiaD,2,1,31);
         if (atoi(cirurgiaD)<10)
            if (*cirurgiaD!='0')
               {
               *(cirurgiaD+1)=*cirurgiaD;
               *cirurgiaD='0';
               ApagaWord(88,294,2);
               gprintf(88,294,"%2s",cirurgiaD);
               }
         LeituraN(112,294,cirurgiaM,2,1,12);
         if (atoi(cirurgiaM)<10)
            if (*cirurgiaM!='0')
               {
               *(cirurgiaM+1)=*cirurgiaM;
               *cirurgiaM='0';
               ApagaWord(112,294,2);
               gprintf(112,294,"%2s",cirurgiaM);
               }
         LeituraN(136,294,cirurgiaA,2,1,99);
         if (atoi(cirurgiaA)<10)
            if (*cirurgiaA!='0')
               {
               *(cirurgiaA+1)=*cirurgiaA;
               *cirurgiaA='0';
               ApagaWord(136,294,2);
               gprintf(136,294,"%2s",cirurgiaA);
               }
         }
      Resposta[0] = 'S';
      Resposta[1] = NULL;
      outtextxy(352,322,"Dados Corretos ? (S/N) ");
      LeituraC(536,322,Resposta,"SsNn");
      ApagaLinha(322);
      } while(strchr ( "Nn" , *Resposta ) != NULL);

   CalculaCVteorico();
   CalculaVVMteorico();
   CalculaFLUXteorico();
   DadosPacienteOk = TRUE;
   if (novopaciente)
      {
      *ApontEspirometria = NULL;
      *ApontVVM          = NULL;
      ApontFluxPreBD    = NULL;
      ApontFluxPosBD    = NULL;
      }


}        /* DadosPaciente */
Exemplo n.º 2
0
void DadosPaciente()
   {
   char                  Resposta[2];
   char                        t[46];
   char                        *p_ch;
   int            li, co, li_1, co_1,
		  li_2, co_2, cor;


   t[0] = NULL;

   if (Primpac && !DadosPacienteOk)
      {
      novopac = TRUE;
      Primpac = FALSE;
      }
   else     novopac = NovoPaciente();

   AmbientePaciente();

   setcolor (bea_color[15]);

   getviewsettings ( &vp );

   do {
      /* ============ ENTRADA DO NOME DO PACIENTE ============== */
      do {
	 strcpy( t, Paciente.Nome );

	 LEITURA(  'c',
		   textwidth("NOME: ") + DELTA_X ( 5), DELTA_Y ( 5),
		   Paciente.Nome, 45, 0L, 0L  );

	 if (Paciente.Nome[0] == ESC)
	    {
	    if (novopac)
	       {  /* Se ja tinha pac mas queria inserir outro */
	       zeraPaciente();
	       novopac=FALSE;
	       Primpac=TRUE;
	       }
	    else
	       {
	       strcpy(Paciente.Nome, t);
	       return;
	       } /* devolve nome original */
	    }
	 } while (*Paciente.Nome == NULL);



      do {
	 /* ========= ENTRADA DO No PRONTUARIO DO PACIENTE ============== */
	 strcpy( t, Paciente.Prontuario );

	 LEITURA(  'n',
		   textwidth("No DO PRONTUARIO: ") + DELTA_X (5), DELTA_Y (10),
		   Paciente.Prontuario, 7, 0L, MAXLONG );

	 if (Paciente.Prontuario[0] == ESC)
	    {
	    if (novopac)
	       { /* Se ja tinha pac mas queria inserir outro */
	       zeraPaciente();
	       novopac=FALSE;
	       Primpac=TRUE;
	       }
	    else
	       {
	       strcpy(Paciente.Prontuario, t);
	       return;
	       } /* devolve nome original */
	    }

	 LEITURA(  'n',
		   textwidth("No DO PRONTUARIO: 1234567 ") +
		   DELTA_X ( 5), DELTA_Y (10),
		   digito, 1, 0L, 9L);

	 if (digito[0] == ESC)
	    {
	    if (novopac)
	       {      /* Se ja tinha pac mas queria inserir outro */
	       zeraPaciente();
	       novopac=FALSE;
	       Primpac=TRUE;
	       }
	    else
	       {
	       strcpy(Paciente.Prontuario, t);
	       return;
	       } /* devolve nome original */
	    }

	 strcat(Paciente.Prontuario,digito);

	 } while (*Paciente.Prontuario == NULL);

      /* ========= ENTRADA DO SEXO DO PACIENTE ============== */
      strcpy( t, Paciente.Sexo );
      co  = textwidth("SEXO: ") + DELTA_X ( 5);
      li  = DELTA_Y (15);

      do {
	 LEITURA(  'c',
		   co,
		   li,
		   Paciente.Sexo,1,0L,0L);

	 if (Paciente.Sexo[0] == ESC)
	    {
	    if (novopac)
	       { /* Se ja tinha pac mas queria inserir outro */
	       zeraPaciente();
	       novopac=FALSE;
	       Primpac=TRUE;
	       }
	    else
	       {
	       strcpy(Paciente.Sexo,t);
	       return; /* devolve nome original */
	       }
	    }

	 ApagaWord(co, li, 8);

	 } while ( (Paciente.Sexo[0] != 'M') &&
		   (Paciente.Sexo[0] != 'F')    );

      if ( Paciente.Sexo[0] != 'M' )  outtextxy(co, li, " Feminino" );
      else                            outtextxy(co, li, "Masculino");


      /* ========= ENTRADA DA DATA DE NASCIMENTO ================ */
      strcpy( t, Paciente.Dia );
      co  = textwidth("DATA DE NASCIMENTO: ") + DELTA_X ( 5);
      li  = DELTA_Y (20);
      do {
	 LEITURA(  'n',
		   co,
		   li,
		   Paciente.Dia, 2, 1L, 31L);

	 if (Paciente.Dia[0] == ESC)
	    {
	    if (novopac)
	       { /* Se ja tinha pac mas queria inserir outro */
	       zeraPaciente();
	       novopac = FALSE;
	       Primpac = TRUE;
	       }
	    else
	       {
	       strcpy(Paciente.Dia,t);
	       return;
	       } /* devolve nome original */
	    }
	 } while (Paciente.Dia == NULL);

      chama( Paciente.Dia, co, li );


      co += textwidth("00/");
      strcpy( t, Paciente.Mes );
      do {
	 LEITURA(  'n',
		   co,
		   li,
		   Paciente.Mes,2,1L,12L);

	 if (Paciente.Mes[0]==ESC)
	    {
	    if (novopac)
	       { /* Se ja tinha pac mas queria inserir outro */
	       zeraPaciente();
	       novopac=FALSE;
	       Primpac=TRUE;
	       }
	    else
	       {
	       strcpy( Paciente.Mes, t );
	       return;
	       } /* devolve nome original */
	    }
	  } while (Paciente.Mes==NULL);

      chama(Paciente.Mes, co, li);


      co += textwidth("00/");
      strcpy(t,Paciente.Ano);
      do {
	 LEITURA(  'n',
		   co,
		   li,
		   Paciente.Ano,2,1L,99L);

	 if (Paciente.Ano[0]==ESC)
	    {
	    if (novopac)
	       { /* Se ja tinha pac mas queria inserir outro */
	       zeraPaciente();
	       novopac=FALSE;
	       Primpac=TRUE;
	       }
	    else
	       {
	       strcpy(Paciente.Ano,t);
	       return;
	       } /* devolve nome original */
	    }

	 chama(Paciente.Ano, co, li);

	 CalculaIdade();

	 ApagaWord( DELTA_X (50) + textwidth("IDADE: "), li, 2  );

	 gprintf  ( DELTA_X (50) + textwidth("IDADE: "), li, "%2s", PacienteIdade);

	 } while ( (atoi(PacienteIdade) <  5) ||
		   (atoi(PacienteIdade) > 90)    );


	co  = textwidth("ADULTO ou CRIANCA ? (A/C): ") + DELTA_X ( 5);
	li  = DELTA_Y (25);
	if ( (atoi(PacienteIdade) < 17) && (atoi(PacienteIdade) > 14) )
	   {
	   do{

	     LEITURA(  'c',
		       co,
		       li,
		       Paciente.Fase,1,0L,0L);

	     } while ( (Paciente.Fase[0] != 'A') &&
		       (Paciente.Fase[0] != 'C')    );


	   ApagaWord( co, li, 7 );
	   if (pertence(Paciente.Fase[0],"Aa" ))
	     {
	     outtextxy( co, li, " Adulto");
	     }
	   else
	     {
	     outtextxy( co, li, "Crianca");
	     }
	   }
	else
	   {
	   if (atoi(PacienteIdade) <= 14)   *Paciente.Fase='C';
	   else                             *Paciente.Fase='A';

	   ApagaWord( co, li, 7 );

	   if (Paciente.Fase[0] == 'A') gprintf( co, li, " Adulto");
	   else  	                gprintf( co, li, "Crianca");
	   }

	/* ========= ENTRADA DA ALTURA  =============== */

	co_1 = co;
	li_1 = li;

	co  = textwidth("ALTURA (cm): ") + DELTA_X ( 5);
	li  = DELTA_Y (30);
	LEITURA('n', co, li, Paciente.Altura, 3, 110L, 210L);

	if (Paciente.Altura[0] == ESC)
	  {
	  if (novopac)
	     { /* Se ja tinha pac mas queria inserir outro */
	     zeraPaciente();
	     novopac=FALSE;
	     Primpac=TRUE;
	     }
	  else
	     {
	     strcpy(Paciente.Altura,t);
	     return;
	     } /* devolve nome original */
	  }

	if (atoi(Paciente.Altura) > 170)
	   {
	   *Paciente.Fase='A';
	   ApagaWord(co_1, li_1, 7);
	   gprintf(co_1, li_1, " Adulto");
	   }

	/* ========= ENTRADA DO PESO  =============== */

	co  = textwidth("PESO (Kg): ") + DELTA_X ( 5);
	li  = DELTA_Y (35);

	LEITURA('n',co, li, Paciente.Peso, 3, 16L, 150L);
	if (Paciente.Peso[0] == ESC)
	   {
	   if (novopac)
	      {      /* Se ja tinha pac mas queria inserir outro */
	      zeraPaciente();
	      novopac = FALSE;
	      Primpac = TRUE;
	      }
	   else {
		strcpy(Paciente.Peso,t);
		return;
		} /* devolve nome original */
	   }

	CalculaSupCorporea();

	co_1 = DELTA_X (50) + textwidth("SUPERFICIE CORPORAL: ");


	ApagaWord( co_1, li, 5);


	gprintf(co_1, li, "%-5.2f", SupCorp);



	/* ========= ENTRADA DE SE FUMANTE =============== */

	co  = textwidth("FUMANTE ? (S/N/E): ") + DELTA_X ( 5);
	li  = DELTA_Y (40);

	if ( test(  'c',co, li, Paciente.Fumante , 1, 0L, 0L));
	else return;


	co   = DELTA_X (50);
	li   = DELTA_Y (40);
	li_1 = DELTA_Y (43);
	li_2 = DELTA_Y (46);


	ApagaWord( co,   li, 38 );
	ApagaWord( co, li_1, 25 );
	ApagaWord( co, li_2, 25 );

	if      (pertence(Paciente.Fumante[0],"Ss"))
	   {
	   co   = DELTA_X (50) + textwidth("HA QUANTOS ANOS ? : ");
	   co_1 = DELTA_X (50) + textwidth("No CIGARROS/DIA   : ");
	   co_2 = DELTA_X (50);

	   cor  =  getcolor();
	   setcolor( bea_color[14] );
	   gprintf(co_2, li  ,"HA QUANTOS ANOS ? : ");
	   gprintf(co_2, li_1,"No CIGARROS/DIA   : ");

	   setcolor(cor);

	   gprintf(co  , li  ,"%s", Paciente.tempfumo);
	   gprintf(co_1, li_1,"%s", Paciente.cigardia);


	   LEITURA('n',co  , li  , Paciente.tempfumo, 2, 1L, 99L);
	   LEITURA('n',co_1, li_1, Paciente.cigardia, 2, 1L, 99L);
	   }
	else if (pertence(Paciente.Fumante[0],"Ee"))
	   {
	   cor  =  getcolor();
	   setcolor( bea_color[14] );
	   gprintf(co, li  , "HA QUANTO TEMPO PAROU ? : ""    ANOS ");
	   gprintf(co, li_1, "QUANTOS ANOS FUMOU ? :   ");
	   gprintf(co, li_2, "No CIGARROS/DIA :   ");

	   setcolor(cor);

	   co   = DELTA_X (50) + textwidth("HA QUANTO TEMPO PAROU ? : ");
	   co_1 = DELTA_X (50) + textwidth("QUANTOS ANOS FUMOU ? : ");
	   co_2 = DELTA_X (50) + textwidth("No CIGARROS/DIA : ");

	   gprintf(co  , li  , "%s", Paciente.deixfumoA );
	   gprintf(co_1, li_1, "%s", Paciente.tempfumo );
	   gprintf(co_2, li_2, "%s", Paciente.cigardia );

	   LEITURA('n', co  , li  , Paciente.deixfumoA, 2, 1L, 99L);
	   LEITURA('n', co_1, li_1, Paciente.tempfumo , 2, 1L, 99L);
	   LEITURA('n', co_2, li_2, Paciente.cigardia , 2, 1L, 99L);
	   }




	/* ========= ENTRADA DOS DADOS RESTANTES ========= */


	p_ch = "TOSSE OU EXPECTORACAO (S/N): ";
	co   = DELTA_X ( 5) + textwidth (p_ch);
	li   = DELTA_Y (45);
	do
	   LeituraC( co, li, TosseOuExpec, "SsNn" );
	while (*TosseOuExpec == '\0');

	p_ch = "CONVENIO: ";
	co   = DELTA_X ( 5) + textwidth (p_ch);
	li   = DELTA_Y (50);
	Leitura  ( co, li, institu, 45  );

	p_ch = "PACIENTE INTERNO OU AMBULATORIAL ? (I/A): ";
	LeituraC ( DELTA_X ( 5) + textwidth (p_ch), DELTA_Y (55), IouA, "IiAa" );

	p_ch = "JUSTIFICATIVA PARA O EXAME: ";
	co   = DELTA_X ( 5) + textwidth (p_ch);
	li   = DELTA_Y (60);
	Leitura  ( co, li, justif, 32);

	p_ch = "MEDICO REQUISITANTE: ";
	co   = DELTA_X ( 5) + textwidth (p_ch);
	li   = DELTA_Y (65);
	Leitura( co, li, medico, 38  );

	p_ch = "SERVICO REQUISITANTE: ";
	co   = DELTA_X ( 5) + textwidth (p_ch);
	li   = DELTA_Y (70);
	Leitura( co, li, servico, 38  );

	p_ch = "PACIENTE COM ALGUM DIAGNOSTICO DE DOENCA PULMONAR ? (S/N): ";
	LeituraC( DELTA_X ( 5) + textwidth (p_ch), DELTA_Y (75), temdiag, "SsNn" );


	if (pertence(temdiag[0], "Ss" ))
	   {
	   cor = getcolor();
	   setcolor(bea_color[14]);

	   p_ch = "DIAGNOSTICO: ";
	   gprintf( DELTA_X ( 5), DELTA_Y (80), p_ch );

	   setcolor(cor);

	   Leitura( DELTA_X ( 5) + textwidth (p_ch), DELTA_Y (80), diagnost, 30 );

	   }
	 else
	   {
	   ApagaWord( DELTA_X ( 5), DELTA_Y (80), 45 );
	   }

	cor = getcolor();
	setcolor(bea_color[14]);
	p_ch = "CIRURGIA PREVISTA - ESTIMATIVA DO RISCO CIRURGICO ? (S/N): ";
	gprintf( DELTA_X ( 5), DELTA_Y (85), p_ch );
	setcolor(cor);
	LeituraC( DELTA_X ( 5) + textwidth (p_ch), DELTA_Y (85), RiscoCir, "SsNn" );

	if ( (RiscoCir[0] == 'N') || (RiscoCir[0] == 'n') ) *RiscoCir = NULL;

	if ( *RiscoCir != NULL )
	   {
	   cor = getcolor();
	   setcolor (bea_color[14]);

	   p_ch = "CIRURGIA: (1 - ABDOMINAL ALTA  2 - TORACICA  3 - OUTRA): ";
	   gprintf( DELTA_X ( 5), DELTA_Y (90), p_ch );
	   setcolor (cor);
	   LeituraC( DELTA_X ( 5) + textwidth (p_ch), DELTA_Y (90), RiscoCir, "123" );
	   }
	else
	   {
	   ApagaWord( DELTA_X ( 5), DELTA_Y (90), 75 );

	   ApagaWord( DELTA_X ( 5), DELTA_Y (95), 18 );

	   }

	Resposta[0] = 'S';
	Resposta[1] = NULL;

	cor = getcolor();
	setcolor (bea_color[12]);

	p_ch = "Dados Corretos ? (S/N) ";
	co   = DELTA_X(50) - (textwidth(p_ch))/2;
	co_1 = DELTA_X(50) + (textwidth(p_ch))/2;
	li   = DELTA_Y(95);


	outtextxy( co, li, p_ch );

	setcolor (cor);

	LeituraC( co_1, li, Resposta, "SsNn");

	ApagaWord( co, li, 25 );


      } while ( pertence(*Resposta,"Nn") );



   CalculaCVteorico();

   CalculaVVMteorico();

   CalculaFLUXteorico();

   DadosPacienteOk = TRUE;

   if (novopac)      ZeraProvas();

   } /* End of DadosPaciente() */
Exemplo n.º 3
0
int main()
//int main (int argc, char *argv[])
{

    int var = 0, variancia = 0, contador=4, soma, PP, LT=2;
    double media, estoque_minimo, desvio_padrao, ponto_ressuprimento;
    FILE *fp, *arquivo, *mestre;
    LISTA lista;

    /*if(argc!=5)
    {
    printf("Falta um arquivo. \n");
    exit(1);
    }*/

    fp = fopen("Relatorio.txt","w");
    printf("oi1");
    fprintf(fp, "%s", __DATE__);
    fprintf(fp, "%s", "O período de referência utlizado foi 1.");
    printf("oi2");
    mestre = fopen("Arquivo_Mestre1", "r");
    printf("oi3");
    Leitura (mestre, lista);
    printf("oi");
    soma = Retorna_soma_e_contador (lista );
    printf("oi");
    media = Calculando_a_media (lista, soma, contador);
    printf("oi");
    desvio_padrao = Calculando_o_desvio_padrao (lista, media, contador);
    printf("oi");
    estoque_minimo = Estoque_minimo (desvio_padrao, LT);
    printf("oi");
    ponto_ressuprimento = Ponto_de_ressuprimento(media, LT, estoque_minimo);

    fprintf (fp, "%d", lista.cdg);
    fprintf (fp, "%s", lista.desc);
    fprintf (fp, "%d", lista.ext);
    fprintf (fp, "%d", lista.pdd);
    fprintf(fp, "%d", estoque_minimo);
    if (estoque_minimo > ponto_ressuprimento)
    {
        fprintf(fp, "%s", "Nao renovar estoque!");
    }
    else
    {
        fprintf(fp, "%s", "Renovar estoque!");
    }

    mestre = fopen("Arquivo_Mestre2", "r");
    Leitura (mestre, lista);
    int	soma2 = Retorna_soma_e_contador (lista);
    int media2 = Calculando_a_media (lista, soma, contador);
    int desvio_padrao2 = Calculando_o_desvio_padrao (lista, media, contador);
    int estoque_minimo2 = Estoque_minimo (desvio_padrao, LT);
    int ponto_ressuprimento2 = Ponto_de_ressuprimento(media, LT, estoque_minimo);

    fprintf (fp, "%d", lista.cdg);
    fprintf (fp, "%s", lista.desc);
    fprintf (fp, "%d", lista.ext);
    fprintf (fp, "%d", lista.pdd);
    fprintf(fp, "%d", estoque_minimo2);
    if (estoque_minimo2 > ponto_ressuprimento2)
    {
        fprintf(fp, "%s", "Não renovar estoque!");
    }
    else
    {
        fprintf(fp, "%s", "Renovar estoque!");
    }

    mestre = fopen("Arquivo_Mestre3", "r");
    Leitura (mestre, lista);
    int soma3 = Retorna_soma_e_contador (lista);
    int media3 = Calculando_a_media (lista, soma, contador);
    int desvio_padrao3 = Calculando_o_desvio_padrao (lista, media, contador);
    int estoque_minimo3 = Estoque_minimo (desvio_padrao, LT);
    int ponto_ressuprimento3 = Ponto_de_ressuprimento(media, LT, estoque_minimo);

    fprintf (fp, "%s", lista.cdg);
    fprintf (fp, "%s", lista.desc);
    fprintf (fp, "%d", lista.ext);
    fprintf (fp, "%d", lista.pdd);
    fprintf(fp, "%d", estoque_minimo3);
    if (estoque_minimo3 > ponto_ressuprimento3)
    {
        fprintf(fp, "%s","Não renovar estoque!");
    }
    else
    {
        fprintf(fp, "%s", "Renovar estoque!");
    }

    mestre = fopen("Arquivo_Mestre4", "r");
    Leitura (mestre, lista);
    int	soma4 = Retorna_soma_e_contador (lista);
    int media4 = Calculando_a_media (lista, soma, contador);
    int desvio_padrao4 = Calculando_o_desvio_padrao (lista, media, contador);
    int estoque_minimo4 = Estoque_minimo (desvio_padrao, LT);
    int ponto_ressuprimento4 = Ponto_de_ressuprimento(media, LT, estoque_minimo);

    fprintf (fp, "%s", lista.cdg);
    fprintf (fp, "%s", lista.desc);
    fprintf (fp, "%d", lista.ext);
    fprintf (fp, "%d", lista.pdd);
    fprintf(fp, "%d", estoque_minimo4);
    if (estoque_minimo4 > ponto_ressuprimento4)
    {
        fprintf(fp, "%s", "Não renovar estoque!");
    }
    else
    {
        fprintf(fp, "%s", "Renovar estoque!");
    }

}