Treść zadania

Najlepsze rozwiązanie

• 

  0 0

  Adarus 12.5.2010 (21:56)

  a więc:
  program w pascalu który sortuje akurat motodą bąbelkową
  
  program Bubble_Sort_3;
  Uses Crt;
  const N = 20;
  
  var
  d : array[1..N] of integer;
  
  var
  i,j,p,x : integer;
  begin
  ClrScr;
  writeln;
  
  randomize;
  for i := 1 to N do d := random(100);
  writeln('Przed sortowaniem:'); writeln;
  for i := 1 to N do write(d : 4);
  writeln;
  
  for j := N - 1 downto 1 do
  begin
  p := 1;
  for i := 1 to j do
  if d > d[i+1] then
  begin
  x := d; d := d[i+1]; d[i+1] := x;
  p := 0;
  end;
  if p = 1 then break;
  end;
  
  writeln('Po sortowaniu:'); writeln;
  for i := 1 to N do write(d : 4);
  writeln;
  writeln('Nacisnij Enter...');
  readln;
  end.
  

  Dodawanie komentarzy zablokowane - Zgłoś nadużycie