Pascal/Turbo Pascal - función que devuelva la cantidad de veces que aparece en un vector

   
Vista:

función que devuelva la cantidad de veces que aparece en un vector

Publicado por Federico (10 intervenciones) el 11/11/2013 20:50:04
Una ayuda

Ejercicio con Función: Dado un valor entero X y un vector de enteros, escribir una función que devuelva la cantidad de veces que aparece X en el vector.
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

función que devuelva la cantidad de veces que aparece en un vector

Publicado por ramon (2072 intervenciones) el 12/11/2013 14:03:12
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
{Mira esto}
 
program vectores;
 uses
    crt;
  const
     max = 9;
 
  var
    vector : array[1..max] of integer;
    apa, cont, num : integer;
 
  function numrosrepe : integer;
   begin
     randomize;
     for cont := 1 to max do
     begin
        num := random(max) + 1;
        vector[cont] := num;
     end;
     clrscr;
     num := 0;
     write('   Entre Un Numero 1 Al ',max,' : ');
     readln(num);
     writeln;
     if (num = 0) or (num > max) then
     begin
     end
   else
      begin
         apa := 0;
         for cont := 1 to max do
         if vector[cont] = num then
         apa := apa + 1;
      end;
        numrosrepe := apa;
   end;
 
   begin
      cont := numrosrepe;
      write('   El Numero Aparece ',cont);
      writeln;
      writeln;
      writeln('    El Vector Fue ');
      writeln;
      write('  ');
      for num := 1 to max do
      write('   ',vector[num]);
      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
0
Comentar