C/Visual C - Traducir un codigo de pascal a c

   
Vista:

Traducir un codigo de pascal a c

Publicado por Andrea Guevara (1 intervención) el 04/05/2013 19:19:59
Buenas amigos, yo aqui me inicie como programador y 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.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder