• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

sergiopinto

[Pascal] Master Mind

5 mensagens neste tópico

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 :)

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Boas

Ja fiz algumas alteracoes a esse prog, tou a fazer um painel de admin ehehe, o scroll e que nao faço a minima lol

Abraços

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Sergio o programa tah mesmo fixe!!!

ahsusuhauhsua!!!!

pena q não vencemos vc no torneio!!

kkkkkkkkkkkkk!!!!!!

Tiago, Fernando

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Boa Sérgio,

O código ficou mais robusto. Gostei da protecção  until B in [1..3]

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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.

0

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