La Problemática Del Uso Racionalizado Del Agua

Aclaración :

“:” = Del tipo

“->” = Es similar a Objeto.metodo

1. Escriba un programa que dada una lista que contiene números, la divida en dos listas independientes. Una formada por los números positivos y otra formada por los números negativos.

Inicio programa

//Diagrama de tipos (TDA)

TDato:int

TLista:Registro

cab:Puntero

actual:Puntero

Fin Registro

Puntero->Nodo //Puntero a nodo

Nodo:Registro

info:Tdato

sig:Puntero

Fin Registro

Variables:

LPos:TLista // Lista de Positivos

LNeg:TLista // Lista de negativos

Procedimiento(L:TLista)

Si L->cab = null entonces

mensaje ("La lista esta vacía")

Si no

// si no es null trato el 1° elemento por separado y luego recorro la lista.

L->actual = L->cab //Igualo el puntero actual al puntero cab para asegurarme

el principio de la lista.

//Asumo que hay espacio en memoria para crear las dos listas:

Lcrear(LNeg) //crear lista vacia

Lcrear(LPos) //crear lista vacia

Si L->actual->info < 0 entonces

LinsertarFin(LNeg , L->actual->info) //Crear Nodo y cargar el dato

Si no

//Considero al cero como numero +

LinsertarFin(LPos , L->actual->info) //Crear Nodo y cargar el dato

Fin si

Mientras L->actual->sig <> null hacer

L->actual = L->actual->sig

Si L->actual->info < 0 entonces

LinsertarFin(LNeg , L->actual->info) //Crear Nodo y cargar el dato

Si no

//Considero al cero como numero +

LinsertarFin(LPos , L->actual->info) //Crear Nodo y cargar el dato

Fin si

Fin Mientras

Fin Si

Lcrear(LNeg:TLista) //Crea Listas.

LNeg->cab = NULL

Fin Lcrear

LinsertarFin(L:TLista , D:Tdato) //Esta funcion

...