patovica

azaelrajadel respondió: Otra vez. empleado = record nombre:string; sueldo:real; antiguedad:byte; end; arreglo : array of empleado procedure GetData (var lista:arreglo); begin repeat writeln('nombre'); readln (lista[lenght(lista)].nombre) if lista[lenght(lista)].nombre <> NN...

azaelrajadel respondió: No, no es molestia. Aquí vamos. Supongamos que esa lista está almacenada en un arreglo de records, algo así. nodo= record nombre:string; salario:real; end; lista: array of nodo; Ahora defines un procedimiento (si lo deseas) y sólo haces min:=1 max:=1...

azaelrajadel respondió: Si a, b, c:real son tus lados entonces, por el teorema de desigualdad triangular, es posible construir un triángulo si la suma de dos lados siempre es mayor que el tercero, lo que se resume a demostrar que el lado mayor es menor que la suma de los...

azaelrajadel respondió: Sea t tu var que almacena tiempo Entonces: Un día tiene 24 h, una h 60 min y 1 min 60 s luego un día tiene 3600*24 = 86400 s. Ahora d := t div 86400 h := (t mod 86400) div 3600 pongo las horas porque aunque las omites creo que las lleva el ejercicio....

azaelrajadel respondió: Supongamos que no se necesita el nombre de los niños. Tus ED serían: A : array [1..300] of real; A1, a2, a3 : integer;estos son tus contadores para cada grupo. Esta variante de solución basa su eficiencia en que se recorre la lista una sola vez y...

azaelrajadel respondió: Resulta que son 12 ejercicios, por lo que la respuesta sería engorrosa. Por este motivo te propongo un trato: Hoy voy a comenzar por responderte el 1er ejercicio. Según la respuesta me das una evaluación y luego puedes hacerme las preguntas...