Fecha y hora actual: Miércoles 26 Sep 2018 04:35
Í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: 3179
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

Tutorial Python Rápido para Principiantes

Errodringer Python 0 Viernes 14 Sep 2018 19:38 Ver último mensaje
El foro no contiene ningún mensaje nuevo

Consulta sobre un tipo de PLUGIN para insertar ...

Federico Jose Temas generales 1 Sábado 08 Sep 2018 18:57 Ver último mensaje
El foro no contiene ningún mensaje nuevo

Resolver elementos de páginas web en ventana de...

desparche Python 0 Jueves 06 Sep 2018 02:07 Ver último mensaje
El foro no contiene ningún mensaje nuevo

ayuda ayuda para este codigo que me sale error ...

DiegoBV C, C#, Visual C++ 0 Jueves 02 Ago 2018 23:52 Ver último mensaje
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
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,