soma de matrizes
Publicado por NewLinuxer 13/12/2005
[ Hits: 11.961 ]
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.
armazenar o nome de um aluno e suas notas
Nenhum comentário foi encontrado.
Desktop Linux ganha novos apps enquanto IA invade o noticiário
Blender 5.0 Beta, Firefox 144 e avanço da IA dominam o dia no mundo Linux
Desktop Linux ganha fôlego enquanto distros refinam experiência e segurança
Wayland em alta, IA em debate e novos ventos para distros e devices
Qt 6.10 e Python 3.14 puxam o ritmo do software livre nesta quarta
Como mudar o nome de dispositivos Bluetooth via linha de comando
Adicionando o repositório backports no Debian 13 Trixie
Erro de instalação do Zorin Os 18 (5)
Erro no Plugin do PDF GLPI 11 (0)