Conversion de C# vers Pascal

Bonjour,

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

Code:

---

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:

---

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 :

Citation:

---

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

---

Votre aide est la bienvenue !

Merci,
ZiP

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:

---

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:

---

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:

---

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. :aie:

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 :mouarf:

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.

Bonsoir,

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

Code:

---

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

bonjour,
essaie ceci :

Code:

---

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 8O ici

Amicalement, nullosse

Bonjour,

L'encadrement avec le try est suffisant.

Merci,
ZiP