Conteúdo: Default Ardósia Uva Barbie Morango Pôr do sol Banana Folha Chocolate Madeira
Fundo: Default Ardósia Uva Barbie Morango Pôr do sol Banana Folha Chocolate Madeira
Desenho: Liso Onda Linha Retalho Madeira Rocha Couro Colméia Vertical Triângulo
Bem-vindo ao Fórum do BABOO!

Desde 2000 o Fórum do BABOO tem ajudado milhões de internautas de Windows a resolverem seus problemas e dúvidas, além de ajudar na remoção de vírus e malwares de seus computadores. Somos o único fórum brasileiro coordenado por um especialista com reconhecimento internacional pela sua competência em Windows, então se você tem uma dúvida ou problema que nenhum outro fórum resolve, poste-a aqui pois o MVP Babooadora desafios!
  

O Fórum do BABOO também conta com a participação exclusiva do administrador da área de Segurança MVP Mr.Million que tem reconhecimento internacional da Microsoft pelo seu incansável trabalho ajudando os internautas a remover vírus e malwares dos seus computadores. Se o seu computador está infectado por algum vírus, ele te ajudará a removê-lo!
  

Nosso time de especialistas também inclui Patropi  Osvaldomp  Caze  Ciro-Mota  XERLOUCO ROUMS  Tatha que responderão suas dúvidas sobre diversos assuntos.
 

Participe da nossa comunidade! 

Entre para seguir isso  
Seguidores 0
Gaglietti

Matriz em Pascal

5 posts neste tópico

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.

Compartilhar este post


Link para o post
Compartilhar em outros sites

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


Intel Core 2 Quad Q9450 | Gigabyte GA-X48-DQ6 | 4 x Kingston HyperX 1GB @ 1066MHz DDR2 | OH YEAH!

Compartilhar este post


Link para o post
Compartilhar em outros sites

Desculpem a linguagem é Pascal.


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


Valeu!!!!

Compartilhar este post


Link para o post
Compartilhar em outros sites

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??


---------

Quer que eu faça seu trabalho?Beleza.Mas pague pelo serviço.

A grana primeiro e o trabalho depois.

Compartilhar este post


Link para o post
Compartilhar em outros sites

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.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Responda via Facebook

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Quer postar a sua dúvida? Cadastre-se pois é rápido e fácil!


Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.


Entrar Agora
Esse tópico é útil para você?
Então compartilhe e ajude outros internautas!
Entre para seguir isso  
Seguidores 0

O site BABOO está no ar para informar e ajudar o internauta de Windows. Este site foi publicado em 1999 por Aurélio "Baboo", engenheiro e um dos maiores especialistas brasileiros em Windows, que trabalha profissionalmente com esse sistema operacional desde 1987. Desde 2004 ele é premiado anualmente pela Microsoft como MVP (Most Valuable Professional) pela sua contribuição e ajuda à comunidade de usuários de Windows.

Em 2001 foi criado o
Fórum do BABOO para ajudar o internauta brasileiro a solucionar problemas e dúvidas sobre Windows, Segurança, Office, Hardware e outros temas. Desde 2010 a Microsoft também tem premiado o Mr.Million, administrador da área de Segurança do Fórum do BABOO, pelo seu incansável trabalho ajudando os internautas a remover vírus e malwares dos seus computadores. Atualmente ele é o único MVP brasileiro de Segurança em desktop.

O BABOO é o único site brasileiro coordenado por um especialista com reconhecimento internacional pela sua competência em Windows e que participa diariamente e ativamente nos comentários e discussões do site e fórum BABOO.