Usando vetor em pascal

[Thiago André Cardoso]

Este programa irá: 

| Escrever 10 números aleatórios em um vetor | Ordenar um vetor em ordem crescente | Trocar um valor por outro, caso tenha | inserir um valor na ultima posição |

//fpc 3.0.0

program vetor;
var 
    vet:array[0..9] of integer;
    vet_aux:array[0..9] of integer;
    i, j, k, aux_crescente, x, y, ultima:integer;
    
    // Procedimento que irá mostrar o vetor na tela
    procedure mostrar ( vetor : array of integer) ;
        var i : integer;
        begin
            for i := 0 to 9 do
            write(vetor[i], ' ');
        end; 
    // Fim do procedimento
    
begin
    // laço de for para preencher o array
    for i := 0 to 9 do
    begin
        // colocar um readln para obter os valores do usuário
        vet[i] := random(10);
    end;
    mostrar(vet); // mostra o vetor na tela
    
    // colocar vetor em ordem crescente
    for i := 0 to 9 do
    begin
        for j := 0 to 9 do
        begin
            if vet[i] < vet[j] then 
            begin
                aux_crescente := vet[i];
                vet[i] := vet[j];
                vet[j] := aux_crescente;
            end;
        end;
    end;
    writeln;
    // FIM colocar vetor em ordem crescente
    writeln;
    mostrar(vet);
    //Substituir x por y no array
    x := 7;
    y := 9;
    writeln;
    writeln;
    writeln('Todos os valores ', x, ' Serão trocados por ', y);
    for i := 0 to 9 do 
    begin
        if vet[i] = x then vet[i] := y;
    end;
    writeln;
    mostrar(vet);
    //FIM Substituir x por y no array
    
    //Inclui um valor na pilha. O valor será incluso na ultima posição, empurrando todas as outras para baixo e assim perdendo o valor que estava
    //na primeira posição.
    ultima := random(10);
    for i:= 0 to 8 do
    begin
        vet[i] := vet[i + 1];
    end;
    vet[9] := ultima;
    writeln;
    mostrar(vet);
end.

 

[fittborges]

Olá Thiago

Excelente artigo, me fez fazer algumas linahs de código e compilar Pascal com uma pesquisa binaria em vetor!

Fazia quase duas décadas que não fazia algo assim em Pascal! Usei muio o Turbo Pascal da Borland nos anos 90

E uma relação de amor e respeito! Acredito que o Pascal foi a terceita linguagem que aprendi e até então uma das que mais

Aprendi Basic, Cobol depis o Pascal! Hoje me aventuro no Java e outros de Web 

Parabéns pelo artigo! è bem assim que escrevi linhas e linha do nosso amada Pascal