Algoritmos de Vectores en Pascal: Inversión, Búsqueda y Patrones
Enviado por Programa Chuletas y clasificado en Inglés
Escrito el en 
español con un tamaño de 3,26 KB
Invertir un Vector
Este programa invierte el orden de los elementos en un vector de 10 elementos.
BEGIN
writeln('Vamos a introducir 10 elementos en un vector');
writeln;
for i:=1 to 10 do
begin
write('Elemento ',i,': ');
readln(v[i]);
end;
for i:=1 to 10 do
w[10-i+1]:=v[i];
CLRSCR;
writeln('El vector original es: ');
writeln;
for i:= 1 to 10 do
write(v[i]:5);
writeln;
writeln;
writel('Y el resultante: ');
writeln;
for i:= 1 to 10 do
write(w[i]:5);
readln;
readln;
END.Buscar Número Negativo en un Vector
Este programa busca el primer número negativo en un vector de números reales.
Program EjemploVector;
const
rango=10;
type
vector=array[1..rango] of real;
var
v:vector;
i,n,pos:integer;
catalán con un tamaño de 2,97 KB