Array140. Решебник Абрамяна М. Э.

Array140. Дано множество A из N точек с целочисленными координатами x, y. Порядок на координатной плоскости определим следующим образом: (x1, y1) < (x2, y2), если либо x1 + y1 < x2 + y2, либо x1 + y1 = x2 + y2 и x1 < x2. Расположить точки данного множества по убыванию в соответствии с указанным порядком.

Решение Pascal

 

Решение C

 

Оцените решение
1 Звезда2 Звезды3 Звезды4 Звезды5 Звезд (Пока оценок нет)
Загрузка...

Array140. Решебник Абрамяна М. Э.: 1 комментарий

  • 05.05.2022
    Permalink

    program array140;
    uses math;

    type
    Coord=record
    x,y:integer;
    end;

    mas=array [1..10] of Coord;

    var
    a,b:mas;
    j,i,n:integer;

    begin

    writeln(‘n’);
    readln(n);

    for i:=1 to n do begin
    writeln(‘enter a’,’ ‘,i,’ ‘,’x’);
    readln(a[i].x);
    writeln(‘enter a’,’ ‘,i,’ ‘,’y’);
    readln(a[i].y);
    end;

    b:=a;
    for i:=1 to n-1 do begin
    for j:=i+1 to n do begin
    if ((b[i].x+b[i].y <b[j].x+b[j].y) or ((b[i].x+b[i].y=b[j].x+b[j].y ) and (b[i].x<b[j].x))) then begin
    b[i].x:=b[i].x+b[j].x;
    b[j].x:=b[i].x-b[j].x;
    b[i].x:=b[i].x-b[j].x;

    b[i].y:=b[i].y+b[j].y;
    b[j].y:=b[i].y-b[j].y;
    b[i].y:=b[i].y-b[j].y;

    end;//endif

    end;//endj
    end;//endi

    for i:=1 to n do begin
    writeln('b.x=',b[i].x,' ','b.y=',b[i].y );
    end;

    end.

    Ответ

Добавить комментарий

Ваш адрес email не будет опубликован.

Решебник Абрамяна М. Э. на Pascal и С++. Одномерные массивы: группа Array (1-140)

Array1. Решебник Абрамяна М. Э.
Array2. Решебник Абрамяна М. Э.
Array3. Решебник Абрамяна М. Э.
Array4. Решебник Абрамяна М. Э.
Array5. Решебник Абрамяна М. Э.
Array6. Решебник Абрамяна М. Э.
Array7. Решебник Абрамяна М. Э.
Array8. Решебник Абрамяна М. Э.
Array9. Решебник Абрамяна М. Э.
Array10. Решебник Абрамяна М. Э.
Array11. Решебник Абрамяна М. Э.
Array12. Решебник Абрамяна М. Э.
Array13. Решебник Абрамяна М. Э.
Array14. Решебник Абрамяна М. Э.
Array15. Решебник Абрамяна М. Э.
Array16. Решебник Абрамяна М. Э.
Array17. Решебник Абрамяна М. Э.
Array18. Решебник Абрамяна М. Э.
Array19. Решебник Абрамяна М. Э.
Array20. Решебник Абрамяна М. Э.
Array21. Решебник Абрамяна М. Э.
Array22. Решебник Абрамяна М. Э.
Array23. Решебник Абрамяна М. Э.
Array24. Решебник Абрамяна М. Э.
Array25. Решебник Абрамяна М. Э.
Array26. Решебник Абрамяна М. Э.
Array27. Решебник Абрамяна М. Э.
Array28. Решебник Абрамяна М. Э.
Array29. Решебник Абрамяна М. Э.
Array30. Решебник Абрамяна М. Э.
Array31. Решебник Абрамяна М. Э.
Array32. Решебник Абрамяна М. Э.
Array33. Решебник Абрамяна М. Э.
Array34. Решебник Абрамяна М. Э.
Array35. Решебник Абрамяна М. Э.
Array36. Решебник Абрамяна М. Э.
Array37. Решебник Абрамяна М. Э.
Array38. Решебник Абрамяна М. Э.
Array39. Решебник Абрамяна М. Э.
Array40. Решебник Абрамяна М. Э.
Array41. Решебник Абрамяна М. Э.
Array42. Решебник Абрамяна М. Э.
Array43. Решебник Абрамяна М. Э.
Array44. Решебник Абрамяна М. Э.
Array45. Решебник Абрамяна М. Э.
Array46. Решебник Абрамяна М. Э.
Array47. Решебник Абрамяна М. Э.
Array48. Решебник Абрамяна М. Э.
Array49. Решебник Абрамяна М. Э.
Array50. Решебник Абрамяна М. Э.
Array51. Решебник Абрамяна М. Э.
Array52. Решебник Абрамяна М. Э.
Array53. Решебник Абрамяна М. Э.
Array54. Решебник Абрамяна М. Э.
Array55. Решебник Абрамяна М. Э.
Array56. Решебник Абрамяна М. Э.
Array57. Решебник Абрамяна М. Э.
Array58. Решебник Абрамяна М. Э.
Array59. Решебник Абрамяна М. Э.
Array60. Решебник Абрамяна М. Э.
Array61. Решебник Абрамяна М. Э.
Array62. Решебник Абрамяна М. Э.
Array63. Решебник Абрамяна М. Э.
Array64. Решебник Абрамяна М. Э.
Array65. Решебник Абрамяна М. Э.
Array66. Решебник Абрамяна М. Э.
Array67. Решебник Абрамяна М. Э.
Array68. Решебник Абрамяна М. Э.
Array69. Решебник Абрамяна М. Э.
Array70. Решебник Абрамяна М. Э.
Array71. Решебник Абрамяна М. Э.
Array72. Решебник Абрамяна М. Э.
Array73. Решебник Абрамяна М. Э.
Array74. Решебник Абрамяна М. Э.
Array75. Решебник Абрамяна М. Э.
Array76. Решебник Абрамяна М. Э.
Array77. Решебник Абрамяна М. Э.
Array78. Решебник Абрамяна М. Э.
Array79. Решебник Абрамяна М. Э.
Array80. Решебник Абрамяна М. Э.
Array81. Решебник Абрамяна М. Э.
Array82. Решебник Абрамяна М. Э.
Array83. Решебник Абрамяна М. Э.
Array84. Решебник Абрамяна М. Э.
Array85. Решебник Абрамяна М. Э.
Array86. Решебник Абрамяна М. Э.
Array87. Решебник Абрамяна М. Э.
Array88. Решебник Абрамяна М. Э.
Array89. Решебник Абрамяна М. Э.
Array90. Решебник Абрамяна М. Э.
Array91. Решебник Абрамяна М. Э.
Array92. Решебник Абрамяна М. Э.
Array93. Решебник Абрамяна М. Э.
Array94. Решебник Абрамяна М. Э.
Array95. Решебник Абрамяна М. Э.
Array96. Решебник Абрамяна М. Э.
Array97. Решебник Абрамяна М. Э.
Array98. Решебник Абрамяна М. Э.
Array99. Решебник Абрамяна М. Э.
Array100. Решебник Абрамяна М. Э.
Array101. Решебник Абрамяна М. Э.
Array102. Решебник Абрамяна М. Э.
Array103. Решебник Абрамяна М. Э.
Array104. Решебник Абрамяна М. Э.
Array105. Решебник Абрамяна М. Э.
Array106. Решебник Абрамяна М. Э.
Array107. Решебник Абрамяна М. Э.
Array108. Решебник Абрамяна М. Э.
Array109. Решебник Абрамяна М. Э.
Array110. Решебник Абрамяна М. Э.
Array111. Решебник Абрамяна М. Э.
Array112. Решебник Абрамяна М. Э.
Array113. Решебник Абрамяна М. Э.
Array114. Решебник Абрамяна М. Э.
Array115. Решебник Абрамяна М. Э.
Array116. Решебник Абрамяна М. Э.
Array117. Решебник Абрамяна М. Э.
Array118. Решебник Абрамяна М. Э.
Array119. Решебник Абрамяна М. Э.
Array120. Решебник Абрамяна М. Э.
Array121. Решебник Абрамяна М. Э.
Array122. Решебник Абрамяна М. Э.
Array123. Решебник Абрамяна М. Э.
Array124. Решебник Абрамяна М. Э.
Array125. Решебник Абрамяна М. Э.
Array126. Решебник Абрамяна М. Э.
Array127. Решебник Абрамяна М. Э.
Array128. Решебник Абрамяна М. Э.
Array129. Решебник Абрамяна М. Э.
Array130. Решебник Абрамяна М. Э.
Array131. Решебник Абрамяна М. Э.
Array132. Решебник Абрамяна М. Э.
Array133. Решебник Абрамяна М. Э.
Array134. Решебник Абрамяна М. Э.
Array135. Решебник Абрамяна М. Э.
Array136. Решебник Абрамяна М. Э.
Array137. Решебник Абрамяна М. Э.
Array138. Решебник Абрамяна М. Э.
Array139. Решебник Абрамяна М. Э.
Array140. Решебник Абрамяна М. Э.