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
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
Trouvez des réponses à vos questions sur les langages, les frameworks et les astuces de codage. Échangez avec d'autres développeurs passionnés pour améliorer vos compétences en programmation et rester au fait des dernières tendances du secteur.
