VPF::[Pascal] Условный оператор if...then...else

LasVegas

Дата 24.5.2009, 19:12 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 23.5.2009

Репутация: нет
Всего: нет

Доброго времени суток!
Собственно сабж:
Составить программу для игры в 66 с компьютером.
Играют двое. Первый называет однозначное число (от 1 до 9), второй прибавляет к нему какое
нибудь однозначное число и называет сумму; к этой сумме первый прибывляет еще какое нибудь однозначное число и опять называет сумму и т.д. Выигрывет тот кто первый назовет число 66 smile

P.S. Sorry усли что нибудь не так, просто это первая моя тема на этом форуме, посоветовали ))

Это сообщение отредактировал(а) LasVegas - 24.5.2009, 19:15

LasVegas

Дата 25.5.2009, 16:03 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 23.5.2009

Репутация: нет
Всего: нет

Ну блин...Народ! Что никто мне не поможет? smile

AndreyZ53

Дата 25.5.2009, 21:09 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 138
Регистрация: 22.8.2008

Репутация: нет
Всего: 2

Код


program test;
uses crt;
label met;
var
 n,sum,i:integer;
 flag:boolean;
begin
 clrscr;
 sum:=0;
 flag:=true;
 i:=0;
 met:
 begin
  inc(i);
  writeln('Vvedite 4islo');
  readln(n);
  if n>9 then
   begin
    flag:=false;
   end;
   writeln('Summa=',sum+n);
 end;
 if flag=false then
  begin
   writeln('Konec igri!!! 4islo dolgno bitb ot 0 do 9');
   readln;
   exit;
  end;
 sum:=sum+n;
 if sum<66 then
  goto met;
 if (sum=66) and (i mod 2=0) then
  writeln('Viigral 1 igrok');
 if (sum=66) and (i mod 2<>0) then
  writeln('Viigral 2 igrok');
 if sum>66 then
  writeln('Perebor summi 66');
 readln;
end.

--------------------

https://itbases.ru/

taiven

Дата 25.5.2009, 21:17 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 302
Регистрация: 30.6.2008

Репутация: 4
Всего: 9

AndreyZ53

Цитата(LasVegas @ 24.5.2009, 18:12

)

Составить программу для игры в 66 с компьютером.

Код


uses crt;
var
   res, cur_val, i : integer;
   player : array[1..2] of string;
label m;
begin
     res := 0;
     i := 2;
     Randomize();
     WriteLn('nazovite chislo ot 1 do 9');
     player[1] := 'player1';
     player[2] := 'CPU';

     while res < 66 do
     begin
          if i = 1 then i := 2
          else i := 1;
          Write(player[i], ': ');

          if i = 1 then
          begin
               m:
               Read(cur_val);

               if (cur_val < 1) or (cur_val > 9) then
               begin
                    WriteLn('nazovite chislo ot 1 do 9');
                    goto m; 
               end;
          end

          else
          begin
               delay(2000);
               cur_val := Random(8)+1;
               WriteLn(cur_val);
          end;

          if (res + cur_val) > 66 then WriteLn('Perebor, perehod hoda')
          else res += cur_val;

          WriteLn('Tekushee chislo: ', res);
     end;
     Write('pobedil igrok ', player[i]);
end.

Это сообщение отредактировал(а) taiven - 25.5.2009, 21:24

AndreyZ53

Дата 25.5.2009, 22:11 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 138
Регистрация: 22.8.2008

Репутация: нет
Всего: 2

taiven не заметил, то есть не то что не заметил когда начал решать почему-то думал что играют именно 2 игрока, а не с компьютером, но решение ты предоставил уже так что не буду переделывать

--------------------

https://itbases.ru/

LasVegas

Дата 26.5.2009, 12:09 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 23.5.2009

Репутация: нет
Всего: нет

Ребят большое спасибо! ))
Помогли, чесно smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »