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 troca directa.
  • Mostre o vector ordenado.
  • Efectue uma traçagem para o seguinte vector:

    • Program OrdenarPorTrocaDirecta;

    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 troca directa}

    For i:=1 To n-1 Do

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

    End.

    Traçagem

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

    Comentários para: Nuno Castro

    1