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

Fermé

morad11 Messages postés 22 Date d'inscription samedi 24 novembre 2007 Statut Membre Dernière intervention 20 juillet 2009 - 8 janv. 2008 à 00:05
Amour de fleur - 8 mars 2008 à 20:27

Bonjour,
comment on peut supprimmer un élément d'un tableau en:
-algorithme
-c++
-vb

A voir également:

Supprimer un élément d'un tableau algorithme
Tableau croisé dynamique - Guide
Supprimer une page word - Guide
Supprimer compte instagram - Guide
Tableau ascii - Guide
Comment recuperer un message supprimé sur whatsapp - Guide

2 réponses

Réponse 1 / 2

Utilisateur anonyme
8 janv. 2008 à 00:23

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

Réponse 2 / 2

morad11 Messages postés 22 Date d'inscription samedi 24 novembre 2007 Statut Membre Dernière intervention 20 juillet 2009
8 janv. 2008 à 00:41

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

Amour de fleur
8 mars 2008 à 20:27

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

Discussions similaires

Décalage dans un tableau

Créer un tableau et supprimer une case sans décalage

les tableaux de l'algorithmique

Lire un tableau en C.

affichage tableau sous C

dernière valeur - PHP et les tableaux

Discussions similaires

Newsletters