tc balıkesir üniversitesi fen bilimleri enstitüsü matematik anabilim ...
tc balıkesir üniversitesi fen bilimleri enstitüsü matematik anabilim ...
tc balıkesir üniversitesi fen bilimleri enstitüsü matematik anabilim ...
Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
EK J : “37 MODUNDA ÜÇÜNCÜ DERECEDEN KALANLARI<br />
HESAPLAMA”<br />
># K 37 ’i HESAPLAMA #<br />
> restart;<br />
p:=prime;x:=int;s:=int;<br />
hesapla:=proc(p);<br />
for x from 0 to p-1 do<br />
with(numtheory):<br />
s:=mroot(x,3,p);<br />
if sFAIL then<br />
print(x);<br />
end if;<br />
end do;<br />
end proc;<br />
hesapla(37);<br />
p := prime<br />
x := int<br />
s := int<br />
hesapla := proc( p)<br />
local xs , ;<br />
for x from 0 to p − 1 do<br />
with( numtheory ) ; s := mroot ( x, 3, p) ; if s ≠ FAIL then print( x)<br />
end if<br />
end do<br />
end proc<br />
89