Bonjour à yous,
Ben je bloque un peu sur mon programme :
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é
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.
je voudrais savoir si il existe une syntaxe qui fait que
if (sqrt(c)) = integer then
writeln('i= ',i,' j= ',j,' c= ',c)
merci
Partager