Ir para conteúdo
Fórum Script Brasil
  • 0

Usando vetor em pascal


Thiago André Cardoso

Pergunta

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 para o comentário
Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

  • 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 para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...