Delphi BX Bedienungsanleitung

page 48 de 93 Deuxième partie : Cours de Ière Applications Delphi

page 57 de 93 7.5.5 Remarques − La méthode Tformulaire.btnExitClick aura comme seule commande Applica-tion.Terminate. De cette manière

page 58 de 93 edtB TEdit valeur de b edtC TEdit valeur de c btnCalcul TButton Calcul gbCoeff TGroupBox Coefficients gbRes TGroupBox

page 59 de 93 unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons; type

page 60 de 93 lblX2.Caption:='x2 = ' + FloattoStr((-b+sqrt(disc))/(2*a)); end; end; procedure Tformulaire.btnExitClick(Sender: TO

page 61 de 93 Nous essayons de traduire ceci en Delphi. 7.7.2 Présentation visuelle Pour cela il nous faut d’abord un formulaire que no

page 62 de 93 7.7.3 Code Une fois ce formulaire établi, nous devons programmer le code nécessaire. Voici un exemple d’implémentation. unit Unit1

page 63 de 93 j2:= StrToInt(copy(s,8,1)); n1:= StrToInt(copy(s,9,1)); n2:= StrToInt(copy(s,10,1)); nc:= StrToInt(copy(s,11,1));

page 64 de 93 7.8 Une petite machine à calculer Dans ce prochain exercice nous nous proposons de mettre en œuvre une petite machine à calculer, q

page 65 de 93 btnButtonmult TButton * btnButtonplus TButton + btnButtonarret TButton Stop 7.8.2 Code Une possibilité de code pour cet

page 66 de 93 end; var formulaire: Tformulaire; implementation {$R *.dfm} procedure Tformulaire.FormCreate(Sender: TObject); begin flag:

page 49 de 93

page 67 de 93 procedure Tformulaire.btnButtonmultClick(Sender: TObject); begin n1:=StrToInt(edtNum.Text); flag := 1; op := 3; end; procedur

page 68 de 93 Les mêmes variables flag, op, n1, n2 et n3 sont utilisées dans toutes les procédures, et sont donc déclarées dans l’en-tête du progr

page 69 de 93 Nous référençons une cellule par Cells[colonne,ligne]. Attention : nous devons faire attention que le comptage des lignes

page 70 de 93 lblInv TLabel inv btnEff TButton effectuez btnInv TButton inverse btnArret TButton Stop name type items l

page 71 de 93 procedure btnEffClick(Sender: Tobject); procedure btnInvClick(Sender: Tobject); procedure btnArretClick(Sender: Tobject)

page 72 de 93 det:=StrToInt(sgMat3.Cells[0,0])*StrToInt(sgMat3.Cells[1,1]) -StrToInt(sgMat3.Cells[1,0])*StrToInt(sgMat3.Cells[0,1]); a:=

page 73 de 93 8 La récursivité 8.1 Exemple La fonction suivante calcule une puissance de base réelle non nulle et d’exposant naturel : function

page 74 de 93 8.3 Etude détaillée d’un exemple Dans ce paragraphe nous revenons à la fonction « puissance » de la page précédente et nous allons

page 75 de 93 8.4 Fonctionnement interne Dans ce paragraphe on va chercher une réponse à la question comment le système gère l’exécution d’une pr

page 76 de 93 égal à n*(n-1)! par l’hypothèse de récurrence et qui est encore égal à n! par la définition ma-thématique de la factorielle. Cette d

page 50 de 93 7 Delphi 7.1 Introduction Après son lancement, Delphi se présente sous la forme de 4 fenêtres. La première fenêtre occupe la part

page 77 de 93 Que fait la fonction itérative ? Si n>1, cette fonction effectue exactement n-1 additions sur des nombres du type int64, et u

page 78 de 93 Un certain nombre de problèmes admettent une solution récursive « très élégante » (algorithme simple à rédiger et à compr

page 79 de 93 9 Comptage et fréquence 9.1 Algorithme de comptage On veut réaliser une fonction qui compte le nombre d’occurrences d’une chaîne d

page 80 de 93 Exercice 9-2 Réalisez un sous-programme qui permet de compter le nombre d’occurrences des différentes lettres dans une chaîne de car

page 81 de 93 10.3 Les algorithmes de tri Le but d’un algorithme de tri est d'arranger des données selon un critère imposé. Ce critère repré-

page 82 de 93 10.3.2 Tri par insertion 10.3.2.1 Idée On considère un élément après l’autre dans la liste et on cherche sa position dans la liste

page 83 de 93 10.3.2.4 Exercice Exécutez pas à pas les deux algorithmes en utilisant la liste suivante : C;A;R;T;O;O;N. 10.3.3 Tri rapide 10.3.3

page 84 de 93 La fonction division se présente de la manière suivante : function division(var liste: TListbox;g,d:integer):integer; var i,j : inte

page 85 de 93 des deux-sous-listes (le plus à gauche et le plus à droite) et replace le plus petit des deux dans la liste principale et ainsi de s

page 86 de 93 i:=0 ; end; end; 10.4 Les algorithmes de recherche Les algorithmes de recherche ont pour but de déterminer l’indice d’un élément

page 51 de 93 Les fichiers .DPR, .DFM et .PAS sont les fichiers nécessaires à la programmation et doivent être copiés pour continuer le développem

page 87 de 93 10.4.2.2 Solution récursive function dicho_r(liste:TListbox;cle:string;g,d:integer):integer; var milieu:integer; begin if g>

page 88 de 93 11 Opérations sur les polynômes 11.1 Introduction Pour exécuter les opérations sur les polynômes de façon efficace, on crée un nouv

page 89 de 93 11.3 Transformation d’un polynôme donné sous forme de texte en une liste de coefficients Il s’agit ici de transformer un polynôme do

page 90 de 93 end; if pol='' then lbpoly.Items.Append('0') else lbpoly.Items.Append(pol); //constante

page 91 de 93 expo:=strtoint(copy(pol,plexp,pos1-plexp+1)); p.d:=expo; while (pos('x',pol)<>0) do begin

page 92 de 93 for i:=0 to a.d do s.c[i]:=a.c[i]+b.c[i]; for i:=a.d+1 to b.d do s.c[i]:=b.c[i] end else begin s.d:=a.

page 93 de 93 der.d:=0; der.c[0]:=0 end else der.d:=a.d-1; derivee:=der end; 11.7.2 Intégration La procédure donne la primitive

page 52 de 93 7.3.3 Les événements Pour chaque objet, il peut survenir certains événements, qui déclenchent des réactions. Dans l’exemple de l

page 53 de 93 7.4.2 Les conversions de types Les données inscrites dans les boîtes d’édition sont de type texte (string). Nous devons donc les tr

page 54 de 93 7.5 Calcul de la factorielle Comme premier programme essayons d’implémenter en Delphi le calcul de la factorielle. Rappelons que

page 55 de 93 7.5.2 Code Une fois ce formulaire établi, nous pouvons écrire le code nécessaire pour calculer la factorielle. Rappelons que nous

page 56 de 93 edtNombre: TEdit; lblEgal: TLabel; btnOk: TButton; lblResultat: TLabel; procedure btnOkClick(Sender: TObject);