Программа по нахождению площади треугольника по формуле Герона: S = √ p (p-a) (p-b) (p-c) p = a + b + c / 2 на C

2

Ответы и объяснения

2014-01-17T20:52:29+04:00
Program asd;
USES crt;
var S,a,b,c,p:real;
BEGIN
Clrscr;
Writeln('Введите сторону  à: '); Readln(a);
Writeln('Введите сторону  b: '); Readln(b);
Writeln('Введите сторону  c: '); Readln(c);
p:=(a+b+c)/2;
S:=sqrt(p*(p-a)*(p-b)*(p-c));
Writeln('S:= ',s:2:2);
END.
2014-01-17T20:53:50+04:00
Uses crt;
var
a,b,c:byte;
s,p:integer;
begin
clrscr;
write('a: ');readln(a);
write('b: ');readln(b);
write('c: ');readln(c);
p:=(a+b+c)/2;
s:=p*(p-a)(p-b)(p-c);
writeln(' площадь треугольника = ',s);

readln;
end.

p.s: писала без паскаля, ошибки не проверила)) но должно правильно решить:)
у меня не правильно, ошиблась..
Корень куда убежал ? :))
Комментарий удален