tc balıkesir üniversitesi fen bilimleri enstitüsü matematik anabilim ...

EK H : “37 MODUNDA İKİNCİ DERECEDEN KALANLARI
HESAPLAMA”
># Q 37 ’i Hesaplama#
> restart;
p:=prime;x:=int;s:=int;
hesapla:=proc(p);
for x from 1 to p-1 do
with(numtheory):
s:=mroot(x,2,p);
if sFAIL then
print(x);
end if;
end do;
end proc;
hesapla(37);
p := prime
x := int
s := int
hesapla := proc( p)
local xs , ;
for x to p − 1 do
with( numtheory ) ; s := mroot ( x, 2, p) ; if s ≠ FAIL then print( x)
end if
end do
end proc
86