Ir ao conteúdo
  • Cadastre-se
PASCALZINDOCAPICUA

Programação em pascal com função

Recommended Posts

Então ve se ta certinho aqui 

Program IntersecaoConjuntos ;
 uses CRT;
type
   vetor = array[1..100] of real;
procedure LeiaVetor(
   tam: integer;
   var V: vetor );
   var i: integer;                  
 
  begin
    for i:=1 to tam do
       read(V);
  end;
  
 procedure ImprimeVetor(
    tam: integer;
    V: vetor);
    var i: integer;
  
  begin
   for i:=1 to tam do
    write(V:2:2, ' ' );
  end;
 
procedure DetermineConjuntoIntersecao
 (
    A, B: vetor;
    var I: vetor; 
    m, n: integer;
    var p: integer 
  );
  var ii, k: integer;
      Achou: boolean;
 
  Begin
   p:=0;
   for ii:=1 to n do
    Begin
     k:=1;
     Achou:= false;
     while (k<=m) and (not Achou) do
      Begin
       if (A[ii] = B[k]) then
        begin
         p:=p+1;
         I[p]:=A[ii];
         Achou:=true;
        end;
       k:=k+1;
      End;
    End;
     
  End;
  
  
 var
     m,n,p: integer; 
     A,B: vetor;  
     I: vetor;    
 Begin
 
 ClrScr;
  writeLn( 'Determina a interseção de dois conjuntos');
  writeLn;
  writeLn( 'Entre com o tamanho do primeiro conjunto:');
  read(n);
  writeLn;
  writeLn( 'Entre com o tamanho do segundo conjunto:');
  read(m);
  writeLn( 'Entre com os elementos do primeiro conjunto:');
  LeiaVetor(n, A);
  writeLn( 'Entre com os elementos do segundo conjunto:');
  LeiaVetor(m, B);
  DetermineConjuntoIntersecao(A,B,I,m,n,p);
  writeLn( 'Conjunto Interseção:');
  ImprimeVetor(p,I);
  writeLn;
  
  
 End.

 

 

Editado por dif
Inserir o código com o botão CODE

Compartilhar este post


Link para o post
Compartilhar em outros sites

Caro usuário,

 

Seja bem-vindo ao Fórum do Clube do Hardware.

 

No intuito de servir como fonte de pesquisa no caso de instituições de ensino, informamos que incorrer no resolvimento por completo de questões relacionadas a disciplinas escolares de cursos técnicos e faculdades podem ser revistas e removidas pela Equipe de Moderação do Clube do Hardware.

 

Para sanar dúvidas sobre esse tipo de problema, por gentileza, publique o passo a passo do desenvolvimento da questão, projeto, monografia ou conteúdo em dúvida para que possamos analisar se a sua resposta está certa ou não, ou para que possamos ajudá-lo com a sua dúvida no desenvolvimento do exercício.

 

Infelizmente, não temos como resolver seus trabalhos por você. O objetivo do Fórum do Clube do Hardware é auxiliar você a sanar suas dúvidas, e não de responde-las em seu lugar. Além disso, copiar e colar respostas que não são de sua autoria é considerado plágio, o que é ilegal.

 

Esperamos que compreenda.

 

Atenciosamente,

Equipe Clube do Hardware

Compartilhar este post


Link para o post
Compartilhar em outros sites

@PASCALZINDOCAPICUA É interessante você postar o enunciado do exercício. Explicar exatamente qual seu objetivo e etc.

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

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

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

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

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×