Fecha y hora actual: Domingo 20 Ago 2017 20:12
Í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: 3151
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

Necesito Ayuda Urgente C#

Alain ASP, ASP.NET 1 Miércoles 14 Jun 2017 12:31 Ver último mensaje
El foro no contiene ningún mensaje nuevo

Necesito Ayuda Urgente C#

Alain C, C#, Visual C++ 0 Martes 13 Jun 2017 19:58 Ver último mensaje
El foro no contiene ningún mensaje nuevo

Busco Programador C++ para Base de Datos y/o di...

RmBeer Bolsa de trabajo 0 Lunes 12 Jun 2017 23:24 Ver último mensaje
El foro no contiene ningún mensaje nuevo

Un código para traducir en varios idiomas [jav...

P3p3 JavaScript 2 Lunes 12 Jun 2017 21:59 Ver último mensaje
El foro no contiene ningún mensaje nuevo

Evento youtube javascript para galeria de video...

Adum JavaScript 7 Sábado 20 May 2017 04:36 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,