Fabian-Martinez-Rincon / CADP

🎓 Practicas, Parciales, Módulos funcionales y evaluados por la catedra. Además de ejercicios de tiempo de ejecución para el final.

Aca esta la carpeta de cadp, con todos los ejercicios de todas las practicas

• Resumen Final
• Preguntas de verdadero o falso
• Preguntas Teoricas
• Ejemplos de memorias y tiempo
• Eliminar Ocurrencias vector ordenado
• Vectores
• Listas

1) Teniendo en cuenta la tabla, calcular la memoria estatica, dinamica y el tiempo de ejecución.

Problema

Tabla

program Problema; type cadena35 = string[35]; empleado = record dirCorreo: cadena35; edad: integer; sueldo:real; end; punt = ^empleado; vector = array [1..500] of punt; lista = ^nodo; nodo = record dato: empleado; sig: lista; end; var v:vector; l,aux:lista; emp:empleado; i:integer; begin l:=nil; for i:=1 to 10 to begin read(emp.dirCorreo, emp.edad, emp.sueldo); if (emp.edad < 40) and (emp.sueldo < 40000) then exp.sueldo:= exp.sueldo + 7000; new(aux); aux^.dato := emp; aux^.sig: := l; l := aux; end; end.

Tipo de Dato Memoria Char 1 byte Integer 6 byte Real 8 byte Boolean 1 byte String Longitud + 1 byte Puntero 4 byte

Resolución

La tabla del inicio puede variar dependiendo la pc o los profesores que te toquen ya que en este caso es teorico.

💾🧍‍♂️ Memoria Estatica.

Es la suma de las variables declaradas en el Var del programa principal. En este ejemplo seria:

var
  v:vector;
  l,aux:lista;
  emp:empleado;
  i:integer;

Hacemos los calculos:

v:vector; 500 * 4b (Al ser un puntero, siempre vale lo que nos marca en la tabla, aunque apunte a otras variables)
2000 bytes
l,aux:lista; 4b + 4b = 8 bytes
emp:empleado; 
i:integer;

Recordemos que:

empleado = record
  dirCorreo: cadena35;    (35 + 1b)
  edad: integer;   6b
  sueldo:real;    8b
end:

Nos quedaria:

v:vector; 2000b
l,aux:lista; 8 bytes
emp:empleado;  (35 + 1b) + 6b + 8b = 50 bytes 
i:integer; 6b

Dimension Fisica = v + l,aux + emp + i

Dimension Fisica = 2000b + 8b + 50b + 6b

Dimension Fisica = 2064 bytes

💾🏃 Memoria Dinamica.

La memoria dinamica se empieza a calcular a partir del primer new();, en caso de no encontrarse en el programa no tendriamos que hacer ninguna operación. Y asi como se suma memoria dinamica con el new(); se restaria (Libera) con el Dispose();

for i:=1 to 10 to 
  begin
    read(emp.dirCorreo, emp.edad, emp.sueldo);
    if (emp.edad < 40) and (emp.sueldo < 40000) then
      exp.sueldo:= exp.sueldo + 7000;
    new(aux); <-------------------------- Aux fue decladaro como lista y lista es un puntero a nodo
    aux^.dato := emp;
    aux^.sig: := l;
    l := aux;    
  end;

Recordemonos que:

lista = ^nodo;
  nodo = record
    dato: empleado; 50 bytes (Ya lo calculamos arriba)
    sig: lista; 4 bytes (Puntero)
  end;  50b + 4b = 54 bytes

Concluimos que el new(aux); es 54 bytes y al estar dentro de un for que va hasta 10, lo que tenemos que hacer es:

Memoria Dinamica = 54b * 10

Memoria Dinamica = 540 bytes

⌚💀🔪 Tiempo de Ejecución.

Codigo	Tiempo (ut)
readln();	0ut
writeln();	0ut
else	0ut + contenido
x := 0;	1ut
x := y;	1ut
new();	0ut
Dispose();	0ut
l:=nil;	1ut
x := y (+,-,*,/,mod,div) x;	2ut
if () then	(1ut por op.elem) + contenido (<,>,<>,=,or,and,not,/,*,+,-)
for i:=1 to n	((3*n+2)ut) + (n * contenido)
while() do	(n + 1ut por op.elem) + (n * contenido)
repeat until()	Ni idea
case ():	Ni idea :D (HELP!)

Ya sabiendo lo anterior, solo nos quedaria hacer las operaciones

begin
  l:=nil;  1ut
  for i:=1 to 10 to   (3*10+2) 
  begin
    read(emp.dirCorreo, emp.edad, emp.sueldo);   0ut
    if (emp.edad < 40) and (emp.sueldo < 40000) then   (1ut + 1ut + 1ut) 
      exp.sueldo:= exp.sueldo + 7000;   2ut
    new(aux); 1ut
    aux^.dato := emp; 1ut
    aux^.sig: := l; 1ut
    l := aux;    1ut
  end;
end.

Nos quedaria:

Tiempo de ej = 1ut + ((3*10+2) + (((1ut + 1ut + 1ut) + 2ut) + 1ut + 1ut + 1ut + 1ut) * 10)

Tiempo de ej = 1ut + ((3*10+2) + (((3ut) + 2ut) + 4ut)*10)

Tiempo de ej = 1ut + ((32ut) + (9ut)*10)

Tiempo de ej = 1ut + ((32ut) + 90ut)

Tiempo de ej = 1ut + (122ut)

Tiempo de ej = 123ut

2) Cual de las dos opciones consume menos memoria total (Memoria estatica + Memoria dinamica).

A	B	Tabla
program opcion_A; type lista = ^nodo; nodo = record dato:integer; sig:lista; end; var l,nue:lista; i:integer; begin l:=Nil; for i:=l to 6 do begin new(nue); nue^.dato:=i; nue^.sig:=l; l:=nue; end; end.	program opcion_B; type vector = array [1..10] of integer; var v:vector; i,dimL:integer; begin dimL:=0; for i:=1 to 6 do begin dimL:=dimL + 1; v[i]:=i; end; end.	Dato Memoria Char 1 byte Integer 6 byte Real 8 byte Boolean 1 byte String Long + 1 byte Puntero 4 byte

A)

Memorias	Resultado
Memoria Estatica: var l,nue:lista; 4b + 4b = 8bytes i:integer; 6bytes	Memoria Estatica = 14 bytes
Memoria Dinamica: begin l:=Nil; for i:=l to 6 do begin new(nue); 4bytes + (6bytes) = 10 bytes nue^.dato:=i; nue^.sig:=l; l:=nue; end; 6 * 10b end.	Memoria Dinamica = (6*10) Memoria Dinamica = 60 bytes Memoria Total = 60b + 14b = 74 bytes

B)

Memorias	Resultado
Memoria Estatica: var v:vector; 10*6 = 60 b i,dimL:integer; 6 + 6 = 12 b	Memoria Estatica = 72 bytes
Memoria Dinamica: begin dimL:=0; for i:=1 to 6 do begin dimL:=dimL + 1; v[i]:=i; end; end.	Memoria Dinamica = No tiene :D

Justificación:

• El A es el que ocupa menos memoria ya que en el B con tan solo la memoria estatica, este supera al A en memoria total