Question

!!!!!!!!!!!!!РЕБЯТА,ПОМОГИТЕ ПОЖАЛУЙСТА!!!!!!!!!!!!!!!! осуществить перевод функции s=√p(p-a) (p-b) (p-c) Информатика Поставлю 5 звезд и лучший ответ Язык Паскаль

Answer 1

Объяснение:

var

a,b,c: word;

w,h: word;

r: word;

P,S: real;

begin

readln(a,b,c);

P := (a + b + c) / 2;

S := sqrt(P * (P - a) * (P - b) * (P - c));

writeln('P=',a+b+c,'; S=',S:5:2);

readln(w,h);

writeln('P=',(w+h)*2,'; S=',w*h);

readln(r);

P := 2 * pi * r;

S := pi * r * r;

writeln('P=',P:5:2,'; S=',S:5:2);

end.

5 3 5

P=13; S= 7.15

3 9

P=24; S=27

5

P=31.42; S=78.54

Answer 2

Конечно, я могу помочь вам перевести данную формулу на язык Паскаль. Предполагается, что вы хотите написать процедуру или функцию для вычисления значения s по формуле Герона, где p - полупериметр треугольника, a, b и c - длины его сторон. Вот как это можно сделать на языке Паскаль:

pascalCopy code
program CalculateS;
var
  p, a, b, c, s: real;

function CalculateArea(p, a, b, c: real): real;
begin
  CalculateArea := sqrt(p * (p - a) * (p - b) * (p - c));
end;

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

  // Вычисляем полупериметр
  p := (a + b + c) / 2;

  // Вызываем функцию для вычисления площади
  s := CalculateArea(p, a, b, c);

  writeln('Площадь треугольника равна: ', s:0:2);
end.

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