Forum by laureateci.it

Nome Utente:	Password:
Salva Password
Password Dimenticata?

Tutti i Forum

INFORMATICA - Primo Anno

Programmazione

Laboratorio giorno 10 il dopo!!!!

Nota: Devi essere registrato per poter inserire un messaggio.
Per registrarti, clicca qui. La Registrazione è semplice e gratuita!

Larghezza finestra:

Nome Utente:

Password:

Modo:

Formato:

Icona Messaggio:

Messaggio:

* Il codice HTML è OFF
* Il Codice Forum è ON

Smilies

[quote][i]Messaggio inserito da Kevin82[/i]
[br]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.

[/quote]

Allega file

Clicca qui per inserire la tua firma nel messaggio.
Clicca qui per sottoscrivere questa Discussione.

V I S U A L I Z Z A D I S C U S S I O N E

Kevin82

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.

Forum by laureateci.it

Il DB ha risposto in 0,05 secondi.