💾 Archived View for gem.ortie.org › docs › informatique › forth › carre.fs.txt captured on 2023-03-20 at 17:53:55.

View Raw

More Information

⬅️ Previous capture (2023-01-29)

-=-=-=-=-=-=-

: calc_carre dup * ;   \ calcule le carré sans l'afficher  

: carre calc_carre . ;   \ calcule le carré puis l'affiche

: affiche_carre dup calc_carre swap . ." au carre est " . ; \ affiche la valeur du carré d'un nombre avec le calcul détaillé

: table_carre 10 0 do i affiche_carre cr loop ;   \ affiche un tableau de nombres au carré

: calc_cube dup calc_carre * ;

: cube calc_cube . ; 

: affiche_cube dup calc_cube swap . ." au cube est " . ;  \ affiche la valeur au cube

: table_cube 10 0 do i affiche_cube cr loop ; 

: table table_carre table_cube ;