чертёжнику был дан для исполнения следующий алгоритм: повтори 8 раз сместиться на (1, 3) сместиться - id40128420220829 от kckekdkalexter 29.08.2022 05:26

Question

Информатика: чертёжнику был дан для исполнения следующий алгоритм: повтори 8 раз сместиться на (1, 3) сместиться на (-2, -5) конец сместиться на (40, 18) какую команду надо выполнить чертёжнику, чтобы вернуться в исходную точку, из которой он начал движение?

kckekdkalexter · Accepted Answer

Используем формулу Герона для нахождения площади треугольника по трем сторонам: S=√(p·(p-a)·(p-b)·(p-c)), где p - полупериметр, равный
p=(a+b+c)/2

Программа:

program z;
var a1,b1,c1,a2,b2,c2,p1,p2,s1,s2:real;
begin
readln(a1,b1,c1); {ввод длин сторон первого треугольника}
p1:=(a1+b1+c1)/2; {полупериметр первого треугольника}
s1:=sqrt(p1*(p1-a1)*(p1-b1)*(p1-c1)); {площадь первого треугольника}

readln(a2,b2,c2); {ввод длин сторон второго треугольника}
p2:=(a2+b2+c2)/2; {полупериметр второго треугольника}
s2:=sqrt(p2*(p2-a2)*(p2-b2)*(p2-c2)); {площадь второго треугольника}
if s1=s2 {если площади треугольников равны}
then writeln('Yes') {то вывести положительный ответ}
else writeln('No'); {иначе вывести отрицательный ответ}
end.

MOGZ ответил