Question

Разработайте программу Паскаль.
1)Вычислит площадь треугольника,зная три стороны .
2)Длину отрезка,если его концы заданы координатами А(x;y) В(x;y) АВ-?

Answer 1

№1

var a,b,c,p:real; 
begin 
writeln('Введите три стороны треугольника'); 
read(a,b,c); 
p:=(a+b+c)/2; 
p:=sqrt(p*(p-a)*(p-b)*(p-c)); 
writeln('Площадь треугольника = ',p); 
end. 

№2

var x1,y1,x2,y2,d:real; 
begin 
writeln('Введите координаты точки A'); 
read(x1,y1); 
writeln('Введите координаты точки B'); 
read(x2,y2); 
d:=sqrt(sqr(x2-x1)+sqr(y2-y1)); 
writeln('Длина отрезка АВ=',d); 
end.