• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

Rafa Silva

Agradeco ajuda para conseguir desenvolver o programa..

3 mensagens neste tópico

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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 ;)

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

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