Дана сторона равностороннего треугольника составьте программу для вычисления его...

Question

Дана сторона равностороннего треугольника составьте программу для вычисления его периметра и площади(Паскаль)

Answer 1

var a, b:integer;

begin

writeln ('Введите стороны a и b');

writeln ('Введите сторону a');

readln (a);

writeln ('Введите сторону b');

readln (b);

writeln;

writeln ('Периметр = ', (a+b)*2);

writeln ('Площадь = ', a*b);

readln;

end.

Comments

ай, с площадю не так написал. подставь там для треугольника формулу

---

а, во. бери

---

program P1;var a, b, c, P, S: real;procedure Pr(a, b, c: real; var P: real);begin P := a + b + c;end;function F(a, b, c: real): real;var pp: real;begin pp := (a + b + c) / 2; f := sqrt(pp * (pp - a) * (pp - b) * (pp - c));end;begin Writeln('Vvedite a,b,c'); readln(a, b, c); pr(a, b, c, p); writeln('P = ', P, ' S = ', f(a, b, c));end.

---

это к треугольнику