Задача 1
var
x1, y1, x2, y2, l: real;
begin
Writeln('Введите значения (x1,y1,x2,y2)');
Read(x1, y1, x2, y2);
l := Sqrt(Sqr(x1 - x2) + Sqr(y1 - y2));
Writeln('Расстояние: ', l:3:2);
end.
Тестовое решение:
Введите значения (x1,y1,x2,y2)
2 3 4 5
Расстояние: 2.83
Задача 2
var
a, b, c, p, s: real;
begin
Writeln('Введите ABC');
Read(a, b, c);
P := (a + b + c)/2;
S := Sqrt(p * (p - a) * (p - b) * (p - c));
Writeln('Площадь по Герону: ', S:3:2);
end.
Тестовое решение:
Введите ABC
2 3 4
Площадь по Герону: 2.90
Код программы:
#include <iostream>
#include <locale>
#include <time.h>
using namespace std;
void rand_mas(int *mas, int n) {
srand(time(NULL));
int a = -30, b = 30;
for (int i = 0; i < n; i++)
mas[i] = a + rand() % (b - a);
}
int min_mas(int *mas, int n) {
int min = mas[0];
for (int i = 1; i < n; i++) {
if (min > mas[i])
min = mas[i];
}
return min;
}
int main()
{
setlocale(LC_ALL, "Russian");
int *A, N, min, *temp;
cout << "Введите количество элементов в массиве" << endl;
cin >> N;
A = new int[N];
rand_mas(A, N);
cout << "Исходный массив: " << endl;
for (int i = 0; i < N; i++)
cout << A[i] << ' ';
min = min_mas(A, N);
temp = A;
A = new int[N + 1];
A[0] = min;
for (int i = 1, j = 0; i < N; i++) {
if (temp[j] == min) {
++j;
A[i] = temp[j];
++j;
continue;
}
A[i] = temp[j];
++j;
}
cout << "\nИзмененный массив: " << endl;
for (int i = 0; i < N; i++)
cout << A[i] << ' ';
return 0;
}
Подзадача является вс алгоритмом