soma da diagonal principal de uma matriz
Publicado por NewLinuxer 13/12/2005
[ Hits: 14.402 ]
progrma para efetuar a soma da diagonal principal de uma matriz, após armazenar esta em um vetor.
PROGRAM EXERCICIO2; USES CRT; VAR MATRIZ: ARRAY[1..7,1..7] OF INTEGER; VETOR: ARRAY[1..7] OF INTEGER; SOMATORIA, LINHA, COLUNA: INTEGER; BEGIN SOMATORIA:=0; CLRSCR; FOR LINHA:=1 TO 7 DO FOR COLUNA:=1 TO 7 DO BEGIN WRITE('DIGITE O NUMERO DA LINHA ',LINHA,', COLUNA ',COLUNA,': '); READLN(MATRIZ[LINHA,COLUNA]); IF LINHA=COLUNA THEN VETOR[LINHA]:=MATRIZ[LINHA,COLUNA]; END; FOR LINHA:=1 TO 7 DO SOMATORIA:= SOMATORIA+VETOR[LINHA]; WRITELN('A SOMATORIA DOS VALORES DO VETOR : ',SOMATORIA); READKEY; END.
Calculo do Fatorial Utilizando-se de for
calculo da somatoria da diagonal principal
Nenhum comentário foi encontrado.
Como escolher o melhor escalonador de CPU para melhorar o desempenho da máquina
Curiosidade sobre DOOM Guy e Isabelle de Animal Crossing
Inicializando servidor Ubuntu na AWS e rodando apache em Container
Instalando TeamViewer no Debian 12
Conheça o Octopi, outro frontend para o Pacman com acesso ao AUR (Arch Linux e derivados)
Terminal transparente no Debian 12 com interface i3wm usando Xfce4-Terminal e Compton
O que é isso no meu navegador? [RESOLVIDO] (5)
Eu estou com problemas para usar o QBASIC no Dosbox X (2)
Ubuntu simplesmente morreu (8)
Como colocar uma assinatura digital em um código compilado ! (2)