Пример программы угадывающей числа на perl

code: #perl
  1. #!/usr/bin/perl
  2. use warnings;
  3.  
  4. do
  5. {
  6.     print "Загадайте число от 0 до 99.\n\n";
  7.  
  8.     ($a, $b)=(0, 99);
  9.  
  10.     do
  11.     {
  12.         $m=int(($a+$b)/2);
  13.         print "Ваше число больше $m? (y/n) ";
  14.         if(<STDIN> eq "y\n")
  15.         {
  16.             $a=$m+1;
  17.         }
  18.         else
  19.         {
  20.             $b=$m;
  21.         }
  22.     }
  23.     while($a<$b);
  24.  
  25.     print "Вы загадали число $a.\n\nПродолжаем? (y/n) ";
  26.  
  27. }
  28. while(<STDIN> eq "y\n");
Поделиться:

Похожие статьи: