Jump to content
Fórum Script Brasil

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.

 

Link to post
Share on other sites

1 answer to this question

Recommended Posts

  • 0

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

Link to post
Share on other sites

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.



  • Forum Statistics

    • Total Topics
      148856
    • Total Posts
      644852
×
×
  • Create New...