ВВЕРХ
ВНИЗ

Координаты точек на оси и на плоскости

If20. На числовой оси расположены три точки: A, B, C. Определить, какая из двух последних точек (B или C) расположена ближе к A, и вывести эту точку и ее расстояние от точки A.

Код Pascal
1  
2  
3  
4  
5  
6  
7  
8  
9  
10  
11  
12  
13  
14  
15  
16  
17  
18  
19  
20  
21  
22  
23  
24  
25  
var
  XA, XB, XC, d: real;

begin
  writeln('Введите координаты X трех точек: ');
  write(' XA = ');
  readln(XA);
  write(' XB = ');
  readln(XB);
  write(' XC = ');
  readln(XC);
  write('Ближе к A расположена точка');
  if abs(XB - XA) < abs(XC - XA) then
   begin
     d := abs(XB - XA); { <== Расстояние от В к А }
     writeln(' B.')
   end
  else
   begin
     d := abs(XC - XA); { <== Расстояние от С к А }
     writeln(' C.')
   end;
  writeln('Расстояние: ', d);
  readln
end.

Наверное, более правильным было бы сначала вычислить расстояния АВ и АС, а после их сравнивать:

Код Pascal
1  
2  
3  
4  
5  
6  
7  
8  
9  
10  
11  
12  
13  
14  
15  
16  
17  
18  
19  
20  
21  
22  
var
  XA, XB, XC, AB, AC: real;

begin
  writeln('Введите координаты точек А, В и С:');
  write(' XA = ');
  readln(XA);
  write(' XB = ');
  readln(XB);
  write(' XC = ');
  readln(XC);
  AB := abs(XB - XA); { <== Расстояние от А до В }
  AC := abs(XC - XA); { <== Расстояние от А до С }
  if AB < AC then 
    writeln('Ближе к A расположена точка B. Расстояние: ', AB)
  else 
  if AB > AC then 
    writeln('Ближе к A расположена точка C. Расстояние: ', AC)
  else 
    writeln('В и С находятся от А на одинаковом расстоянии ', AB);
  readln
end.

If21. Даны целочисленные координаты точки на плоскости. Если точка совпадает с началом координат, то вывести 0. Если точка не совпадает с началом координат, но лежит на оси OX или OY, то вывести соответственно 1 или 2. Если точка не лежит на координатных осях, то вывести 3.

Код Pascal
1  
2  
3  
4  
5  
6  
7  
8  
9  
10  
11  
12  
13  
14  
15  
16  
17  
var
  X, Y: integer;

begin
  writeln('Введите координату X:');
  readln(X);
  writeln('Введите координату Y:');
  readln(Y);
  writeln;
  if (X = 0) and (Y = 0) then writeln(0)
  else
  if (X <> 0) and (Y = 0) then writeln(1)
  else 
  if (Y <> 0) and (X = 0) then writeln(2)
  else writeln(3);
  readln
end.

*   *   *

Второй вариант решения задачи if21:

Код Pascal
1  
2  
3  
4  
5  
6  
7  
8  
9  
10  
11  
12  
13  
14  
15  
16  
17  
var
  X, Y: integer;

begin
  write('X = ');
  readln(X);
  write('Y = ');
  readln(Y);
  writeln;
  if X = 0 then
    if Y = 0 then writeln(0) { Начало координат: x=0, y=0 }
    else writeln(2) { Лежит на оси OY: x=0, y≠0 }
  else
    if Y = 0 then writeln(1) { Лежит на оси OX: x≠0, y=0 }
    else writeln(3); { Не лежит на осях: x≠0, y≠0 }
  readln
end.

If22. Даны координаты точки, не лежащей на координатных осях OX и OY. Определить номер координатной четверти, в которой находится данная точка.

Код Pascal
1  
2  
3  
4  
5  
6  
7  
8  
9  
10  
11  
12  
13  
14  
15  
16  
17  
18  
19  
20  
var
  X, Y: integer;

begin
  write('X = ');
  readln(X);
  write('Y = ');
  readln(Y);
  writeln;
  if (X = 0) or (Y = 0) then
   writeln('Вы ошиблись при вводе координат!')
  else
    if (X > 0)and(Y > 0) then writeln('1-я четверть')
    else 
    if (X < 0)and(Y > 0) then writeln('2-я четверть')
    else
    if (X < 0)and(Y < 0) then writeln('3-я четверть')
    else writeln('4-я четверть');
  readln
end.

*   *   *

Второй вариант решения задачи if22 более правильный:

Код Pascal
1  
2  
3  
4  
5  
6  
7  
8  
9  
10  
11  
12  
13  
14  
15  
16  
17  
18  
19  
var
  X, Y: integer;

begin
  write('Введите координату X: ');
  readln(X);
  write('Введите координату Y: ');
  readln(Y);
  if (X = 0) or (Y = 0) then
    writeln('Вы ошиблись при вводе координат!')
  else
    if X > 0 then
      if Y > 0 then writeln('1-я четверть')
      else writeln('4-я четверть')
    else
      if Y > 0 then writeln('2-я четверть')
      else writeln('3-я четверть');
  readln
end.

If23. Даны целочисленные координаты трех вершин прямоугольника, стороны которого параллельны координатным осям. Найти координаты его четвертой вершины.

Код Pascal
1  
2  
3  
4  
5  
6  
7  
8  
9  
10  
11  
12  
13  
14  
15  
16  
17  
18  
19  
20  
21  
22  
23  
24  
25  
26  
27  
28  
29  
30  
31  
32  
33  
34  
35  
36  
37  
38  
39  
40  
41  
42  
43  
44  
45  
46  
var
  x1, x2, x3, y1, y2, y3: integer;
  
begin
  writeln('Вводим координаты первой вершины:');
  write(' x1 = ');
  readln(x1);
  write(' y1 = ');
  readln(y1);
  writeln('Вводим координаты второй вершины:');
  write(' x2 = ');
  readln(x2);
  write(' y2 = ');
  readln(y2);
  writeln('Вводим координаты третьей вершины:');
  write(' x3 = ');
  readln(x3);
  write(' y3 = ');
  readln(y3);
  writeln('Результат');
  if (x1 = x2) and (x1 <> x3) then
    if (y1 <> y2) then
      if y1 = y3 then writeln(' x4 = ', x3, ', y4 = ', y2)
      else
      if y2 = y3 then writeln(' x4 = ', x3, ', y4 = ', y1)
      else writeln('Ошибка ввода!')
    else writeln('Ошибка ввода!')
  else
  if (x1 = x3) and (x1 <> x2) then
    if y1 <> y3 then
      if y1 = y2 then writeln(' x4 = ', x2, ', y4 = ', y3)
      else
      if y2 = y3 then writeln(' x4 = ', x2, ', y4 = ', y1)
      else writeln('Ошибка ввода!')
    else writeln('Ошибка ввода!')
  else
  if (x2 = x3) and (x2 <> x1) then
    if y2 <> y3 then
      if y1 = y2 then writeln(' x4 = ', x1, ', y4 = ', y3)
      else
      if y1 = y3 then writeln(' x4 = ', x1, ', y4 = ', y2)
      else writeln('Ошибка ввода!')
    else writeln('Ошибка ввода!')
  else writeln('Ошибка ввода!');
  readln
end.

*   *   *

Второй вариант задачи If23:

Код Pascal
1  
2  
3  
4  
5  
6  
7  
8  
9  
10  
11  
12  
13  
14  
15  
16  
17  
18  
19  
20  
21  
22  
23  
24  
25  
26  
27  
28  
29  
30  
31  
32  
33  
34  
var
  x1, x2, x3, x4, y1, y2, y3, y4: integer;
  f: boolean; { <-- индикатор существования прямоугольника:
               True - существует, False - не существует }

begin
  writeln('Вводим координаты x1, y1:');
  readln(x1, y1);
  writeln('Вводим координаты x2, y2:');
  readln(x2, y2);
  writeln('Вводим координаты x3, y3:');
  readln(x3, y3);
  writeln('Результат:');
  f := true;
  { Проверяем абсциссы вершин: } 
  if (x1 = x2)and(x3 <> x2) then x4 := x3
  else
  if (x1 = x3)and(x2 <> x1) then x4 := x2
  else
  if (x2 = x3)and(x1 <> x3) then x4 := x1
  else f := false;
  { Проверяем ординаты вершин: } 
  if f = true then
    if (y1 = y2)and(y3 <> y2) then y4 := y3
    else
    if (y1 = y3)and(y2 <> y1) then y4 := y2
    else
    if (y2 = y3)and(y1 <> y3) then y4 := y1
    else f := false;
  { Выводим результат: }
  if f = true then writeln(' (x4,y4) = (', x4, ',', y4, ')')
  else writeln('Такого прямоугольника не существует');
  readln
end.

*   *   *

Третий вариант задачи If23 наиболее простой:

Код Pascal
1  
2  
3  
4  
5  
6  
7  
8  
9  
10  
11  
12  
13  
14  
15  
16  
17  
18  
19  
20  
21  
22  
23  
24  
25  
26  
27  
28  
29  
30  
var
  x1, x2, x3, y1, y2, y3, x4, y4: integer;

begin
  writeln('Вводим x1, y1:');
  readln(x1, y1);
  writeln('Вводим x2, y2:');
  readln(x2, y2);
  writeln('Вводим x3, y3:');
  readln(x3, y3);
  writeln;
  if x1 = x2 then begin
    x4 := x3;
    if y1 = y3 then y4 := y2
    else y4 := y1
  end
  else
  if x1 = x3 then begin
    x4 := x2;
    if y1 = y2 then y4 := y3
    else y4 := y1
  end
  else begin
    x4 := x1;
    if y1 = y2 then y4 := y3
    else y4 := y2
  end;
  writeln('x4 = ', x4, ' y4 = ', y4);
  readln
end.




Яндекс.Метрика