На сайте в режиме реального времени публикуются решения контестных задач сервиса Codeforces.
Загружайте свои решения( здесь ) прямо на сайте. Подробнее. Жду ваших решений
 

По разделам

 

Задача Array 140


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

Код (C/C++)

#include <stdio.h>
 
void swap(float a1[], float a2[]){
    a1[0]+=a2[0];
    a2[0]=a1[0]-a2[0];
    a1[0]-=a2[0];
 
    a1[1]+=a2[1];
    a2[1]=a1[1]-a2[1];
    a1[1]-=a2[1];
}
 
int compare (float a1[], float a2[]){
    if ((a1[0]+a1[1]<a2[0]+a2[1])||((a1[0]+a1[1]==a2[0]+a2[1]) && (a1[0]<a2[0]))) return 1;
    else return 0;
}
 
int main(void)
{
    float a[10][2];
    int n;
 
    printf("N: ");
    scanf("%i",&n);
 
    int i;
    for (i=0; i<n; ++i){
        printf("a[%i]:\n",i+1);
        printf("  x : ");
        scanf("%f",&a[i][0]);
        printf("  y : ");
        scanf("%f",&a[i][1]);
    }
 
    int i2, n2=n;
 
    for (i=0; i<n-1;i++){
        --n2;
        for (i2=0; i2<n2; i2++)
            if (compare(a[i2+1],a[i2])==0){
                swap(a[i2+1], a[i2]);
            }
    }
 
    for (i=0; i<n;i++)
    printf("A %i :\n x: %f\n y: %f\n",i+1 , a[i][0],a[i][1]);
 
    return 0;
}

Код (Pascal)

program Array140;
 
var
 A: array [1..10,1..2] of real;
 N,N2,i,i2,i3: integer;
 
Procedure Swap(var X1, Y1, X2, Y2 :Real);
 begin
  X1:=X1+X2;
  X2:=X1-X2;
  X1:=X1-X2;
 
  Y1:=Y1+Y2;
  Y2:=Y1-Y2;
  Y1:=Y1-Y2;
 end;
 
Function Compare(X1,Y1, X2, Y2:real):boolean;
 begin
  if (x1+y1<x2+y2) or ((x1+y1=x2+y2) and (x1<x2)) then Compare:=True
  else Compare:=False;
 end;
 
begin
 Write('N: ');
 Readln(N);
 
 Writeln('A: ');
 for i:=1 to N do
  begin
   write(i,'.x :');
   readln(a[i,1]);
   write(i,'.y :');
   readln(a[i,2]);
  end;
 
 N2:=N;
 for i:=1 to N-1 do
  begin
   i2:=1;
   N2:=N2-1;
   while (i2<=N2) 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]);
     inc(i2);
    end;
  end;
  for i:=1 to N do writeln(a[i,1]:7:0,' : ',a[i,2]:7:0);
end.
									




Array. Абрамян
Array 1 Просмотров: 28
Array 2 Просмотров: 19
Array 3 Просмотров: 13
Array 4 Просмотров: 20
Array 5 Просмотров: 16
Array 6 Просмотров: 25
Array 7 Просмотров: 14
Array 8 Просмотров: 18
Array 9 Просмотров: 17
Array 10 Просмотров: 25
Array 11 Просмотров: 20
Array 12 Просмотров: 23
Array 13 Просмотров: 23
Array 14 Просмотров: 24
Array 15 Просмотров: 23
Array 16 Просмотров: 19
Array 17 Просмотров: 16
Array 18 Просмотров: 21
Array 19 Просмотров: 14
Array 20 Просмотров: 11
Array 21 Просмотров: 14
Array 22 Просмотров: 30
Array 23 Просмотров: 13
Array 24 Просмотров: 15
Array 25 Просмотров: 12
Array 26 Просмотров: 23
Array 27 Просмотров: 24
Array 28 Просмотров: 20
Array 29 Просмотров: 19
Array 30 Просмотров: 19
Array 31 Просмотров: 10
Array 32 Просмотров: 18
Array 33 Просмотров: 17
Array 34 Просмотров: 18
Array 35 Просмотров: 14
Array 36 Просмотров: 19
Array 37 Просмотров: 10
Array 38 Просмотров: 15
Array 39 Просмотров: 14
Array 40 Просмотров: 16
Array 41 Просмотров: 17
Array 42 Просмотров: 12
Array 43 Просмотров: 14
Array 44 Просмотров: 12
Array 45 Просмотров: 17
Array 46 Просмотров: 14
Array 47 Просмотров: 16
Array 48 Просмотров: 16
Array 49 Просмотров: 12
Array 50 Просмотров: 15
Array 51 Просмотров: 11
Array 52 Просмотров: 11
Array 53 Просмотров: 19
Array 54 Просмотров: 24
Array 55 Просмотров: 15
Array 56 Просмотров: 15
Array 57 Просмотров: 11
Array 58 Просмотров: 15
Array 59 Просмотров: 13
Array 60 Просмотров: 18
Array 61 Просмотров: 13
Array 62 Просмотров: 15
Array 63 Просмотров: 14
Array 64 Просмотров: 17
Array 65 Просмотров: 16
Array 66 Просмотров: 16
Array 67 Просмотров: 20
Array 68 Просмотров: 12
Array 69 Просмотров: 14
Array 70 Просмотров: 21
Array 71 Просмотров: 15
Array 72 Просмотров: 14
Array 73 Просмотров: 11
Array 74 Просмотров: 15
Array 75 Просмотров: 25
Array 76 Просмотров: 16
Array 77 Просмотров: 15
Array 78 Просмотров: 17
Array 79 Просмотров: 14
Array 80 Просмотров: 16
Array 81 Просмотров: 21
Array 82 Просмотров: 10
Array 83 Просмотров: 10
Array 84 Просмотров: 11
Array 85 Просмотров: 16
Array 86 Просмотров: 13
Array 87 Просмотров: 18
Array 88 Просмотров: 24
Array 89 Просмотров: 16
Array 90 Просмотров: 16
Array 91 Просмотров: 17
Array 92 Просмотров: 12
Array 93 Просмотров: 13
Array 94 Просмотров: 11
Array 95 Просмотров: 11
Array 96 Просмотров: 22
Array 97 Просмотров: 12
Array 98 Просмотров: 11
Array 99 Просмотров: 16
Array 100 Просмотров: 12
Array 101 Просмотров: 14
Array 102 Просмотров: 14
Array 103 Просмотров: 14
Array 104 Просмотров: 11
Array 105 Просмотров: 15
Array 106 Просмотров: 18
Array 107 Просмотров: 11
Array 108 Просмотров: 16
Array 109 Просмотров: 11
Array 110 Просмотров: 11
Array 111 Просмотров: 14
Array 112 Просмотров: 15
Array 113 Просмотров: 23
Array 114 Просмотров: 20
Array 115 Просмотров: 19
Array 116 Просмотров: 18
Array 117 Просмотров: 10
Array 118 Просмотров: 12
Array 119 Просмотров: 10
Array 120 Просмотров: 11
Array 121 Просмотров: 9
Array 122 Просмотров: 31
Array 123 Просмотров: 14
Array 124 Просмотров: 14
Array 125 Просмотров: 19
Array 126 Просмотров: 10
Array 127 Просмотров: 11
Array 128 Просмотров: 13
Array 129 Просмотров: 14
Array 130 Просмотров: 18
Array 131 Просмотров: 14
Array 132 Просмотров: 17
Array 133 Просмотров: 22
Array 134 Просмотров: 13
Array 135 Просмотров: 16
Array 136 Просмотров: 25
Array 137 Просмотров: 17
Array 138 Просмотров: 15
Array 139 Просмотров: 16
Array 140 Просмотров: 16

Комментарии

Чтобы написать комментарии вам нужно войти в систему или зарегистрироваться