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

Angel

não percebo pq não funciona

3 mensagens neste tópico

como implementar uma função que informe se um dado número encontra-se ou não num array. A função deve receber como parâmetros o array e o tal número e deve retornar True caso o número esteja no array ou False  caso contrário. construir um programa que calcule a operação diferença entre conjuntos.

program diferenca_entre_conjuntos;

const MAX =10;				{tamanho máximo de um conjunto}

type Conjunto=Array[1..MAX] of Integer;	 {definido o tipo Conjunto}

var a, b, difab : Conjunto;
        i, j : Integer;

{Area de declaração de sub-programas}

function Esta_em (n : integer; c : Conjunto; tam : integer): boolean;

{esta função verifica se um elementos está ou não num conjunto}
    var i: integer;
         esta: boolean;
    begin 
        esta := False;
        for i := 1 to tam do
             if n = c[ i ]
             then esta := True;
         esta_em := esta;
     end;

begin 
    {procedimentos iniciais}
    j := 1;			{j indica próxima posição livre no conjunto diferença}
    clrscr;
   {Leitura dos  valoresde a e b}
    for i:= 1 to MAX do begin
        write (‘Forneca a [‘,i,’] e b [‘,i,’] : ‘);
        readln (a [ i ], b [ i ]);
    end;
    {cálculo da diferença entre a e b}
    for i.= 1 to MAX do
        if not Esta_em (a [ i ], b, 3)
        then begin
difab [ j ] := a [ i ];
    j := j + i;
  end;
  {impressão do array diferenca}
  write ( ‘ a – b = { ‘ );
  for i := 1 to j-2 do 
      write (difab [ i ], ‘ , ‘);
  write (difab [j – 1], ‘} ‘);
end.

não percebo o que está errado mas não funciona, se me pudessem ajudar agradecia desde já. obrigado

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

LOOL

epah assim a ler na diagonal tas a meter um write e se a memoria não me falha necessitas de um

user crt; no inicio :thumbsup:

cumps...

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