Conjuntos
Publicado por Leonardo 26/05/2007
[ Hits: 6.969 ]
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.
mais um modelo de programa com vetor
Operações básicas da matemática
cadastro de multiplos clientes com registro
Como transformar um áudio em vídeo com efeito de forma de onda (wave form)
Como aprovar Pull Requests em seu repositório Github via linha de comando
Como gerar um podcast a partir de um livro em PDF
Organizando seus PDF com o Zotero
Erro no realm join [Resolvido]
Um programa para baixar vídeos: Parabolic
Como Definir o Painel Principal em Múltiplos Monitores no Linux Mint
Sempre que vou baixar algum pacote acontece o erro dpkg (7)
como instalo panfrost-dri e o driver panfrost fork , ou panfrost (12)