// PascalABC.NET 3.0, сборка 1144 от 16.01.2016 type Point=record x,y:real end;
function GetPoint(c:char):Point; begin Writeln('Введите координаты точки ',c,':'); Read(Result.x,Result.y) end;
function Line(A,B:Point):real; begin Result:=sqrt(sqr(B.x-A.x)+sqr(B.y-A.y)) end;
function SqTriangle(pA,pB,pC:Point):real; begin var a:=Line(pB,pC); var b:=Line(pA,pC); var c:=Line(pA,pB); if (a+b>c) and (a+c>b) and (b+c>a) then begin var p:=(a+b+c)/2; Result:=sqrt(p*(p-a)*(p-b)*(p-c)) end else Result:=0 end;
begin var A:=GetPoint('A'); var B:=GetPoint('B'); var C:=GetPoint('C'); Writeln('Площадь треугольника равна ',SqTriangle(A,B,C)) end.
Тестовое решение: Введите координаты точки A: -5 3.18 Введите координаты точки B: 1.45 6.2 Введите координаты точки C: 6 -5.93 Площадь треугольника равна 45.98975
Не знаю, что за автоматизация, но запрос на выборку выглядит так: SELECT * FROM my_table или же запрос на выборку с условием SELECT * FROM my_table WHERE name="kek2255" при этом еще можно использовать операторы AND(И) и OR(ИЛИ) SELECT * FROM my_table WHERE name="Иван" AND first_name="Иванов" SELECT * FROM my_table WHERE name="Иван" OR name="Дмитрий" и понятное дело их можно комбинировать SELECT * FROM my_table WHERE (name="Иван" AND first_name="Иванов") OR (name="Дмитрий" AND first_name="Дмитриев") Можно выполнять запрос из нескольких таболиц SELECT t1.*, t2.* FROM my_table AS t1, my_table2 AS t2 WHERE t1.id = t2.id_ref
Здесь: SELECT - Сам оператор выборки * - это поля выборки, в данном случае все поля(*) -звездочка это значит все поля, но можно просто перечислить id, name, first_name и т.д. При выборе из 2-х и более таблиц указываются префиксы таблицы - это может быть как полное название таблицы(my_table.id) или псевдоним, которое мы указали (FROM my_table AS t1) t1 - будет псевдонимом и выбррка полей будет таким (t1.id, t1.name ...) FROM - Обязательное ключевое слово(оператор) означает ИЗ(from) WHERE - Не обязательный оператор условия (ГДЕ) Если перевести запрос на русский язык, то будет как в 1С:) ВЫБРАТЬ * ИЗ моя_таблица ГДЕ Имя = "Иван" Надеюсь
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку