1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
| imports system
imports microsoft.visualbasic
module pers
sub main()
dim T() as integer
dim test as boolean
dim i,pos,j ,taille,nbr,choix as integer
do
console.writeline(" menu ")
console.writeline(" 1-ajouter ")
console.writeline(" 2-afficher ")
console.writeline(" 3-supprimer ")
console.writeline(" 4-rechercher ")
console.writeline(" 5-quitter ")
console.write(" entrz votre choix")
choix=console.readline()
loop until choix>0 or choix<=4
select case choix
case 1
do
console.write(" entrz la taille du tableau :")
taille=console.realine()
taille-=1
loop until taille>=0
redim T(taille)
for i=0 to T.length-1
console.writeline(" entrez le nombre N° : " & i+1 )
T(i)=console.readline()
pos=i
next
case 2
for i=0 to T.length-1
console.writeline(T(i))
next
case 3
console.writeline(" entre le nombre a supprimer ")
nbr=console.readline)
if nbr=T(i) then
test=true
end if
if test=true then
for j=pos to T.length-1
T(j)=T(j+1)
next
end if
loop until choix=5
end sub
end module |
