Structures de données sous le langage Pascal

Résumé du document

Exercices corrigés sur les structures de données sous le langage de programmation PASCAL.

Extraits

[...] Solution program QSort; uses Crt; const Max = 1000; type List = array[ Max] of Integer; var Data: List; Integer; procedure QuickSort(var List; Lo, Hi: Integer); procedure Sort(l, Integer); var integer; begin i j x DIV repeat while [...]

[...] Université Hassan II Mohammedia Faculté des sciences Ben M'Sik Département mathématique et informatique Enseignant : M.MARZAK Année universitaire : 2004-2005 Table des matières Partie Statique Exercice 1 : Quick Sort Exercice 2 : Recherche dichotomie Exercice 3 : Expressions mathématiques équilibres Exercice 4 : Décimal ( Binaire Exercice 5 : Hanoi statique Exercice 6 : File non circulaire Exercice 7 : File circulaire Exercice 8 : Gestion de guichets statiques Exercice 9 : Ecriture dans un fichier Exercice 10 : Lecture sur un fichier Exercice 11 : Copier un fichier dans un autre Exercice 12 : Manipulation de pointeur Partie Graphique Exercice 1 : Agenda Exercice 2 : Hanoi graphique+Sourie Exercice 3 : Principe de la file circulaire+Sourie Exercice 4 : Autobus graphique Exercice 5 : Guichet graphique Exercice 6 : Liste chaînée de simple chinage Partie Statique Exercice1 Trier un tableau en utilisant la méthode Quick Sort (tri rapide) Principe : Choisir un élément de comparaison (pivot) Former deux sous listes -Dans la 1ere on place tous les éléments inférieurs au pivot. -Dans la seconde tous les éléments supérieurs. Le choix du pivot est arbitraire. [...]

[...] Exercice2 : Recherche dichotomie Rechercher une valeur dans un tableau déjà trié en utilisant la recherche dichotomie. Solution : program dichotomie ; var debut,fin,x:integer; a:array[ 50] of integer; function recherche_rec(deb,fin,x:integer):integer; var M:integer; begin if debut9 then else gotoxy(10,3);textcolor(15);write('L arrˆt conteint personnes'); gotoxy(10,3); write('L arrˆt conteint personnes'); if d>(dim-k1) then m:=(dim-k1) else for to m-1 do inserer(i); if k Globales} mov y,dx end end; {Procedures graphiques} procedure erreur; begin Gd Detect; InitGraph(Gd, Gm, ' if GraphResult grOk then Halt(1); setbkcolor(9);cleardevice; farecran; faraffiche; end; procedure plan; var max:integer; begin max:=150; setcolor(15); rectangle(160,max,160,350); rectangle(320,max,320,350); rectangle(480,max,480,350); rectangle(100,350,540,352); end; procedure nbrebar(var n:integer); var i:integer; begin if and (n150 do begin delay(temp);y1:=y1-1; SetFillStyle(1,0);bar(90+3*n1+i,y1+1,230-3*n1+i,y1-6); SetFillStyle(1,col);bar(90+3*n1+i,y1,230-3*n1+i,y1-7); end end else if j=0 then begin delay(temp); SetFillStyle(1,0);bar(90+3*n1+i+etat,150,230-3*n1+i+etat,143); SetFillStyle(1,col);bar(90+3*n1+i,150,230-3*n1+i,143) end else while i1 debut',#13#10,'2 Autre'); c:=readkey; case c of '2':ajouter(p); '1':ajoutdebut(p); end; until end; procedure supprimer(var p:ptr); var p1,p2:ptr; val:integer; begin window(1,1,80,25);clrscr; p1:=p;affiche(p1); write('L''element if p1^.a=val then p:=p1^.suiv else begin while (p1^.suivnil)and(p1^.aval) do begin p2:=p1; p1:=p1^.suiv end; if p1^.a=val then p2^.suiv:=p1^.suiv else writeln(val,' n''existe end end; {Programme BEGIN clrscr;new(noeud);saisie(noeud); 1:window(1,1,80,25);textbackground(9);clrscr; window(1,1,6,80);textbackground(9);clrscr;textcolor(15); writeln(#10#13' Realis‚s par:'#10#13' EL MAHDI AZIZ EDDINE'); window(22,7,42,21);textbackground(10);clrscr; window(20,6,40, 7);textbackground( 0);clrscr; textcolor(15);writeln(' Liste chaine'); window(20,8,40,20);textbackground(15);clrscr;writeln; textcolor(4);write(' I');textcolor(0);writeln('nitialiser');writeln; textcolor(4);write(' A');textcolor(0);writeln('jouter');writeln; textcolor(4);write(' S');textcolor(0);writeln('upprimer');writeln; textcolor(4);write(' C');textcolor(0);writeln('onsulter');writeln; textcolor(4);write(' F');textcolor(0);writeln('in'); case readkey of begin saisie(noeud); goto 1;end; begin ajoute(noeud); goto 1;end; begin supprimer(noeud); goto 1;end; begin affiche(noeud); goto 1;end; end END. [...]