Traducir de pascal a C

[ecfisa]

Hola.

Dado que C y C++ no cuentan con un tipo de datos para trabajar conjuntos como el Set de Pascal, creo que es mas sencillo tratar de entender la lógica del código e implementarla en C o C++.

Código C:

#include <stdio.h>
 
#define ESVOCAL(x) (x)=='A'||(x)=='E'||(x)=='I'||(x)=='O'||(x)=='U'||(x)=='a'||(x)=='e'||(x)=='i'||(x)=='o'||(x)=='u'
#define TAM 10
#define FALSE 0
#define TRUE  1
 
typedef char vecchar[10];
 
int todasvocales(int N, vecchar v)
{
  int i=0, r = TRUE;
  for(i=0; i<N ;i++)
    r = ESVOCAL(v[i]);
  return r;
}
 
int cuentavocales(int N, vecchar v)
{
  int i,r=0;
  for(i=0; i<N ;i++) r += ESVOCAL(v[i]);
  return r;
}
 
int main()
{
  vecchar v;
  int i;
  for(i=0; i<TAM; i++){
    printf("Inserte el caracter %d de %d de la lista L: ",i+1,TAM);
    v[i] = getchar();
    while(getchar()!='\n');
  }
/*--------
  r := todasVocales(tam, A);
  writeln(r);
  ---------
  Supongo que estas líneas se encargarían de mostrar si se
  ingresaron todas vocales..., mismo efecto en C:
*/
  if (todasvocales(TAM, v))
   printf("TRUE\n");
  else
   printf("FALSE\n");
 
  printf("%d\n",cuentavocales(TAM, v));
  printf("Con %d de %d posibles",cuentavocales(TAM,v),TAM);
  getch();
  return 0;
}
 

Saludos