Игровая программа "Ипподром" Pascal

[olga_v95]

Игрок выбирает одного из трёх лошадей, которые соревнуются на скачках, и выигрывает, если его лошадь приходит первой. Скорость лошадей на разных этапах регулируется с помощью генератора случайных чисел.

[Sibedir]

одного из трёх лошадей

const
  LoshadCount = 3;

var
  i, n, c, max: Integer;
  v: Real;
  s: array [1..LoshadCount] of Integer;

begin
  // Stavki
  n := 0;
  repeat
    Write ('Vibirite loshad (ot 1 do ', LoshadCount,'): ');
    ReadLn (n);
  until n in [1..LoshadCount];

  // Zaezd
  Randomize;

  for i := 1 to LoshadCount do
    s[i] := 30 + Random(15);

  // Finish
  max := s[1];
  for i := 2 to LoshadCount do
    if s[i] > max then max := s[i];

  c := 0;
  for i := 1 to LoshadCount do
    if s[i] = max then begin
      Inc(c);
      if i = n then n := 0; // esli viigral
    end;
  v := LoshadCount / c;

  // Resultat
  WriteLn;
  WriteLn ('----------------------------------');
  WriteLn ('           Srednaya');
  WriteLn (' Loshad    skorost,     Resultat');
  WriteLn ('           km/ch');
  WriteLn ('----------------------------------');
  for i := 1 to LoshadCount do begin
    Write (' ', i, s[i]:12);
    if s[i] = max then Write ('          POBEDITEL');
    WriteLn();
  end;
  WriteLn ('----------------------------------');
  WriteLn;

  if n = 0 then begin
    WriteLn ('VI VIIGRALI !!!');
    WriteLn ('Vash viigrish: ', v:4:2);
  end
  else
    WriteLn ('Vi proigrali :(');

  ReadLn;
end.

const
  LoshadCount = 3;

var
  i, n, c: Integer;
  max: Real;
  v: array [1..LoshadCount] of Integer;
  s: array [1..LoshadCount] of Real;

begin
  // Stavki
  n := 0;
  repeat
    Write ('Vibirite loshad (ot 1 do ', LoshadCount,'): ');
    ReadLn (n);
  until n in [1..LoshadCount];

  // Zaezd
  Randomize;

  for i := 1 to LoshadCount do
    s[i] := 30 + round(Random*15*1000)/1000; // Iz-za ogranicheniy tochnosti izmereniya :)

  // Finish
  max := s[1];
  for i := 2 to LoshadCount do
    if s[i] > max then max := s[i];

  c := 0;
  for i := 1 to LoshadCount do
    if s[i] = max then begin
      Inc(c);
      v[c] := i;
    end;

  if c = 1 then begin
    c := v[1];
  end
  else begin
  // Fotofinish :)
    max := max + 0.001;
    c := Random(c) + 1;
    c := v[c];
    s[c] := max;
  end;

  // Resultat
  WriteLn;
  WriteLn ('----------------------------------');
  WriteLn ('           Srednaya');
  WriteLn (' Loshad    skorost,     Resultat');
  WriteLn ('           km/ch');
  WriteLn ('----------------------------------');
  for i := 1 to LoshadCount do begin
    Write (' ', i, s[i]:15:3);
    if i = c then Write ('       POBEDITEL');
    WriteLn();
  end;
  WriteLn ('----------------------------------');
  WriteLn;

  if c = n then
    WriteLn ('VI VIIGRALI !!!')
  else
    WriteLn ('Vi proigrali :(');

  ReadLn;
end.

[KINGSTONE]

Sibedir, а на C++ код программы сможешь сделать?

[Sibedir]

Можно. Но как?
Я пока еще паскалевец

[KINGSTONE]

Ладно тогда, спасибо за внимание))

[cleac]

Вам нужно с С++ реализацией помочь? В принципе, могу накнопать код