Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.96/46: Рейтинг темы: голосов - 46, средняя оценка - 4.96
2 / 2 / 0
Регистрация: 20.05.2010
Сообщений: 17
1

Составить программу для игры "коровы и быки"

20.05.2010, 21:11. Просмотров 9487. Ответов 1
Метки нет (Все метки)

программа выбирает следующим образом 4-х значное число с разными цифрами.нужно угадать это число.на каждом шаге играющий называет 4-х значное число,а программа сообщает сколько цифр числа угаданно"быки",и сколько угаданных цифр стоят на своих местах"коровы"
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.05.2010, 21:11
Ответы с готовыми решениями:

Ошибка в игре "Быки и коровы"
ИГРА "БЫКИ И КОРОВЫ" В ЧЕМ СУТЬ ИГРЫ: "Быки" - это те цифры вашего числа, расположение которых...

Составить программу для подсчета числа букв "А", "Б" и "В" в предложении.
Составить программу для подсчета числа букв "А", "Б" и "В" в предложении.

Программа "Быки и коровы" составить блок схему
помогите составить блок-схему этой программы uses crt; var s, s1: string; {s - число,...

Игра "Быки и коровы"
Программа выбирает с помощью датчика случайных чисел четырехзначное число с разными цифрами. Задача...

1
16 / 16 / 6
Регистрация: 27.12.2010
Сообщений: 163
02.03.2011, 14:47 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
var
 comp, my, help : string[4];
 i, n, j, i2, j2, buffalo, cow: integer;
 i3,j3, a : integer;
 basa: string;
 label vihod;
begin
randomize;
a:=0;
comp:='0000';
my:='0000';
basa:='1234567890';
for i:= 1 to 4 do
begin
n:=1+random(Length(basa)-1);
comp[i]:=basa[n];
Delete(basa,n,1);
end;
 
Write('Показать подсказку(y/n)');
ReadLn(help);
 
if help = 'y' then
WriteLn('Компьютер загадал число : ',comp);
 
WriteLn('Введите exit если вам надоело играть!');
WriteLn('Игра будет продолжаться 10 ходов или до победы!!');
{------------------------------------------------------------------------}
repeat
buffalo:=0;
cow:=0;
a:=a+1;
Write('Введите число: ');
ReadLn(my);
 
if my = 'exit' then
goto vihod;
 
if a = 10 then
goto vihod;
 
for j:= 1 to 4 do
if comp[j] = my[j] then buffalo:=buffalo+1;
 
for j2:= 1 to 4 do
for i2:= 1 to 4 do
if comp[i2] = my[j2] then cow:=cow+1;
 
WriteLn('Быков: ',buffalo,'. Коров: ',cow);
until (comp = my);
{------------------------------------------------------------------------}
WriteLn('Вы сделали ', a, ' ходов!');
WriteLn('Компьютер загадал: ',comp);
ReadLn;
vihod:   
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.03.2011, 14:47

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Составить программу, которая из слов "мышь", " сканер", "слива" получает слово "клавиша"
Помогите пожалуйста. Необходимо составить программу, которая: из слов "мышь", " сканер", "слива" ...

Составить программу для замены в тексте слога "ма" на слог "па"
Помогите пожалуйста!!!!Решить 2 задачи: 1.Составить программу на языке Pascal для подсчета...

Составить программу игры "угадай число", используя оператор с постусловием
помогите найти ошибку! задача: составить программу игры "угадай число", используя оператор с...

Составить программу которая получает из слова "принцип" слово "ципа" и "цирк"
Составить программу которая получает из слова "принцип" слово "ципа" и "цирк".


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.