search

Delphi BX Bedienungsanleitung Seite 13

  • Herunterladen
  • Zu meinen Handbüchern hinzufügen
  • Drucken
  • Seite
    / 46
  • Inhaltsverzeichnis
  • LESEZEICHEN
    • Bewertet. / 5. Basierend auf Kundenbewertungen
Seitenansicht 12
page 60 de 93
lblX2.Caption:='
x2 =
' + FloattoStr((-b+sqrt(disc))/(2*a));
end;
end;
procedure Tformulaire.btnExitClick(Sender: TObject);
begin
Close;
end;
end.
7.6.3 Explications du programme
Nous lisons d’abord les 3 coefficients a, b et c de l’équation. Comme nous les avons définis comme
variables réelles, nous devons utiliser la fonction StrtoFloat pour faire la transformation entre
la chaîne de caractères que représente edt*.Ttext et les variables a, b et c.
Nous calculons ensuite le discriminant. En fonction du signe du discriminant nous envisageons les 3
cas :
− disc<0 : il n’y a pas de résultat réel ;
− disc=0 : il y a une racine ;
− disc>0 : il y a deux racines réelles distinctes.
En fonction des différents cas nous calculons les valeurs des racines.
À la fin il nous reste encore à transformer les valeurs réelles, résultats des calculs, en chaînes de ca-
ractères pour les affecter à la propriété Caption des différentes étiquettes. Nous faisons ceci avec
la fonction FloatToStr.
La méthode Tformulaire.btnExitClick aura comme seule commande Application.
Terminate. De cette manière l’événement Click lié au bouton btnExit aura comme effet-net
d’arrêter l’application.
7.7 Vérification du numéro de matricule
Développons ici un exercice qui prend en entrée le numéro de matricule d’une personne et qui véri-
fie que le chiffre de contrôle est correct.
7.7.1 Rappelons la méthode de calcul du numéro de contrôle.
Si nous notons cnnjjmmaaaa
2121214321
un numéro de matricule, nous formons le dernier chiffre en
parcourant les étapes suivantes :
− Nous formons la somme :
2121214321
*2*3*4*5*6*7*2*3*4*5 nnjjmmaaaasum +++++++++= ;
− soit n le reste de la division de sum par 11 ;
− si n=1 il y a une faute ;
− si n=0 le chiffre de contrôle reste 0 ;
−
si
1et 0
≠
≠
nn alors le chiffre de contrôle vaut n
−
11 .
Seitenansicht 12
1 2 ... 8 9 10 11 12 13 14 15 16 17 18 ... 45 46

Kommentare zu diesen Handbüchern

Keine Kommentare
  • Complet Bluefox Fuelab Honeywell Avoca
  • Audiovox Kopfhörer Koolatron Hardware-Kühlungszubehör Schumacher Netzteile und Wechselrichter Silvercrest Mikrowellen Philips Epilierer
  • Delta 24T2643 LG W1943SS-PF Cadence Flash F100-5 Mb-quart RVF 210 Samsung SC7840
  • LG LGD722 Bedienungsanleitung Acer V223WL Bedienungsanleitung AEG SKZ81800C0 Bedienungsanleitung Volvo XC60 Drive Spezifikationen Sony DSC-F505V Bedienungsanleitung