Trabajo Pr ctico ALG1

Trabajo Práctico

Materia: Algoritmos y Estructuras de Datos I

Docentes: Graciela
Patricia Mayor

Alumnos: Maximiliano Gonzalez
Juan Salinas
Adrian Rivas
Lucas ContePractica 1 – Ejercicio 3:
Algoritmo Corte de Control por Sucursal y Seccion
Var. Locales
tot_suc: entero
suc_ant: char
tot_sec: entero
sec_ant: char
Comienzo
ABRIR (Archivo_Pagos)
LEER(Archivo_Pagos, Reg_Pago)
MIENTAS NO FIN Archivo_Pagos HACER
InicioSucursal (Reg_Pago, suc_ant, tot_suc)
TratarSucursal (Reg_Pago, suc_ant, tot_suc)
FinSucursal (suc_ant, tot_suc)
F. MIENTRAS
CERRAR(Archivo_Pagos)
F. Algoritmo

Procedimiento InicioSucursal (Ref Reg_Pago: reg; Ref suc_ant: char; Ref tot_suc: entero)
suc_ant  Reg_Pago.clave.sucursal
tot_suc  0
F. Procedimiento

Procedimiento TratarSucursal(Ref Reg_Pago: reg; Ref suc_ant: char; Ref tot_suc: entero)
MIENTRAS NO FIN Archivo_Pagos Y suc_ant = Reg_Pago.clave.sucursal HACER
InicioSeccion (Reg_Pago, tot_sec, sec_ant)
TratarSección(Reg_Pago, suc_ant, sec_ant, tot_sec)
FinSeccion (tot_suc, tot_sec, sec_ant)
F. MIENTRAS
F. Procediemiento

Procedimiento InicioSeccion (Ref Reg_Pago: reg; Ref tot_sec: entero; Ref sec_ant: char)
sec_ant Reg_Pago.clave.seccion
tot_sec  0
F. Procedimiento

Procedimiento TratarSeccion (Ref Reg_Pago: reg; Ref suc_ant: char; Ref sec_ant: char; Ref tot_sec: entero)
MIENTRAS NO FIN Archivo_Pagos Y suc_ant =Reg_Pago.clave.sucursal Y sec_ant = Reg_Pago.clave.seccion HACER
tot_sec  tot_sec + 1
LEER (Archivo_Pagos, Reg_Pagos)
F. MIENTRAS
F. Procedimiento

Procedimiento FinSeccion (Ref tot_suc: entero;Ref tot_sec: entero; Ref sec_ant: char)
tot_suc  tot_suc + 1
MOSTRAR (“Sección”, sec_ant)
MOSTRAR (“Total Empleados por sección”, tot_sec)
F. Procedimiento





Práctica 3 – Ejercicio 4
AlgoritmoVar. Locales
Cant_Mult: entero
Sum_tot: entero
Max: entero
C: caracter
Comienzo
Cant_Mult  0; Sum_tot  0; max  0; c  ’b’
LEERPRIM (insec, c)
SaltearBlancos (insec, c)
MIENTRAS NO FIN (insec)...