soma de matrizes
Publicado por NewLinuxer 13/12/2005
[ Hits: 11.948 ]
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.
Nenhum comentário foi encontrado.
IA local no bolso, novo visual no Raspberry Pi OS e mais destaques do software livre
Kernel turbinado, compatibilidade em alta e debate sobre sustentabilidade: o dia no mundo Linux
Kernel turbinado e GNOME 49 dominam o giro do dia no mundo Linux
Novidades Linux: Kernel 6.17, distros em ebulição e segurança em foco
Kernel ganha novos linters Rust e distros avançam com recursos de IA
Adicionando o repositório backports no Debian 13 Trixie
Como definir um IP estático no Linux Debian
Como vencer a procrastinação? (1)
Alguém que utilize o Warsaw do BB no Ubuntu 24.04 [RESOLVIDO] (7)
Orientação para instalar o Warsaw - módulo de proteção do Banco do Bra... (9)