// PascalABC.NET 3.3, сборка 1627 от 27.01.2018 // Внимание! Если программа не работает, обновите версию!
procedure BubbleSortFlag(a:array of integer); // пузврьковая сортировка с флажком begin var f:=True; // флажок перестановки var p:=1; // номер перестановки var n:=a.Length; while f do begin f:=false; for var i:=0 To n-p-1 Do if a[i]>a[i+1] then begin Swap(a[i],a[i+1]); f:=true end; p+=1 end end;
begin var a:=ArrRandom(10,-10,10); a.Println; BubbleSortFlag(a); a.Println end.
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);
// Внимание! Если программа не работает, обновите версию!
procedure BubbleSortFlag(a:array of integer);
// пузврьковая сортировка с флажком
begin
var f:=True; // флажок перестановки
var p:=1; // номер перестановки
var n:=a.Length;
while f do begin
f:=false;
for var i:=0 To n-p-1 Do
if a[i]>a[i+1] then begin
Swap(a[i],a[i+1]);
f:=true
end;
p+=1
end
end;
begin
var a:=ArrRandom(10,-10,10); a.Println;
BubbleSortFlag(a);
a.Println
end.
Пример
-7 5 5 1 -3 -5 -8 1 2 3
-8 -7 -5 -3 1 1 2 3 5 5