Question

Паскаль. Создать программу. Обчислити площу й периметр трикутника, якщо відомі три сторони. Довжини сторін вводяться користувачем. Вычислить площадь и периметр треугольника,если известны три стороны. Длины сторон вводятся пользователем. Помогите пожалуйста

Answer 1

Ответ:

Program p1;

Var a,b,c,s,p,pp: real;

Begin

Writeln('Введите 1 сторону');

readln(a);

Writeln('Введите 2 сторону');

readln(b);

Writeln('Введите 3 сторону');

readln(c);

p:=a+b+c;

pp:=p/2;

s:=sqrt(pp*(pp-a)*(pp-b)*(pp-c));

Writeln('Периметр треугольника = ',p);

Writeln('Площадь треугольника = ',s);

End.

Answer 2

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

pascalCopy code
program TriangleAreaPerimeter;

var
  a, b, c, perimeter, s, area: real;

begin
  writeln('Введіть довжини трьох сторін трикутника:');
  readln(a, b, c);

  // Обчислення периметру
  perimeter := a + b + c;

  // Обчислення площі за формулою Герона
  s := perimeter / 2;
  area := sqrt(s * (s - a) * (s - b) * (s - c));

  writeln('Периметр трикутника: ', perimeter:0:2);
  writeln('Площа трикутника: ', area:0:2);
end.

Скопіюйте цей код до вашої середовища розробки Pascal і він має обчислити периметр та площу трикутника на основі введених довжин сторін користувачем.