Fatorial

Deixe um comentário 
program fatorial;

var
  x:integer;
function fat(n:integer): longint;
 var
   i: integer;
   f: longint;
 begin
   f:=1;
   for i:= 2 to n do f:= f*i;
   fat:= f;
 end; {fim da declaracao da funcao}

begin {inicio do programa}
 writeln('Digite varios numeros para saber o fatorial');
 writeln('Termine com -1');
 read(x);
 while x > 0 do begin
  writeln ('fatorial de ', x, ' = ', fat(x) );
  read(x);
 end;
end.

 

Matriz

Deixe um comentário
Programa
 
  Program soma_matrizes;
  Var A,B,C: array[1..100,1..100] of integer;
      i,j: integer;
      M,N: integer;
  Begin
      Writeln('digite as dimensões das matrizes:');
      Readln(N,M);
      Writeln('digite os elementos da matriz A:');
      For i:=1 to N do Begin
         For j:=1 to M do Begin
	    Read(A[i,j]);
	 End;
	 Readln;
      end;
      Writeln('digite os elementos da matriz B:');
      For i:=1 to N do Begin
         For j:=1 to M do Begin
	    Read(B[i,j]);
	 End;
	 Readln;
      end;
      {calcular a soma de A + B}
      For i:=1 to N do Begin
         For j:=1 to M do Begin
	    C[i,j]:=A[i,j]+B[i,j];
	 End;
     End;
     {imprimir o resultado}
     Writeln('O resultado da soma de A+B:');        
       For i:=1 to N do Begin
         For j:=1 to M do Begin
	    Write(C[i,j],'  '); {deixar espaço entre números}
	 End;
	 Writeln; { quebra linha }
     End;
  End.