Gestão e Programação de Sistemas Informáticos

Aqui tens o mastermind em pascal feito pelo o VA mas o que esta aqui é so um demo nao tem o mastermind complento por isso faz o download da versão complenta nesse link http://www.baixa.la/arquivo/7770234

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


1:begin
repeat
randomize;

for n:=1 to 4 do
PC[n]:=random(4)+1;

writeln('O Numero que o computador escolheu é:');
for n:=1 to 4 do
write(PC[n]);
writeln;
writeln;
writeln('{--------SINGLE PLAYER MODE----------------}');
writeln;
writeln('Para ver as Instruções vai ao menu do jogo e escolhe a opção 2');
writeln;
tentativa:=0;
repeat
tentativa:=tentativa+1;
for p:=1 to 4 do
begin
repeat
write('escreva o ',p,'º numeros:');
readln(ME[p]);
until ME [p] in [1..4]
end;
certos:=0;

for n:=1 to 4 do
begin
va:=0;
for p:=1 to 4 do
begin
if PC[n]=ME[p] then
if n=p then
begin
faz o download da versão complenta nesse link http://www.baixa.la/arquivo/7770234