Подпрограмма КУМИР

[LancerRiker]

Здравствуйте товарищи программисты. Пожалуйста помогите мне разделить эту программу на два алгоритма(ну проще говоря используя подпрограмму). Сколько думал так и нечего не смог сделать

алг коорд
нач вещ a1,a2,a3,a4,b1,b2,b3,b4,AB,BC,AC,AD,BD,CD,a,b,c,p,p1,p2,p3,s,s1,s2,s3
вывод "Введите координаты первой точки A: "
ввод a1,b1
вывод "Введите координаты второй точки B: "
ввод a2,b2
вывод "Введите координаты первой точки C: "
ввод a3,b3
вывод "Введите координаты четвертой точки D: "
ввод a4,b4
AB:=sqrt((a1-a2)*(a1-a2)+(b1-b2)*(b1-b2))
BC:=sqrt((a2-a3)*(a2-a3)+(b2-b3)*(b2-b3))
AC:=sqrt((a1-a3)*(a1-a3)+(b1-b3)*(b1-b3))
AD:=sqrt((a1-a4)*(a1-a4)+(b1-b4)*(b1-b4))
BD:=sqrt((a2-a4)*(a2-a4)+(b2-b4)*(b2-b4))
CD:=sqrt((a3-a4)*(a3-a4)+(b3-b4)*(b3-b4))
p:=(AB+BC+AC)/2;
p1:=(AB+BD+AD)/2;
p2:=(BD+CD+BC)/2;
p3:=(CD+AD+AC)/2;
s:=sqrt(p*(p-AB)*(p-BC)*(p-AC));
s1:=sqrt(p1*(p1-AB)*(p1-BD)*(p1-AD));
s2:=sqrt(p2*(p2-BD)*(p2-CD)*(p2-BC));
s3:=sqrt(p3*(p3-CD)*(p3-AD)*(p3-AC));
если (s-s1-s2-s3)<0 то
вывод "Точка D является внутренней точкой треугольника ABC"
иначе вывод "Точка D не является внутренней точкой треугольника ABC"
все
кон

[ViktorR]

Как пример:

function Distans(x1, y1, x2, y2) : real;
begin
   Distans := sqrt(sqr(x2-x1) + sqr(y2-y1));
end;

Тогда:

AB:= Distans(a1, b1, a2, b2);

И т.д. и т.п. ...


Как-то так, ...
PS: Вот только как в КУМИРе описать функцию ...

[LancerRiker]

Сообщение от ViktorR

Как пример:

function Distans(x1, y1, x2, y2) : real;
begin
   Distans := sqrt(sqr(x2-x1) + sqr(y2-y1));
end;

Тогда:

AB:= Distans(a1, b1, a2, b2);

И т.д. и т.п. ...


Как-то так, ...
PS: Вот только как в КУМИРе описать функцию ...

напиши пожалуйста пример кумиром. Я не понимаю как вообще происходит это, откуда x2-x1 и т.п. просто один пример и там я сделаю сам.
Попытался. Ошибку выдает что это алгоритм а не функция

[abit]

можно через процедуру, это так выглядит:

...
расстояние(a1,b1,a2,b2,AB);
...
алг расстояние(арг вещ x1,y1,x2,y2, рез вещ dist)
нач
dist := sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2));
кон

но более естественно через функцию:

...
AB:=расстояние(a1,b1,a2,b2);
...
алг вещ расстояние(арг вещ x1,y1,x2,y2)
нач
знач := sqrt((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2));
кон

если же посмотреть шире, то нахождение p и s тоже лучше запихнуть по аналогии и вообще избавиться от кучи переменных активно пользуясь передачей параметров там по сути всего штук пять переменных за глаза хватит вместо этого леса

[LancerRiker]

Спасибо большое вам. Программу написал
А там правильно написано? Ну имею в виду правильно расчитано точка D является или нет?

[abit]

Сообщение от LancerRiker

Спасибо большое вам. Программу написал
А там правильно написано? Ну имею в виду правильно расчитано точка D является или нет?

Я никогда не писал на кумире, всех нюансов не знаю, но ваш код, скажу честно избыточно насыщен и лень вникать, исходя из логики вижу тут формулы герона - значит вы сравниваете площади треугольников и по ним судите о нахождении точки в/вне исходного треугольника, метод имеет право на жизнь, но во первых я сомневаюсь в этом условии

если (s-s1-s2-s3)<0 то

дело в том, что в тех языках, которыми я владею, разве что haskell может подобное провернуть за счёт бета-редукций, в Pascal/C++ необходимо учитывать небольшую погрешность при приведении вещественных чисел к точному значению 0, которое указано справа от <, по хорошему надо вместо <0 писать <=eps (где eps - допустимая ошибка вычисления, хотя бы 0e-4)
во вторых я бы всё же воспользовался векторным методом, а не сравнением площадей, это проще и быстрее...
ну и в третьих, о чём я уже говорил - этот лес переменных меня пугает ) это всё тут ни к чему...

впервые скачал себе кумир) до этой темы - думал это вообще мёртвый язык, оказалось нет, что-то там ваяют, даже на мой линукс встал))) написал на нём метод по сравнению площадей:

алг коорд
нач вещ Ax,Ay,Bx,By,Cx,Cy,Dx,Dy,S
вывод "Введите координаты первой точки A: "
ввод Ax,Ay
вывод "Введите координаты второй точки B: "
ввод Bx,By
вывод "Введите координаты первой точки C: "
ввод Cx,Cy
вывод "Введите координаты четвертой точки D: "
ввод Dx,Dy

S := площадь(Dx,Dy,Ax,Ay,Bx,By)+площадь(Dx,Dy,Bx,By,Cx,Cy)+площадь(Dx,Dy,Cx,Cy,Ax,Ay);

если abs(площадь(Ax,Ay,Bx,By,Cx,Cy)-S)<=0.001 то
вывод "Точка D является внутренней точкой треугольника ABC"
иначе вывод "Точка D не является внутренней точкой треугольника ABC"
все
кон

алг вещ площадь(арг вещ Ax,Ay,Bx,By,Cx,Cy)
нач
знач := abs(Bx*Cy-Cx*By-Ax*Cy+Cx*Ay+Ax*By-Bx*Ay);
кон

наслаждайтесь...

[LancerRiker]

Сообщение от abit

Я никогда не писал на кумире, всех нюансов не знаю, но ваш код, скажу честно избыточно насыщен и лень вникать, исходя из логики вижу тут формулы герона - значит вы сравниваете площади треугольников и по ним судите о нахождении точки в/вне исходного треугольника, метод имеет право на жизнь, но во первых я сомневаюсь в этом условии

если (s-s1-s2-s3)<0 то

дело в том, что в тех языках, которыми я владею, разве что haskell может подобное провернуть за счёт бета-редукций, в Pascal/C++ необходимо учитывать небольшую погрешность при приведении вещественных чисел к точному значению 0, которое указано справа от <, по хорошему надо вместо <0 писать <=eps (где eps - допустимая ошибка вычисления, хотя бы 0e-4)
во вторых я бы всё же воспользовался векторным методом, а не сравнением площадей, это проще и быстрее...
ну и в третьих, о чём я уже говорил - этот лес переменных меня пугает ) это всё тут ни к чему...

впервые скачал себе кумир) до этой темы - думал это вообще мёртвый язык, оказалось нет, что-то там ваяют, даже на мой линукс встал))) написал на нём метод по сравнению площадей:

алг коорд
нач вещ Ax,Ay,Bx,By,Cx,Cy,Dx,Dy,S
вывод "Введите координаты первой точки A: "
ввод Ax,Ay
вывод "Введите координаты второй точки B: "
ввод Bx,By
вывод "Введите координаты первой точки C: "
ввод Cx,Cy
вывод "Введите координаты четвертой точки D: "
ввод Dx,Dy

S := площадь(Dx,Dy,Ax,Ay,Bx,By)+площадь(Dx,Dy,Bx,By,Cx,Cy)+площадь(Dx,Dy,Cx,Cy,Ax,Ay);

если abs(площадь(Ax,Ay,Bx,By,Cx,Cy)-S)<=0.001 то
вывод "Точка D является внутренней точкой треугольника ABC"
иначе вывод "Точка D не является внутренней точкой треугольника ABC"
все
кон

алг вещ площадь(арг вещ Ax,Ay,Bx,By,Cx,Cy)
нач
знач := abs(Bx*Cy-Cx*By-Ax*Cy+Cx*Ay+Ax*By-Bx*Ay);
кон

наслаждайтесь...

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