Jump to content
lwwcas

Duvidas [random] & [read]

Recommended Posts

lwwcas

Pessoal estou estudando pascal a relativamente pouco tempo. então quem poder me ajudar :x

É SIMPLES

Um "jogo" aonde a pessoa tem que digitar as letras (5) que aparecem na tela o mais rápido possível, com tempo limite de 120s.

De inicio eu pensei em fazer o random com numeros de 65 a 90 assim posso converter algum numero com o 'CHR'. Mas não sei como fazer, só sei fazer ele de 0 ate o numero.

E o mais importante para mim.

Como eu deixo esse "contador" rodando e ainda peço algo para a pessoa ?????

Pq aqui comigo ele espera terminar para depois pedir alguma coisa, mas eu quero saber como fazer pra ficar contando e poder digitar alguma coisa.

Program pascalz ;
var tempo,a:integer;
Begin
tempo:=0;
Writeln ('Voc tem 2 minutos para terminar...');
Writeln ('Começar ?? ');
Writeln ('1: SIM     2:NAO');
read (a);

if a =1
then
begin
while (tempo<>121) do
Begin
    delay (1000);
    clrscr;
    writeln (' Seu tempo: ',tempo,' segundos');
    if tempo>60
    then
    begin
    clrscr;
    write (' Seu tempo: 1 minutos ',tempo,' segundos');
    end;
    tempo := tempo + 1;
End;
end
else write ('Ok deicha para outro dia.');
read (b);


End.

Edited by thoga31
GeSHi

Share this post


Link to post
Share on other sites
thoga31

Vamos lá pensar um pouco: precisas de um número de 65 até 90, mas o random começa em 0. Aqui vai uma dica: quando o random dá 0, tu fazes o cálculo simples para que seja 65.

Agora, o outro problema... esperar durante 120 segundos pelas teclas? Wow, isto não é assim tão simples quanto isso. Um read ou readln não tomam conta da situação tão facilmente, a não ser que acedas à hora do PC e calcules quantos segundos passaram, que eu não recomendo nada.

aqui como podes resolver essa questão.

Por último, indenta bem o código.

Edited by thoga31

Knowledge is free!

Share this post


Link to post
Share on other sites
lwwcas

Agradeço pela paciência ; nem formular uma pergunta como se deve eu consegui :x

Mas me ajudou muito isso.

Estou começando ainda, a estudar o Pascal; assim que eu souber escrever melhor em "pascalês" ajudarei o grupo.

Só mais uma questão

aquilo do #13 Tem alguma lista aonde eu saiba ou possa ver essas teclas ?

Agradeço muito a ajuda :)

Share this post


Link to post
Share on other sites
thoga31

Já conseguiste resolver o teu problema?

Só mais uma questão

aquilo do #13 Tem alguma lista aonde eu saiba ou possa ver essas teclas ?

Procura na net por "ASCII" ou "ASCII table", a tabela de caracteres de referência do Pascal e outras linguagens. ;)


Knowledge is free!

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.