Re: Расширение longint'a
Добавлено: 24 янв 2008, 13:43
с калькулятором сидеть не обязательно...
[HTML]<html>
<head>
<title>Автоморфные числа в заданном интервале</title>
<script language="JavaScript">
<!-- //
function interav (obj )
{ var s=""
var l=obj.left.value
var r=obj.rig.value
var s="Автоморфные числа в интервале от "+l+" до "
+r+"\r\n"
for (var i=l; i<=r; i++)
if ( avtomorf (i))
s +=i+" "+i*i+"\r\n"
obj.result.value=s
}
function avtomorf (a )
{ var p=a*a
var sa= String(a)
var sp= String(p)
var nsa= sa.length
var nsp= sp.length
endsp=sp.substr(nsp-nsa,nsa)
return (endsp==sa)
}
//-->
</script>
</head>
<body>
<h4>Автоморфные числа в заданном интервале</h4>
<form name="form1">
<pre>
Левое значение интервала: <input type="text" size=10
name="left">
Правое значение интервала: <input type="text" size=10
name="rig"><hr>
<input type="button" value=Найти onClick="
interav(form1)">
<textarea cols=45 rows=5 name=result></textarea>
<input type="reset" value=Очистить>
</pre>
</form></body></html>[/HTML]
с этой прогой можно найти последовательность автоморфных чисел...
[HTML]<html>
<head>
<title>Автоморфные числа в заданном интервале</title>
<script language="JavaScript">
<!-- //
function interav (obj )
{ var s=""
var l=obj.left.value
var r=obj.rig.value
var s="Автоморфные числа в интервале от "+l+" до "
+r+"\r\n"
for (var i=l; i<=r; i++)
if ( avtomorf (i))
s +=i+" "+i*i+"\r\n"
obj.result.value=s
}
function avtomorf (a )
{ var p=a*a
var sa= String(a)
var sp= String(p)
var nsa= sa.length
var nsp= sp.length
endsp=sp.substr(nsp-nsa,nsa)
return (endsp==sa)
}
//-->
</script>
</head>
<body>
<h4>Автоморфные числа в заданном интервале</h4>
<form name="form1">
<pre>
Левое значение интервала: <input type="text" size=10
name="left">
Правое значение интервала: <input type="text" size=10
name="rig"><hr>
<input type="button" value=Найти onClick="
interav(form1)">
<textarea cols=45 rows=5 name=result></textarea>
<input type="reset" value=Очистить>
</pre>
</form></body></html>[/HTML]
с этой прогой можно найти последовательность автоморфных чисел...