Fecha y hora actual: Jueves 19 Jul 2018 15:49
Índice del Foro

Foros de programación informática, diseño gráfico y Web

En esta comunidad intentaremos dar soporte de programación a todos los niveles, desde principiantes a profesionales de la informática, desarrollo de programas, programación web y mucho más.

Ayuda para resolver este problema de pseudocodigo

Responder al Tema

Índice del Foro > Pseudocódigo o notación pseudocodificada > Ayuda para resolver este problema de pseudocodigo

Autor Mensaje
joel1777



Registrado: 02 Ago 2014
Mensajes: 2

Mensaje Publicado: Sábado 02 Ago 2014 23:20

Título del mensaje: Ayuda para resolver este problema de pseudocodigo

Responder citando

Hola a todos soy nuevo en el foro y les pido por favor a ustedes que saben mas que yo que me ayuden a resolver este problemita en pascal o Pseint

Dice asi el problemita

<<Imprimir las letras de una frase de una forma alternativa, una de la parte final y la siguiente de la inicial, hasta recorrer todos los caracteres de la misma.>>

Saludos!
Ordenador

Volver arriba
Ver perfil del usuario Enviar mensaje privado
joel1777



Registrado: 02 Ago 2014
Mensajes: 2

Mensaje Publicado: Domingo 03 Ago 2014 01:57

Título del mensaje: Ayuda para resolver este problema de pseudocodigo

Responder citando

Queria avisar nomas que ya consegui resolver... Gracias de todos modos.

Saludos!

Aqui el algol que consegui hacer para solucionar el planteamiento...

program Ejercicio_5;
uses Crt;

{ Problema : Imprimir las letras de una frase de una forma alternativa, una
//de la parte final y la siguiente de la inicial, hasta recorrer todos los
//caracteres de la misma.
}

var
palabra,palabra_invertida:string;
letra:char;
cant_limite,total_caract,contador,sw,k,j:integer;

begin
clrscr;

{Entrada}
////////////////////////////////////////////
writeln ('Ingrese la palabra');
readln (palabra);
////////////////////////////////////////////



{Proceso}
//////////////////////////////////////////////////////////////////////////////////
total_caract:=length(palabra);
cant_limite:=total_caract;
sw:=1;
contador:=1;

repeat

if sw = 1 then
begin
letra:=palabra[contador];
palabra_invertida:=palabra_invertida+letra;
contador:=contador+1;
sw:=0;
end

else
begin
letra:=palabra[total_caract];
palabra_invertida:=palabra_invertida+letra;
total_caract:=total_caract-1;
sw:=1;
end;
j:=j+1

until j = cant_limite;
//////////////////////////////////////////////////////////////////////////////////




{Salida}
//////////////////////////////////////////////////////////////////////////////////
writeln ('------------------');
writeln ('Resultado:',palabra_invertida); //////////////////////////////////////////////////////////////////////////////////

readkey;
end.

Implementado en Free Pascal 2.6.0

Aplauso

Volver arriba
Ver perfil del usuario Enviar mensaje privado
Tesis
Administrador


Registrado: 04 Mar 2007
Mensajes: 3175
Ubicación: Valencia - España

Mensaje Publicado: Lunes 04 Ago 2014 08:45

Título del mensaje: Ayuda para resolver este problema de pseudocodigo

Responder citando

Gracias por compartir la solución Super


Normas del foro
Aprende a postear correctamente usando las etiquetas
Volver arriba
Ver perfil del usuario Enviar mensaje privado
Eliza



Registrado: 15 Jul 2016
Mensajes: 2
Ubicación: San Lorenzo - Paraguay

Mensaje Publicado: Viernes 15 Jul 2016 20:45

Título del mensaje: Ayuda para resolver este problema de pseudocodigo

Responder citando

joel1777 escribió:
Queria avisar nomas que ya consegui resolver... Gracias de todos modos.

Saludos!

Aqui el algol que consegui hacer para solucionar el planteamiento...

program Ejercicio_5;
uses Crt;

{ Problema : Imprimir las letras de una frase de una forma alternativa, una
//de la parte final y la siguiente de la inicial, hasta recorrer todos los
//caracteres de la misma.
}

var
palabra,palabra_invertida:string;
letra:char;
cant_limite,total_caract,contador,sw,k,j:integer;

begin
clrscr;

{Entrada}
////////////////////////////////////////////
writeln ('Ingrese la palabra');
readln (palabra);
////////////////////////////////////////////



{Proceso}
//////////////////////////////////////////////////////////////////////////////////
total_caract:=length(palabra);
cant_limite:=total_caract;
sw:=1;
contador:=1;

repeat

if sw = 1 then
begin
letra:=palabra[contador];
palabra_invertida:=palabra_invertida+letra;
contador:=contador+1;
sw:=0;
end

else
begin
letra:=palabra[total_caract];
palabra_invertida:=palabra_invertida+letra;
total_caract:=total_caract-1;
sw:=1;
end;
j:=j+1

until j = cant_limite;
//////////////////////////////////////////////////////////////////////////////////




{Salida}
//////////////////////////////////////////////////////////////////////////////////
writeln ('------------------');
writeln ('Resultado:',palabra_invertida); //////////////////////////////////////////////////////////////////////////////////

readkey;
end.

Implementado en Free Pascal 2.6.0

Aplauso




......................................................................................................................

Me podrias traducir esto en PseInt por favor Ordenador Risa tonta Ruborizado Ruborizado Ruborizado Ruborizado

Volver arriba
Ver perfil del usuario Enviar mensaje privado
Responder al Tema
Mostrar mensajes anteriores:   
Ir a:  
Todas las horas están en GMT + 2 Horas

Temas relacionados

Tema Autor Foros Respuestas Publicado
El foro no contiene ningún mensaje nuevo

Buscamos Ingeniero de Software para Barcelona

AndresCG Bolsa de trabajo 0 Miércoles 18 Jul 2018 10:14 Ver último mensaje
El foro no contiene ningún mensaje nuevo

Ayuda con TestNG Parametrico en java netbeans

baltigo Java 0 Sábado 30 Jun 2018 01:37 Ver último mensaje
El foro no contiene ningún mensaje nuevo

Solicito programadores para mi proyecto

alexpin Bolsa de trabajo 0 Miércoles 23 May 2018 22:53 Ver último mensaje
El foro no contiene ningún mensaje nuevo

AYUDA: COMO RECONECTO VB6 A MYSQL SIN PERDER LA...

rjaguin Visual Basic y VBA 0 Miércoles 09 May 2018 22:27 Ver último mensaje
El foro no contiene ningún mensaje nuevo

Problema con el archivo .htaccess

P3p3 Temas generales 3 Domingo 18 Feb 2018 23:35 Ver último mensaje
Panel de Control
No puede crear mensajes, No puede responder temas, No puede editar sus mensajes, No puede borrar sus mensajes, No puede votar en encuestas,