Нельзя преобразовать тип Tuple к real.
program t1;
var a,b,c,S,x1,x2,x3,y1,y2,y3:real;
begin
write('Введите a,b,c форма: a(x1,y1)');
read (a,b,c);
a:=(x1,y1);
b:=(x2,y2);
c:=(x3,y3);
S:=1/4*sqrt((a+b+c)*(a+b-c)(a+c-b)(b+c-a));
writeln ('Площадь треугольника равна ',S:7:3);
end.
program t1;
var a,b,c,S,x1,x2,x3,y1,y2,y3:real;
begin
write('Введите a,b,c форма: a(x1,y1)');
read (a,b,c);
a:=(x1,y1);
b:=(x2,y2);
c:=(x3,y3);
S:=1/4*sqrt((a+b+c)*(a+b-c)(a+c-b)(b+c-a));
writeln ('Площадь треугольника равна ',S:7:3);
end.
More Questions From This User See All
Answers & Comments
Ответ:
Ошибка типов данных. a := (x1, x2) - объединение значений х1 и х2 в кортеж. Кортеж - неизменяемый тип данных, содержащий в себе несколько переменных или объектов, что то на подобии массива. Ты не можешь умножить кортеж на кортеж.
Объяснение: