pascal
Объяснение:
var
p, s: real;
x1, x2, x3, y1, y2, y3: integer;
function dlina(x1, y1, x2, y2: integer):real;
begin
dlina := sqrt(sqr(x2 - x1) + sqr(y2 - y1));
end;
begin
Write('Введите координаты точки A: '); ReadLn(x1, y1);
Write('Введите координаты точки B: '); ReadLn(x2, y2);
Write('Введите координаты точки C: '); ReadLn(x3, y3);
p := (dlina(x1,y1,x2,y2) + dlina(x2,y2,x3,y3) + dlina(x1,y1,x3,y3)) / 2;
s := sqrt(p*(p-dlina(x1,y1,x2,y2))*(p-dlina(x2,y2,x3,y3))*(p-dlina(x1,y1,x3,y3)));
WriteLn('Площадь треугольника равна S = ', s:1:3);
end.
pascal
Объяснение:
var
p, s: real;
x1, x2, x3, y1, y2, y3: integer;
function dlina(x1, y1, x2, y2: integer):real;
begin
dlina := sqrt(sqr(x2 - x1) + sqr(y2 - y1));
end;
begin
Write('Введите координаты точки A: '); ReadLn(x1, y1);
Write('Введите координаты точки B: '); ReadLn(x2, y2);
Write('Введите координаты точки C: '); ReadLn(x3, y3);
p := (dlina(x1,y1,x2,y2) + dlina(x2,y2,x3,y3) + dlina(x1,y1,x3,y3)) / 2;
s := sqrt(p*(p-dlina(x1,y1,x2,y2))*(p-dlina(x2,y2,x3,y3))*(p-dlina(x1,y1,x3,y3)));
WriteLn('Площадь треугольника равна S = ', s:1:3);
end.
a:2; b:b+1; c:=b-a; d:=s;
Должно быть:
a := 2; b := b+1; c := b - a; d := (Значение);
Другими словами: в начале этой строки кода используются неправильные операторы, а в конце переменной d присваивается значение переменной s, которая в свою очередь даже не объявлена (возможно опечатка)