Algorithme equation 1er degré
stratman
Messages postés
224
Statut
Membre
-
fatima -
fatima -
Bonjour,
je commence les algorithme et je doi faire celui d'une equation du premier degre. j'utilise le language delphi
donc j'ai ça
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.
mais ca ne marche pas donc pouvez vous m'aider si vous vous y connaissait en delphi
je commence les algorithme et je doi faire celui d'une equation du premier degre. j'utilise le language delphi
donc j'ai ça
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.
mais ca ne marche pas donc pouvez vous m'aider si vous vous y connaissait en delphi
A voir également:
- Algorithme qui résout une équation du premier degré
- 94 degre - Télécharger - Divers Jeux
- Degré clavier iphone - Guide
- Editeur d'équation - Télécharger - Vie quotidienne
- Logiciel algorithme euromillion - Télécharger - Loisirs créatifs
- Clémence souhaite faire calculer automatiquement les prix de 30 produits dans trois devises. elle a déjà saisi une formule de calcul pour le tarif du premier produit dans la première devise. corrigez sa formule afin que recopiée vers le bas puis vers la droite, elle remplisse correctement tout le tableau. - Forum Excel
6 réponses
Salut !
Pour info, Delphi c'est du Pascal ! le savoir t'aidera à trouver plus rapidement des réponses dans le forum ;-)
1) il te manque un begin entre les déclarations de variables et le début du code.
2) une procédure se termine par un ";" il n'y a que le programme qui termine par un "."
Pour info, Delphi c'est du Pascal ! le savoir t'aidera à trouver plus rapidement des réponses dans le forum ;-)
1) il te manque un begin entre les déclarations de variables et le début du code.
2) une procédure se termine par un ";" il n'y a que le programme qui termine par un "."
unit Unitequation;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
Tfrmequation = class(TForm)
LblA: TLabel;
LblB: TLabel;
btnresoudre: TButton;
EditA: TEdit;
EditB: TEdit;
Lblsolution: TLabel;
Editsolution: TEdit;
procedure btnresoudreClick(Sender: TObject);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;
var
frmequation: Tfrmequation;
implementation
{$R *.dfm}
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;
c'est ça que tu as besoin ?
Tu as oublié un ";" à la fin de ton instruction showmessage, essaye de modifier ça déjà.
non si je modifie procedure ca me met erreur . donc j'ai mi le ; apres l'instruction showmessage mais maintenant c pour le dernier end que ca bug si je met end; j'ai une ligne rouge mais en dessous tout le code donc je sais pas c'est quoi qui bug. si je met end. bun ca me dit que c'est une erreur pour cette ligne et si je met rien ca me fait la même erreur que lorsque je met end;
C'est parce qu'il te manque ton point d'entrée !
Il faut terminer ton unité par begin end.
Comme ça, ça peux paraître idiot mais ça ne l'est pas tant que ça...
Si tu veux regarde une unité que j'ai faite il y a pas mal de temps déjà (ici), tu verras que le begin end. final peux parfois servir à initialiser l'unité.
Il faut terminer ton unité par begin end.
Comme ça, ça peux paraître idiot mais ça ne l'est pas tant que ça...
Si tu veux regarde une unité que j'ai faite il y a pas mal de temps déjà (ici), tu verras que le begin end. final peux parfois servir à initialiser l'unité.
Tu devrais donc avoir :
implementation
{$R *.dfm}
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;
begin end.
donc ca donne ça
procedure TForm1.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 la c'est dans la ligne du if que ca me met une faute je doit dire a différent de zéro mais je sais pas comment faire à part <>
procedure TForm1.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 la c'est dans la ligne du if que ca me met une faute je doit dire a différent de zéro mais je sais pas comment faire à part <>
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
En fait le <>0 me dérange aussi, mais je n'arrive pas à me souvenir comment on fait en Pascal :p
Enlève les parenthèses déjà, je pense que c'est ça qui pose problème.
Enlève les parenthèses déjà, je pense que c'est ça qui pose problème.
oui sans les paranthèse ca passe mais ca me met encore des erreurs que je ne comprend pas pour cette ligne la
editsolution.Text:=floattostr(solution);
pourtant mes autres exercice fonctionnaient comme ça
editsolution.Text:=floattostr(solution);
pourtant mes autres exercice fonctionnaient comme ça
Ton programme ne se limite pas à la procédure btnresoudreClick, il y a forcément du code ailleurs.
Je pense que dans ton code tu dois faire un uses Unitresolution
En effet, il doit y avoir quelque part (sûrement caché dans le fichier Unitresolution.pas) la déclaration de TForm1, editA, editB, editsolution, ainsi que le point d'entrée du programme.
Je pense que dans ton code tu dois faire un uses Unitresolution
En effet, il doit y avoir quelque part (sûrement caché dans le fichier Unitresolution.pas) la déclaration de TForm1, editA, editB, editsolution, ainsi que le point d'entrée du programme.
