Baixe o app para aproveitar ainda mais
Leia os materiais offline, sem usar a internet. Além de vários outros recursos!
matrixadd pascal
Faça como milhares de estudantes: teste grátis o Passei Direto
Esse e outros conteúdos desbloqueados
16 milhões de materiais de várias disciplinas
Impressão de materiais
Agora você pode testar o
Passei Direto grátis
Faça como milhares de estudantes: teste grátis o Passei Direto
Esse e outros conteúdos desbloqueados
16 milhões de materiais de várias disciplinas
Impressão de materiais
Agora você pode testar o
Passei Direto grátis
Compartilhar
Prévia do material em texto
(* matrixadd.pas
Autor: Angelo de Oliveira
Objetivo: mostrar como adicionar duas matrizes quadradas
cujo tamanho ‚ limitado a 10.
*)
Program matrixadd;
Uses Crt;
Const MaxN = 10;
Var
p, q, r: array[0..MaxN, 0..MaxN] Of Real;
N, i, j: Integer;
Begin
ClrScr;
(* solicitando ao usu rio os tamanhso das matrizes *)
Write('Qual ‚ a ordem das matrizes? ');
(* recebe do usu rio o tamanho das matrizes *)
ReadLn(N);
(* entrando com a primeira matrix *)
For i := 0 To (N - 1) Do
For j := 0 to (N - 1) Do
Read(p[i, j]);
(* entrando com a primeira matrix *)
For i := 0 To (N - 1) Do
For j := 0 to (N - 1) Do
Read(q[i, j]);
(* somando as duas matrizes *)
For i := 0 To (N - 1) Do
For j := 0 to (N - 1) Do
r[i, j] := p[i, j] + q[i, j];
(* exibindo a soma das matrizes *)
For i := 0 To (N - 1) Do
For j := 0 to N Do
if j = N then
WriteLn
else
Write(r[i, j]:7:1);
End.Materiais relacionados
Perguntas relacionadas
Compartilhar