Question

написать программу на языке паскаль вычисления площади поверхности s=π( R+r)l+πR²+πr² усеченного конуса

Answer 1

Const
  pi=3.14;
var
  V1,V2,R,h:real;
begin
  Write('Введите радиус и высоту: '); Read(R,h);
  V1:=pi*sqr(R)*h; V2:=V1/3;
  Writeln('Объем цилиндра ',V1:0:5,', объем конуса ',V2:0:5)
end.

Answer 2

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

pascalCopy code
program SurfaceAreaOfTruncatedCone;

const
  Pi = 3.14159265358979323846;

var
  R, r, l, s: real;

{ Функция для вычисления площади поверхности усеченного конуса }
function SurfaceAreaOfTruncatedConeCalculation(R, r, l: real): real;
begin
  SurfaceAreaOfTruncatedConeCalculation :=
    Pi * (R + r) * l + Pi * R * R + Pi * r * r;
end;

begin
  { Ввод данных от пользователя }
  writeln('Введите радиус большего основания R усеченного конуса:');
  readln(R);
  
  writeln('Введите радиус меньшего основания r усеченного конуса:');
  readln(r);
  
  writeln('Введите образующую l усеченного конуса:');
  readln(l);
  
  { Вычисление площади поверхности усеченного конуса }
  s := SurfaceAreaOfTruncatedConeCalculation(R, r, l);
  
  { Вывод результата }
  writeln('Площадь поверхности усеченного конуса: ', s:0:2);
end.

Пользователь должен будет ввести значения радиусов большего и меньшего оснований усеченного конуса (R и r соответственно) и значение образующей (l). После ввода программой будет вычислена площадь поверхности усеченного конуса и выведен результат на экран.