Discussion :

[houred]

bonjour
au cours de realisation de mon interface je suis tombé sur ce probleme et j'ai pas pu voir clair ou suis je trompé
je calcule un inconnu 'N2' reel .apres je dois le reutiliser comme entier (faut l'arrondir) j'ai fait plusieur chose dont cette manip

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var  N1,N:integer ; Lf_eff ,N2,Lf: real;
 
begin
N1:=strtoint (edit1.text);
Lf_eff:=strtofloat (edit2.text);
Lf:=strtofloat(form13.edit5.Text);
N2:=Lf/(Lf_eff);
Round(N2):=Integer;
N:=N2-N1;
    if N<5 then
  begin
        N:=N1;
    edit3.text:=inttostr(N)
  end
    else
    begin
Edit1.Text:='' ;
Edit2.Text:='' ;
    end

voici l'erreur affichée

[Erreur] Unit16.pas(49): La partie gauche n'est pas affectable
[Erreur] Unit16.pas(50): Opérateur ou point-virgule manquant
[Erreur fatale] Project1.dpr(22): Impossible de compiler l'unité utilisée 'Unit16.pas'

mais ca n'a pas marché .j'ai essayé de voir avec simpleroundto mais meme chose
ou est mon erreur a votre avis
merci pour votre aide

[Pierre de Nice]

Round(N2):=Integer;

CA VEUT DIRE QUOI ?

integer est un mot reservé et il n'est pas déclaré( ni a déclarer) :-)

Je me trompe peut etre .

A+

Pierre

[houred]

moi j'ai raisonné comme suite
en cliquant f1 sur round j'ai eu la syntax de la fonction et je l'ai pris comme arrondir le reel N2 en integer

[neodelphi2007]

Bonjour,

Voila ce que je te propose:

1- Effectivement integer est un mot reservé et il ne peut pas être une valeur à affecté mais peut servir pour un transtypage par exemple (V:=integer(A) )

2- Ensuite il faut remplacer la ligner "Round(N2):=Integer;"
par la ligne "N:=Round(N2);"

3- Puis pour transformé un REAL en un entier il faut utiler la fonction TRUNC,
N:=Trunc(N2)-N1;


Le code correct à priori:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
 
    var
    N1,N:integer ; Lf_eff ,N2,Lf: real;
 
begin
    N1:=strtoint (Edit1.text);
    Lf_eff:=StrToFloat(Edit2.text2);
    Lf:=strtofloat(form13.edit5);
    N2:=Lf/(Lf_eff);
    N:=Round(N2);
    N:=Trunc(N2)-N1;
    if N<5
    then begin
          N:=N1;
          text:=inttostr(N)
        end
    else
        begin
          Edit1.Text:='' ;
          Edit2.Text:='' ;
        end
end;

[droggo]

Gai,

3- Puis pour transformé un REAL en un entier il faut utiler la fonction TRUNC,
N:=Trunc(N2)-N1;

On peut utiliser Round ou Trunc, l'effet étant différent quand même :

- Avec Round, on arrondi au plus proche, par exemple
1.49 donnera 1
1.51 donnera 2

- Avec Trunc, on prend l'entier immédiatement inférieur, donc
avec les deux valeurs utilisées ci-dessus, on obtiendra 1

[Pascal Jankowski]

Pour arrondir rien de mieux que simpleroundto de l'unité math.

[droggo]

Hai,

Pour arrondir rien de mieux que simpleroundto de l'unité math.

Je ne suis pas d'accord quand il s'agit de calculer un simple arrondi au sens classique, c'est à dire quand on n'a pas besoin de tous les calculs supplémentaires impliqués par simpleRoundTo.

[Gilbert Geyer]

Bonjour,

En plus de :

- trunc() : qui renvoie la partie entière
- round() : qui renvoie l'arrondi vers l'entier le plus proche ou l'entier pair si la première décimale est un '5',

on dispose également de :

- floor() : qui renvoie l'arrondi "plancher"
- ceil() : qui renvoie l'arrondi "plafond"

A+

[houred]

merci pour vos reponse
j'ai utilisé round() mais je peux pas dire si ca marche ou pas j'attend que mon programme soit tout fonctionnel