Solved

MasterMind variation

Posted on 1997-12-11
1
463 Views
Last Modified: 2010-04-16
I wonder if anyone can help me with this...
I want to make a mastermind variation for my homepage. This variation does not have to do
with colors, instead it has to do with numbers. The program must take as
input the max number that can be used as well  the number of the
positions (pinholes). The program must use minmax of alpha-beta...


(example)

Enter the max number: 4
Enter the number of positions: 5
Now give the code: 2 3 2 4 1

Thinking...
Your code must be: 2 3 2 4 1


Thanks for your help
0
Comment
Question by:kkarnez
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
1 Comment
 
LVL 1

Accepted Solution

by:
potsy earned 300 total points
ID: 1216973
here is some code I found
uses crt;

type
pegstype = array[1..10] of integer;

var
  user,pegs,pegs2 : pegstype;
  guess,x,p,c,p2,c5  : integer;


{ ----------------------------------------------------------------------------}


procedure Correct(p,c : integer; user,pegs : pegstype; var c5,p2 :
integer); { cheks if done or not }

var p3,b,c2,c3,c4 : integer;
    colsc,      { code colors }
    colsg    { colors from user }
        : array[1..9] of integer;
begin
  b := 0;
   { counts correct pegs }
  for c2 := 1 to p do if (user[c2]=pegs[c2]) then b := b+1;
  p2 := b;
        { counts correct colors }
  pegs2 := pegs;
  p3 := p;
   { fills COLSc with the colors in PEGS }
  c4 := 0;
  for c2 := 1 to c do
   begin
   if (pegs[c2])=c2 then
    begin
       c4 := c4+1;
       colsc[c4] := c2;
    end;
   end;
   { fills COLSg with the colors in USER }
  b := 0;
  for c2 := 1 to c do
   begin
     if (user[c2]=c2) then
     begin
       b := b+1;
       colsg[b] :=c2;
     end;
   end;
  { finally counts the correct colors }
  c5 := 0; { says how many colors correct }
  for c2 := 1 to c4 do
   for c3 := 1 to b do
    if colsg[c3]=colsc[c2] then c5 := c5+1;
end;
{===
=======================================================================}

Begin
  clrscr;
  randomize;
      { ask user how many pegs and colors to use }
  write('How many pegs (1-10) -->');
  readln(p);
  write('How many colors (1-9) -->');
  readln(c);
   { initializes the pegs }
  for x := 1 to p do pegs[x] := random(c)+1;
  { starts playing the game }
  guess := 1;
  repeat
    writeln('Guess ',guess);
    for x := 1 to p do
     begin
        write('Peg ',x,' -->');
readln(user[x]);
     end;
    guess := guess+1;
    correct(p,c,user,pegs,c5,p2);  { calls procedure to check pegs }
    writeln('You have ',p2,' correct peg(s)');
    writeln('and ',c5,' correct color(s)');
    writeln;
  until p2=p;  { loop until number of good guess = number of pegs }
  writeln('You have broken the code in ',guess-1,' guesses');
  readln;
End.

It should work fine if you need more help let me know.
0

Featured Post

Enroll in May's Course of the Month

May’s Course of the Month is now available! Experts Exchange’s Premium Members and Team Accounts have access to a complimentary course each month as part of their membership—an extra way to increase training and boost professional development.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

A lot of things can happen during a presentation, worst of which is “death by PowerPoint.” Here are a few mistakes to avoid to make your slides clean.
Not everyone has adapted to a rapid advancement in technology; there are people who are reluctant or afraid to delve into this brave new world of IT. If you have a friend or a family member who suffers from the so-called technophobia, here is how yo…
Finds all prime numbers in a range requested and places them in a public primes() array. I've demostrated a template size of 30 (2 * 3 * 5) but larger templates can be built such 210  (2 * 3 * 5 * 7) or 2310  (2 * 3 * 5 * 7 * 11). The larger templa…

739 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question