Programación VB, la conjetura de Goldbach.
función IS_SUSHU(chkdata siempre) como juicio de número primo booleano
dim kk siempre
kk=3
dim i siempre que
i=kk
while(kklt;long(chkdata/kk) y chkdata mod kklt;gt;0)
kk=kk 2
p>wend
si chkdata mod kklt;gt;0 entonces
is_sushu=true
else
is_sushu=false
finalizar si
finalizar función
En cuanto a juzgar si un número par no menor a 6 cumple con los requisitos, se estima que pocas personas pueden hazlo ahora
Puedes encontrar un conjunto de matrices principales que cumplan las condiciones
función Get_Sushu2(oushu mientras, byref su1 mientras, byref su2 mientras)
{
si oushu mod 2lt;gt;0 entonces
get_sushu2=false
msgbox "Error de entrada, no es un número par"
terminar si
atenuar i siempre
get_sushu2=false
i=3
mientras ilt;=oushu- i y no get_sushu2
si is_sushu(i) y is_sushu(oushu-i) entonces
Get_Sushu2=true
su1=i
su2=oushu-i
terminar si
i=i 2
wend
}