Program Pzim ;
{Escrever um programa que, utilizado de procedimentos, leia um valor e mostre :
a) seu fatorial
b) seu quadrado
garante que o numero lido seja positivo.}
var //variaveis globais
num:integer;
{a partin daqui é o procedimento de fatorial }
procedure fatorial(x:integer);
var
fat:integer;
i:integer;
begin
fat:=1; // inicia-se a variavel com 1, pois por padrão seria zero, e se voce multiplica qualquer num por zero dá sempre zero
for i:=1 to x do
begin
fat:=fat*i;
end;
writeln('O fatorial do numero ', x, ' é : ',fat); //aqui mostra o resultado
end;
{a partin daqui é o procedimento de quadrado }
procedure quadrado(y:integer);
var
quad:integer;
begin
quad:=y*y;
writeln('O quadrado do numero ', y, ' é : ', quad); //aqui mostra o resultado
end;
{os procedimentos devem estar entre as variaveis globais e o inicio do programa
mas geralmente é mais viavel, fazer a parte do programa e depois vim fazer os
procedimentos em cima}
Begin
{inicio do programa}
writeln('Digite um numero : ');
readln(num);
if (num>0) then
begin
fatorial(num);
quadrado(num);
end
else
writeln('Digite um numero positivo');
End.
