Программирование циклических алгоритмов. Программирование циклов с заданным числом повторений. Различные варианты программирования циклического алгоритма.

Вот сам тест: https://videouroki.net/tests/do/35559440-7510-4475-803b-1e427b511e16

Ответ  1.2 (squarepentagon) // // написал gonansoft // function lengthline(xb, yb, xe, ye: double): double; var      dx,dy : double; begin     // теорема пифагора   dx : = xb-xe;   dy : = yb-ye;   result : = sqrt( dx*dx + dy*dy ); end; function areatriangle(d1, d2, d3: double): double; var  p : double; begin  // формула герона  p : = (d1+d2+d3)/2;   result : = sqrt( p*(p-d1)*(p-d2)*(p-d3) ); end; procedure  squarepentagon; var  x1,x2,x3,x4,x5 : double;   y1,y2,y3,y4,y5 : double;   //площадь пятиугольника  sp1 : double;   // способ первый  sp2 : double;   //способ второй  //длины всех линий между вершинами пятиугольника  d12,d23,d34,d45,d51 : double;   d13,d14,d24,d25,d35 : double;   //площади всех треугольников  s123,s234,s345,s451,s512 : double;   s134,s245,s351,s412,s523 : double; begin  // задаем координаты пятиугольника  x1: =1;   y1: =3;   x2: =3;   y2: =4;   x3: =5;   y3: =3;   x4: =4;   y4: =1;   x5: =2;   y5: =1;   //площадь пятиугольника без самопересечений, заданного координатами вершин, определяется по общей для многоугольников формуле  sp1 : = 0.5*( (x1+x2)*(y1-y2) + (x2+x3)*(y2-y3) + (x3+x4)*(y3-y4) + (x4+x5)*(y4-y5) + (x5+x1)*(y5-y1) );   //находим все длины между вершинами  d12 : = lengthline(x1,y1,x2,y2);   d23 : = lengthline(x2,y2,x3,y3);   d34 : = lengthline(x3,y3,x4,y4);   d45 : = lengthline(x4,y4,x5,y5);   d51 : = lengthline(x5,y5,x1,y1);   d13 : = lengthline(x1,y1,x3,y3);   d14 : = lengthline(x1,y1,x4,y4);   d24 : = lengthline(x2,y2,x4,y4);   d25 : = lengthline(x2,y2,x5,y5);   d35 : = lengthline(x3,y3,x5,y5);   //находим площади всех треугольников в пятиугольнике  s123 : = areatriangle(d12,d23,d13);   s234 : = areatriangle(d23,d34,d24);   s345 : = areatriangle(d34,d45,d35);   s451 : = areatriangle(d45,d51,d14);   s512 : = areatriangle(d51,d12,d25);   s134 : = areatriangle(d13,d34,d14);   s245 : = areatriangle(d24,d45,d25);   s351 : = areatriangle(d35,d51,d13);   s412 : = areatriangle(d14,d12,d24);   s523 : = areatriangle(d25,d23,d35);   //площадь пятиугольника теперь можем найти по другому, например по сумме треугольников  sp2 : = s123 + s134 + s451;   //площади треугольников можно брать любые, главное они не должны пересекаться между собойend;