A intenção desse exercícios é lógica então, a gente ajuda mas, você não aprende!!!
A diferença de Fila e Pilha é na remoção!
Fila primeiro que entra primeiro que sai (igual fila de banco)
Pilha primeiro que entra é o último que sai, igual empilhar e desempilhar caixa de fosfuros ...
Public MustInherit Class Estrutura
Protected Dados As IList(Of Integer)
Sub New()
Dados = New List(Of Integer)
End Sub
Public Sub Add(ByVal value As Integer)
Dados.Add(value)
End Sub
Public Function Remove(ByVal index As Integer) As Boolean
Dim _remove As Boolean = False
If Dados.Count > 0 And index >= 0 And index < Dados.Count Then
Dados.RemoveAt(index)
_remove = True
End If
Return _remove
End Function
Public MustOverride Function Remove() As Boolean
End Class
Public Class Fila
Inherits Estrutura
Public Overloads Overrides Function Remove() As Boolean
Dim _remove As Boolean = False
If Dados.Count > 0 Then
Dados.RemoveAt(0)
_remove = True
End If
Return _remove
End Function
End Class
Public Class Pilha
Inherits Estrutura
Public Overloads Overrides Function Remove() As Boolean
Dim _remove As Boolean = False
If Dados.Count > 0 Then
Dados.RemoveAt((Dados.Count - 1))
_remove = True
End If
Return _remove
End Function
End Class
Fila e Pilha estão ai!!!
Lista qual ???
Fulvio Cezar Canducci Dias

