INFORMATIQUE 

EXERCICES


 
LYCEE CHEBBI KASSERINE
  DEVOIR DE CONTROLE N°2
Matière : Informatique 
Date : 30/01/1999  Durée: 1 heure
Enseignant : KACHBOURI Khaled 
Classe : 7ème année 
EXERCICE N°1 :(5pts)
Après l’exécution des instructions suivantes écrites en TURBO PASCAL, donner le contenu de chaque  variable :
a- I:= 0 ;
 CH1 := ‘*un***devoir** facile***’ ;
 WHILE      POS(‘**’, CH1) <> 0 DO
  BEGIN
   DELETE (CH1, POS(‘**’, CH1), 2) ;
   I := I+1 ;
  END ;
 L := LENGTH(CH1) ;

Donner les contenus des variables I et L et CH1 :
I=.............
L=.............
CH1=.............
 
b-  STR(123, X) ;
 Y := X + ‘4’ ;
 VAL(Y, Z, E) ;

Donner les contenus des variables X, Y, Z et E :
 X=.........
 Y=.........
 Z=.........
 E=......... 

c- CH1 := ‘DEVOIR DE CONTROLE N2’ ;
 CH2 := ‘INFO ’ ;
 INSERT(CH2,CH1,7) ;
 DELETE(CH1, 13,8) ;
DELETE(CH1, 13,4) ;

Donner les contenus des variables CH1et CH2 :
 CH1=................
 CH2=................

EXERCICE N°2 : (3pts)
Compléter le programme PASCAL suivant :
PROGRAM  TEST ;
TYPE
 TAB ...........................[......................] OF integer ;
VAR
 T : ......................;
 CH1 : ......................[ ......................] ;
            ...................... : STRING ;
            ...................... :integer;
BEGIN
Readln(CH1) ;
FOR  I ......................TO 20 DO
 Write(UPCASE(......................)) ;
......................:= COPY(CH1, 5, 6) ;
Write(CH2);
FOR  I ......................TO 20 DO
  Write(T[i]) ;
END.
 
EXERCICE N°3 : (12pts)
Ecrire un algorithme REN_TRI qui permet de :
· Lire un entier N ( 2<= N <=100)
· Lire les éléments d’un tableau T à N entiers
· Lire un entier X
· Calculer et afficher le nombre d’apparition de x dans ce tableau
· Déterminer et afficher la première position de X dans le tableau T
· Calculer et afficher le maximum des éléments du tableau
· Renverser les éléments du tableau
 T[1] avec T[n]
 T[2] avec T[n-1]
   .     .
   .     .
· Insérer  un entier Y à la position J dans ce tableau (1<= J <= N)
· Trier le tableau en ordre décroissant

Bonne chance


  Page precedante                                                                                                      Page suivante
ACCEUIL|CLUB D'INTERNET|CLUBS|