Jump to content

duvida na introduçao de uma função


Parasita
 Share

Recommended Posts

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;
Link to comment
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
 Share

×
×
  • 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.