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
Pergunta
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:
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 por ucastroLink para o comentário
Compartilhar em outros sites
4 respostass a esta questão
Posts Recomendados