Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
ordinamento - ordinamento.pas

ordinamento.pas

Caricato da: Punkettone90
Scarica il programma completo

  1. program ordinamento;
  2. var dati:array[1..7] of integer;
  3.     i,k,c,n:integer;
  4.  
  5.  
  6.  
  7.  
  8.  
  9. procedure carica;
  10.   begin
  11.     dati[1]:=2;
  12.     dati[2]:=1043;
  13.     dati[3]:=1045;
  14.     dati[4]:=90;
  15.     dati[5]:=1045;
  16.     dati[6]:=0;
  17.     dati[7]:=78;
  18.   end;
  19.  
  20. begin
  21. carica;
  22. n:=7;
  23.  
  24.  
  25.  
  26. repeat
  27.  
  28. c:=c+1;
  29. for i:=1 to (n-1) do
  30.   begin
  31.      if dati[i]<dati[i+1]
  32.       then
  33.         begin
  34.            k:=dati[i];
  35.            dati[i]:=dati[i+1];
  36.            dati[i+1]:=k;
  37.         end;
  38.   end;
  39.  
  40. until c=(n-1);
  41.  
  42. i:=0;
  43.  
  44. for i:=1 to n do
  45.   begin
  46.      writeln(dati[i]);
  47.   end;
  48.  
  49.  
  50.  
  51. readln;
  52. end.