Составить программу, которая определяет, являются ли разные точки с координатами (x1,y1) и (x2, y2) симметричными относительно осей координат или начала координат. программу составить двумя способами: с использованием составных условий. без использование составных условий. проверить правильность программ для следующих значений параметров: а) x1= -1, y1=6, x2=1, y2=6. б) x1=6, y1=7, x2=1, y2=6.

235

455

Посмотреть ответы 3

Ответы на вопрос:

Uprava

Информатика

4,6(55 оценок)

Сиспользованием составных условий: program type1; var x1, y1, x2, y2: integer; beginwriteln('x1 = '); readln(x1); writeln('y1 = '); readln(y1); writeln('x2 = '); readln(x2); writeln('y2 = '); readln(y2); if (x1 = -x2) and (y1 = -y2) then writeln('точки симметричны относительно начала координат') else if (x1 = -x2) and (y1 = y2) then writeln('точки симметричны относительно оси y') else if (x1 = x2) and (y1 = -y2) then writeln('точки симметричны относительно оси x') else writeln('точки не симметричны'); readln; end. без использования составных условий: program type2; var x1, y1, x2, y2: integer; begin writeln('x1 = '); readln(x1); writeln('y1 = '); readln(y1); writeln('x2 = '); readln(x2); writeln('y2 = '); readln(y2); if (x1 + x2 = 0) and (y1 + y2 = 0) then writeln('точки симметричны относительно начала координат') else if (x1 + x2 = 0) and (abs(y1) - abs(y2) = 0) then writeln('точки симметричны относительно оси y') else if (abs(x1) - abs(x2) = 0) and (y1 + y2 = 0) then writeln('точки симметричны относительно оси x') else writeln('точки не симметричны'); readln; end.