soma de matrizes
Publicado por NewLinuxer 13/12/2005
[ Hits: 11.970 ]
Programam para efetuar a soma de duas matrizes 3x4
PROGRAM EXERCICIO7;
USES CRT;
VAR
MATRIZ1, MATRIZ2, MATRIZ_SOMA: ARRAY[1..3,1..4] OF INTEGER;
LINHA, COLUNA, MATRIZ: INTEGER;
BEGIN
CLRSCR;
FOR MATRIZ:=1 TO 2 DO
FOR LINHA:=1 TO 3 DO
FOR COLUNA:=1 TO 4 DO
BEGIN
WRITE('DIGITE O NUMERO DA LINHA ',LINHA,', COLUNA ',COLUNA,', MATRIZ ',MATRIZ,': ');
IF MATRIZ = 1 THEN
READLN(MATRIZ1[LINHA,COLUNA]);
IF MATRIZ = 2 THEN
BEGIN
READLN(MATRIZ2[LINHA,COLUNA]);
MATRIZ_SOMA[LINHA,COLUNA]:=MATRIZ1[LINHA,COLUNA]+MATRIZ2[LINHA,COLUNA];
END;
END;
WRITELN;
WRITELN('A SOMA DAS MATRIZES : ');
WRITELN;
FOR LINHA:=1 TO 3 DO
BEGIN
FOR COLUNA:=1 TO 4 DO
WRITE(MATRIZ_SOMA[LINHA,COLUNA]:2,' ');
WRITELN;
END;
READKEY;
END.
Visualizador de imagem Pascal/Lazarus
mostrar a meior e a menor temperatura do ano com vetor
calcular o percentual de pessoas que sao maiores de idade
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
Como instalar o repositório do DBeaver no Ubuntu
Como instalar o Plex Media Server no Ubuntu
Digitando underscore com "shift" + "barra de espaços"
Como ativar a lixeira e recuperar aquivos deletados em um servidor Linux
Como mudar o nome de dispositivos Bluetooth via linha de comando
Assinador JNLP do Site Portal da Nota Fiscal Eletrônica (4)
Warcraft II Remastered no Linux? (3)









