Programma di ordinamento numerico con bubble sort in Pascal

Marta.hihi
di Marta.hihi
1 min
Erectus
Vota 3/5
Appunto verificato
Contenuto verificato e approvato dal  Team di Esperti di Skuola.net Informazioni appunto verificato Informazioni appunto verificato hover

Learn how to sort an array of 20 integers in ascending order using the bubble sort algorithm in Pascal. This guide provides a step-by-step explanation of the code, ensuring a clear understanding of the sorting process and its implementation.

program ordine_tramite_bubble_sort;

uses crt;

(*Data una serie di 20numeri interi, sistemarli in ordine crescente*)

var A : array [1..20] of integer;

I,J,X:integer;

controllo:boolean;

begin

clrscr;

writeln (' ');

for I:=1 to 20 do

begin

write ('Introdurre il numero intero N',I,'=');

readln (A);

end;

Ordinamento con bubble sort

repeat

controllo:=false;

for J:=1 to 19 do

if A[J]>A[J+1] then

begin

X:=A[J+1];

A[J+1]:=A[J];

A[J]:=X;

controllo:=true;

end;

until controllo=FALSE;

writeln (' ');

writeln ('L"elenco dei 20 numeri in ordine crescente Š=');

for I:=1 to 20 do

write (A,' ');

readln

end.

Programma di ordinamento numerico con bubble sort in Pascal articolo

Appunti correlati

Domande e risposte

Hai bisogno di aiuto?
Chiedi alla community
Vai al forum