vj96
vj96 - Ominide - 23 Punti
Rispondi Cita Salva

Salve a tutti avrei bisogno di un aiuto con questo programma scritto nel linguaggio Pascal ...
Dovrei ordinare in modo crescente un array di 3 numeri interi ...
il problema è che quando lo mando in esecuzione l'array non viene ordinato correttamente ... qualcuno può aiutarmi ? ecco il sorgente :

Codice Programma:
program ordine;
uses crt;
const dim=3;
var
arr : array[1..dim] of longint;
i,bas,j : longint;
begin
clrscr;
writeln('Ordinamento di un array.');
writeln('');
for i:=1 to dim do
begin
writeln('Inserisci un numero da immettere nell''array');
readln(arr);
end;
clrscr;
writeln('Ordinamento array in corso ...');
delay(2000);
writeln('');
writeln('Array ordinato');
writeln('');
for i :=1 to dim-1 do
begin
bas:=arr[i+1];
j:=i;
while (j>=1) and (bas<arr[j]) do
begin
arr[j+1]:=arr[j];
j:=j-1;
end;
arr[j+1]:=bas;
end;
writeln(arr[j]);
writeln(bas);
readln;
end.



Come guadagno Punti nel Forum? Leggi la guida completa
Registrati via email