Types incompatibles 'Integer' et 'Extended'
Résolu/Fermé
JordanP31
Messages postés
26
Date d'inscription
vendredi 24 février 2017
Statut
Membre
Dernière intervention
23 mars 2017
-
14 mars 2017 à 12:07
JordanP31 Messages postés 26 Date d'inscription vendredi 24 février 2017 Statut Membre Dernière intervention 23 mars 2017 - 14 mars 2017 à 13:52
JordanP31 Messages postés 26 Date d'inscription vendredi 24 février 2017 Statut Membre Dernière intervention 23 mars 2017 - 14 mars 2017 à 13:52
A voir également:
- Types incompatibles 'Integer' et 'Extended'
- Les types de ram - Guide
- Mplayer os extended - Télécharger - Lecture
- Types de souris informatique - Guide
- Incorrect integer value: '' for column ✓ - Forum MySQL
- Les types de compte utilisateur - Guide
1 réponse
Pour résoudre une équation de second degré, essayez cette solution adaptée et n'oubliez pas de passer RESOLU si la solution vous conviennes .
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Memo1: TMemo;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var A,B,C, Delta, X1, X2 : Double;
begin
A := StrToFloat(Edit1.Text);
B := StrToFloat(Edit2.Text);
C := StrToFloat(Edit3.Text);
Delta:= Sqr(B) -(4*A*C);
if Delta > 0 then begin
X1 := (-B - Sqrt(Delta))/ (2*A);
X2:=(-B + Sqrt(Delta))/ (2*A);
Memo1.Lines.Add('L''équation a deux racines distinctes :');
Memo1.Lines.Add('X1 = ' + FloatToStr(X1));
Memo1.Lines.Add('X2 = ' + FloatToStr(X2));
end else if Delta = 0 then begin
X1 := -B /(2*A);
Memo1.Lines.Add('L''equation a une solution unique :');
Memo1.Lines.Add('X1 = ' + FloatToStr(X1)) end else // Le cas Delta < 0
Memo1.Lines.Add('L''equation n''a pas de solution dans R');
end;
end
14 mars 2017 à 13:52