Discussion :

[[ZiP]]

Bonjour,

Je dois convertir cette ligne C# en Pascal sous Lazarus :

Code C# :

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

bool flag = Math.Log10(num3 - 3.0) + Math.Log10(num3 + 1.0) == Math.Log10(4.0 * num3 - 3.0) && Math.Pow(2.0, num + 3.0) - Math.Sqrt(Math.Pow(2.0, num3 - 2.0 + 2.0 * num)) == 4.0 + 2.0 * Math.Pow(4.0, num / 2.0) && Math.Sqrt(3.0) * Math.Pow(Math.Tan(2.0 * num2), 2.0) - 4.0 * Math.Tan((num3 - 4.0) * num2) == Math.Sqrt(3.0) * -1.0;

J'ai commencé à travailler le code pour arriver à ça :

Code :

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

flag := (Log10(num3 - 3.0) + Log10(num3 + 1.0)) = (Log10(4.0 * num3 - 3.0) and (Power(2.0, num + 3.0) - Sqrt(Power(2.0, num3 - 2.0 + 2.0 * num))));

Le problème que je rencontre, c'est que le = ne passe pas, j'ai l'erreur suivante :

Error: Operation "and" not supported for types "Extended" and "Extended"

Votre aide est la bienvenue !

Merci,
ZiP

[Roland Chastain]

Bonjour !

Si je ne me trompe, la ligne en C contient trois comparaisons entre des valeurs numériques. Donc la structure de la ligne en Pascal devrait être :

Code :

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

flag := (a=b) and (c=d) and (e=f);

De cette façon le and n'est appliqué qu'à des valeurs booléennes, ce qui n'est pas le cas dans l'essai que tu as posté, puisqu'on y trouve ceci :

Code :

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

Log10(4.0 * num3 - 3.0) and

A ta place, je commencerais par présenter la ligne comme ça, et je remplacerais les expressions numériques une par une :

Code :

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

1
2
3
4
5
6
7
flag := (
  a = b
) and (
  c = d
) and (
  e = f
);

En espérant ne pas avoir dit de bêtise.

[M.Dlb]

Bonsoir,

Ce n'est pas parce que le C (et ses dérivés) permettent de faire des choses farfelues, qu'il faut faire pareil en Pascal

Es-tu obligé de tout garder sur une ligne ? Moi j'aurai découpé l'évaluation en plusieurs bouts, stockant chaque bout dans une variable temporaire de type booléen.

[[ZiP]]

Bonsoir,

Effectivement, une fois modifié j'ai ça :

Code :

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

1
2
3
4
5
6
7
8
 
flag := (
log10(num3 - 3.0) + log10(num3 + 1.0) = log10(4.0 * num3 - 3.0)
) and (
power(2.0, num + 3.0) - sqrt(power(2.0, num3 - 2.0 + 2.0 * num)) = 4.0 + 2.0 * power(4.0, num / 2.0)
) and (
sqrt(3.0) * power(tan(2.0 * num2), 2.0) - 4.0 * tan((num3 - 4.0) * num2) = sqrt(3.0) * -1.0
);

Par contre, à l’exécution, j'ai une exception (External : SIGFPE) sur la première ligne...

Cordialement,
ZiP

[Nullosse]

bonjour,
essaie ceci :

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
 
var  FPUExceptionMask : TFPUExceptionMask;
begin
 FPUExceptionMask := GetExceptionMask;
  SetExceptionMask(FPUExceptionMask + [exZeroDivide, exInvalidOp]);
 try
 flag := (
log10(num3 - 3.0) + log10(num3 + 1.0) = log10(4.0 * num3 - 3.0)
) and (
power(2.0, num + 3.0) - sqrt(power(2.0, num3 - 2.0 + 2.0 * num)) = 4.0 + 2.0 * power(4.0, num / 2.0)
) and (
sqrt(3.0) * power(tan(2.0 * num2), 2.0) - 4.0 * tan((num3 - 4.0) * num2) = sqrt(3.0) * -1.0
);
  finally
    SetExceptionMask(FPUExceptionMask);
  end;

pour l'explication regarde ici

Amicalement, nullosse

[[ZiP]]

Bonjour,

L'encadrement avec le try est suffisant.

Merci,
ZiP