Ver Mensaje Individual
  #1 (permalink)  
Antiguo 08/05/2013, 20:22
Avatar de andre18agf
andre18agf
 
Fecha de Ingreso: mayo-2007
Mensajes: 13
Antigüedad: 17 años
Puntos: 0
Traducir de pascal a C

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