Advertisement
Guest User

Untitled

a guest
Jul 28th, 2017
163
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
q/kdb+ 1.09 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. Principal :
  19.     Rôles :
  20.         durée est un nombre vide
  21.         e est un nombre
  22.     Actions :
  23.         demande e
  24.         tant que e est différent de 1, lis
  25.             durée vaut durée + 1
  26.             si (e mod 2) est égal à 0 alors e vaut e / 2
  27.             sinon, e vaut e * 3 + 1
  28.         ferme
  29.         affiche durée
  30.         termine
  31.  
  32.  
  33. Clonage d'un rond ;
  34. ("L'utilisation du symbole # avant un acteur permet d'utiliser un clone")
  35. Principal :
  36.     Rôles :
  37.         rond est un cercle, couleur vaut "bleu", ...
  38.             plein vaut "oui", rayon vaut 30, ...
  39.              x vaut 289, y vaut 290
  40.         groupe est un casier de cercle vide
  41.     Actions :
  42.         efface la toile
  43.         projette rond
  44.         ajoute #rond & #rond & #rond dans groupe
  45.         de 1 à 100, lis
  46.             déplace groupe{0} vers le haut de 1
  47.             déplace groupe{1} vers le bas de 1
  48.             déplace groupe{2} vers la droite de 1
  49.             déplace rond vers la gauche de 1
  50.             attends 20 millisecondes
  51.         ferme
  52.         termine
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement