Discussion :

[Darkarcher]

Bonjour à yous,
Ben je bloque un peu sur mon programme :

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
program B4;
uses crt;
var i,j:integer;
    c,d:real;
begin
c:=0;
d:=0;
for i:=1 to 1000 do
    begin
         for j:=1 to 1000 do
         c:=SQR(j)+SQR(i);
         d:=sqrt(c);
         if (frac(d))=0 then
         writeln('i= ',i,' j= ',j,' d= ',d);
    end;
readln;
end.

le but de frac(d) c'est de trouver que les nombre qui ont une racine entiere mais le problème c'est qu'il fait pas ce qui lui est demandé

je voudrais savoir si il existe une syntaxe qui fait que
if (sqrt(c)) = integer then
writeln('i= ',i,' j= ',j,' c= ',c)

merci

[Eric Sigoillot]

Salut !

Pourtant, Frac fonctionne très bien. Mais prend bien garde à comparer avec un réel. Ici, tu utilises un entier : 0. Il faut bien indiquer à ton compilateur que tu attends un réel avec 0.0.

Donc ce code là doit fonctionner :

Code :

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

if Frac(d) = 0.0 then ...

Si ce n'est pas ce que tu attends, c'est que ton programme ne fait pas ce que tu attends


@++

PS: Prends aussi l'habitude de n'inclure que les unités dont tu as besoin. Ici, Crt est tout sauf utile.

[Prof]

Il faut mettre un " begin " et un " end " pour la boucle d'indice j .

[Darkarcher]

j'avais remarqué ceci
là le program execute la tache qui lui a été assingé mais un peu trop (c'est fou de voire cbien y'as d'entier pytagoracien)
merci pour tout

[Loceka]

en même temps sur 1 million de tests c'est sûr que t'as beaucoup de retours !