Расстояние от Р до АВ равно 8.22192191643778 Расстояние от Р до ВC равно 4.43760156980184 Расстояние от Р до АC равно 8.24163383692135
Смирнов-Оськина
04.08.2022
Смотря какую тебе надо, конслольную или оконную. с консольной все просто Запустить систему VC++ командой Пуск | Программы | Microsoft Visual Studio 2010 | Microsoft Visual Studio 2010 -Создать приложение, выбрав команду главного меню File | New | Project, тип проекта Win32 и в качестве шаблона проекта указав Win32 Console application. А оконные: -Создать приложение на основе Windows Forms, выбрав команду главного меню File | New | Project, тип проекта CLR и в качестве шаблона проекта указав Windows Forms Ap-plication. После этого ввести имя проекта и указать папку для хранения проекта. - Создать приложение MFC Прочитать материалы в приложении и попробовать сделать задания. Тогда разберешься :) узнать, что такое windows form, CLR и MFC
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Составьте программу ввода и вывода массива 15 12 -3 6 7 9 -4 8 1 2 9 -3я сейчас на уроке сижу и сейчас контроша
begin
Otr := sqrt(sqr(Ax - Bx) + sqr(Ay - By))
end;
function Perim(Ax, Ay, Bx, By, Cx, Cy: real): real;
begin
Perim := Otr(Ax, Ay, Bx, By) + Otr(Bx, By, Cx, Cy) + Otr(aX, aY, Cx, Cy);
end;
function Area(Ax, Ay, Bx, By, Cx, Cy: real): real;
var
pp: real;
begin
pp := Perim(Ax, Ay, Bx, By, Cx, Cy) / 2;
Area := sqrt(pp * (pp - Otr(Ax, Ay, Bx, By)) * (pp - Otr(Bx, By, Cx, Cy)) *
(pp - Otr(Ax, Ay, Cx, Cy)))
end;
procedure Dist(Px, Py, Ax, Ay, Bx, By: real; var D: real);
begin
D := 2 * Area(Px, Py, Ax, Ay, Bx, By) / Otr(Ax, Ay, Bx, By)
end;
var
Px, Py, Ax, Ay, Bx, By, Cx, Cy: real;
d: real;
begin
writeln('Вводите координаты точкек парами чисел: ');
write('P-> ');
readln(Px, Py);
write('A-> ');
readln(Ax, Ay);
write('B-> ');
readln(Bx, By);
write('C-> ');
readln(Cx, Cy);
writeln;
Dist(Px, Py, Ax, Ay, Bx, By, d);
writeln('Расстояние от Р до АВ равно ', d);
Dist(Px, Py, Cx, Cy, Bx, By, d);
writeln('Расстояние от Р до ВC равно ', d);
Dist(Px, Py, Ax, Ay, Cx, Cy, d);
writeln('Расстояние от Р до АC равно ', d)
end.
Тестовое решение:
Вводите координаты точкек парами чисел:
P-> -3 6
A-> 5 8
B-> 9 -4
C-> 8 -2.5
Расстояние от Р до АВ равно 8.22192191643778
Расстояние от Р до ВC равно 4.43760156980184
Расстояние от Р до АC равно 8.24163383692135