Fecha y hora actual: Domingo 30 Abr 2017 04:15
Í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 22: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 00: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: 3143
Ubicación: Valencia - España

Mensaje Publicado: Lunes 04 Ago 2014 07: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 19: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 + 1 Hora

Temas relacionados

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

Comprar una Tablet o Smarphone para probar apli...

Victor Carvajal Programación para dispositivos móviles 1 Jueves 20 Abr 2017 22:24 Ver último mensaje
El foro no contiene ningún mensaje nuevo

AYUDA CON UNA FUNCION EN C

Axel Espinosa C, C#, Visual C++ 1 Miércoles 19 Abr 2017 19:48 Ver último mensaje
El foro no contiene ningún mensaje nuevo

Busco personas para un proyecto de Facebook

Andres Gonzales Bolsa de trabajo 0 Domingo 19 Mar 2017 21:35 Ver último mensaje
El foro no contiene ningún mensaje nuevo

Valorar aplicación web para venderla

domper Programación Web en general 0 Jueves 16 Mar 2017 00:13 Ver último mensaje
El foro no contiene ningún mensaje nuevo

Necesito ayuda para un proyecto final.

Goth90 Programación en general 0 Jueves 23 Feb 2017 21:22 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,