Question

Язык Pascal. Напишите программу, которая позволяет вводить с клавиатуры значение радиуса шара и выводит на экран площадь его поверхности и объём.

Answer 1

• Var r:real;
• Begin
• write('Радиус шара равен: ');
• readln(r);
• writeln('Объём шара равен: ',4/3*3.14*r*r*r:0:1);
• writeln('Площадь шара равна: ',4*3.14*r*r:0:1);
• readln;
• End.

Answer 2

Программа на языке Pascal, которая позволяет вводить с клавиатуры значение радиуса шара и выводит на экран площадь его поверхности и объем, может выглядеть следующим образом:

program SphereCalculation;

var
  radius, surfaceArea, volume: real;

begin
  // Ввод радиуса шара с клавиатуры
  writeln('Введите радиус шара: ');
  readln(radius);
  
  // Вычисление площади поверхности и объема шара
  surfaceArea := 4 * pi * radius * radius;
  volume := (4/3) * pi * radius * radius * radius;
  
  // Вывод результатов на экран
  writeln('Площадь поверхности шара: ', surfaceArea:0:2);
  writeln('Объем шара: ', volume:0:2);
  
  readln;
end.

В данной программе сначала пользователь вводит радиус шара с клавиатуры с помощью функции `readln`, затем происходит вычисление площади поверхности и объема шара. Формулы для вычисления площади и объема шара используют значения радиуса и числа π. Затем результаты выводятся на экран с помощью функции `writeln`.