• 0
Sign in to follow this  
Thiago André Cardoso

Usando vetor em pascal

Question

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.

 

Share this post


Link to post
Share on other sites

0 answers to this question

Recommended Posts

There have been no answers to this question yet

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this