Question

Faça um programa contendo uma função que retorne 1 se receber como parâmetro um número maior ou igual a zero e 0 caso o contrário

Answer 1

OBS: programa feito em *pascal*.

program pzim;

var n:integer;

function maiorquezero (f:integer):integer;

begin

f:=1;

maiorquezero:=f;

writeln(f);

readln;

end;

function menorquezero (f:integer):integer;

begin

f:=0

menorquezero:=f;

writeln(f);

readln;

end;

begin

writeln('digite um número:');

readln(n);

if n>0 then

maiorquezero;

if n<0 then

menorquezero;

readln;

end;