Question

Написать программу на языке Паскаль для нахождения площади цилиндра?

Answer 1

uses crt;

var s,r,h:real;

begin

write('высота цилиндра = '); readln(h);

write('радиус цилиндра = '); readln(r);

s:=pi*r*r*h;

writeln('Площадь = ',s);

end.

Answer 2

Конечно, вот пример программы на языке Паскаль для вычисления площади поверхности цилиндра:

pascalCopy code
program CalculateCylinderSurfaceArea;

var
  radius, height, surfaceArea: real;

begin
  // Ввод данных
  writeln('Введите радиус цилиндра:');
  readln(radius);
  
  writeln('Введите высоту цилиндра:');
  readln(height);
  
  // Вычисление площади поверхности цилиндра
  surfaceArea := 2 * pi * radius * (radius + height);
  
  // Вывод результата
  writeln('Площадь поверхности цилиндра: ', surfaceArea:0:2);
end.

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

Обратите внимание, что символ pi используется для представления числа π (пи) и предоставляется стандартным компилятором Pascal. После ввода радиуса и высоты цилиндра, программа вычисляет площадь поверхности цилиндра по формуле 2 * pi * radius * (radius + height) и выводит результат с округлением до двух знаков после запятой.

Не забудьте выбрать среду разработки, которая поддерживает Pascal, например, Free Pascal (FPC), и скопировать этот код в файл с расширением .pas, затем скомпилировать и запустить программу.