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 » alguien me puede ayudar con vectores

Pascal/Turbo Pascal - alguien me puede ayudar con vectores

Volver
Nuevo Tema
<<>>
 
Vista:

alguien me puede ayudar con vectores

Publicado por eduardo (13 intervenciones) el 07/07/2013 01:59:15
tengo que realizar el siguiente programa a ver si alguien me puede ayudar a realizarlo por favor

aka el problema:

Se tiene el vector A con 100 elementos almacenados. Diseñe un algoritmo que escriba “SI” el vector esta ordenado ascendentemente o “NO” si el vector no está ordenado.

espero que alguien me pueda ayudar por favor =)
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

alguien me puede ayudar con vectores

Publicado por ramon (2158 intervenciones) el 07/07/2013 21:09:51
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
69
70
71
72
73
74
75
76
77
{A ver si esto ayuda}
 
 program enorden;
 uses
    crt;
 const
   nv = 100;
 
  type
    vector = array[1..nv] of integer;
 
   var
     ordena, vect : vector;
     auxi : integer;
     k, i : integer;
     valor : integer;
 
  procedure cargadatos;
  var
    t : integer;
    begin
       randomize;
       i := 1;
       valor := 0;
    repeat
       valor := random(187) + 1;
       vect[i] := valor;
       i := i + 1;
       valor := 0;
     until i > nv;
       ordena := vect;
    end;
 
  procedure ordenaascendente;
  begin
      for k := 1 to nv do
        for i := nv downto k + 1 do
        if vect[k] > vect[i] then
        begin
            auxi := vect[k];
            vect[k] := vect[i];
            vect[i] := auxi;
        end;
      end;
 
   procedure informe(vec : vector);
   var
     sal : boolean;
   begin
       sal := false;
       valor := vec[1];
       for i := 2 to nv do
       begin
           if vec[i] < valor then
           begin
           sal := true;
           break;
           end
        else
          valor := vec[i];
       end;
       if sal = false then
       writeln('  Vectos Esta Ordenado Ascendentemente ')
    else
       writeln('  Vectos No Ordenado Ascendentemente ')
   end;
 
  begin
      clrscr;
      cargadatos;
      ordenaascendente;
      writeln('  Este esta ordenado');
      informe(vect);
      writeln('  Este no Esta Oedenado');
      informe(ordena);
      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