Esercizi in pascal

Materie:	Appunti
Categoria:	Informatica
Download:	38
Data:	25.05.2000
Numero di pagine:	1
Formato di file:	.txt (File di testo)

program bubble_sort; (*2 mar 98*)
const n=10;
var a:array[1..n] of integer;
i,j,aux :integer;
begin
for i:= 1 to n do
readln(a[i]);
for i:= (n-1) downto 1 do
for j:= 1 to i do
if (a[j] > a[j+1]) then
begin
aux:= a[j] ;
a[j]:=a[j+1];
a[j+1]:=aux;
end;
for i:= 1 to n do
writeln (a[i]);
end. program bubble_sort; (*2 mar 98*)
const n=10;
var a:array[1..n] of integer;
i,j,aux :integer;
bo : boolean;
begin
bo:= true;
for i:= 1 to n do
readln(a[i]);
for i:= (n-1) downto 1 do
for j:= 1 to i do
if (a[j] > a[j+1]) then
begin
bo:=false;
aux:= a[j] ;
a[j]:=a[j+1];
a[j+1]:=aux;
end;
if (bo=true) then
writeln ('il vettore Љ gi… ordinato')
else for i:= 1 to n do
writeln (a[i]);
end.