На языке программирования С#, используя необходимые классы проекта «Планиметрия», решите следующую задачу. Дан массив точек на плоскости. Укажите в нём три такие точки, чтобы треугольник с вершинами в этих точках имел наименьшую площадь и находился в нижней полуплоскости. Если такого треугольника нет, то выдайте соответствующее сообщение.
//тут для наибольшей
double max, pl = 0; int a, b, c = 0;
Triangle tr1 = new Triangle(mas[0],
mas[1], mas[2]); max = tr1.area();
for (i = 0; i < n - 2; i++)
{ for (int j = i + 1; j < n - 1; j++)
{ for (int k = j + 1; k < n; k++)
{ Triangle tr = new Triangle(mas[i], mas[j], mas[k]);
pl = tr.area();
if (tr.Is_Triangle)
{ if (pl > max)
{ if ((mas[i].koord_y < 0) && (mas[j].koord_y < 0)
else Console.WriteLine("треугольник не существует его периметр = {0:0.####},площадь ={1:0.###}",tr2.perimetr(), tr2.area());
4. Используя возможности системы компьютерной математики MathCad, найдите в общем (символьном) виде точки пересечения прямойy = k × x и параболыy = x2+ b× x + c. Выполните графическую иллюстрацию для случая k = 1, b = , c = – 4 и укажите точки пересечения графиков функций.
5. Вычислите значение определенного интеграла методом трапеций (число разбиений n = 50). Сравните с точным значением интеграла.
Формула Трапеции (h- шаг, как его выбирать – не знаю),y =f(x)
7. Вычислите значение определенного интеграла методом Симпсона (число разбиений n = 50). Сравните с точным значением интеграла.
Формула Симпсона. 2m=b, 0=a. Чётные и не чётные
9. На языке программирования С#, используя необходимые классы проекта «Планиметрия», решите следующую задачу. Дан массив точек на плоскости. Укажите в нём такие точки X, Y, Z, чтобы точка X находилась в 1-ом координатном углу, точка Y находилась во 2-ом координатном углу, точка Z находилась в 3-ем координатном углу, и треугольник XYZ имел площадь, не меньшую 7 кв. ед. Если таких точек в массиве нет, то выдайте соответствующее сообщение.
int S, kol; kol = 0; S = 7; for (uint i = 0; i < n - 2; i++)
for (uint j = i + 1; j < n - 1; j++) for (uint z = j + 1; z < n; z++)
{ Triangle tr3 = new Triangle(mas[i], mas[j], mas[z]);
Console.WriteLine("S=" + Math.Sqrt(p * (p - a) * (p - b) * (p - c)));
}}} if (kol < 1)
Console.WriteLine(" треугольник не существут s<7");
На языке программирования С#, используя необходимые классы проекта «Планиметрия», решите следующую задачу. Дан массив точек на плоскости. Укажите в нём три такие точки, чтобы треугольник с вершинами в этих точках был равнобедренным и располагался в верхней полуплоскости. Если таких точек в массиве нет, то выдайте соответствующее сообщение.
//тут для 3-го координ. угла
uint kol; kol = 0;
for (uint i=0; i<n-2; i++) for (uint j=i+1; j<n-1; j++)
for (uint z = j + 1; z < n; z++)
{ Triangle tr3 = new Triangle(mas[i], mas[j], mas[z]);
if (tr3.Is_Triangle && tr3.Style1() == "Равнобедренный")
{ if (((mas[i].koord_x < 0) && mas[i].koord_y < 0)
1. Дан натуральный отрезок чисел [A,B]. Найти те числа этого отрезка, суммы делителей которых меньше заданного числа Х. Проверку, является ли сумма делителей данного числа меньше заданного числа Х, сделать с помощью процедуры пользователя.
PROGRAM ASC;
Var i, k, a, b, d, x: integer; flag: boolean;
procedure AQ (d,x:integer; var f: boolean);
begin if (d<x) then f:= true
else f:=false; end; begin writeln ('ввести концы отрезка');
readln(a,b); writeln ('ввести число для сравнения');
readln(x); for i:=a to b do
begin k:=0;
for d:=1 to i do if i mod d = 0
then k:=k+d; AQ (k,x, flag );
if flag=true then writeln ('сумма делителей числа ', i ,' меньше заданного числа', x); end; readln; end.
2. Дан натуральный отрезок чисел [A,B]. Найти те числа этого отрезка, суммы цифр которых больше заданного числа Х. Проверку, является ли сумма цифр данного числа больше заданного числа Х, сделать с помощью логической функции пользователя.
program aas; uses crt;
var a,b,i,y, c, x, s: integer;
function sum(s,x:integer):boolean;
begin
if s > x then sum:=true else sum:=false; end;
begin writeln (' ввести концы отрезка'); readln (a, b);
writeln (' ввести число'); readln (x);
for i:=a to b do
begin y:=i; s:=0;
while y<>0 do begin c:=y mod 10;
s:=s+c; y:=y div 10; end;
if sum(s,x) then writeln ('сумма цифр числа ' , i,' > ',x) end; end.
, 
методом трапеций (число разбиений n = 50). Сравните с точным значением интеграла.
