Question

OFER COROANĂ COROANĂ AJUTTOOOOOR


De elaborat o procedură ÎN PASCAL care ordonează componentele unui tablou array [1..100] of real în ordine crescătoare

Answer 1

Răspuns:

program ordonare;

type tablou=array[1..100]of real;

var x: tablou;

   n,i:integer;

procedure ordCresc(n:integer; var x:tablou);

var i,j:integer;

   aux: real;

   ordonat: boolean;

begin

  ordonat:=false;

  while not ordonat do

    begin

      ordonat:=true;

      for j:=1 to n-1 do

           if x[j]>x[j+1] then

             begin  aux:=x[j]; x[j]:=x[j+1]; x[j+1]:=aux; ordonat:=false; end;

    end;

end; {ordCresc}

begin {program principal}

 write('n='); read(n);

 writeln('introdu ',n,' elemente ale tabloului:');

 for i:=1 to n do read(x[i]);

 ordCresc(n,x);

 writeln('tabloul ordonat crescator');

 for i:=1 to n do

   write(x[i],'  ');

 writeln;

end.

Explicație: