Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Pascal/Turbo Pascal » Repeticion de numero en un Array

Pascal/Turbo Pascal - Repeticion de numero en un Array

Volver
Nuevo Tema
<<>>
 
Vista:
Imágen de perfil de Daniel

Repeticion de numero en un Array

Publicado por Daniel (5 intervenciones) el 05/08/2017 02:09:10
Buenos dias,tardes,noches programadores,requiero ayuda con un ejercicio que se me dio en la universidad con el cual quede atascado.

En este ejercicio dbeo ingresar 1000 edades en un vector e indicar cual es la de mayor frecuencia(la que mas se repite);esto es hasta ahora lo que llevo hecho

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
Program edades;
 
uses crt;
 
type
 
vector:= array [1..1000] of Integer
 
var
 
edad:vector;
i,nuevo:Integer;
 
 
function verificacion
 
if (nuevo>mayor) then begin
mayor:=nuevo
mayor:= verificacion
else
nuevo:=verificacion
end;
 
 
 
 
Begin
 
nuevo:=0
 
Writeln('Ingrese una edad');
for i=1 to length(edad) do begin
Readln(edad[i]);
resultado:=verificacion;
end;
 
 
 
end.


Mi problema es que no se como encontrar numeros repetidos en un array


P.Di,se que esta muy incompleto y en un momento pense qu debia buscar el mayor olvidando lo que en realidad debia hacer
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Repeticion de numero en un Array

Publicado por ramon (2158 intervenciones) el 07/08/2017 14:07:38
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
{Mira si esto te ayuda }
 
Program edades;
 
uses crt;
 
type
 
vector = array [1..1000] of Integer;
 
 var
  edad : vector;
  ent, i, nuevo, num : Integer;
 
  function entradas : integer;
  begin
     entradas := 0;
     i := 1;
     writeln('   Entre Edades [0] Termina');
     repeat
        readln(nuevo);
        if nuevo <> 0 then
        begin
        edad[i] := nuevo;
        i := i + 1;
        end;
        if i > 1000 then
        nuevo := 0;
     until nuevo = 0;
    entradas := i - 1;
    end;
 
  procedure mayor_repeticion(v : vector);
  var
     cual, rep, t, m : integer;
  begin
      rep := 0;
      t := 0;
      cual := 0;
      for i := 1 to ent do
      begin
         rep := v[i];
         for  m := i + 1 to ent + 1 do
         begin
            if v[m] = rep then
            begin
              t := t + 1;
              num := rep;
            end;
         end;
         if cual < t then
         begin
         cual := t;
         t := 0;
         num := rep;
         end;
      end;
      clrscr;
      writeln;
      writeln('   Numero Repetido = ',num,'  Veces = ',cual);
  end;
 
 begin
    clrscr;
    ent := entradas;
    mayor_repeticion(edad);
    readkey;
 end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
Imágen de perfil de Daniel

Repeticion de numero en un Array

Publicado por Daniel (5 intervenciones) el 08/09/2017 22:23:18
Gracias,parece algo simple de idear al verlo y aun asi no lo pude hacer,te lo agradezco mucho
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Gabriel

Repeticion de numero en un Array

Publicado por Gabriel (2 intervenciones) el 11/09/2017 01:38:33
En la carga de datos del vector no es mejor de manera aleatoria? Me perdí mucho ahí.

Podrías comentar el código? Me pierdo en algunas variables y no entiendo para que son.
Gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar