Array de números aleatórios não-repetidos de um intervalo em Pascal
Publicado por Perfil removido (última atualização em 23/04/2012)
[ Hits: 13.685 ]
Este programa feito em Pascal preenche um array (vetor) de números inteiros de um intervalo dado (de 1 até VALOR) com valores inteiros aleatórios deste intervalo.
Não sei como está agora, mas Pascal era primeira linguagem de cursos técnicos e universitários ao se ensinar algoritmos no 1º ciclo.
Tinha ganho vida nova através do Object Pascal presente no Delphi. Que ultimamente não tenho visto muita coisa por aí...
Ele consegue ser compilado com gpc (GNU Pascal) e fpc (Free Pascal).
Há uma pequena "gambiarra" no código:
Pelo menos foi assim que consegui fazer funcionar em ambos os compiladores.
$ gpc alea001.pas -o alea001 # para usar gpc
ou
$ fpc alea001.pas # para usar fpc
Ambos os compilados são enormes se comparado com o compilado em C.
A vantagem de se usar gpc é que dá pra usar o gdb (GNU Debugger). Basta colocar a opção "-ggdb" no comando de compilação do gpc.
Há também um debugger próprio do Free Pascal, mas o gdb é mais popular.
Não tenho a menor ideia se funciona em Turbo Pascal, nem garantia no Dev-Pascal :-)
Program alea001; {$ifndef __GPC_RELEASE__} Uses Crt; {$endif} { <----- Gambiarra para funcionar com "gpc" } { Para testar se não há números repetidos, usar por exemplo: alea001 | sort -n --key=2 } Const VALOR = 52; Var vec : Array [1..VALOR] of Integer; i, j, k, n : Integer; Begin Randomize; i := 1; n := VALOR; While i<=n Do Begin vec[i] := -1; Inc(i); End; i := 1; j := 0; While i<=n Do Begin j := 1 + Random(n); k := 1; While (k<=i) And (vec[k]<>j) Do Inc(k); If k=i+1 Then Begin vec[i] := j; Inc(i); End; End; i := 1; While i<=n Do Begin WriteLn (i, #9, vec[i]); Inc(i); End; WriteLn; End.
soma da diagonal principal de uma matriz
Operações básicas da matemática
controle de notas de uma clase com vetor e registro
Calculadora de décimo terceiro salário em Pascal
Nenhum comentário foi encontrado.
Atualizações de Apps, Desktop e Kernel agitam o ecossistema Linux nesta terça-feira
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
Adicionando o repositório backports no Debian 13 Trixie
Como definir um IP estático no Linux Debian
Como vencer a procrastinação? (8)
Adicional de convivdado em linux somente linha de comando (3)
IP estático acessando rede sem autorização (2)
O que você está ouvindo agora? [2] (224)
Orientação para instalar o Warsaw - módulo de proteção do Banco do Bra... (10)