(Resolvido) Cálculo de fatorial de duas matrizes em Pascal

[ucastro]

Tenho um exercício para fazer onde pede:

Ler uma matriz A do tipo vetor com 15 elementos. Construir uma matriz B de mesmo tipo, sendo que cada elemento da matriz B seja a fatorial do elemento correspondente da matriz A.

Fiz e ficou assim:

programa matriz;

uses crt;

var  
  a,b:array[1..15]of integer;
  i,FAT:integer;
    
 Begin
  
clrscr;

writeln('  Digite 15  números');
          
for i:=1 to 15 do
readln(a[i]); 
   
         
for i:=1 to 15 do 
begin 
b[i]:= 1;
for FAT:=1 to a[i] do
b[i]:= b[i]* FAT; 
end; 
          
            
for i:=1 to 15 do
writeln('Fatorial de ', i,' = ', b[i]);
  
 End.

Só que na hora de compilar dá o seguinte erro:

Fatal: Syntax error, "BEGIN" expected but "identifier PROGRAMA" found

Fatal: Compilation aborted

Onde está o erro? Alguém pode me ajudar?

Editado Fevereiro 4, 2008 por ucastro

[KaKarotto]

Velho..não frago NADA de Pascal.

Isso óbvio é erro de sintaxe, e pela descrição do erro, parece que você deveria colocar um Begin antes do nome do programa.

Fatal: Syntax error, "BEGIN" expected but "identifier PROGRAMA" found

Fatal: Erro de sintaxe, "BEGIN" esperado mas "identificador PROGRAMA" achado.

Sei lá...terá que procurar um manual de referência do Pascal porque é um erro bobo.

Abrasss

[Micheus]

Isso óbvio é erro de sintaxe, e pela descrição do erro, parece que você deveria colocar um Begin antes do nome do programa.

Fatal: Syntax error, "BEGIN" expected but "identifier PROGRAMA" found

Fatal: Erro de sintaxe, "BEGIN" esperado mas "identificador PROGRAMA" achado.

KaKarotto, você tem razão, é mesmo um errinho bobo.

ucastro, se você levar em conta que toda a sintax da linguagem é em INGLÊS, vai perceber logo que você deu uma bobeada bem no início: excreveu PROGRAMA ao invés de PROGRAM. ;)

Abraços

[ucastro]

É costume de fazer um português estruturado depois acaba esquecendo que não é 'programa' e sim 'program'. Valeu a força!!

Além do que percebi que onde se encontra na última linha:

for i:=1 to 15 do
writeln('Fatorial de ', i,' = ', b[i]);

O correto é não é 'i' e sim a porque quero o fatorial dos números que digitei.

Bom ao poucos vou aprendendo.

[Guest Luiz Cláudio]

Tenho um exercício para fazer onde pede:

Ler uma matriz A do tipo vetor com 15 elementos. Construir uma matriz B de mesmo tipo, sendo que cada elemento da matriz B seja a fatorial do elemento correspondente da matriz A.

Fiz e ficou assim:

programa matriz;

uses crt;

var  
  a,b:array[1..15]of integer;
  i,FAT:integer;
    
 Begin
  
clrscr;

writeln('  Digite 15  números');
          
for i:=1 to 15 do
readln(a[i]); 
   
         
for i:=1 to 15 do 
begin 
b[i]:= 1;
for FAT:=1 to a[i] do
b[i]:= b[i]* FAT; 
end; 
          
            
for i:=1 to 15 do
writeln('Fatorial de ', i,' = ', b[i]);
  
 End.

Só que na hora de compilar dá o seguinte erro:

Fatal: Syntax error, "BEGIN" expected but "identifier PROGRAMA" found

Fatal: Compilation aborted

Onde está o erro? Alguém pode me ajudar?

No começo você digitou:

programa Matriz;

Tente como

program Matriz;

Deve dar certo