Question

Язык паскаль. Напишите программу вычисления площади равностороннего треугольника. Заранее спасибо.

Answer 1

Var b,a,p,s:real;
begin
Writeln('Введите длинну основания и длинну боковой стороны равнобедренного треугольника через пробел');
readln(a,b);
p:=(a+b*2)/2;
s:=sqrt(p*(p-a)*sqr(p-b));
writeln(s:4:1, ' см. квадратных');
end.

Answer 2

Программа для вычисления площади равностороннего треугольника на языке Паскаль может выглядеть следующим образом:

program CalculateTriangleArea;

var
  sideLength, area: real;

begin
  writeln('Введите длину стороны равностороннего треугольника: ');
  readln(sideLength);

area := (sqrt(3) / 4) * sideLength * sideLength;

writeln('Площадь равностороннего треугольника с длиной стороны ', sideLength, ' равна: ', area);
end.

Эта программа сначала запрашивает пользователя ввести длину стороны равностороннего треугольника, затем использует формулу для вычисления площади и выводит результат на экран.

Надеюсь, это поможет!