struct VERT // структура для вершины многоугольника { int x; int y; };
// Модуль числа int Modul( int a ) { return (a > 0 ? a : -a); }
// Длина отрезка через координаты float Len( int x1, int y1, int x2, int y2 ) { return sqrt((x1 - x2) * (x1 - x2) + (y1 - y2) * (y1 - y2)); }
int main () { /// ЗАДАНИЕ 1 /// const int N = 3; int arr[N]; float mid = 0;
// Установка "зерна" для случайных чисел srand(time(NULL)); // Заполнение массива случайными числами и суммирование for (int i = 0; i < N; i++) arr[i] = rand() % 100, mid += Modul(arr[i]);
// Вычисление среднего арифм. mid /= M;
/// ЗАДАНИЕ 2 ///
const int V = 3; // количество вершин многоугольника VERT vert[V]; // массив вершин многоугольника
cout << "Введите координаты вершин (x y): " << endl; for (int i = 0; i < V; i++) { cout << i + 1 << ": "; cin >> vert[i].x >> vert[i].y; }
// Вычисление периметра float per = 0; for (int i = 0; i < V - 1; i++) per += Len(vert[i].x, vert[i].y, vert[i + 1].x, vert[i + 1].y);
1. Современное короткое, но скорее всего, мало понятное школьнику решение
// PascalABC.NET 3.1, сборка 1213 от 04.04.2016 function LineLen(a,b:(real,real)):= Sqrt(Sqr(b.Item1-a.Item1)+Sqr(b.Item2-a.Item2));
begin var a:array[1..3] of (real,real); var x,y:real; Writeln('Введите три пары координат x,y'); for var i:=1 to 3 do begin Read(x,y); a[i]:=(x,y) end; Writeln('Периметр треугольника равен ',LineLen(a[1],a[2])+ LineLen(a[1],a[3])+LineLen(a[2],a[3])) end.
Тестовое решение: Введите три пары координат x,y 3 -3.5 -6 8 4 5.2 Периметр треугольника равен 33.7449685386805
2. Традиционное, но возможно тоже не очень понятное школьнику решение
// PascalABC.NET 3.1, сборка 1213 от 04.04.2016 type Point=record x,y:real end;
function LineLen(a,b:Point):real; begin Result:=Sqrt(Sqr(b.x-a.x)+Sqr(b.y-a.y)); end;
var a:array[1..3] of Point;
begin Writeln('Введите три пары координат x,y'); for var i:=1 to 3 do Read(a[i].x,a[i].y); Writeln('Периметр треугольника равен ',LineLen(a[1],a[2])+ LineLen(a[1],a[3])+LineLen(a[2],a[3])) end.
1 және 2 деп болуінің себебі:1шідегі заттар өзара байланысады 2де дал солай!