bonjour je commence à peine la programmation mais je bloque sur cette exercice tout simple mais pas en delphi pour moi ^^
 
donc voila il faut résoudre une équation du premier degré et voila ce que j'ai  
 
procedure TForm1.btnresoudreClick(Sender: TObject);
var A,B,solution:Real;
A:=strtofloat(editA.text);
B:=strtofloat(editB.Text);
if (A<>0) then
begin
solution:=-B/A;
editsolution.Text:=floattostr(solution);
end
else
showmessage('impossible de diviser par 0');
end.  
 
à la 3ème ligne ca me dit que ce n'est déjà pas bon. pourriez vous m'éclairez svp
 
MERCI 2+

donc voila j'ai continuer a chercher car pas de réponses  
 
donc je suis arrivé là maintenant
 
procedure Tfrmequation.btnresoudreClick(Sender: TObject);
var A,B,solution:real;
begin
A:=strtofloat(editA.text);
B:=strtofloat(editB.Text);
 
if a<>0 then
begin
solution:=-B/A;
editsolution.Text:=floattostr(solution);
end
else
showmessage ('impossible de diviser par 0');
 
end
 
mais quand j'execute je recoit 2 message d'erreur
 
[Erreur] Unitresolution.pas(50): ';' attendu(e) mais fin de fichier trouvé(e)
[Erreur fatale] Projectresolution.dpr(5): Impossible de compiler l'unité utilisée 'Unitresolution.pas'
 
ca serait sympa de m'éclairer @+

B'soir,
En zieutant quelque autre bout de code trainant sur ce forum, j'ai remarqué qu'il faut terminer une procedure par "end;", or il te manque ce ";" après le dernier end.

yes, "end;" à la fin de la procédure et le "end." tout à la fin (fin de fichier avec le end. quoi)

non car si je met mon end; en fin de procedure le else n'est pas valide et le end. n'est pas bon. mais bon mon pote la fait et lui ca a marche car son fichier unit n'était pas le même que moi: moi j'avais un fichier unit.pas et lui   unit    sans le .pas et c'est ça qui a fait tout buger

un peu d'apprentissage sur le langage ne serait-il pas mal ???
un exemple de cours sur le Pascal et le Delphi :
=> http://fbeaulieu.developpez.com/guide/?page=sommaire

Hey All,
what dont you try it this way:
procedure TForm1.Button1Click(Sender: TObject);
begin
 
A:= strtofloat(Edit1.text);
B:= strtofloat(Edit2.text);
   if (A=0) then
         showmessage('impossible de diviser par 0');
 
if (A<>0) then
 
solution:=-B/A;
Edit3.Text:=floattostr(solution)
  end;
 
end.
 
it works for me  
go test it and reply please  
Peace