soma da diagonal principal de uma matriz
Publicado por NewLinuxer 13/12/2005
[ Hits: 14.904 ]
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.
Calculadora Empresarial feita no Lazarus (Delphi 7 para Linux)
validando um triângulo e classificando-o como equilátero, isoceles ou escaleno.
Calculadora Empresarial Lazarus
Nenhum comentário foi encontrado.
IA Turbina o Desktop Linux enquanto distros renovam forças
Como extrair chaves TOTP 2FA a partir de QRCODE (Google Authenticator)
Linux em 2025: Segurança prática para o usuário
Desktop Linux em alta: novos apps, distros e privacidade marcam o sábado
IA chega ao desktop e impulsiona produtividade no mundo Linux
Atualizando o Fedora 42 para 43
Como saber se o seu e-mail já teve a senha vazada?
Como descobrir se a sua senha já foi vazada na internet?
Warcraft II Remastered no Linux? (7)
O programa assinador digital (5)









