Exercício 01 Funções e Procedimentos - Pascal

1) Faça um programa contendo uma função que retorne 1 se o número digitado for positivo ou 0 se for negativo.

Program Fun01 ;
var
 n:integer;
 
function teste(n:integer):integer;
var
 res:integer;
Begin
 if (n > 0) then
   res:=1
 else res:=0;
 teste:= res;
End;   

 Begin
  Write('Informe Um Valor: ');
  readln(n);
  Writeln('Resultado: ',teste(n));
  
 Writeln('            by Marcus Vinicius'); 
 End.

Categories: Pascal , Programação