Технический форум

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Turbo Pascal (http://www.tehnari.ru/f41/t78923/)

напишите на Турбо паскале программу, которая находит периметр и площадь треугольника за его сторонами.

Цитата:

Сообщение от lazyrazor4 (Сообщение 799484)

напишите на Турбо паскале программу, которая находит периметр и площадь треугольника за его сторонами.

И не стыдно? А самому?

в программированию не шарю

Цитата:

Сообщение от lazyrazor4 (Сообщение 799488)

в программированию не шарю

Да ладно. Хотя, конечно, не стОило бы. На чем еще учиться, как не на подобных пустяках? Впрочем, если учиться совсем желания нет...

Код:

Var

 a,b,c,P,p2,S:Real;

Begin

 Write('a= ');

 Readln(a);

 Write('b= ');

 Readln(b);

 Write('c= ');

 Readln(c);

 P:=a+b+c;

 p2:=P/2;

 S:=Sqrt(p2*(p2-a)*(p2-b)*(p2-c));

 Writeln('P= ',P:0:3);

 Writeln('S= ',S:0:3);

 Readln

End.