Дано: a,b,c-стороны треугольника. Найти: Площадь треугольника по формуле Герона. Помогите пожалуйста с помощью Паскаль ABC. Очень нужно на завтра.
Answers & Comments
00mariya00
Program нахождениеПлощадиТрегольникаПоФормулеГерона; var a,b,c,p: real; begin writeln('Введите сторону a.'); readln(a); writeln('Введите сторону b.'); readln(b); writeln('Введите сторону c.'); readln(c); p := (a+b+c)/2; writeln('Площадь треугольника равна ', sqrt(p*(p-a)*(p-b)*(p-c)), '.'); end.
2 votes Thanks 1
00mariya00
после "begin" и ";" с новой строки только всегда пиши
Answers & Comments
var a,b,c,p: real;
begin writeln('Введите сторону a.'); readln(a); writeln('Введите сторону b.'); readln(b); writeln('Введите сторону c.'); readln(c); p := (a+b+c)/2; writeln('Площадь треугольника равна ', sqrt(p*(p-a)*(p-b)*(p-c)), '.'); end.