Ir para o conteúdo
sergiopinto

[Pascal] Master Mind

Mensagens Recomendadas

sergiopinto    1
sergiopinto

Adaptámos um programa do livro, que é um jogo, o MasterMind!

Fizemos algumas melhorias e ainda fiquei com uma dúvida. Como posso criar uma espécie de scroll para ver as jogadas anteriores? Se alguem me poder ajudar, agradecia, fica aqui o código:

Program Mastermind;
Uses crt;
Var A, B: array [1..4] of integer;
   i, tentativa, certos:integer;
Begin
    clrscr;
    randomize;
    for i:=1 to 4 do
        A[i]:=random(3)+1;
    writeln ('Tem 10 tentativas para acertar os 4 digitos');
    writeln ('gerados aleatoriamente e que so podem ser 1,2,3');
    writeln;
    tentativa:=0;
    repeat
          tentativa:=tentativa+1;
          for i:=1 to 4 do
          begin
               repeat
                     Write ('Escreva o ', i,'§ digito: ');
                     readln(B[i]);
               until B[i] in [1..3]
          end;
          certos:=0;
          for i:=1 to 4 do
              if A[i]=B[i] then
                 certos:=certos + 1;
          writeln;
          writeln (certos, ' Certos');
          writeln;
    until (certos=4) or (tentativa=10);
    If certos=4 then
       Writeln ('Acertou em ', tentativa,' tentativas')
    else
        writeln ('Nao conseguiu acertar');
    writeln;
    writeln ('Os digitos escondidos eram: ');
    for i:=1 to 4 do
        writeln (a[i]);
    readkey;
end.

Cumprimentos :)

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
thoga31    611
thoga31

Como posso criar uma espécie de scroll para ver as jogadas anteriores?

Oi Sérgio!

Receio não ter entendido exactamente o que queres dizer com um scroll para ver as jogadas anteriores. Podes-me explicar com mais alguma exactidão, sff?  :P

Já fiz um Mastermind em TI-Basic, mas já o perdi. Acho que talvez possa ajudar.

Já agora, o código está espectacular! :)

Cumpz.

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora


×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade