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 » Ayuda para plantear Algoritmo

Pascal/Turbo Pascal - Ayuda para plantear Algoritmo

Volver
Nuevo Tema
<<>>
 
Vista:

Ayuda para plantear Algoritmo

Publicado por roberto (1 intervención) el 28/05/2013 06:06:21
Hola me pueden ayudar para poder plantear el siguiente algoritmo sea en pseudocodigo o pascal:

1- Dada una lista de N numeros determinar cual es el segundo mayor de la lista:

Por ejemplo. 4 - 5 - 20 - 14 - 1 - 39 -

El segundo mayor es 20.

Pienso hacerlo con un ciclo for, usando auxiliares para lograr saber cual es el segundo mayor.

Cualquier consejo, ayuda sera bienvenida, Gracias.
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

Ayuda para plantear Algoritmo

Publicado por ramon (2158 intervenciones) el 28/05/2013 13:28:35
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
{Mira Esto Te ayudara }
 
program numeromedio;
 uses
    crt;
  const
     m = 5;
  var
    nume : array[1..m] of integer;
 
  procedure entranumero;
  var
    numero : word;
  begin
     numero := 1;
     repeat
         clrscr;
         write(' Entre El Valor Del Num. ',numero,' : ');
         readln(nume[numero]);
         numero := numero + 1;
     until numero > m;
  end;
 
  procedure buncasegundomayor;
  var
    c1, c2, tem : word;
  begin
     for c1 := 1 to m do
       for c2 := m downto c1 + 1 do
       begin
       if nume[c1] > nume[c2] then
       begin
          tem := nume[c1];
          nume[c1] := nume[c2];
          nume[c2] := tem;
       end;
     end;
   end;
 
  procedure presentanumero;
  var
    i : integer;
  begin
      buncasegundomayor;
      clrscr;
      for i := 1 to m do
      writeln(' Num. ',nume[i]);
      writeln;
      writeln('  El Numero Segundo Mas Grande Es : ',nume[m - 1]);
      writeln;
      writeln('   Pulse Una Tecla');
      readkey;
  end;
 
  begin
      entranumero;
      presentanumero;
  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