Pascal II
ENSAYOS CON VECTORES
Ejer 01
program vec1;
uses crt;
var
vector: array[1..5] of integer;
i, num, mayor: integer;
begin
clrscr;
mayor:= 0;
for i:= 1 to 5 do
begin
writeln('Introduzca un numero:');
readln(num);
vector[i]:=num;
end;
for i:= 1 to 5 do
begin
if vector[i] > mayor then
mayor:= vector[i];
end;
writeln('El mayor numero ingresado fue: ',mayor);
readkey;
end.
Ejer02
program vec2;
uses crt;
var
vector: array[1..5] of integer;
i, num, menor: integer;
begin
clrscr;
menor:= 9999;
for i:= 1 to 5 do
begin
writeln('Introduzca un numero:');
readln(num);
vector[i]:=num;
end;
for i:= 1 to 5 do
begin
if vector[i] < menor then
menor:= vector[i];
end;
writeln('El menor numero ingresado fue: ',menor);
readkey;
end.
Ejer03
program vec3;
uses crt;
var
vector: array [1..5] of integer;
i, num, total: integer;
prom: real;
begin
clrscr;
for i:= 1 to 5 do
begin
writeln('Ingrese un numero:');
readln(num);
vector[i]:= num;
end;
for i:= 1 to 5 do
begin
total:= total+vector[i];
prom:= total/5;
end;
writeln('El promedio de los numeros es: ',prom:2:2);
readkey;
end.
Ejer04
program vec4;
uses crt;
type
vector=array [1..5] of integer;
var
i, j, orden: integer;
a: vector;
begin
clrscr;
writeln('Ingrese los numeros a ordenar:');
for i:= 1 to 5 do
readln(a[i]);
for i:= 1 to 5-1 do
begin
for j:= i+1 to 5 do
begin
if a[j] > a[i] then
begin
orden:= a[j];
a[j]:= a[i];
a[i]:= orden;
end;
end;
end;
writeln('Los numeros ordenados son:');
for i:= 1 to 5 do
writeln(a[i]);
readln;
end.
program vec6;
program vec7;
Ejer06
program vec6;
uses crt;
type
matriz=array[1..10,1..100] of integer;
var
filas, cols, cont1, cont2, sum, produc, suma2: integer;
prom: real;
arreglo, arreglo2: matriz;
begin
randomize;
clrscr;
writeln('Filas:');
readln(filas);
writeln('Columnas:');
readln(cols);
sum:= 0;
for cont1:= 1 to filas do
begin
for cont2:= 1 to cols do
begin
arreglo[cont1,cont2]:=random(10);
writeln('Matriz[',cont1,'][',cont2,']:',arreglo[cont1,cont2]);
sum:= sum+arreglo[cont1,cont2];
end;
end;
writeln('Filas:');
readln(filas);
writeln('Columnas:');
readln(cols);
for cont1:= 1 to filas do
begin
for cont2:= 1 to cols do
begin
arreglo2[cont1,cont2]:=random(10);
writeln('Matriz2[',cont1,'][',cont2,']:',arreglo[cont1,cont2]);
suma2:= suma2+arreglo2[cont1,cont2];
end;
end;
sum:=sum+suma2;
writeln('La suma de las matrices es:',sum);
readkey;
end.
Ejer07
program vec7;
uses crt;
const limite=10;
type
matriz= array[1..limite,1..limite] of integer;
var
i:1..limite; j:1..limite; k:1..limite;
m:1..limite; n:1..limite; p:1..limite;
mal:integer;
a:matriz;
b:matriz;
c:matriz;
begin
clrscr;
repeat
mal:=1;
writeln('Ingrese los renglones de la matriz A (1-10):');
readln(m);
writeln('Ingrese numero de columnas de la matriz A (1-10):');
readln(n);
writeln('Ingrese numero de columnas de la matriz B (1-10):');
readln(p);
if (m in [1..limite]) and (n in [1..limite]) and (p in [1..limite]) then
mal:=0
else
begin
writeln('Hay un error en los rangos:');
end;
until (mal=0);
for i:= 1 to m do
begin
for j:= 1 to n do
begin
writeln('El valor de A[',i,',',j,']:');
readln(a[i,j]);
end;
end;
for i:= 1 to n do
begin
for j:= 1 to p do
begin
writeln('El valor de B[',m,',',p,']:');
readln(b[i,j]);
end;
end;
writeln('La matriz producto C[',m,',',p,'] es:');
for i:= 1 to m do
begin
c[i,j]:=0;
for k:= 1 to n do
c[i,j]:= c[i,j]+a[i,k]*b[k,j];
end;
for j:= 1 to p do
writeln(c[i,j]:10);
readkey;
end.