

Seu próximo nível começa aqui
Seu desenvolvimento não pode ter limites. Garanta sua Assinatura Ilimitada e libere uma preparação completa com os melhores professores do Brasil.
Analise o algoritmo abaixo e a saída gerada.
algoritmo triangulodepascal;
variáveis
TP: array[1..7,1..7]de inteiros;
X,Y: inteiros;
rotina GERA_TP;
início
BLOCO_DE_INSTRUÇÕES
fim_da_rotina;
rotina IMPRIME_TP;
início
para X de até 7 faça
início
para Y de até X faça imprima(TP[K,J]);
imprimir linha em branco;
fim;
fim_da_rotina;
INÍCIO
GERA_TP;
IMPRIME_TP
FIM_DO_ALGORITMO.
1
1 . 1
1 . 2 . 1
1 . 3 . 3 . . 1
1 . 4 . 6 . . 4 . . 1
1 . 5 . 10 . 10 . .5 . 1
1 . 6 . 15 . 20 . 15 . 6 . 1
As instruções que devem ser substituir o BLOCO_DE_INSTRUÇÕES estão indicadas em
para X de até 7 faça
para Y de 1 até X faça
se (Y = 1) e (Y = X)
então atribuir 1 a TP[X,Y]
senão atribuir TP[X,Y]+TP[X,Y-1] a TP[X-1,Y];
para X de até 7 faça
para Y de 1 até X faça
se (Y = 1) ou (Y = X)
então atribuir 1 a TP[X,Y]
senão atribuir TP[X,Y]+TP[X,Y-1] a TP[X-1,Y];
para X de até 7 faça
para Y de 1 até X faça
se (Y = 1) ou (Y = X)
então atribuir 1 a TP[X,Y]
senão atribuir TP[X+1,Y] + TP[X+1,Y+1] a TP[X,Y];
para X de até 7 faça
para Y de 1 até X faça
se (Y = 1) ou (Y = X)
então atribuir 1 a TP[X,Y]
senão atribuir TP[X-1,Y] + TP[X-1,Y-1] a TP[X,Y];
para X de até 7 faça
para Y de 1 até X faça
se (Y = 1) e (Y = X)
então atribuir 1 a TP[X,Y]
senão atribuir TP[X-1,Y] + TP[X-1,Y-1] a TP[X,Y];