TD programmation VB
Exercice 1 :
Écrire une fonction qui teste si une année est bissextile ou non.
Nb. Une année est bissextile si elle est divisible par 4 sauf si elle est divisible par 100
.par contre les années divisibles par 400 sont forcément bissextiles.
Exemple : 1996 est bissextiles car divisible par 4. Par contre ,1900 n’est pas bissextiles car
divisible par 100 et non par 400. Mais, 2000 est bissextile car divisible par 400.
Exercice 2 :
Un entier naturel de trois chiffres est dit cubique s’il est égal à la somme des cubes de ses
trois chiffres.
Exemple : 153 est cubique car 153=13+53+33 =1+125+27=153
Écrire une fonction qui vérifie si un nombre est cubique.
Exercice 3 :
Écrire une procédure qui permet de saisir les trois paramètres d’une équation du second
degré ax2+bx+c=0, et de discuter les solutions selon les valeurs de a, b et c, lorsqu’elles
sont nulles ou pas
Exercice 4 :
Soit une fonction F définie comme suit:
𝑥3 𝑝𝑜𝑢𝑟 𝑥 < 15
𝑓(𝑥) = {𝑥 − 12
𝑝𝑜𝑢𝑟 𝑥 ≥ 15 𝑒𝑡 𝑥 < 159
𝑥+3 𝑝𝑜𝑢𝑟 𝑥 ≥ 159
Écrire une fonction qui calcule la valeur de f.
Exercice 5 :
Soit un tableau de 30 éléments de type single, écrire une procédure pour calculer le
nombre d’éléments inférieurs à 5.
Exercice 6 :
Écrire une fonction qui calcule le produit d'une matrice de single de taille 4 x 4 par une
matrice de single de taille 4 x 4.
Exercice 7 :
Écrire une fonction qui vérifie si un mot est palindrome ou non :
Indication : un mot est palindrome s’il égal à son inverse
Exemple : LAVAL, ELLE, NON, RADAR.
Exercice 8 :
Écrire une fonction qui a en paramètre deux chaines de caractères et renvoie une chaine de
caractère constituée de l’ensemble des caractères commun aux deux chaines et orientée
selon la première.
Exercice 9 :
Créer une fonction Triangle(N as integer) qui permet d'afficher un triangle isocèle formé
d'étoiles de N lignes (N étant fourni au clavier) dans un fichier [Link]
Nombre de lignes : N= 8
*
*o*
*ooo*
*ooooo*
*ooooooo*
*ooooooooo*
*ooooooooooo*
***************
Exercice 10 : Te triangle de PASCAL
Écrire une procédure sub Pascal(N as integer) qui construit le triangle de PASCAL de
degré N et le mémorise dans une matrice carrée P de dimension N+1.
Exemple: Triangle de Pascal de degré 6:
1
n=0
n=1 1 1
n=2 1 2 1
n=3 1 3 3 1
n=4 1 4 6 4 1
n=5 1 5 10 10 5 1
n=6 1 6 15 20 15 6 1
Exercice 11 : La multiplication "à la russe"
La technique de multiplication dite "à la russe" consiste à diviser par 2 le multiplicateur (et
ensuite les quotients obtenus), jusqu’à un quotient nul, à noter les restes, et à multiplier
parallèlement le multiplicande par 2. On additionne alors les multiples obtenus du
multiplicande correspondant aux restes non nuls.
Exemple : 68 × 123 (= 8364)
multiplicande multiplicateur reste somme partielle
M×2 m÷2 m mod 2
123 68 0 (0 × 123) + 0
246 34 0 (0 × 246) + 0
492 17 1 (1 × 492) + 0
984 8 0 (0 × 984) + 492
1968 4 0 (0 × 1968) + 492
3936 2 0 (0 × 3936) + 492
7872 1 1 (1 × 7872) + 492
68 × 123 = 8364
Écrire la fonction MultiRusse(A as integer, B as integer) as integer.