Djoker91

Написать программу, которая запрашивает исходные данные и проводит над ними выбранное пользователем действие. Выбор действия осуществляется с помощью меню.

Исходные данные: две точки на плоскости Х(a, b) Y(c, d) – концы отрезка.
меню действий:
1. отразить относительно оси ОХ
2. отразить относительно оси ОУ
3. отразить относительно точки (0,0)
4. найти длины проекций отрезка на оси ОХ и ОУ
5. выход
результат выводить после каждого действия.

Stubbs

Язык какой?

Djoker91

pascal

Stubbs

uses crt;
var a,b,c,d,a1,b1,c1,d1,px,py:real;
w:byte;
begin
clrscr;
writeln('Введите координаты первой точки:');
readln(a,b);
writeln('Введите координаты второй точки:');
readln(c,d);
repeat
clrscr;
writeln('Выберите действие:');
writeln('1-отразить относительно оси ОХ');
writeln('2-отразить относительно оси ОY');
writeln('3-отразить относительно точки 0,0');
writeln('4-найти длины проекций на оси ОХ ОY');
writeln('5-выход');
repeat
readln(w);
until w in [1..5];
clrscr;
writeln('Исходные координаты точки Х: x=',a:0:2,' y=',b:0:2);
writeln('Исходные координаты точки Y: x=',c:0:2,' y=',d:0:2);
case w of
1:begin
a1:=a;
b1:=-b;
c1:=c;
d1:=-d;
writeln('Отраженные по оси ОХ координаты точки Х: x=',a1:0:2,' y=',b1:0:2);
writeln('Отраженные по оси ОХ координаты точки Y: x=',c1:0:2,' y=',d1:0:2);
readln;
end;
2:begin
a1:=-a;
b1:=b;
c1:=-c;
d1:=d;
writeln('Отраженные по оси ОY координаты точки Х: x=',a1:0:2,' y=',b1:0:2);
writeln('Отраженные по оси ОY координаты точки Y: x=',c1:0:2,' y=',d1:0:2);
readln;
end;
3:begin
a1:=-a;
b1:=-b;
c1:=-c;
d1:=-d;
writeln('Отраженные относительно точки 0,0 координаты точки Х: x=',a1:0:2,' y=',b1:0:2);
writeln('Отраженные относительно точки 0,0 координаты точки Y: x=',c1:0:2,' y=',d1:0:2);
readln;
end;
4:begin
px:=abs(a-c);
py:=abs(b-d);
writeln('Проекция на ось Х=',px:0:2);
writeln('Проекция на ось Y=',py:0:2);
readln;
end;
5:exit;
end;
until w=5;
end.

Djoker91

большое спасибо

Stubbs

Обращайтесь.