Récréation pour Yannick

Sujet: Récréation pour Yannick Mar 22 Oct 2019 - 12:45

Ne quittons pas les carrés
mais, cette fois-ci, en recherchant la racine carrée de 9,87654321 par la méthode manuelle.

http://therese.eveilleau.pagesperso-orange.fr/pages/truc_mat/textes/r_carree_anc.htm

Il faudra poser des questions à l'utilisateur avec des ? où il devra proposer des solutions (soustractions, essais de carrés)
Réponse exacte et il passe à l'étape suivante
Réponse inexacte et il appuie 1 fois sur Entrée et il réessaye.
S'il appuie 2 fois de suite, le programme fournit la solution et continue.

Rien n'interdit de peaufiner le graphisme ou la fantaisie de la présentation.

PS. L'air de rien, cela va utiliser pas mal d'instructions pour programmer

Sujet: Re: Récréation pour Yannick Mar 22 Oct 2019 - 15:04

Pour le calcul des racines carrées, j’ai déjà proposé un code de calcul par la méthode de Héron.
https://panoramic.1fr1.net/t5660-racine-carree-dun-nombre-par-lalgorithme-de-heron?highlight=racine

Je le rappelle ici

Code:: rem ============================================================================
rem Extraction de la racine carrée d’un nombre par l’algorithme de Héron
rem ============================================================================

print " Racine carrée (ALGO) de 123456789 = " + str$(Racine_Carree(123456789))
print " Racine carrée (PANO) de 123456789 = " + str$(sqr(123456789))

end
rem ============================================================================
' Calcul de la racine carrée par l'algorithme de Héron d'Alexandrie
' Cet algorithme donne très vite un grand nombre de décimales correctes.
' C'est un algo d'une efficacité exceptionnelle
FNC Racine_Carree(n)
   dim_local x,x1,i,epsilon
   epsilon = power(10,0-10)
   x = 1 : ' Valeur arbitraire de départ
   repeat
   x1 = x
   x = 0.5 * (x + (n/x))
   until abs(x-x1) < epsilon
   result x
END_FNC
rem ============================================================================

J’ai également « panoramiqué » le code en flash dont tu fais référence.

Code:: rem ============================================================================
rem Extraction de racine carrée en FLASH
rem ============================================================================
dim u$
caption 0,"Extraction de racine carrée comme autrefois"
u$ = "http://therese.eveilleau.pagesperso-orange.fr/pages/truc_mat/textes/rac_carree.swf"
HTML_In_PANORAMIC(u$,20,20,width(0)-100,height(0)-150)
end
rem ============================================================================
SUB HTML_In_PANORAMIC(Flash$,xo,yo,larg,haut)
   dim_local hnd%, res%, url$, q$, WB1%
   q$ = chr$(34)
   file_open_write 9999,"flash.html"
   file_writeln 9999,"<embed src='"+Flash$+"'"+q$+" width="+q$+str$(larg)+q$+" height="+q$+str$(haut)+q$+">"
   file_close 9999
   hnd% = handle(0)
   url$ = "file://" + dir_current$ + "/flash.html"
   dll_on "kgf" : ' Adapter le chemin qui mène à KGF.DLL de Klaus
   WB1% = dll_call1("WB_Create",hnd%)
   res% = dll_call5("WB_Locate",WB1%,xo,yo,larg+50,haut+50)
   res% = dll_call2("WB_Url",WB1%,adr(url$))
   file_delete "flash.html"
END_SUB
rem ============================================================================

Sujet: re Mar 22 Oct 2019 - 17:43

Une récréation !
Je suis arrivé en enfer ! Oui...
Twisted Evil

Sujet: Félicitations Jeu 24 Oct 2019 - 6:40

Félicitations à Papydall

Je n’ai plus d’idées pour les carrés.
Je vous proposerai un nouveau défi lundi prochain.

D’ici là, je vous suggère de reposer vos petites cellules grises comme dirait Poirot (Hercule). Et pourquoi pas avec un petit shot d’Adrénaline qui sort aujourd’hui dans toutes les bonnes librairies.

Nombre de messages : 2747 Date d'inscription : 13/09/2009

Yannick a écrit:: Une récréation !
Je suis arrivé en enfer ! Oui...

Mais non, c'est le paradis, au contraire.
(celui des mathématiciens, bien sûr !)
study

» Récréation
» Recréation
» Compilateur les essais de Yannick
» Problème avec l'objet Memo.
» Un peu pour JL35 et pour vous et moi