Segundo procedimento |
|
program Meu_Segundo_Procedimento; procedure Avalia(X,Y:byte); var Maior,Igual,Menor:boolean; begin { of procedure Avalia } Writeln('-----------------------------------'); begin Writeln('X:',X); Writeln('Y:',Y); end; Maior:=(X>Y); Igual:=(X=Y); Menor:=(X<Y); begin Writeln('X>Y:',Maior); Writeln('X=Y:',Igual); Writeln('X<Y:',Menor); Writeln('X<=Y:',not(Maior)); Writeln('X<>Y:',not(Igual)); Writeln('X>=Y:',not(Menor)); end; end; { of procedure Avalia } begin { of program } Avalia(5,10); Avalia(10,5); Avalia(5,5); end. { of program }
|