Ferramentas de Usuário

Ferramentas de Site


dev_geral:pascal:snippet:num_escondido

Número Escondido

program magico;
uses crt;
var numero, escondido, erro, tentativa: Integer;
    k : char;
 
begin
     repeat
           clrscr;
           tentativa :=0;
           erro:=1;
           randomize;
           escondido :=round(random(51));
           repeat
                 tentativa := tentativa+1;
                 writeln('Introduza um numero entre 1 e 50:');
                 readln(numero);
                 if (numero > 0) and (numero < 51) then begin
                    if numero > escondido then begin
                       writeln('O numero m gico ? menor do que ', numero);
                       erro:=1;
                    end;
                    if numero < escondido then begin
                       writeln('O numero m gico ? maior do que ', numero);
                       erro:=1;
                    end;
                    if numero = escondido then begin
                       erro:=0;
                    end;
                 end
                 else begin
                      tentativa := tentativa -1;
                      writeln('Introduziu um numero invalido!');
                      readln;
                      clrscr;
                 end;
           until (erro = 0) or (tentativa = 3);
 
           if erro=0 then begin
              writeln('Parabens! Acertaste! O Numero escondido era o ' , escondido);
              readln;
           end
           else begin
                writeln('Nao Acertaste :(, o Numero escondido era o ', escondido);
                readln;
           end;
           writeln('Deseja Sair? S/N');
           k := readkey;
     until upcase(k) = 'S';
end.
dev_geral/pascal/snippet/num_escondido.txt · Última modificação em: 2018/05/14 21:37 (edição externa)