Предмет: Информатика,
автор: LENA1122436
СРОЧНО ДАМ 14 БАЛОВ
СРОЧНО ПОМОГИТЕ
СОСТАВИТЬ ПРОГРАММУ В ПАСКАЛЕ НАХОЖДЕНИЯ ПЕРИМЕТРА ПРЯМОУГОЛЬНИКА ПО ЗАДАННЫМ КООРДИНАТАМ ЕГО ВЕРШИН АBCDE
LENA1122436:
По заданным координатам его вершин
Заканчивайте про баллы писать в задании, тем более, что Вы указываете их неверно, т.е. по факту вводите людей в заблуждение.
Ответы
Автор ответа:
1
var ax,ay,bx,by,cx,cy,dx,dy,p:real;
begin
write ('Введите координаты точки A: ');
read (ax,ay);
write ('Введите координаты точки B: ');
read (bx,by);
write ('Введите координаты точки C: ');
read (cx,cy);
write ('Введите координаты точки D: ');
read (dx,dy);
p:=abs(2*((by-ay)+(cx-bx)));
writeln;
writeln ('Периметр = ',p);
end.
begin
write ('Введите координаты точки A: ');
read (ax,ay);
write ('Введите координаты точки B: ');
read (bx,by);
write ('Введите координаты точки C: ');
read (cx,cy);
write ('Введите координаты точки D: ');
read (dx,dy);
p:=abs(2*((by-ay)+(cx-bx)));
writeln;
writeln ('Периметр = ',p);
end.
Приложения:
Для чего вводить координаты a1,b1,c1,d1, если Вы их в программе не используете?
Точнее, a,b,c1,d1
опять не точно, b - используется :D
Увы да, тут невозможно исправлять описки, а система обозначений переменных у Вас меня просто у ума сводит, настолько она неинформативна, отсюда и описки
Могу еще Вас "порадовать", что по Вашей программе значения периметра может получаться отрицательным и даже нулевым! )))
Неверно с abs, надо к каждой разности ставить.... проверьте для случая, когда by>ay, cx<bx
У Вас каждая разность - длина стороны, а длина не может быть отрицательной.
Автор ответа:
0
var
Ax,Ay,Cx,Cy,P:real;
begin
Writeln('Введите координаты x,y любой вершины прямоугольника: ');
Read(Ax,Ay);
Writeln('Введите координаты x,y диагональной вершины прямоугольника: ');
Read(Cx,Cy);
P:=2*(Abs(Cx-Ax)+Abs(Cy-Ay));
Writeln('Периметр прямоугольника равен ',P)
end.
Тестовое решение:
Введите координаты x,y любой вершины прямоугольника:
2 10
Введите координаты x,y диагональной вершины прямоугольника:
-8 3
Периметр прямоугольника равен 34
Ax,Ay,Cx,Cy,P:real;
begin
Writeln('Введите координаты x,y любой вершины прямоугольника: ');
Read(Ax,Ay);
Writeln('Введите координаты x,y диагональной вершины прямоугольника: ');
Read(Cx,Cy);
P:=2*(Abs(Cx-Ax)+Abs(Cy-Ay));
Writeln('Периметр прямоугольника равен ',P)
end.
Тестовое решение:
Введите координаты x,y любой вершины прямоугольника:
2 10
Введите координаты x,y диагональной вершины прямоугольника:
-8 3
Периметр прямоугольника равен 34
Похожие вопросы
Предмет: Другие предметы,
автор: zosya28
Предмет: Русский язык,
автор: Ди362
Предмет: Русский язык,
автор: Ди362
Предмет: Қазақ тiлi,
автор: Аноним
Предмет: Алгебра,
автор: bee1221