0/5 (1 avis)
Vue 6 861 fois - Téléchargée 715 fois
//Je mets juste la procédure du bouton, pour le reste téléchargez le zip procedure TForm1.Button1Click(Sender: TObject); var A,B,C: Integer; Delta: Integer; Res0,Res1,Res2: Single; begin A:=StrToInt(Edit1.Text); B:=StrToInt(Edit2.Text); C:=StrToInt(Edit3.Text); Delta:=(B * B) - 4 * (A * C); if Delta > 0 then begin Res1:=((-B)-Sqrt(Delta))/(2 * A); Res2:=((-B)+Sqrt(Delta))/(2 * A); Label5.Caption:='Les deux solutions sont :'; Label6.Caption:=FloatToStr(Res1); Label7.Caption:=FloatToStr(Res2); end else if Delta = 0 then begin Res0:=(-B)/(2 * A); Label5.Caption:='La solution est :'; Label6.Caption:=FloatTostr(Res0); end else begin Label5.Caption:='Pas de solutions'; end; end;
9 juil. 2003 à 23:47
1/ Si on met une lettre dans les edit, ca va planter.
2/ Si a=0, ca va planter (car l'equation ne sera pas du second degré)
3/ Pas de solutionS ne prend pas de S ( puisqu'il n'y en a pas justement :)
Voila, bon courage.
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.