Статическая привязка значений членов - Ada - PullRequest
Новая
       7

Статическая привязка значений членов - Ada

2 голосов
/ 17 октября 2010

Привет Я пробую свою первую программу в Аде по созданию игры в кости для одного игрока. Но сталкиваюсь с проблемой в поддержании счета игрока. Цель: каждый игрок имеет 10 ходов и набирает 10 очков, если всего 2 броска равен 7 Проблема: каждый раз, когда общий счет сбрасывается, а 10 не добавляется к текущему счету. Total_Score - это итоговая оценка, которая будет отображаться. Пожалуйста помоги!!! Любая помощь приветствуется !!!

Спасибо:)

Мой код выглядит следующим образом: 

with Ada.Numerics.Discrete_Random,Ada.Text_IO, Ada.Integer_Text_IO;
use Ada.Text_IO, Ada.Integer_Text_IO;

   procedure Game is

      subtype Die is Integer range 1 .. 6;
      subtype Dice is Integer range 2*Die'First .. 2*Die'Last;
      package Random_Die is new Ada.Numerics.Discrete_Random (Die);
      use Random_Die;

  type MY_TYPE is range 1..10;
  package My_Int_IO is new Ada.Text_IO.Integer_IO(MY_TYPE);
  use My_Int_IO;

  My_Range : MY_TYPE;
      G : Generator;
      Roll : Dice;  -- Total Rolled
  Roll_One : INTEGER;   -- Roll 1
  Roll_Two : INTEGER;   -- Roll 2
  Total_Score : INTEGER;    -- Current Score
  Choice : INTEGER;     -- Game Choice
  Total_Roll : INTEGER;     -- Total Rolled Returned
  Score : INTEGER;  -- Static Score count

  function Roll_Dice return INTEGER is
   begin
    -- Start the generator in a unique state in each run
        Reset (G); 
    Total_Score := 0;
            -- Roll a pair of dice
        Roll_One := Random(G);
        Roll_Two := Random(G);
    Put(Roll_One,3);
        Put(Roll_Two,3);
            Roll := Roll_One + Roll_Two;
        return Roll;
  end Roll_Dice;

   begin
   Total_Score := 0;
   for Index in MY_TYPE loop
    Put("Roll Dice: Press 1 To Exit: Press 2 ");
    New_Line;
    Get(Item => Choice);
    if Choice = 1 then
       Total_Roll := Roll_Dice;
       if Total_Roll = 7 then
        Put("Current Score : ");
        Put(Total_Score , 3);
        Total_Score := Total_Score + 10;
            New_Line;
        Put("Your Score :  ");
        Put(Total_Score, 3);
            else
        New_Line;
        Put("Sorry! you do not score");
            end if;
    elsif Choice = 2 then
       Put("Score ");
       Put(Total_Score, 3);
       exit when Choice = 2;
    else
       Put("Wrong Choice! You lost one chance! Try Again");
    end if;
   end loop;
    New_Line;
    Put("Total Score for this game: ");
    Put(Total_Score, 3);
   end Game;

1 Ответ

3 голосов
/ 17 октября 2010

Каждый раз, когда общий счет сбрасывается, а 10 не добавляется к текущему счету.

Это потому, что вы устанавливаете Total_Score в ноль в функции Roll_Dice: 

Total_Score := 0;

10 делает добавленным к Total_Score: 

Total_Score := Total_Score + 10;

но при последующем броске сумма сбрасывается до нуля.

...