Ir ao conteúdo
  • Cadastre-se

Programação em pascal com função


Posts recomendados

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.

 

 

Link para o comentário
Compartilhar em outros sites

  • Moderador

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

Link para o comentário
Compartilhar em outros sites

Visitante
Este tópico está impedido de receber novas respostas.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades 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

×
×
  • Criar novo...