💾 Archived View for gem.ortie.org › docs › informatique › forth › carre.fs.txt captured on 2024-08-18 at 18:01:01.
⬅️ 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 ;