{Erik Poveda Diaz53376032-R
28/04/2014
Program Galeria;
uses
crt;
(*-- Constantes globales al programa -- *)
Const
TAMCOLECCION = 4;
(*-- Tipos globales al programa -- *)
Type
coleccion = array[1..tamcoleccion] of real;
(*-- Variables del módulo principal -- *)
Var
precios : Coleccion;
prec : real;
(*-- Funciones y procedimientos -- *)
procedure lee_tabla(var t : coleccion; n : integer);
var
i : integer;
begin
i := 1;
writeln(' Entre Precio Cuadro '); while i < n + 1 do
begin
write(' Numero ',i,' : '); readln(t[i]);
i := i + 1;
end;
end;
procedure imprime_tabla(t : coleccion; n : integer);
var
i : integer;
begin
i := 1;
writeln(' Los Resultados Son '); writeln;
while i < n + 1 do
begin
writeln(' Num. : ',i,' Precio : ',t[i]:0:2); i := i + 1;
end;
end;
function sumar_arreglo( var arreglo : coleccion) : real;
var
indice : integer;
acumulador : real;
begin
for indice := 1 to TAMCOLECCION do
begin
acumulador := acumulador + arreglo[indice];
end;
sumar_arreglo := acumulador;
end;
procedure limites( var arreglo : coleccion;
var min: real;
var max : real;
var posMax: integer;
var posMin : integer);
var indice : integer;
begin
max := -20;
min := 99999;
posMax := -1;
(*se inicializan con un valor que no podría ser para una verificación; de ser necesaria*)
posMin := -1;
for indice := 1
to TAMCOLECCION do
begin
if (arreglo[indice] > max) then
begin
max := arreglo[indice];
posMax := indice;
end;
if (arreglo[indice] < min) then
begin
min := arreglo[indice];
posMin := indice;
end;
end;
end;
Procedure busca_precio(cuadros:coleccion;tamano: integer;presupuesto:real);
var i:integer;
encontrado: integer;
Begin
encontrado:=0;
for i:=1 to tamano do
if (cuadros[i] = presupuesto) then
begin
writeln('El precio del cuadro numero ',i,' coincide con el precio a buscar.'); readln();
encontrado:= encontrado + 1;
end;
if (encontrado=0) then
begin
writeln('No se encontraron coincidencias'); writeln('******************************'); end
else
begin
writeln();
writeln('Se han encontrado ', encontrado, ' coincidencias'); write('Pulse enter para continuar'); readln()
end;
end;
(*-- Programa Principal -- *)
Begin
clrscr();
lee_tabla(precios, TAMCOLECCION);
clrscr;
imprime_tabla(precios, TAMCOLECCION);
prec := 1;
while prec > 0 do
begin
writeln();
write(' Entre Precio A Buscar : '); readln(prec);
busca_precio(precios, TAMCOLECCION, prec);
end;
readkey;
End.
Crear cuenta
