Parasita Posted May 5, 2006 at 01:46 PM Report #25778 Posted May 5, 2006 at 01:46 PM Oi pessoal!!! Estou aqui com uma ?, precissava de uma ajuda se poderem O resultados de cada jogador (Ana,Mario,Pedro e Ines) tem de estar compreendido no intervalo 0 e 9 caso nao esteja dentro desse intervalo aparecerá uma mensagem que o resultado nao está correcto e pede ainda para introduzir novamente o resultado e apenas esse deverá ser aceite pelo programa. Esta validação tem de ser feita atraves de uma unica funçao (LerResultados) para os 6 jogos Aqui vai o que eu já fiz: (.....) Function lerResultados (a, b:integer) :string ; var c:integer; d:string; Begin a:=0; b:=9; c:= a1; if (c<a) and (c>b) then d:='Impossivel'; lerResultados:= 'd'; {If (a1 in [0..9]) and (p1 in [0..9] )then Begin read (a1, p1); writeln ('Ana',a1,' - Pedro ',p1); end else writeln('Impossivel'); readln; { If ( p1<0) and( p1 >9) then writeln('Valor inv lido'); } end; {***************************************************************************************} {Procedimentos para introdu‡Æo de Resultados} Procedure jogo1; Begin writeln ('Insira o resultado do jogo Ana-Pedro :'); read(a1,p1); ler:= lerResultados(c); writeln (lerResultados); end; Procedure jogo2; Begin writeln ('Insira o resultado do jogo Mário-Ines:'); read (m1,i1); end; Procedure jogo3; Begin writeln ('Insira o resultado do jogo Mário-Ana:'); read (m2,a2); end; Procedure jogo4; Begin writeln ('Insira o resultado do jogo Pedro -Ines:'); read (p2,i2); end; Procedure jogo5; Begin writeln ('Insira o resultado do jogo Ines- Ana:'); read (i3,a3); end; Procedure jogo6; Begin writeln ('Insira o resultado do jogo Pedro -Mário:'); read (p3,m3); end;
TheDark Posted May 7, 2006 at 03:14 AM Report #26129 Posted May 7, 2006 at 03:14 AM Qual é a dúvida, afinal? :👍 Desaparecido.
Parasita Posted May 8, 2006 at 02:50 AM Author Report #26284 Posted May 8, 2006 at 02:50 AM Esta cena nao funciona dahhhhhhhh
TheDark Posted May 8, 2006 at 01:53 PM Report #26337 Posted May 8, 2006 at 01:53 PM Mas esse código está muito incompleto para te podermos ajudar. Há ali variáveis que aparecem magicamente (como a1 e p1). Se puseres o resto do código talvez alguém te consiga ajudar... aliás, provavelmente alguém te conseguirá ajudar 👍 Desaparecido.
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now