#

Jump to content

  • Login via Facebook Login com Twitter
  • Cadastre-se no Fórum do BABOO!





 

Foto

Matriz em Pascal


Minimizar/MaximizarImagens para Papel de Parede

  • 3D - 57
  • Anfíbios e Répteis - 23
  • Avião - 01
  • Mulheres lindas - 08
  • Flores - 23
  • Avião - 14
  • Animais - 48
  • Montanha com cachoeira
  • Bing - Foto 59
  • Animais - 18

  • Faça login para responder
Existem 4 respostas neste tópico

#1
Link desta mensagem
Gaglietti

Gaglietti
  • Participante
  • 4 mensagens

Publicado 03/dez/06 08:15 h

Preciso fazer um programa que leia valores para uma matriz (6,6). Após, substitua cada elemento da matriz pelo valor elevado ao cubo. Somar também todos os elementos da matriz, elevar esta soma ao cubo. Escrever a matriz depois das modificações e a soma dos elementos ao cubo.


Preciso disso com uma certa urgência, de preferência para ontem.


Se tiver alguém disponivel para me ajudar e souber a resposta eu agradeço muito.


 Desculpem a linguagem é Pascal.


Só preciso saber como trocar os elementos pelo seu cubo, o resto já consegui fazer.


Valeu!!!!


Aqui está o que consegui fazer até agora:


PROGRAM MATRIZ;
USES CRT;
VAR A,B: ARRAY[1..6,1..6] OF INTEGER;
VAR X,Y,SOMA, AUX, SOMA2:INTEGER;
BEGIN
CLRSCR;


  WRITELN (' Digite 36 elementos para a matriz A:');
  FOR X:=1 TO 6 DO
  FOR Y:=1 TO 6 DO
  READLN (A[X,Y]);
SOMA:=0;
  FOR X:=1 TO 6 DO
  FOR Y:=1 TO 6 DO
SOMA:=SOMA+A[X,Y];
  WRITELN ('A soma de todos os elementos da matriz ‚: ', SOMA);


  WRITELN('Substituindo os valores da matriz pelo cubo:');
  AUX:=0;
  SOMA2:=0;
B[X,Y]:=(SQR(A[X,Y])*A[X,Y]);


  FOR X:=1 TO 6 DO
  FOR Y:=1 TO 6 DO
  AUX:=A[X,Y];
  A[X,Y]:=B[X,Y];
  B[X,Y]:=AUX;


WRITE  (B[X,Y],' ');
SOMA2:=SOMA2+B[X,Y];


  WRITELN (' A soma dos elementos ao cubo ‚: ', SOMA2);


DELAY (10000);
END.


 


Ele não reconhece os valores elevados ao cudo, não mostra a matriz modificada e nem a soma dos elementos elevada ao cubo.


E o ior é que é para entregar hoje de noite.



Publicidade
Publicidade

#2
Link desta mensagem
adelgado

adelgado
  • Participante
  • 723 mensagens

Publicado 03/dez/06 08:40 h

Qual é a dúvida, e qual é a linguagem?

#3
Link desta mensagem
Gaglietti

Gaglietti
  • Participante
  • 4 mensagens

Publicado 03/dez/06 09:14 h

Desculpem a linguagem é Pascal.


Só preciso saber como trocar os elementos pelo seu cubo, o resto já consegui fazer.


Valeu!!!!



#4
Link desta mensagem
DeadParrot

DeadParrot
  • Participante
  • 253 mensagens

Publicado 04/dez/06 11:46 h

você lê a posição,calcula o cubo do número e escreve no lugar.

O que tem a ver o sqrt com o negocio de soma do cubo e cubo da soma??

#5
Link desta mensagem
andreh fonseca

andreh fonseca
  • Participante
  • 7 mensagens

Publicado 04/dez/06 11:27 h

O que tem a ver o sqrt com o negocio de soma do cubo e cubo da soma??


Ele quer a soma ao cubo. Então é só fazer sqr (soma) * soma, que vai ser soma²*soma = soma³. Mesma coisa para os elementos.


Só preciso saber como trocar os elementos pelo seu cubo, o resto já consegui fazer.



Você faz um for para todos os elementos e eleva eles ao cubo.

for x := 1 to 6 do
for y := 1 to 6 do
  begin
matriz[x,y] := sqr(matriz[x,y]) * matriz[x,y];
  end;


Isso deve dar.



  Publicidade  
Publicidade