Facebook
From heoui, 1 Week ago, written in Plain Text.
This paste is a reply to Re: tp from ilyes - view diff
Embed
Download Paste or View Raw
Hits: 116
  1. # Créer une pile FIFO (Queue)
  2. $FIFO = New-Object System.Collections.Queue
  3.  
  4. # Boucle principale pour saisir les mots
  5. while ($true) {
  6.     # Vérifier et afficher la taille et le contenu de la FIFO
  7.     if ($FIFO.Count -gt 0) {
  8.         Write-Host "Taille de la FIFO : $($FIFO.Count)"
  9.         Write-Host "Contenu de la FIFO : $($FIFO -join ', ')"
  10.     } else {
  11.         Write-Host "La FIFO est vide."
  12.     }
  13.  
  14.     # Demander à l'utilisateur de saisir un mot
  15.     $mot = Read-Host "Entrez un mot ('fin' pour terminer la saisie)"
  16.  
  17.     # Vérifier si l'utilisateur souhaite terminer la saisie
  18.     if ($mot -eq 'fin') {
  19.         break
  20.     }
  21.  
  22.     # Ajouter le mot à la pile FIFO
  23.     $FIFO.Enqueue($mot)
  24.  
  25.     # Dépiler un nombre aléatoire de fois (entre 1 et 3)
  26.     $nbDepiler = Get-Random -Minimum 1 -Maximum 4
  27.     Write-Host "Dépilage de la FIFO $nbDepiler fois..."
  28.     for ($i = 0; $i -lt $nbDepiler; $i++) {
  29.         # Vérifier s'il y a des éléments dans la FIFO avant de dépiler
  30.         if ($FIFO.Count -gt 0) {
  31.             $motDepile = $FIFO.Dequeue()
  32.             Write-Host "Élément dépilé : $motDepile"
  33.         } else {
  34.             Write-Host "La FIFO est vide, aucun élément à dépiler."
  35.             break
  36.         }
  37.     }
  38. }
  39.  
  40. Write-Host "Fin du programme."
  41.  

Replies to Re: Re: tp rss

Title Name Language When
Re: Re: Re: tp q text 1 Week ago.