Engª Mecânica, Engª Manutenção Industrial e Engª Mecânica de Transportes

Introdução à Computação e Métodos Numéricos

Escreva um programa em Turbo Pascal que permita:

  • Armazenar n elementos inteiros num vector.
  • Implemente o algoritmo de ordenação por selecção.
  • Mostre o vector ordenado.
  • Efectue uma traçagem para o seguinte vector:

    Program OrdenarPorSeleccao;

    Const n=5;

    Var i, j, temp, imin: Integer;

    v:Array[1..n] Of Integer;

    Begin

    {Armazenar os n elementos inteiros num vector}

    For i:=1 To n Do Begin

    End;

    {Ordenar por selecção}

    For i:=1 To n-1 Do Begin

    End;

    For i:=1 To n Do Write(v[i]:3);

    End.

    Traçagem

    n i j imin temp v
    5 3,2,7,8,1
    1
    1
    2
    2
    3
    2
    4
    2
    5
    5
    3
    1,2,7,8,3
    2
    2
    3
    2
    4
    2
    5
    2
    1,2,7,8,3
    3
    3
    4
    3
    5
    5
    7
    1,2,3,8,7
    4
    4
    5
    5
    1,2,3,7,8

    Comentários para: Nuno Castro

    1