rss
Rechercher : dans
Par : Pertinence Date Nom d'utilisateur
Statut : Non résolu

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

Posté par morad11, le mardi 8 janvier 2008 à 00:05:11
Bonjour,
comment on peut supprimmer un élément d'un tableau en:
-algorithme
-c++
-vb
Configuration: Windows XP
Internet Explorer 6.0
Répondre à morad11  Signaler ce message aux modérateurs Aller au dernier message

1


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
coucou_c_julien, le mardi 8 janvier 2008 à 00:23: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épondre à coucou_c_julien

2


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
morad11, le mardi 8 janvier 2008 à 00:41:44
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
Répondre à morad11

3


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
 Amour de fleur, le samedi 8 mars 2008 à 20:27:36
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
Répondre à Amour de fleur
Logiciels pertinents trouvés dans les téléchargements
Télécharger Support IPX pour Vista 1.0Support IPX pour Vista - Le protocole IPX/SPX sert à de nombreux anciens jeux pour pouvoir jouer en réseau (Red Alert, Command & Conquer, etc.). ...Catégorie: Librairies (DLL)
Licence: Freeware/gratuit
Télécharger Anti yeux Rouges 26/05/2004Anti yeux Rouges - Anti Yeux Rouges est un logiciel très simple permettant uniquement de corriger les yeux rouges sur une photo en quelques...Catégorie: Retouche photo
Licence: Freeware/gratuit
Télécharger avast! Virus Cleaner 1.0.211avast! Virus Cleaner - Tout le monde connaît l' antivirus gratuit Avast . Son éditeur propose avast! Virus Cleaner, un nettoyeur de virus...Catégorie: Antivirus
Licence: Freeware/gratuit
Télécharger MediaInfo 0.7.7.4MediaInfo - MediaInfo fournit la liste des codecs nécessaires ainsi que des informations techniques sur vos fichiers vidéo et audio. ...Catégorie: Codecs
Licence: Open Source
Plus de logiciels gratuits sur « comment supprimmer un élément d'un tableau? »