давно
Старший Модератор
31795
6196
11.03.2016, 12:37
общий
это ответ
Здравствуйте, bk657!
[code lang=pascal h=200]var
x1,x2,x3,y1,y2,y3:integer;
p,s:real;
function len(a,b,c,d:integer):real;
begin
len:=sqrt(sqr(a-b)+sqr(c-d))
end;
begin
{вводим координаты}
write('Enter X1:');readln(x1);
write('Enter Y1:');readln(y1);
write('Enter X2:');readln(x2);
write('Enter Y2:');readln(y2);
write('Enter X3:');readln(x3);
write('Enter Y3:');readln(y3);
{считаем и выводим периметр треугольника}
p:=len(x1,x2,y1,y2)+len(x1,x3,y1,y3)+len(x2,x3,y2,y3);
writeln('Perimert:',p);
{получаем полупериметр для формулы Герона}
p:=p/2;
{считаем и выводим площадь треугольника}
s:=sqrt(p*(p-len(x1,x2,y1,y2))*(p-len(x1,x3,y1,y3))*(p-len(x2,x3,y2,y3)));
writeln('Area of a triangle:',s);
end.[/code]
ps:писал в Pascal ABC, т.к Pascal ABC.net у меня не установлен. Код не использует особенностей и различий компиляторов паскаля, поэтому должен работаь и в Pascal ABC.net
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.