Question

Напишите программу в Паскале, высчитывающую объем цилиндра (формула объем=пи*R^2*h), значения радиуса и высоты вводятся с клавиатуры, константа задаётся через раздел констант. В ней не должно быть команды процедура (procedure)Неверно - отправлю жалобу, ваш ответ удалят, а баллы снимут. Не пытайтесь.

Answer 1

Program Z;

const pi = 3.14;

var R,h,V:real;

begin

 V:=0;

 writeln('Введите R, затем h');

 read (R,h);

 V:=pi*sqr(R)*h;

 write(V);

end.

Answer 2

Конечно, вот программа на Паскале для вычисления объема цилиндра с вводом радиуса и высоты с клавиатуры:

pascalCopy code
program CylinderVolumeCalculator;

const
  Pi = 3.14159; // Задаем значение константы Pi

var
  radius, height, volume: real; // Объявляем переменные

begin
  write('Введите радиус цилиндра: ');
  readln(radius); // Ввод радиуса с клавиатуры

  write('Введите высоту цилиндра: ');
  readln(height); // Ввод высоты с клавиатуры

  volume := Pi * sqr(radius) * height; // Вычисление объема цилиндра

  writeln('Объем цилиндра: ', volume:0:2); // Вывод результата
end.

Этот код предоставляет пользователю возможность ввести радиус и высоту цилиндра с клавиатуры, после чего он вычисляет и выводит объем цилиндра.