Комментарии: Решаем задачи Абрамян на Паскале. Array139

Автор: Bronislav

Bronislav — Sat, 25 Aug 2018 07:59:14 +0000

program Array139;//pabc.net, BubbleSort

type
  dot = record
    x, y: real;
  end;

begin
  var n := 10;
  var a := new dot[n];
  
  for var i := 0 to n - 1 do
  begin
    a[i].x := Random(-10.0, 10.0).Round();
    a[i].y := Random(-10.0, 10.0).Round();
  end;
  
  a.Println;
  
  for var i := n - 2 downto 0 do
    for var j := 0 to i do
    begin
      if (a[j].x > a[j + 1].x) or
         ((a[j].x = a[j + 1].x) and 
         (a[j].y > a[j + 1].y)) then Swap(a[j], a[j + 1]);
//      a.Println;
    end;
  
  a.Println;
end.

program Array139;//pabc.net, BubbleSort

type

dot = record

x, y: real;

end;

begin

var n := 10;

var a := new dot[n];

for var i := 0 to n - 1 do

begin

a[i].x := Random(-10.0, 10.0).Round();

a[i].y := Random(-10.0, 10.0).Round();

end;

a.Println;

for var i := n - 2 downto 0 do

for var j := 0 to i do

begin

if (a[j].x > a[j + 1].x) or

((a[j].x = a[j + 1].x) and

(a[j].y > a[j + 1].y)) then Swap(a[j], a[j + 1]);

// a.Println;

end;

a.Println;

end.

Автор: Anton

Anton — Thu, 04 May 2017 06:08:25 +0000

В ответ на Kirk. проверил сейчас... вроде по возрастанию вы водит.. вводные данные: N: 5 A: 1.x :-1 1.y :-1 2.x :2 2.y :2 3.x :0 3.y :0 4.x :3 4.y :3 5.x :4 5.y :4 Вывод: -1: -1 0: 0 2: 2 3: 3 4: 4

Автор: Kirk

Kirk — Thu, 04 May 2017 05:33:03 +0000

В самой функции надо изменить знаки неравенства, а то выводит в порядке убывания 🙂

Function Compare(x1,x2,y1,y2: integer):boolean;
Begin
 If (x1>x2) or ((x1=x2) and (y1>y2)) then Compare:=True
 Else Compare:=False;
End;

Function Compare(x1,x2,y1,y2: integer):boolean;

Begin

If (x1>x2) or ((x1=x2) and (y1>y2)) then Compare:=True

Else Compare:=False;

End;

Саму сортировку потестил, так тоже работает, ошибок не замечено

For Var i:=1 to n-1 do
  For Var j:=i+1 to n do
   Begin
    if Compare(A[i2+1,1],A[i2+1,2],A[i2,1],A[i2,2]) then Swap(A[i2+1,1],A[i2+1,2],A[i2,1],A[i2,2]);
   End;

For Var i:=1 to n-1 do

For Var j:=i+1 to n do

Begin

if Compare(A[i2+1,1],A[i2+1,2],A[i2,1],A[i2,2]) then Swap(A[i2+1,1],A[i2+1,2],A[i2,1],A[i2,2]);

End;