Question

Составить алгоритм и написать решение задачи на Паскале: Даны 3 положительных числа. Найти периметр и площадь треугольника с данными сторонами.

Answer 1

Var a,b,c,p:integer;
s,sg:real;
begin
readln(a,b,c);
p:=a+b+c; {периметр}
sg:=p/2;
s:=sqrt(sg*(sg-a)*(sg-b)*(sg-c)); {формула герона}
if s= 0 then writeln('Периметр = ',p,' Площадь = не существует') else
writeln('Периметр = ',p,' Площадь = ',s);
end.

Answer 2

Решение задачи на Паскале: Найти периметр и площадь треугольника с данными сторонами

Для решения данной задачи на Паскале, мы можем использовать формулы Герона для нахождения площади треугольника и простую формулу для нахождения периметра треугольника.

Алгоритм: 1. Вводим значения сторон треугольника a, b и c. 2. Вычисляем полупериметр треугольника, используя формулу: s = (a + b + c) / 2. 3. Вычисляем площадь треугольника, используя формулу Герона: area = sqrt(s * (s - a) * (s - b) * (s - c)). 4. Вычисляем периметр треугольника, используя формулу: perimeter = a + b + c. 5. Выводим значения площади и периметра треугольника.

Решение на Паскале: ```pascal program TrianglePerimeterAndArea; uses math;

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

begin // Вводим значения сторон треугольника writeln('Введите значения сторон треугольника:'); write('a = '); readln(a); write('b = '); readln(b); write('c = '); readln(c);

// Вычисляем полупериметр треугольника s := (a + b + c) / 2;

// Вычисляем площадь треугольника area := sqrt(s * (s - a) * (s - b) * (s - c));

// Вычисляем периметр треугольника perimeter := a + b + c;

// Выводим значения площади и периметра треугольника writeln('Площадь треугольника: ', area:0:2); writeln('Периметр треугольника: ', perimeter:0:2);

readln; end. ```

После запуска программы, она запросит ввод значений сторон треугольника (a, b и c). Затем она вычислит площадь и периметр треугольника, используя формулы Герона и простую формулу для периметра. Наконец, она выведет значения площади и периметра на экран.

Пример работы программы: ``` Введите значения сторон треугольника: a = 3 b = 4 c = 5 Площадь треугольника: 6.00 Периметр треугольника: 12.00 ```

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