Conjuntos
Publicado por Leonardo 26/05/2007
[ Hits: 6.851 ]
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.
Calculadora de décimo terceiro no Lazarus
script para ler um vetor e mostrar o conteúdo
cadastro de multiplos clientes com registro
Calculadora Empresarial Lazarus
Compartilhando a tela do Computador no Celular via Deskreen
Como Configurar um Túnel SSH Reverso para Acessar Sua Máquina Local a Partir de uma Máquina Remota
Configuração para desligamento automatizado de Computadores em um Ambiente Comercial
Como renomear arquivos de letras maiúsculas para minúsculas
Imprimindo no formato livreto no Linux
Vim - incrementando números em substituição
Efeito "livro" em arquivos PDF
Como resolver o erro no CUPS: Unable to get list of printer drivers
Não to conseguindo resolver este problemas ao instalar o playonelinux (1)
Excluir banco de dados no xampp (1)
[Python] Automação de scan de vulnerabilidades
[Python] Script para analise de superficie de ataque
[Shell Script] Novo script para redimensionar, rotacionar, converter e espelhar arquivos de imagem
[Shell Script] Iniciador de DOOM (DSDA-DOOM, Doom Retro ou Woof!)
[Shell Script] Script para adicionar bordas às imagens de uma pasta