Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
practica 7 ejercicio 3
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. {-----------------------------------------------------------------------------------------------------------------------}
run
|
edit
|
history
|
help
0
Naloga 8: 10.9.2008
"Is reality breaking?" Device
MARCOS PAULO VALE DA MATA 600623116
homework
ariketa 09
nomer5
test01
For7
звёздное небо с подсчётом двойных звёзд
Calculatrice 1.0