Помогите пожалуйста решить задачу по паскалю!и составить блок схему!

[...Оленька...]

ПО ссылке http://kit.zsu.zp.ua/iLec/1sem/PROGR...pas/Lr2pas.htm по теме использование процедур и функций! задание №14

[pomoshnic]

А можешь написать задание на форуме, а то у меня не грузятся задания

[...Оленька...]

Даны координаты вершин двух треугольников. Определить, какой из них имеет большую площадь.

[Greblin]

Про формулу Герона в 7 классе слышали?

program Triangles;
var x1, y1, x2, y2, x3, y3, x4, y4, x5, y5, x6, y6: real;
     a1, b1, c1, a2, b2, c2: real;
     p1, p2: real;
     s1, s2: real;
begin
writeln('Vvedite koordinati vershin 1 treugolnika: ');
readln(x1, y1, x2, y2, x3, y3);
writeln('Vvedite koordinati vershin 2 treugolnika: ');
readln(x4, y4, x5, y5, x6, y6);
a1 := sqrt(sqr(x2-x1) + sqr(y2-y1));
b1 := sqrt(sqr(x3-x1) + sqr(y3-y1));
c1 := sqrt(sqr(x3-x2) + sqr(y3-y2));
a2 := sqrt(sqr(x5-x4) + sqr(y5-y4));
b2 := sqrt(sqr(x6-x4) + sqr(y6-y4));
c2 := sqrt(sqr(x6-x5) + sqr(y6-y5));
p1 := (a1 + b1 + c1) / 2;
p2 := (a2 + b2 + c2) / 2;
s1 := sqrt(p1*(p1-a1)*(p1-b1)*(p1-c1));
s2 := sqrt(p2*(p2-a2)*(p2-b2)*(p2-c2));
if s1 = s2 then writeln('Ploschadi ravni')
else if s1 > s2 then writeln('Ploschad 1 bolshe')
else writeln('Ploschad 2 bolshe');
end.

[...Оленька...]

Спасибо большое!

[...Оленька...]

Ас блок схемой не можешь помочь!/?

[Greblin]

Если честно, за 5 лет рисовал блок-схемы раза 2-3. Тут алгоритм линейный, тока в конце ветвление. Посмотри хотя бы на википедии, того что там есть тебе вполне хватит. Заодно в алгоритме разберёшься

[...Оленька...]

спасибочки большое!