Matriz em Pascal

[Laís G ® 0]

Olá pessoal! http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

Será que alguém pode me ajudar a resolver estas questões de matriz? :unsure: Estas devem ser resolvidas em PASCAL? :(

 

 

Questão 01.

 

--> Escreva um programa que leia uma matriz M(5,5) e cria 2 vetores SL(5) e SC(5) que contenham, respectivamente, as somas das linhas e das colunas de M. Escreva a matriz e os vetores criados.

 

 

Questão 02.

 

--> Escreva um programa que lê uma matriz M(5,5). Substitua, a seguir, todos os valores negativos da matriz pelo seu módulo. Exemplo: substitua -2 por 2, -16 por 16, assim por diante.

 

 

Parece ser questões simples mas não estou conseguindo http://forum.imasters.com.br/public/style_emoticons/default/no.gif ver uma saída para resolvê-las. http://forum.imasters.com.br/public/style_emoticons/default/upset.gif Por obséquio, será que alguém pode me ajudar, dar uma idéia de como resolver... :(

[quitZAUMMM 18]

Entenda como funciona matriz em pascal primeiro: http://www.lsd.ic.unicamp.br/projetos/e-lane/introPascal/aula7.html

 

Tente fazer e poste suas duvidas referentes aos exercicios.

 

[]s

[Laís G ® 0]

__________________________________________________________________________________________________________________

http://forum.imasters.com.br/public/style_emoticons/default/ermm.gif Começei fazendo isto aqui -->

 

Program modulo;
uses crt;
var A:array[1..5,1..5] of integer;
var I,J, modS:integer;
Begin
clrscr;
writeln ('Matriz A');
For I:= 1 to 5 do
For J:= 1 to 5 do
Gotoxy (10+4*J, 3+I);
Readln (A[I,J]);
END;
For I:= 1 to 5 do
For J:= 1 to 5 do
Begin
If A [I,J] < 0 then
modS:= ABS (A[I,J]);
writeln (modS);
Readkey;
END.

E então? :mellow: Está correto assim? :blink: Qual o próximo passo, como devo proceder agora? http://forum.imasters.com.br/public/style_emoticons/default/upset.gif ?

[quitZAUMMM 18]

Falta criar os vetores para jogar os valores neles!

 

[]s

[Laís G ® 0]

Falta criar os vetores para jogar os valores neles!

 

[]s

 

______________________________________________________________________________________

:huh: Eis o problema, criar os vetores... http://forum.imasters.com.br/public/style_emoticons/default/ermm.gif

[quitZAUMMM 18]

Pascal n é minha praia, posso te orientar na lógica.

veja esse link: http://forum.imasters.com.br/index.php?/topic/179698-vetor-em-pascal-ajuda/

e no ultimo post faça o download da apostila q esta anexada.

 

[]s

[Kazami~ 0]

[...]

Questão 02.

 

--> Escreva um programa que lê uma matriz M(5,5). Substitua, a seguir, todos os valores negativos da matriz pelo seu módulo. Exemplo: substitua -2 por 2, -16 por 16, assim por diante.

então, não faço código no Turbo Pascal, mas sim no Pascalzim... mas dah pra entender... ^_^

 

~Nessa questão tens q ler os valores da matriz, repetir os "for" de linha e coluna e dentro deles fazer um if para descobrir quais são negativos e multiplicar eles por -1, aih é só escrever a matriz...

mais ou menos assim:

 

 

Eis o problema, criar os vetores...

vetor é:

vetor:array[1..algum_limite] of tipo;

e alguma outra variavel para usar nele (tipo um contador), normalmente usa-se o i...

 

http://forum.imasters.com.br/public/style_emoticons/default/bye1.gif