Вычислить площадь треугольника по трём точкам [Паскаль]

[Canavar]

Даны 3 точки А(х1,у1),В(х2,у2),С(х3,у3).Определи ть,будут ли они расположены на одной прямой.Если нет,то вычислить площадь треугольника АВС

[alex_fcsm]

Формула Герона вам в помощь

[Canavar]

в паскале как записать

[alex_fcsm]

А вы попробуйте. Покажите что получилось

[zumm]

2alex_fcsm
Зачем вообще отвечать в таких темах? Пришел на форум какой то студет (школьник), который нечего не учит по теме, нагло выложил текст задачи и не говоря больше не слова, ждет что за него все решат. Эдакий автомат по решению задач. С такими требованиями нужно идти во фриланс.

[Mad_Cat]

program plosad;
var ab,bc,ac,x1,x2,x3,y1,y2,y3,p,s:real;
begin
write('x1,x2,x3,y1,y2,y3=');readln( x1,x2,x3,y1,y2,y3);
ab:=sqrt(sqr(x2-x1)+sqr(y2-y1));
bc:=sqrt(sqr(x1-x3)+sqr(y1-y3));
ac:=sqrt(sqr(x2-x3)+sqr(y2-y3));
p:=(ab+bc+ac)/2;
s:=sqrt(p*(p-ab)*(p-ac)*(p-bc));
if s<=0.000001 then writeln('Они на одной прямой') 
else writeln(s:6:3);
readln
end.

результат

x1,x2,x3,y1,y2,y3=1 0 -1 1 0 1
1.000

x1,x2,x3,y1,y2,y3=-1 0 1 -1 0 1
Они на одной прямой

[offtop]
2zumm не можете помочь-пройдите мимо! В "Свободном общении"! тема была подходящая(под ваши размышления) когда то от Михалыча! [/offtop]
p.s 2alex_fcsm это к вам не относилось

[Canavar]

program plosad;
var a,b,c,x1,x2,x3,y1,y2,y3:real;
begin
write('x1,x2,x3,y1,y2,y3=');readln( x1,x2,x3,y1,y2,y3);
if x1=x2=x3 or y1=y2=y3
then write ('координаты лежат на одной прямой');
S=(sqrt(p(p-a)(p-b)(p-c))('площадь треугольника');
end.

вот как я пробовал решить.в конце выдает ошибку

[alex_fcsm]

1. Очень много ошибок.
2. x1=x2=x3 or y1=y2=y3 - Это неполное условие. Представьте прямую y=x(1;1 2;2 3;3) там x1<>x2<>x3 y1<>y2<>y3 а точки на прямой лежат
3.Если полученная площадь будет равняться 0 - чем вам не признак что все точки лежат на одной прямой?

P.S. Я стараюсь помочь, чем-то - либо мысль либо кусок кода, все решение стараюсь не выкладывать, хотя каюсь случается такое)

[Canavar]

спасибо ребята=)