soma de matrizes
Publicado por NewLinuxer 13/12/2005
[ Hits: 11.850 ]
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.
calculo de porcentagem em vetores
intercalar dois arrays (vetores)
calcular o percentual de pessoas que sao maiores de idade
Nenhum comentário foi encontrado.
Como aprovar Pull Requests em seu repositório Github via linha de comando
Como gerar um podcast a partir de um livro em PDF
Automatizando digitação de códigos 2FA no browser
Resolver problemas de Internet
Como compartilhar a tela do Ubuntu com uma Smart TV (LG, Samsung, etc.)
Como Definir o Painel Principal em Múltiplos Monitores no Linux Mint
Minecraft Launcher para Arch Linux
Instalar o Apache, MySQL e PHP no Oracle Linux 8
Resolvendo o erro "libQt6Widgets.so.6: cannot open shared object file" no Linux
Como bloquear e desbloquear papel de parede no Ubuntu 24.04 (1)
Mouse bluetooth no Debian 12.10. (0)
tentando instalar em um notebook antigo o Linux LegacyOS_2023... (2)