agregar adelante en una lista

OmgCopito95 · Sep 12, 2020 · ad5657f · ad5657f
1 parent 90588c2
commit ad5657f
Showing 1 changed file with 11 additions and 0 deletions.
diff --git a/LISTAS/agregar_adelante.pas b/LISTAS/agregar_adelante.pas
@@ -0,0 +1,11 @@
+// AGREGAR ADELANTE EN UNA LISTA
+
+procedure agregarAdelante(var l:lista; dato:integer);
+var
+	nue: lista;
+begin
+	new(nue);
+	nue^.dato := dato;
+	nue^.sig := l;
+	l := nue;
+end;