josephoenix

Para el primer problema, la solución sería esta: Program prueba; Uses crt, tadpila; Const MAX = 100; Type Vector = array[1..MAX] of integer; Var vec: Vector; pila1, pila2, pila3: TipoPila; Procedure Generar_Vector(var v: vector); {Genera...

Para dibujar lineas, debes usar las función "Line" así: Line(x1, y1, x2, y2); si quieres establecer un tipo de linea debes hacer asi: setlinestyle(estilo, modelo, grosor); Line(x1, y1, x2, y2); En estilo, modelo y grosor debes probar numeros enteros...

Suponiendo que tienes una declaración de listas así: Type TipoLista = ^TipoNodo; TipoNodo = record info: integer; ant, sig: tipoLista; end; Sea la lista simple o doblemente enlazada es indiferente para este método. El método seria el siguiente:...