practica 7 ejercicio 3, Pascal

Language: Layout:

program HelloWorld;
{-----------------------------------------------------------------------------------------------------------------------}
{-----------------------------------------------------------------
CONST - Define las constantes para usar en tiempo de compilacion}
const
    cajas = 8;
{-----------------------------------------------------------------------------------------------------------------------}

{-----------------------------------------------------------------------------------------------------------------------}
{-----------------------------------------------------------------
TYPE - Define los tipos creados por el usuario para usar en tiempo 
de compilacion}
type
    //-----------rangos-----------//
    rangoCajas = 0 .. cajas;
    //----------vectores----------//
    Tvector  = array [rangoCajas] of real;
{-----------------------------------------------------------------------------------------------------------------------}

{-----------------------------------------------------------------------------------------------------------------------}
{-----------------------------------------------------------------
VARIABLES GLOBALES - Define variables que se podran usar por todos los modulos
de ser necesarias}
var
    i:rangoCajas;
{-----------------------------------------------------------------------------------------------------------------------}

{-----------------------------------------------------------------------------------------------------------------------}
{-----------------------------------------------------------------
INICIALIZACION - Se encarga de inicializar el vector en cero}
procedure inicializarVector(var v:Tvector);
begin
    for i:= 1 to cajas do begin
        v[i]:=0;
    end;
end;
{-----------------------------------------------------------------
LEER MONTO - Se encarga de leer e imprimir en pantalla lo leido }
procedure leerMonto(var m:real);
begin
    write('ingrese monto: ');
    m:=random(101);
    write(m:3:2);
    writeln;
end;
{-----------------------------------------------------------------
LEER CAJA - Se encarga de leer e imprimir en pantalla lo leido }
procedure leerCaja(var c:rangoCajas);
begin
    write('ingrese caja: ');
    c:=random(9);
    write(c);
    writeln;
end;
{-----------------------------------------------------------------
INGRESAR MONTO - Se encarga de ir almacenando lo ingresado en el vector }
procedure ingresarMontos(var v:Tvector);
var
    m:real;
    c:rangoCajas;
begin
    leerCaja(c);
    while c <> 0 do begin
        leerMonto(m);
        v[c]:= m + v[c];
        leerCaja(c);
    end;
end;
{-----------------------------------------------------------------
IMPRIMIR MONTOS - Se encarga de mostrar lo almacenado en el vector}
procedure imprimirMontos(v : Tvector);
begin
    writeln;
    writeln('   -----------------------------------------------------------------------------------');
    for i:= 1 to cajas do
        write('  |  ',v[i]:5:2);
    writeln('  |');
    writeln('   -----------------------------------------------------------------------------------');
end;

{-----------------------------------------------------------------
MAX CAJA - Se encarga de retornar la caja que mas fondos acumuló }
function maxCaja(v :Tvector;max:real;cmax:rangoCajas):real;
begin
    for i:=1 to cajas do
        if v[i] > max then begin 
            max:= v[i];
            cmax:=i;
        end;
    maxCaja:=cmax;
end;
{-----------------------------------------------------------------
PROMEDIO - Se encarga de calcular el promedio de lo acumulado entre todas
las cajas... }
function promedio(v:Tvector;prom:real):real;
begin
    for i:=1 to cajas do 
        prom:= v[i]+prom;
    promedio:= prom / cajas;
end;
{-----------------------------------------------------------------------------------------------------------------------}

{-----------------------------------------------------------------------------------------------------------------------}
{-----------------------------------------------------------------
PROGRAMA PRINCIPAL}
var
    v:Tvector;
begin
    writeln('----------------------------inicializacion--------------------------------');
    inicializarVector(v);
    writeln;
    
    writeln('---------------------------ingresarMontos---------------------------------');
    ingresarMontos(v);
    writeln;
    
    writeln('----------------------------imprimirMontos--------------------------------');
    imprimirMontos(v);
    writeln;
    
    writeln('---------------------------Report---------------------------------');
    writeln;
    writeln('la caja que mas facturó fue ',maxCaja(v,0,0):10:2);
    writeln;
    writeln('el promedio total facturado fue ',promedio(v,0):10:2);

end.
{-----------------------------------------------------------------------------------------------------------------------}

Show compiler warnings [ + ] Show input
Compilation time: 0.13 sec, absolute running time: 0.17 sec, cpu time: 0.01 sec, memory peak: 5 Mb, absolute service time: 0,48 sec