Advertisement
Guest User

Untitled

a guest
Jul 28th, 2017
118
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
QBasic 1.36 KB | None | 0 0
  1. Mon Premier programme :
  2. Principal :
  3.     Actions :
  4.     "Bonjour" !
  5.    
  6.  
  7. Mon deuxième programme :
  8. Principal :
  9.     Rôles :
  10.     nom est un texte
  11.     Actions :
  12.     "Quel est ton prénom" !
  13.     nom ?
  14.     "Tu t'appelles " + nom !
  15.  
  16.  
  17. Syracuse :
  18. ("
  19. La suite de Syracuse est définie ainsi :
  20. - on part d'un entier ;
  21. - s'il est pair, on le divise par 2 ; sinon, on le multiplie par 3 et on ajoute 1 ;
  22. - on recommence la même opération sur l'entier obtenu, et ainsi de suite ; la suite s'arrête si on arrive à 1.
  23. ")
  24.  
  25. Principal :
  26.     Rôles :
  27.     durée est un nombre vide
  28.     e est un nombre
  29.     Actions :
  30.     demande e
  31.     tant que e est différent de 1, lis
  32.         durée vaut durée + 1
  33.         Si (e MOD 2) est égal à 0 alors e vaut e / 2
  34.         Sinon, e vaut e * 3 + 1
  35.     Ferme
  36.     affiche durée
  37.     termine
  38.  
  39.  
  40. Livre : Clonage d'un rond
  41. ("L'utilisation du symbole # avant un acteur permet d'utiliser un clone")
  42. Paragraphe : Magie !
  43.     Rôles :
  44.         rond est un cercle, couleur vaut "bleu", plein vaut "oui", ...
  45.                                 rayon vaut 30,  x vaut 289, y vaut 290
  46.         groupe est un casier de cercle vide
  47.     Actions :
  48.         efface la toile
  49.         projette rond
  50.         ajoute #rond & #rond & #rond dans groupe
  51.         de 1 à 100, lis
  52.             déplace groupe{0} vers le haut de 1
  53.             déplace groupe{1} vers le bas de 1
  54.             déplace groupe{2} vers la droite de 1
  55.             déplace rond vers la gauche de 1
  56.             attends 20 millisecondes
  57.         ferme
  58.         termine
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement