Ir para o conteúdo
Rafa Silva

Agradeco ajuda para conseguir desenvolver o programa..

Mensagens Recomendadas

Rafa Silva    0
Rafa Silva

ola!! sou aluno do 11º ano do curso de informatica e gestao e tenho que fazer um projecto

Este consiste em fazer um programa em pascal que crie uma matriz 3x3x3 onde cada elemento da matriz seja igual a soma dos seus índices . Crie uma função que obtenha a soma de todos elementos da matriz, e uma outra sub-rotina que obtenha a soma dos elementos cujos valores são pares e a soma dos elementos cujos valores são ímpares. Exibir no monitor os valores da soma total, soma dos pares e soma dos ímpares.

Preciso mesmo de alguma ajuda é que eu nao sei mesmo nada de pascal... obrigado.. Agradeco repostas

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
JoaoRodrigues    0
JoaoRodrigues

Primeiro que tudo, bem vindo ao fórum ;)

Segundo, tens já alguma ideia de como fazer isso? Ultimamente temos tido bastantes "dúvidas" semelhantes à tua, no que toca ao criar uma matriz e ler de lá valores. Aconselho-te a leres os últimos 5 tópicos da secção (que acho que são desse género) para veres se te dá umas luzes.

Basicamente, tens que criar a matriz (uma sub-rotina, ou procedure), popular a matriz (outra sub-rotina) e no fim avaliar os conteúdos da matriz (a 3a sub-rotina) a fim de obteres os cálculos que queres.

Se não sabes nada de Pascal, aconselho-te a pedires ao teu professor uma mãozinha ;)

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Rafa Silva    0
Rafa Silva

program matriz;

uses crt;

type matriz= array [1..A, 1..B, 1..C] of integer;

procedure criarmatriz(var N: matriz);

var

x,y,z:integer;

begin

    for x:=1 to A

do for y:=1 to B

    do for z:=1 to C

      do N[x, y, z]:= x+y+z;

end;

function soma(N: matriz):integer;

var

  x,y,z:integer;

  soma:integer;

begin

  soma:=0;

  for x:=1 to A

  do for y:=1 to B

    do for z:=1 to C

        do soma:=soma+M[x,y,z];

  stotal:=soma;

end;

ja consegui fazer isto, mas agora nao consigo fazer o procedure para somar os numeros pares...

mas eu acho que o raciocinio é o mesmo que o de fazer a soma total...

penso que seja assim:

function spares(N: matriz):integer;

var

  x, y, z:integer

  spar:integer

begin

    spar:=0;

    for x:=1 to A

do for y :=1 to B

  do for z:=1 to C do

spar:=spar+N[x,y,z]

end.

gostaria de saber se isto esta certo ou se falta alguma coisa.. obrigado

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora


×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade