Написать программу для расчёта площади тела - Pascal ABC

Узнай цену своей работы

Формулировка задачи:

Вот формула :ППТ(м^2)=0,0003207*вес(г)(0,7285-0,0188*log10 вес(г)*рост(см)0.3

Решение задачи: «Написать программу для расчёта площади тела»

textual
Листинг программы
var v,r:integer;
    p:real;
begin
write('Введите вес в граммах v=');
readln(v);
write('Введите рост в сантиметрах r=');
readln(r);
p:=0.00032207*power(v,(0.7285-0.0188*ln(v)/ln(10)))*power(r,0.3);
writeln('Площадь тела=',p:0:4,' кв.м')
end.

Объяснение кода листинга программы

  1. Создается переменная v типа integer и присваивается значение, полученное от пользователя.
  2. Создается переменная r типа integer и присваивается значение, полученное от пользователя.
  3. Создается переменная p типа real и присваивается значение, рассчитанное по формуле 0.00032207*power(v,(0.7285-0.0188*ln(v)/ln(10)))*power(r,0.3). Здесь power(v,n) возводит число v в степень n, а ln(v) вычисляет натуральный логарифм числа v.
  4. Выводится сообщение с рассчитанным значением площади тела.
  5. Программа завершается.

Оцени полезность:

11   голосов , оценка 4.182 из 5
Похожие ответы