Задачка по паскалю.

[Suzukava]

Помогите плз решить задачку:
Составить программу, которая вводит три числовых значения (a,b,c) и, рассматривая их как длины сторон треугольника по формуле Герона
S= корень из p(p-a)(p-b)(p-c)
где p= 1/2(a+b+c)

очень нада!плиз )

[alex_fcsm]

var   a,b,c,p,s:real;

begin
readln(a,b,c);
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln(s);
end.

[Suzukava]

О! пасиба огромное!!
я думал мне алгоритм напишут =)) а тут код)
еще раз спс

[alex_fcsm]

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

О! пасиба огромное!!
я думал мне алгоритм напишут =)) а тут код)
еще раз спс

Алгоритм Вы в условии написали

[Suzukava]

хм..точно =) с этой сессией мозг пухнет уже =))

[Suzukava]

а как предусмотреть контроль правильности исходных данных?

[alex_fcsm]

uses crt;
var   a,b,c,p,s:real;
      flag:boolean;
begin
repeat
clrscr;
flag:=false;
Writeln('Input');
readln(a,b,c);
if ((a+b)>c)and((a+c)>b)and((b+c)>a) then flag:=true;
until flag;
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln(s);
end.

[Suzukava]

спасибо!огромное!

[n1ce > Kuzia]

pomogite reshit6 задача)
Даны действительные числа s ,t многочлен P(x),степени n.Найти значение P(x)dx

[n1ce > Kuzia]

cherez function