Advertisement
Guest User

Untitled

a guest
Jul 28th, 2017
177
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
q/kdb+ 1.07 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", plein vaut "oui", rayon vaut 30,  x vaut 289, y vaut 290
  38.         groupe est un casier de cercle vide
  39.     Actions :
  40.         efface la toile
  41.         projette rond
  42.         ajoute #rond & #rond & #rond dans groupe
  43.         de 1 à 100, lis
  44.             déplace groupe{0} vers le haut de 1
  45.             déplace groupe{1} vers le bas de 1
  46.             déplace groupe{2} vers la droite de 1
  47.             déplace rond vers la gauche de 1
  48.             attends 20 millisecondes
  49.         ferme
  50.         termine
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement