Дополни предложения, в окошки напиши (скопируй) недостающие слова: шрифт, алфавитном порядке, специальные - id1324808120220103 от Zhanar161 03.01.2022 00:34

Question

Информатика: Дополни предложения, в окошки напиши (скопируй) недостающие слова: шрифт, алфавитном порядке, специальные окошки, кнопки изменения стиля, pt, дюйма, названия шрифтов, кнопки оформления, стандартную панель инструментов, выравниванием, оформительные. — размер шрифта. Сохранить документ можно, используя . 2. Выбери (скопируй) правильный ответ из списка: CTRL+B, CTRL+I, CTRL+U, CTRL+N, CTRL+O, CTRL+C, CTRL+V, CTRL+X, CTRL+S, CTRL+E, CTRL+P. Открыть уже существующий документ: . Я ничего на понимаю заранее

Zhanar161 · Accepted Answer

type TXY = record x, y: Real end;
function sqt(a, b, c: TXY): Real;
begin
sqt:=abs((a.x-b.x)*(c.y-b.y)-(a.y-b.y)*(c.x-b.x))/2;
end;
const
eps=1e-4;
o: TXY = (x:0; y:0);
var a, b, c: TXY;
s1, s2, s3: Real;
begin
Write('Введите координаты вершин треугольника: ');
ReadLn(a.x,a.y,b.x,b.y,c.x,c.y);
s1:=sqt(o,a,b); s2:=sqt(o,b,c); s3:=sqt(o,a,c);
Write('Центр координат лежит ');
if abs(s1)<eps then WriteLn('на стороне AB')
else if abs(s2)<eps then WriteLn('на стороне BC')
else if abs(s3)<eps then WriteLn('на стороне AC')
else if abs(s1+s2+s3-sqt(a,b,c))<eps then WriteLn('внутри треугольника') else WriteLn('вне треугольника');
end.

MOGZ ответил