Vectores
EJERCICIOS RESUELTOS EN CLASES
program ciclo;
uses crt;
var
vector:array[1..5] of string;
i: integer;
nom: string;
begin
clrscr;
for i:= 1 to 5 do
begin
writeln('Ingrese Nombre:');
readln(nom);
vector[i]:=nom;
end;
for i:= 1 to 5 do
writeln(vector[i]);
readkey;
end.
Se necesita un sistema que solicite dos numeros, los cuales son un rango, de los cuales queremos que guarde en un vector todos los numeros que se encuentren dentro del rango:
Se necesita un sistema que solicite dos numeros, los cuales son un rango, de los cuales queremos que guarde en un vector todos los numeros que se encuentren dentro del rango:
program vec1;
uses crt;
var
vector: array [1..5] of integer;
i, j, num1, num2, valor: integer;
begin
clrscr;
j:=1;
writeln('Ingrese primer numero:');
readln(num1);
writeln('Ingrese segundo numero:');
readln(num2);
for i := 1 to 10 do
begin;
writeln('Introduzca los valores:');
readln(valor);
if (valor > num1) and (valor < num2) then
begin
vector[j]:=valor;
j:=j+1;
end;
end;
writeln('Los numeros dentro del rango son:');
for i:= 1 to 5 do
writeln(vector[i]);
readln;
end.
ejer01 guia II
program vec2;
uses crt;
var
vector: array [1..5] of integer;
mayor, i, numero: integer;
begin
clrscr;
mayor:=0;
for i:= 1 to 5 do
begin
writeln('Ingrese numero:');
readln(numero);
vector[i]:= numero;
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.
program ejer4;
uses crt;
var
vector: array [1..5] of integer;
i, numero, total: integer;
prom: real;
begin
clrscr;
for i:= 1 to 5 do
begin
writeln('Ingrese numero:');
readln(numero);
vector[i]:= numero;
end;
for i:= 1 to 5 do
begin
total:= total+ vector[i];
prom:= total/5;
end;
writeln('El promedio de los numero es: ',prom:2:2);
readkey;
end.
Ordena vectores de menor a mayor:
Ordena vectores de menor a mayor:
program ordena;
uses crt;
type
vector=array [1..4] of integer;
var
i, j, orden: integer;
a: vector;
begin
clrscr;
writeln('Ingrese los numeros del vector:');
for i:= 1 to 4 do
readln(a[i]);
for i:= 1 to 4-1 do
begin
for j:= i+1 to 4 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 4 do
writeln(a[i]);
readln;
end.