Traducir de pascal a C

[andre18agf]

Buenas amigos, yo en pascal ya estoy excelente, he comenzado con C, pero aun estoy de novata por asi decirlo, este codigo lo debo pasar a C++, espero me puedan ayudar.

program Conjuntos;
type Letras = set of char;
const Vocales : Letras = ['A','E','I','O','U','a','e','i','o','u'];

const tam = 10;
type Arreglo = array[1..tam] of char;

var
A : Arreglo;
r : boolean;
k, c : integer;

function todasVocales (N : integer; var L : Arreglo) : boolean;
var i : integer;
begin
i := 1;
while ((i <= N) and (L[i] in Vocales)) do
i := i + 1;
todasVocales := i > N;
end;

function cuentaVocales (N : integer; var L : Arreglo) : integer;
var i, c : integer;
begin
c := 0;
for i := 1 to N do
if (L[i] in Vocales) then
c := c + 1;
cuentaVocales := c;
end;

begin
for k := 1 to tam do
begin
write('Inserte el caracter ', k, ' de ', tam, ' de la lista L: ');
readln(A[k]);
end;
r := todasVocales(tam, A);
writeln(r);
c := cuentaVocales(tam, A);
write('Con ', c, ' vocales de ', tam, ' posibles');
readln;
end.

Espero a ver que me puedan ayudar

[Malenko]

Exactamente que parte no sabes hacer en C/C++? Ya tienes claro de que lenguaje es el ejercicio? En algunos lados has puesto C y en otros C++ y son lenguajes parecidos pero no iguales.

[andre18agf]

Sé que esta en Pascal, pero debo pasarlo a C++, si se que son diferentes. Yo no sé como cambiarlo, la sintaxis de C me tiende a confundir mucho.

[carbon]

Te dijo que en algunos lados pusiste C y en otros C++, no hablaba de pascal.

Con respecto a tu tema, no tengo la menor idea de Pascal, pero a simple vista se pueden ver algunas cosas que se traducirían algo así:

Código C:

const int tam = 10;
int Arreglo[tam];
 

En ese caso el Arreglo va a ir de 0 a 9, y no de 1 a 9 (o 10) como, al parecer, especificaste en tu código de pascal.

Para las funciones write y readln, tenes las estándares de C, que son análogas a esas, printf y scanf, respectivamente.

La creación de una función es fácil:

Código C:

tipo_dato_retorno nombre_function (tipo_var1 var1, tipo_var2 var2) {
    /* ... */
}
 

Por lo que:

Código Pascal:

function todasVocales (N : integer; var L : Arreglo) : boolean;
 

Sería:

Código C:

#include <stdbool>
bool todasVocales(int N, Arreglo L)
 

Por cierto acabo de ver que al parecer "Arreglo" es un tipo de dato que vos creaste, que en C se hace con typedef.

Por lo que puedo ver diría que la palabra "in" en Pascal es para verificar si lo expresado en su izquierda se encuentra en la lista de la derecha, no? Bueno, si no me equivoco, en C vas a tener que ir item por item verificando. Por lo que:

Código Pascal:

if (L[i] in Vocales) then
 

Sería algo como esto:

Código C:

int j;
 
for (j = 0; j < sizeof(Vocales); j++)
{
    if (Vocales[j] == L[i]) {
        /* Tu código */
        break;
    }
}
 

Espero que te sirva de algo!

[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