Pascal/Turbo Pascal - Indicar si un vector esta ordenador ascendente o descendente

   
Vista:

Indicar si un vector esta ordenador ascendente o descendente

Publicado por deivd (9 intervenciones) el 14/07/2015 16:40:16
si un vector a tiene almacenado 100 elementos. disene un programa que diga si estan ordenados acendente o decendente o si estan desordenados.

Ayudenme por fabor.
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

Indicar si un vector esta ordenador ascendente o descendente

Publicado por Rene gar (58 intervenciones) el 15/07/2015 01:37:51
prueba este codigo

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
type
TVector=array[1..100]of integer;
 
procedure comprobarOrdenamiento(vector:TVector);
var
i,temp:integer;
prev:boolean;
begin
   prev:=false;
   temp:=vector[1];
   for i:=2 to 100 do
   begin
 
     if temp<vector[i] then
     begin
     temp:=vector[i];
     prev:=true;
     end
     else if prev=true then break;
   end;
 
 if (prev=true) and (i=101) then writeln('Esta ordenado de manera ascendente')
 else if (prev=false) and (i=101) then writeln('Esta ordenado de manera descendente')
 else writeln('Esta desordenado');
end;
 
var
vec:TVector;
i:integer;
begin
  for i:=1 to 100 do vec[i]:=i;
  comprobarOrdenamiento(vec);
  readln;
 
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