pascal

[j_castro 0]

Uma instituição e ensino superior, deseja saber se existem alunos, do curso de sistemas de informação cursando, simultaneamente, as disciplinas engenharia de software e banco de dados. Existem disponíveis, na unidade de entrada, os números de matrícula dos alunos de engenharia de software (no máximo 150 alunos) e de banco de dados (no máximo 220 alunos). Cada conjunto dos números de matrícula dos alunos de uma disciplina tem a matrícula fictícia 9999999 no final.

a) Fazer um programa pascal que mostre o número de matrícula dos alunos que estão cursando estas disciplinas simultaneamente. Trata-se, assim, da verificação da ocorrência de um elemento de um conjunto em um outro conjunto. Deste modo, após a leitura dos dados, estarão montadas as seguintes variáveis compostas unidimensionais ESW e BD, contendo, respectivamente, os números de matrícula dos alunos que estão cursando engenharia de software e Banco de Dados.

 

ESW

... 9999999

1 2 3 150 151

BD

... 9999999

1 2 3

 

 

 

 

 	Const
 	M_ESW = 3;
 	M_BD = 6;

 	TYPE
 		VETOR = ARRAY [1..151] of integer;


 	var

ESW, RESULT : VETOR; 

 	BD :ARRAY [1..221] of integer;


 	i : integer;


	Begin
      for i:= 1 to M_ESW do
    	Begin
		writeln ('DIGITE A MATRICULA DO ALUNO DE ESW');
    		read (ESW [i]); 
    		{ESW [151] = 999999; }
    	end;

    ClrScr;	
    	for i:= 1 to M_BD do
    	Begin
		writeln ('DIGITE A MATRICULA DO ALUNO DE BD');
    		read (BD [i]); 
    		{BD [221] = 999999; }
    	end;

    	Beginn
    		if ESW [i] =  BD [i] then

    		RESULT := ESW[i];


    	end;	

	End.

 

conseguir fazer até aqui

[quitZAUMMM 18]

Não é soh fazer como você fez, só q dentro de um loop varrendo tds registros de algum dos vetores comparando com o outro?

 

[]s