|
Kevin82
Nuovo Utente
Regione: Calabria
Prov.: Cosenza
Città: Rossano
|
 Inserito il - 11/02/2004 : 19:25:24
|
ragazzi cosa manca al mio file?eccolo
program prova;
type vet=array[1..100]of integer;
var x,n,i,j,p,min:integer;
a,a1,a2,vet2,vet1:vet;
inserito:boolean;
procedure crea(var vet1:vet);
begin
for i:=1 to n do
read(vet1[i]);
end;
procedure visua( vet4:vet);
begin
i:=1;
for i:=1 to n do
writeln(vet4[i]);
end;
procedure ordina(var vet4:vet);
begin
for i:=2 to n do
begin
x:=a[i];j:=i-1;inserito:=false;
while not inserito do
if x < a[j] then
begin
a[j+1]:=a[j];j:=j-1;
if j <=0 then begin
a[1]:=x;inserito:=true;
end;
end else
begin
a[j+1]:=x;inserito:=true;
end;
end;
end;
begin
write('inserire il numero di elementi dell''array: ');readln(n);
crea(vet1);
writeln('l''array inserito e''');
visua(vet1);
writeln('l''array ordinato e''');
ordina(vet1);
visua(vet1);
readln;
readln;
end.
|
Kevin82 |
|
Laboratorio giorno 10 il dopo!!!!
