Pascal/Turbo Pascal - Ayuda con un Problema Propuesto de Vectores en Pascal por Favor

   
Vista:

Ayuda con un Problema Propuesto de Vectores en Pascal por Favor

Publicado por Guyis (2 intervenciones) el 06/07/2013 17:39:58
Hola Muy Buenos Dias a Todos!

Quisiera saber si alguien me podria ayudar con un problema Propuesto de Vectores para el Programa Pascal.

El Siguiente dice asi:

Llenar un vector de 20 elementos, imprimir la posicion y el valor del elemento mayor almacenado en el vector. Suponga que todos los elementos del vector son diferentes.

Gracias de Antemano por la Valiosa colaboración que puedan prestarme!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
1
Responder

Ayuda con un Problema Propuesto de Vectores en Pascal por Favor

Publicado por ramon (2072 intervenciones) el 06/07/2013 18:47:13
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
{A ver si esto te ayuda}
 
 program vectores;
 uses
    crt;
  const
     nvec = 20;
  type
     elvector = array[1..nvec] of integer;
  var
    posi, cont, i, t : integer;
    vector : elvector;
 
  procedure cargavalores;
  var
    valor, tomado : integer;
  begin
     randomize;
     tomado := 1;
     fillchar(vector,sizeof(elvector),0);
   repeat
        valor := random(40) + 1;
        vector[tomado] := valor;
        tomado := tomado + 1;
   until tomado > nvec;
  end;
 
  procedure muestravector;
  begin
     for t := 1 to nvec do
     write(' ',vector[t]);
  end;
 
  function elmayores(var posi : integer) : integer;
  var
    h, u, k : integer;
  begin
     k := 0;
     u := 0;
     for h := 1 to nvec do
     begin
         if k < vector[h] then
         begin
         k := vector[h];
         u := h;
         end;
     end;
      posi := u;
      elmayores := k;
  end;
 
  begin
      clrscr;
      cargavalores;
      muestravector;
      writeln;
      writeln('El Mayor Es : ',elmayores(posi));
      writeln('Posicion Es : ',posi);
      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
3
Comentar

Ayuda con un Problema Propuesto de Vectores en Pascal por Favor

Publicado por Guyis (2 intervenciones) el 06/07/2013 19:19:43
Wow Gracias Ramon! sencillamente perfecto!
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