Pascal/Turbo Pascal - ayuda con array

   
Vista:

ayuda con array

Publicado por alfredo (1 intervención) el 01/09/2011 22:31:36
primero que todo buenas a los que visitan esta pregunta.

el problema que tengo es el siguiente estoy el claces de PED y me mandaron a hacer un programa como tarea, lo he hecho mas o menos pero se me complico en una parte, resulta que en el problema necesito que el programa no me acepte numeros negativos eso es facil, pero me caigo en la parte de que tambien al mismo tiempo tampoco debe aceptar numeros igual en al secuencia ejem dato1: 5, dato2: 5, bueno de todos modos monto el programa a qui para que lo revisen y me digan por favor como hacer para que me haga esas dos cosas juntas gracias.


program ordena1;
uses wincrt;
var
v:array[1..5] of integer;
k,i,j,aux:integer;

begin
writeln('ordenamiento');
writeln;

for k:= 1 to 5 do

begin

repeat
write('dato',k,': ');
readln(v[k]);
until (v[k]>0);

end;

{ordenar}
for i:= 1 to 5-1 do

for j:= i+1 to 5 do

if (v[i]<v[j]) then

begin
aux:= v[j];
v[j]:=v[i];
v[i]:=aux;
end;

{mostrar}
for k:= 1 to 5 do
writeln(v[k]);
end.
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 con array

Publicado por ramon (2072 intervenciones) el 05/09/2011 20:48:36
{Es esto loquee pides}

program ordena1;
uses
crt;
var
d, v : array[1..5] of integer;
k,i,j,aux : integer;

begin
clrscr;
writeln('ordenamiento');
writeln;
for k := 1 to 5 do
begin
repeat
write('dato',k,': ');
readln(v[k]);
until (v[k] > 0);
end;
clrscr;

{ordenar}
for i := 1 to 5 do
for j := 1 to 5 do
if(v[j] < v[i]) then
begin
aux := v[j];
v[j] := v[i];
v[i] := aux;
end;
{mostrar}
for k := 5 downto 1 do
writeln(v[k]);
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