Seguimos buscando a Arshak. Ayudanos compartiendo!
Encuesta no oficial de docentes
Resultados de la encuesta no oficial de docentes
Probaste el SIGA Helper?

Donar $100 Donar $200 Donar $500 Donar mensualmente


Enviar respuesta 
 
Calificación:
  • 0 votos - 0 Media
  • 1
  • 2
  • 3
  • 4
  • 5
Buscar en el tema
[Algoritmos] Consulta
Autor Mensaje
Diego Pedro Sin conexión
Secretario de la SAE
que calor no?
******

Ing. en Sistemas
Facultad Regional Buenos Aires

Mensajes: 631
Agradecimientos dados: 23
Agradecimientos: 105 en 48 posts
Registro en: May 2011
Mensaje: #1
[Algoritmos] Consulta Dudas y recomendaciones Algoritmos y Estructuras de Datos
Qué tal a todos? Tengo una duda con el siguiente ejercicio de algoritmos que no sé como encararlo. A ver, es fácil verlo e interpretarlo con un ejemplo, pero no puedo lograr plasmarlo.

El ejercicio es el siguiente:

Dada una serie de caracteres que conforman una oración, donde cada palabra está separada de la siguiente por un carácter blanco y la oración finaliza con un punto. Se pide informar:
1) cantidad de veces que apareció una vocal
2) cantidad de palabras que contiene la oración
3) cantidad de letras que posee la palabra más larga


Desde ya muchas gracias =)
03-05-2012 00:18
Envíale un email Encuentra todos sus mensajes Agregar agradecimiento Cita este mensaje en tu respuesta
Jess Sin conexión
Campeon del cubo Rubik
No sé qué estado poner (?)
****

Ing. en Sistemas
Facultad Regional Buenos Aires

Mensajes: 183
Agradecimientos dados: 42
Agradecimientos: 30 en 23 posts
Registro en: Oct 2011
Facebook Twitter
Mensaje: #2
RE: [Algoritmos] Consulta
Che, si querés te llevo mañana cómo lo hice yo a ver si te parece / inspira (?) JAJAJA

-Sálvala, sálvala -exclamó caído de rodillas, entrecruzando los dedos de las manos sobre el pecho, alzando suplicante la mirada, corriendo a chorros el llanto de sus ojos-, Dios, Dios mío, Dios eterno... sí, creo en ti, creo en todo, con tal de que me la salves!... Y Dios no se la salvó.
03-05-2012 00:36
Encuentra todos sus mensajes Agregar agradecimiento Cita este mensaje en tu respuesta
Diego Pedro Sin conexión
Secretario de la SAE
que calor no?
******

Ing. en Sistemas
Facultad Regional Buenos Aires

Mensajes: 631
Agradecimientos dados: 23
Agradecimientos: 105 en 48 posts
Registro en: May 2011
Mensaje: #3
RE: [Algoritmos] Consulta
Llevalo dale, porque no se si fue que mi chip hizo implosion con tantos algoritmos o que onda jajaja
03-05-2012 00:39
Envíale un email Encuentra todos sus mensajes Agregar agradecimiento Cita este mensaje en tu respuesta
Jess Sin conexión
Campeon del cubo Rubik
No sé qué estado poner (?)
****

Ing. en Sistemas
Facultad Regional Buenos Aires

Mensajes: 183
Agradecimientos dados: 42
Agradecimientos: 30 en 23 posts
Registro en: Oct 2011
Facebook Twitter
Mensaje: #4
RE: [Algoritmos] Consulta
Ya metí el cuaderno en la mochi, haceme acordar, no vaya a ser que me olvide e_e Los algoritmos te funden el cerebro, de eso no hay duda alguna (?) jaja =B

-Sálvala, sálvala -exclamó caído de rodillas, entrecruzando los dedos de las manos sobre el pecho, alzando suplicante la mirada, corriendo a chorros el llanto de sus ojos-, Dios, Dios mío, Dios eterno... sí, creo en ti, creo en todo, con tal de que me la salves!... Y Dios no se la salvó.
03-05-2012 00:42
Encuentra todos sus mensajes Agregar agradecimiento Cita este mensaje en tu respuesta
Diego Pedro Sin conexión
Secretario de la SAE
que calor no?
******

Ing. en Sistemas
Facultad Regional Buenos Aires

Mensajes: 631
Agradecimientos dados: 23
Agradecimientos: 105 en 48 posts
Registro en: May 2011
Mensaje: #5
RE: [Algoritmos] Consulta
Dale buenísimo, gracias jess =D, mañana te lo pido.

Igualmente si alguien quiere hacerlo para tener una segunda opinión al respecto, estaría bueno =)
03-05-2012 00:45
Envíale un email Encuentra todos sus mensajes Agregar agradecimiento Cita este mensaje en tu respuesta
nanuiit Ausente
♫ I'm Blue ...
... Da ba dee, da ba da ♫
**********

Ing. en Sistemas
Facultad Regional Buenos Aires

Mensajes: 8.871
Agradecimientos dados: 216
Agradecimientos: 626 en 210 posts
Registro en: Aug 2010
Mensaje: #6
RE: [Algoritmos] Consulta
No llego hasta medianoche hoy. Si lo tengo, te lo paso, y sino te lo pienso.
Te iba a preguntar si pensaste algo al respecto, pero tu duda es encararlo :/

ALGORITMOS

Apuntes: Mem. Dinámica - Mem. Estática - Proc. y Funciones || Guías: Módulos + 83 Ejercicios || Finales: 2004-2013


[Imagen: digitalizartransparent.png]

[Imagen: firmananiv2.png]
03-05-2012 09:27
Encuentra todos sus mensajes Agregar agradecimiento Cita este mensaje en tu respuesta
ntvgero Sin conexión
Profesor del Modulo A
Sin estado :(
*****

Ing. en Sistemas
Facultad Regional Buenos Aires

Mensajes: 219
Agradecimientos dados: 0
Agradecimientos: 0 en 0 posts
Registro en: Mar 2009
Mensaje: #7
RE: [Algoritmos] Consulta
hace un case con las 5 vocales, y metele un contador a cada una.

usa otro contador para contar los espacios en blanco " " , el espacio en blanco te delimita cada palabra, salvo la ultima que va con un punto (.) esa la tenes que sumar como una palabra mas.

usa un contador para los caracteres de una palabra hasta que aparezca un espacio y/o punto, asignalo al maximo, y resetea el contador, despues comparas el contador de cada palabra con el max y lo asignas si lo supera.
03-05-2012 17:04
Encuentra todos sus mensajes Agregar agradecimiento Cita este mensaje en tu respuesta
el pibe Sin conexión
Presidente del CEIT
Benderista
********

Ing. en Sistemas
Facultad Regional Buenos Aires

Mensajes: 1.235
Agradecimientos dados: 5
Agradecimientos: 115 en 32 posts
Registro en: May 2011
YouTube
Mensaje: #8
RE: [Algoritmos] Consulta
mmm

ese ejer es del modulo 1. lo tengo hecho en pascal. tirame el numero de ejercicio y te tiro el codigo (no pienso buscar ejer por ejer)

[Imagen: tolivi10.jpg]
2 Veces congresista por eArgentina
13 Veces congresista por eBolivia
1 Vez Emperador por eBolivia
Ex-Ministro de Salud eArgentino

[Imagen: Necromancer616.png]
03-05-2012 23:03
Encuentra todos sus mensajes Agregar agradecimiento Cita este mensaje en tu respuesta
Diego Pedro Sin conexión
Secretario de la SAE
que calor no?
******

Ing. en Sistemas
Facultad Regional Buenos Aires

Mensajes: 631
Agradecimientos dados: 23
Agradecimientos: 105 en 48 posts
Registro en: May 2011
Mensaje: #9
RE: [Algoritmos] Consulta
Es el ejercicio 27
03-05-2012 23:23
Envíale un email Encuentra todos sus mensajes Agregar agradecimiento Cita este mensaje en tu respuesta
H3rnst Sin conexión
Secretario de la SAE
Overlord
******

Ing. en Sistemas
Facultad Regional Buenos Aires

Mensajes: 644
Agradecimientos dados: 243
Agradecimientos: 112 en 49 posts
Registro en: Sep 2010
Mensaje: #10
RE: [Algoritmos] Consulta
Algo así muy por arriba....



CantidadDePalabras := 0;
CantidadDeVocalesTotal := 0;
CantidadDeLetrasPalabraActual := 0;
CantidadDeLetrasPalabraMaxima := 0;

Leer un caracter;
Si NO es el caracter punto (.)
{
Si NO es el caracter espacio ( )
{

Si es una vocal, entonces
CantidadDeVocalesTotal += 1;

CantidadDeLetrasDePalabraActual += 1;
}

Si ES el caracter espacio ( )
{
[b]CantidadDePalabras += 1;[/b]

Si (CantidadDeLetrasPalabraActual > CantidadDeLetrasPalabraMaxima), entonces
CantidadDeLetrasPalabraMaxima := CantidadDeLetrasPalabraActual;

CantidadDeLetrasPalabraActual := 0;
}

Leer otro caracter;
}


(Este mensaje fue modificado por última vez en: 03-05-2012 23:31 por H3rnst.)
03-05-2012 23:30
Encuentra todos sus mensajes Agregar agradecimiento Cita este mensaje en tu respuesta
el pibe Sin conexión
Presidente del CEIT
Benderista
********

Ing. en Sistemas
Facultad Regional Buenos Aires

Mensajes: 1.235
Agradecimientos dados: 5
Agradecimientos: 115 en 32 posts
Registro en: May 2011
YouTube
Mensaje: #11
RE: [Algoritmos] Consulta
Ahora si, es el ejercicio 31


type
ar=array [1..5] of integer;


procedure pro(pal:string[50];var a:ar;i:integer;var contle:integer;var contpal:integer;var max:integer);
begin

case pal[i] of
'a','A' : begin a[1]:=a[1]+1; end;
'e','E' : begin a[2]:=a[2]+1; end;
'i','I' : begin a[3]:=a[3]+1; end;
'o','O' : begin a[4]:=a[4]+1; end;
'u','U' : begin a[5]:=a[5]+1; end;
end;

contle:=contle+1;
if (pal[i]=' ') then begin
contpal:=contpal+1;
if (contle>max) then
max:=contle;

contle:=0;
end;

end;

procedure res(a:ar;max:integer;contpal:integer);
begin

writeln ('Hay ',a[1],' vocales a');
writeln ('Hay ',a[2],' vocales e');
writeln ('Hay ',a[3],' vocales i');
writeln ('Hay ',a[4],' vocales o');
writeln ('Hay ',a[5],' vocales u');
writeln('La palabra mas larga tiene ',max,' letras');
writeln ('Hay ',contpal,' palabras');

end;

var
pal:string[50];
a:ar;
contpal,i,contle,l,max:integer;

begin

contle:=0; max:=0; contpal:=1;
for i:= 1 to 5 do begin
a[i]:=0; //inicializa el array en 0
end;

write ('Ingrese una oracion: ');
readln(pal);

l:=length(pal);

for i:=1 to l do begin
pro(pal,a,i,contle,contpal,max); //procesa
end;

res(a,max,contpal); //muestra la resolucion

end.


[Imagen: tolivi10.jpg]
2 Veces congresista por eArgentina
13 Veces congresista por eBolivia
1 Vez Emperador por eBolivia
Ex-Ministro de Salud eArgentino

[Imagen: Necromancer616.png]
(Este mensaje fue modificado por última vez en: 03-05-2012 23:53 por el pibe.)
03-05-2012 23:49
Encuentra todos sus mensajes Agregar agradecimiento Cita este mensaje en tu respuesta
Diego Pedro Sin conexión
Secretario de la SAE
que calor no?
******

Ing. en Sistemas
Facultad Regional Buenos Aires

Mensajes: 631
Agradecimientos dados: 23
Agradecimientos: 105 en 48 posts
Registro en: May 2011
Mensaje: #12
RE: [Algoritmos] Consulta
O cambiaron la practica de repente o creo que subiste el 20...por lo menos en mi practica ahora es el 20
03-05-2012 23:51
Envíale un email Encuentra todos sus mensajes Agregar agradecimiento Cita este mensaje en tu respuesta
el pibe Sin conexión
Presidente del CEIT
Benderista
********

Ing. en Sistemas
Facultad Regional Buenos Aires

Mensajes: 1.235
Agradecimientos dados: 5
Agradecimientos: 115 en 32 posts
Registro en: May 2011
YouTube
Mensaje: #13
RE: [Algoritmos] Consulta
puede ser, ahi edite el comment anterior

[Imagen: tolivi10.jpg]
2 Veces congresista por eArgentina
13 Veces congresista por eBolivia
1 Vez Emperador por eBolivia
Ex-Ministro de Salud eArgentino

[Imagen: Necromancer616.png]
03-05-2012 23:54
Encuentra todos sus mensajes Agregar agradecimiento Cita este mensaje en tu respuesta
rodam Sin conexión
Militante
O(n)
***

Ing. en Sistemas
Facultad Regional Buenos Aires

Mensajes: 72
Agradecimientos dados: 12
Agradecimientos: 4 en 4 posts
Registro en: Jan 2012
Mensaje: #14
RE: [Algoritmos] Consulta
(03-05-2012 23:49)el pibe escribió:  Ahora si, es el ejercicio 31


type
ar=array [1..5] of integer;


procedure pro(pal:string[50];var a:ar;i:integer;var contle:integer;var contpal:integer;var max:integer);
begin

case pal[i] of
'a','A' : begin a[1]:=a[1]+1; end;
'e','E' : begin a[2]:=a[2]+1; end;
'i','I' : begin a[3]:=a[3]+1; end;
'o','O' : begin a[4]:=a[4]+1; end;
'u','U' : begin a[5]:=a[5]+1; end;
end;

contle:=contle+1;
if (pal[i]=' ') then begin
contpal:=contpal+1;
if (contle>max) then
max:=contle;

contle:=0;
end;

end;

procedure res(a:ar;max:integer;contpal:integer);
begin

writeln ('Hay ',a[1],' vocales a');
writeln ('Hay ',a[2],' vocales e');
writeln ('Hay ',a[3],' vocales i');
writeln ('Hay ',a[4],' vocales o');
writeln ('Hay ',a[5],' vocales u');
writeln('La palabra mas larga tiene ',max,' letras');
writeln ('Hay ',contpal,' palabras');

end;

var
pal:string[50];
a:ar;
contpal,i,contle,l,max:integer;

begin

contle:=0; max:=0; contpal:=1;
for i:= 1 to 5 do begin
a[i]:=0; //inicializa el array en 0
end;

write ('Ingrese una oracion: ');
readln(pal);

l:=length(pal);

for i:=1 to l do begin
pro(pal,a,i,contle,contpal,max); //procesa
end;

res(a,max,contpal); //muestra la resolucion

end.


No podés usar arrays en ese ejercicio, todavia no se explicaron estructuras de datos en el modulo 1 =P

Yo lo tengo hecho si me acuerdo despues posteo y te lo paso ahora estoy hiper cansado xD
04-05-2012 22:37
Encuentra todos sus mensajes Agregar agradecimiento Cita este mensaje en tu respuesta
el pibe Sin conexión
Presidente del CEIT
Benderista
********

Ing. en Sistemas
Facultad Regional Buenos Aires

Mensajes: 1.235
Agradecimientos dados: 5
Agradecimientos: 115 en 32 posts
Registro en: May 2011
YouTube
Mensaje: #15
RE: [Algoritmos] Consulta
(04-05-2012 22:37)rodam escribió:  
(03-05-2012 23:49)el pibe escribió:  Ahora si, es el ejercicio 31


type
ar=array [1..5] of integer;


procedure pro(pal:string[50];var a:ar;i:integer;var contle:integer;var contpal:integer;var max:integer);
begin

case pal[i] of
'a','A' : begin a[1]:=a[1]+1; end;
'e','E' : begin a[2]:=a[2]+1; end;
'i','I' : begin a[3]:=a[3]+1; end;
'o','O' : begin a[4]:=a[4]+1; end;
'u','U' : begin a[5]:=a[5]+1; end;
end;

contle:=contle+1;
if (pal[i]=' ') then begin
contpal:=contpal+1;
if (contle>max) then
max:=contle;

contle:=0;
end;

end;

procedure res(a:ar;max:integer;contpal:integer);
begin

writeln ('Hay ',a[1],' vocales a');
writeln ('Hay ',a[2],' vocales e');
writeln ('Hay ',a[3],' vocales i');
writeln ('Hay ',a[4],' vocales o');
writeln ('Hay ',a[5],' vocales u');
writeln('La palabra mas larga tiene ',max,' letras');
writeln ('Hay ',contpal,' palabras');

end;

var
pal:string[50];
a:ar;
contpal,i,contle,l,max:integer;

begin

contle:=0; max:=0; contpal:=1;
for i:= 1 to 5 do begin
a[i]:=0; //inicializa el array en 0
end;

write ('Ingrese una oracion: ');
readln(pal);

l:=length(pal);

for i:=1 to l do begin
pro(pal,a,i,contle,contpal,max); //procesa
end;

res(a,max,contpal); //muestra la resolucion

end.


No podés usar arrays en ese ejercicio, todavia no se explicaron estructuras de datos en el modulo 1 =P

Yo lo tengo hecho si me acuerdo despues posteo y te lo paso ahora estoy hiper cansado xD

ahora que es anual no se podra;

cuando yo lo tuve que hacer, ya nos habian dado archivos y punteros =P


pero bueno, si no queres usar un array de 5 posiciones, usas 5 variables

[Imagen: tolivi10.jpg]
2 Veces congresista por eArgentina
13 Veces congresista por eBolivia
1 Vez Emperador por eBolivia
Ex-Ministro de Salud eArgentino

[Imagen: Necromancer616.png]
04-05-2012 22:45
Encuentra todos sus mensajes Agregar agradecimiento Cita este mensaje en tu respuesta
Buscar en el tema
Enviar respuesta 




Usuario(s) navegando en este tema: 1 invitado(s)