Conjuntos
Publicado por Leonardo 26/05/2007
[ Hits: 7.078 ]
Este script recebe de entrada 2 vetores com 10 números distintos cada um.
Exibirá na tela a união, diferença e intersecção dos dois vetores.
O programa le dois vetores de dimensao 10 inteiros e distintos,
calcula e exibe a uniao, diferenca e interseccao dos vetores dados.}
program conjunto;
uses crt;
type
vetor = array [1..20] of integer;
var {Declaracao de variaveis}
i,n1,n2,n3: integer;
x,y,u,d,int: vetor;
procedure lervet (var a: vetor );
var j:integer;
begin
for j:=1 to 10 do
begin
write (j, '.o elemento: '); {Orientacao ao usuario}
readln (a[j]);
end;
end;
procedure escrevet (var a: vetor;o: integer);
var j: integer;
begin
for j:=1 to o do
writeln (j, '.o elemento: ', a[j]); {Orientacao ao usuario}
end;
procedure uniao (var c:vetor; a,b:vetor;var m:integer);
var j,k,l,s: integer;
begin
k:=1;
s:=0;
for j:=1 to 10 do
begin
c[k]:= a[j];
k:=k+1;
end;
for l:=1 to 10 do
begin
for j:=1 to 10 do
begin
If b[l] <> a[j] then
s:=s+1;
end;
If s=10 then
begin
c[k]:= b[l];
k:=k+1;
end;
s:=0;
end;
m:=k-1;
end;
procedure diferenca (var c: vetor; a,b:vetor; var m: integer);
var j,k,l,s: integer;
begin
k:=1;
s:=0;
for j:=1 to 10 do
begin
for l:=1 to 10 do
begin
If a[j] <> b[l] then
s:=s+1;
end;
If s=10 then
begin
c[k]:= a[j];
k:=k+1;
end;
s:=0;
end;
m:=k-1;
end;
procedure interseccao (var c: vetor; a,b:vetor;var m:integer);
var j,k,l: integer;
begin
k:=1;
for l:=1 to 10 do
for j :=1 to 10 do
If b[l]=a[j] then
begin
c[k]:= a[j];
k:=k+1;
end;
m:=k-1;
end;
begin
clrscr; {Comando do Pascal que limpa a tela }
writeln ('Escreva os elementos do Vetor X'); {Orientacao ao usuario}
lervet(x);
writeln; {Comando que pula linha}
writeln ('Escreva os elementos do Vetor Y'); {Orientacao ao usuario}
lervet(y);
writeln; {Comando que pula linha}
writeln ('Os elementos do Vetor X sao: '); {Orientacao ao usuario}
escrevet(x,10);
writeln; {Comando que pula linha}
writeln ('Os elementos do Vetor Y sao: '); {Orientacao ao usuario}
escrevet(y,10);
writeln; {Comando que pula linha}
writeln ('A uniao dos vetores eh: '); {Orientacao ao usuario}
uniao(u,x,y,n1);
escrevet(u,n1);
writeln; {Comando que pula linha}
writeln ('Pressione a tecla <Enter> para continuar'); {Orientacao ao usuario}
readln; {Comando que espera o usuario pressionar Enter para continuar}
writeln (' A diferencao dos vetores eh: '); {Orientacao ao usuario}
diferenca (d,x,y,n2);
escrevet (d,n2);
writeln; {Comando que pula linha}
writeln ('A interseccao dos vetores eh: '); {Orientacao ao usuario}
interseccao (int,x,y,n3);
escrevet(int,n3);
readkey;{Comando do Pascal que espera o usuario digitar qualquer tecla para finalizar o programa}
end.
Programa que realiza o reajuste salarial de acordo com o cargo
controle de notas de uma clase com vetor e registro
IA Turbina o Desktop Linux enquanto distros renovam forças
Como extrair chaves TOTP 2FA a partir de QRCODE (Google Authenticator)
Linux em 2025: Segurança prática para o usuário
Desktop Linux em alta: novos apps, distros e privacidade marcam o sábado
IA chega ao desktop e impulsiona produtividade no mundo Linux
Atualizando o Fedora 42 para 43
Como saber se o seu e-mail já teve a senha vazada?
Como descobrir se a sua senha já foi vazada na internet?
Warcraft II Remastered no Linux? (7)
O programa assinador digital (5)









