Найти периметр и площадь треугольника, используя формулу для расстояния между двумя точками на плоскости

@KiU · Регистрация: 10.01.2014

Author24 — интернет-сервис помощи студентам

Даны координаты трех вершин треугольника : (x1,y1,x2,y2,x3,y3 ).Найти его периметр и площадь, используя формулу для расстояния между двумя точками на плоскости. Для нахождения площади треугольника со сторонами
a,b,c использоваться формулу Герона:
S=(p*(p-a)*(p-b)*(p-c))^(1/2), где
P=(a+b+c)/2-полупериметр

Добавлено через 2 минуты

Pascal

uses
  SysUtils;
 
var a,b,c,p,s,x1,y1,x2,y2,x3,y3:real;
begin
  write ('Koordinaty 1 vershyny treugolnika x1,y1=');
  read (x1,y1);
  write ('Koordinaty 2 vershyny treugolnika x2,y2=');
  read (x2,y2);
  write ('Koordinaty 3 vershyny treugolnika x3,y3=');
  read (x3,y3);
  a:=sqrt(sqr(x2-x1)+sqr(y2-y1));
  b:=sqrt(sqr(x3-x2)+sqr(y3-y3));
  a:=sqrt(sqr(x1-x3)+sqr(y1-y3));
  p:=(a+b+c)/2;
  s:=sqrt(p*(p-a)*(p-b)*(p-c));
  writeln('Perimetr treugolnika=',a+b+c:0:1,' Ploshad treugolnika=',s:0:1);
  readln;
  readln;
end.

Запускается но когда ввожу разные значения она закрывается
А когда одинаково то показывает все 0

@markiza-inc · 12.01.2014, 17:16

Проверьте еще раз строки:

Сообщение от KiU

b:=sqrt(sqr(x3-x2)+sqr(y3-y3));
a:=sqrt(sqr(x1-x3)+sqr(y1-y3));

@KiU · 12.01.2014, 17:22 **[ТС]**

Сообщение от markiza-inc

Проверьте еще раз строки:

раз 5 проверял не нашел(

@Puporev · 12.01.2014, 17:24

Pascal

1
2
3

a:=sqrt(sqr(x2-x1)+sqr(y2-y1));
b:=sqrt(sqr(x3-x2)+sqr(y3-y2));
c:=sqrt(sqr(x1-x3)+sqr(y1-y3));

@markiza-inc · 12.01.2014, 17:29

Для KiU:

Даже выделенное цветом не подсказывает?

@KiU · 12.01.2014, 17:48 **[ТС]**

Сообщение от markiza-inc

Для KiU:

Даже выделенное цветом не подсказывает?

2 дня не сплю уже)

@markiza-inc 913 / 240 / 100 Регистрация: 21.10.2012 Сообщений: 580
	12.01.2014, 17:16	2
	Проверьте еще раз строки: Сообщение от KiU b:=sqrt(sqr(x3-x2)+sqr(y3-y3)); a:=sqrt(sqr(x1-x3)+sqr(y1-y3)); 1

@KiU 1 / 1 / 0 Регистрация: 10.01.2014 Сообщений: 43
	12.01.2014, 17:22 [ТС]	3
	Сообщение от markiza-inc Проверьте еще раз строки: раз 5 проверял не нашел( 0

@markiza-inc 913 / 240 / 100 Регистрация: 21.10.2012 Сообщений: 580
	12.01.2014, 17:29	5
	Для KiU: Даже выделенное цветом не подсказывает? 0

@KiU 1 / 1 / 0 Регистрация: 10.01.2014 Сообщений: 43
	12.01.2014, 17:48 [ТС]	6
	Сообщение от markiza-inc Для KiU: Даже выделенное цветом не подсказывает? 2 дня не сплю уже) 0

Опции темы