Conjuntos
Publicado por Leonardo 26/05/2007
[ Hits: 7.048 ]
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
Calculadora De Decimo Terceiro Salário feita no Lazarus (Delphi 7 para Linux)
IA local no bolso, novo visual no Raspberry Pi OS e mais destaques do software livre
Kernel turbinado, compatibilidade em alta e debate sobre sustentabilidade: o dia no mundo Linux
Kernel turbinado e GNOME 49 dominam o giro do dia no mundo Linux
Novidades Linux: Kernel 6.17, distros em ebulição e segurança em foco
Kernel ganha novos linters Rust e distros avançam com recursos de IA
Adicionando o repositório backports no Debian 13 Trixie
Como definir um IP estático no Linux Debian
SAMBA parou de compartilhar (2)
Orientação para instalar o Warsaw - módulo de proteção do Banco do Bra... (8)
systemd-resol... precisa ser reiniciado periodicamente (5)
Alguém que utilize o Warsaw do BB no Ubuntu 24.04 [RESOLVIDO] (6)
Fedora não reconhece James Donkey 102 Wireless Gaming Mouse (2)