Comment supprimmer un élément d'un tableau?

[Fermé]
Signaler
Messages postés
22
Date d'inscription
samedi 24 novembre 2007
Statut
Membre
Dernière intervention
20 juillet 2009
-
 Amour de fleur -
Bonjour,
comment on peut supprimmer un élément d'un tableau en:
-algorithme
-c++
-vb
A voir également:

2 réponses


Question pas assez claire :
C'est supprimer une case, ou juste le chiffre à l'intérieur
C'est un tableau, ou un vecteur?

Et un algorithme n'est pas un langage
5
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 42854 internautes nous ont dit merci ce mois-ci

Messages postés
22
Date d'inscription
samedi 24 novembre 2007
Statut
Membre
Dernière intervention
20 juillet 2009

C'est supprimer le chiffre à l'intérieur
C'est un tableau
JE SAIT QU'un algorithme n'est pas un langage, mais le prof demande ça, j'utilise une astuce mais je veut un vrai méthode.
et voila l'astuce:
Sub Main()

Dim t(11) As Integer
Dim i, del, k, x, j, l, m As Integer
For i = 0 To 9
Console.WriteLine("entrer svp l'element no " & i + 1 & ":")
t(i) = Console.ReadLine
Next
Console.WriteLine("enter l'element que vous voulez supprimmer")
del = Console.ReadLine
k = 0
For i = 0 To 9
For j = 0 To 9
If del = t(j) Then
x = j
k = k + 1
If (k > 0) Then
For l = x To 9
t(l) = t(l + 1)
Next
End If
End If
Next
Next
If k = 0 Then
Console.WriteLine("l'element que veut taper n'existe pas")
End If
Console.WriteLine("les element qui restent:")
For m = 0 To 9
Console.WriteLine(t(m))
Next
m = Console.Read
End Sub
*je laisse une case vide et l'element supprimé reçoit sa contenu
alors comment on peut supprimmer un élément d'un tableau en:
-algorithme
-c++
-vb

Module Module1
Sub Main()
Dim n As Integer
Console.Write("Fixer svp la taille de tableau:")
n = Console.ReadLine()
If n <= 0 Then
Console.Write("La taille doit être sup à zéro")
Else
Dim T(n) As Integer
For i = 0 To n - 1
Console.Write("L'elt" & i & "=")
T(i) = Console.ReadLine()
Next
Console.WriteLine("Le tableau de départ est:")
For i = 0 To n - 1
Console.WriteLine(" " & T(i))
Next
Dim Xsupp As Integer
Console.Write("Donnez svp l'index la valeur que vous voulez supprimer:")
Xsupp = Console.ReadLine()
For X = Xsupp + 1 To UBound(T)
T(X - 1) = T(X)
Next
ReDim Preserve T(UBound(T) - 1)
Console.WriteLine("Le nouveau tableau sera:")
For i = 0 To n - 1
Console.WriteLine(" " & T(i))
Next
End If
Console.ReadLine()
End Sub
End Module
C'est le programmen en vb 2008