1 / 1 / 0
Регистрация: 17.12.2014
Сообщений: 15
1

Программа "Быки и коровы" составить блок схему

17.12.2014, 18:48. Показов 2911. Ответов 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
uses
  crt;
 
var
  s, s1: string; {s - число, задуманное компьютером, s1 - наше предположение}
  m, n: byte; {m - быки; n - коровы}
  a: set of char;
 
procedure answer(sa: string; var k: byte; var p: byte);{k - кол-во угаданных чисел; p - кол-во цифр, стоящих на своих позициях}
var
  j, i: integer;
  l: string;
begin
  l := s;
  k := 0;
  p := 0;
  for i := 1 to 4 do
    if sa[i] in a then
    begin
      inc(k);
      j := 0;
      repeat
        inc(j)
      until l[j] = sa[i];
      l[j] := 'X'; {Убираем число, т.к. мы его угадали}
      a := [l[1], l[2], l[3], l[4]];
    end;
  for i := 1 to 4 do
    if sa[i] = s[i] then inc(p);
end;
 
begin
  randomize; {инициализируем генератор случайных чисел}
  str(1000 + random(9000), s);  {Случайное число из диапазона 1000..9999 }
  {Writeln(s); Readln;} {Это вывод задуманного числа для отладки}
  repeat
    a := [s[1], s[2], s[3], s[4]]; {множество цифр, задуманных компьютером}
    repeat
      writeln('Введите четырехзначное число (0000 - выход)');
      readln(s1);
      if s1 = '0000' then Halt;
    until Length(s1) = 4;
    answer(s1, m, n);
    if s = s1 then
    begin
      writeln('Поздравляю, вы отгадали число!');
      readln;
    end
    else
      writeln('Вы отгадали ', m, ' цифр и ', n, ' из них стоят на своей позиции.');
  until s = s1;
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.12.2014, 18:48
Ответы с готовыми решениями:

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

Игра "быки и коровы" - не все компоненты формы видны
пишу программу в pascal abc windows.forms "быки и коровы" есть проблема! выручайте!!!(Textbox нету...

Нужно сделать алгоритм для игры "Быки и Коровы"
Нужно чтобы я загадал число, и программа угадывала.

Составить программу для игры "коровы и быки"
программа выбирает следующим образом 4-х значное число с разными цифрами.нужно угадать это число.на...

2
APALoff
18.12.2014, 10:40
  #2

Не по теме:

На правах саморекламы )))
Игра "Быки и коровы"

0
Фрилансер
3417 / 2814 / 3000
Регистрация: 08.02.2012
Сообщений: 8,444
Записей в блоге: 1
18.12.2014, 11:22 3
...
Миниатюры
Программа "Быки и коровы" составить блок схему   Программа "Быки и коровы" составить блок схему  
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.12.2014, 11:22
Помогаю со студенческими работами здесь

Составить блок-схему для программы [Программа с "счастливыми числами"]
Пожалуйста помогите составить блок-схему по программе program lab4; var a, b, c, d, e, f:...

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

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

Составить фразу "письменный стол" из слов "тесненный", "полка", "речь", "миф".
1) Составить фразу "письменный стол" из слов "тесненный", "полка", "речь", "миф". 2) Вывести...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru