Ayuda, necesito pasar de PseInt a C++.
Publicado por f (1 intervención) el 16/05/2023 07:02:54
Proceso Calcular_letras_de_un_poema
//Definir variables.
definir carrera como caracter;
definir i, n como entero;
definir cant como entero;
definir nombre, p como caracter;
//Presentación.
escribir "";
escribir "PROGRAMA PARA CALCULAR LA CANTIDAD DE LETRAS DE UN POEMA";
escribir "";
//Ingresar datos.
escribir "Ingrese su carrera";
leer carrera;
escribir "Ingrese el numero de integrantes";
leer cant;
//Bucle para ingresar nombre.
dimension nombre[cant];
Para i <- 1 Hasta cant Hacer
escribir "Ingrese su nombre completo";
leer nombre[i];
Fin Para
//Mostrar datos de los participantes.
escribir "";
escribir "CARRERA: ", carrera;
escribir "INTEGRANTES:";
para i<- 1 hasta cant Hacer
escribir " ",i, "). ", nombre[i], ".";
FinPara
//Poema.
//Definimos variables.
definir txt, letras como caracter;
definir total como entero;
//Ingresar el poema.
escribir "Escriba un poema:";
leer txt;
//Contar letras.
para i <- 1 hasta longitud(txt) con paso 1 hacer
letras = subcadena(txt, i, i);
si letras <> ' ' entonces
total = total + 1;
FinSi
FinPara
//Mostrar cantidad.
escribir "";
escribir "El total de letras en el poema dado es de: ", total;
FinProceso
//Definir variables.
definir carrera como caracter;
definir i, n como entero;
definir cant como entero;
definir nombre, p como caracter;
//Presentación.
escribir "";
escribir "PROGRAMA PARA CALCULAR LA CANTIDAD DE LETRAS DE UN POEMA";
escribir "";
//Ingresar datos.
escribir "Ingrese su carrera";
leer carrera;
escribir "Ingrese el numero de integrantes";
leer cant;
//Bucle para ingresar nombre.
dimension nombre[cant];
Para i <- 1 Hasta cant Hacer
escribir "Ingrese su nombre completo";
leer nombre[i];
Fin Para
//Mostrar datos de los participantes.
escribir "";
escribir "CARRERA: ", carrera;
escribir "INTEGRANTES:";
para i<- 1 hasta cant Hacer
escribir " ",i, "). ", nombre[i], ".";
FinPara
//Poema.
//Definimos variables.
definir txt, letras como caracter;
definir total como entero;
//Ingresar el poema.
escribir "Escriba un poema:";
leer txt;
//Contar letras.
para i <- 1 hasta longitud(txt) con paso 1 hacer
letras = subcadena(txt, i, i);
si letras <> ' ' entonces
total = total + 1;
FinSi
FinPara
//Mostrar cantidad.
escribir "";
escribir "El total de letras en el poema dado es de: ", total;
FinProceso
Valora esta pregunta
0