If23. Даны целочисленные координаты трех вершин прямоугольника, стороны которого параллельны координатным осям. Найти координаты его четвертой вершины.
Решение:
|
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 |
program if23; var X1,Y1,X2,Y2,X3,Y3,X4,Y4: Real; begin Writeln('Введите координаты 1 точки Прямоугольника: '); Write('Введите координату X: '); Readln (X1); Write('Введите координату Y: '); Readln (Y1); Writeln('Введите координаты 2 точки Прямоугольника: '); Write('Введите координату X: '); Readln (X2); Write('Введите координату Y: '); Readln (Y2); Writeln('Введите координаты 3 точки Прямоугольника: '); Write('Введите координату X: '); Readln (X3); Write('Введите координату Y: '); Readln (Y3); if X2=X3 then X4:=X1; if X3=X1 then X4:=X2; if X1=X2 then X4:=X3; if Y2=Y3 then Y4:=Y1; if Y3=Y1 then Y4:=Y2; if Y1=Y2 then Y4:=Y3; Writeln('Координаты 4 точки: X: ',X4,' Y:',Y4); end. |
Другие задачи из раздела If можно посмотреть здесь.
Комментарии: