Помогите написать прогу на Pascal ABC

01.01.2001

Помогите написать прогу на Pascal ABC
По координатам точки в ДПСК определите её «зеркальных» соседей при отражении по оси абсцисс, оси ординат и по обоим осям одновременно
Входные данные: введённые с клавиатуры действительные числа CX и CY (-100<=CX<=100, -100<=CY<=100)
Выходные данные: выведенные после завершения ввода данных на экран или форму 3
пары действительных чисел, выведенные в порядке CX1 и CY1 (отражение точки
(CX,CY) по оси абсцисс) , CX2 и CY2 (отражение точки (CX,CY) по оси ординат) , CX3 и
CY3 (отражение точки (CX,CY) по обоим осям, «диагонально») . Между числами пары
стоит разделитель « » !ПРОБЕЛ! , сами пары располагаются на форме/экране одна под
другой
Пример 1.
Входные данные: CX=3, CY=2
Выходные данные:
3 -2
-3 2
-3 -2

  • program pr;
    uses crt;
    var
    x,y:integer;
    BEGIN
    clrscr;
    write('Ввести 2 числа --> ');
    readln(x,y);
    writeln('Входные данные: X= ',x,' Y= ',y);
    writeln('Выходные данные: ');
    writeln(-x:3,y:3);
    writeln(x:3,-y:3);
    writeln(-x:3,-y:3);
    writeln('конец задачи');
    readkey;
    END.
  • Цена вопроса?
  • Пишите в почту, сделаю.

Вас заинтересует