Question

Написать программу( в Pascal), которая определяет полную поверхность 30-ти шаров. Радиус первого составляет 59 м, а каждого последующего уменьшается на 1 м.

Answer 1

Блок-схема - в прилагаемом файле.
var r:integer; s:real;
begin
s:=0;
for r:=59 downto 30 do
 s:=s+4*pi*r*r;
writeln('s = ',s:10:3);
end.

Результат:
s = 774779.580

Answer 2

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

\[ S = 4 \pi r^2 \]

где \( S \) - полная поверхность, \( \pi \) - число Пи (приблизительно 3.14159), \( r \) - радиус шара.

Теперь давайте напишем программу:

program CalculateSphereSurfaceArea;

var
  radius: integer;
  totalSurfaceArea: real;
  i: integer;

begin
  // Инициализация радиуса первого шара
  radius := 59;
  totalSurfaceArea := 0;

// Цикл для расчета поверхности каждого из 30 шаров
  for i := 1 to 30 do
  begin
    // Расчет полной поверхности текущего шара
    totalSurfaceArea := totalSurfaceArea + 4 * 3.14159 * sqr(radius);

// Уменьшение радиуса для следующего шара
    radius := radius - 1;
  end;

// Вывод результата
  writeln('Полная поверхность 30 шаров:');
  writeln(totalSurfaceArea:0:2);
end.

В этой программе переменная `totalSurfaceArea` используется для накопления общей поверхности 30 шаров. Переменная `radius` представляет радиус текущего шара, который уменьшается на 1 для каждого последующего шара в цикле. Формула для вычисления поверхности применяется на каждом шаге цикла.

Обратите внимание, что использовано приближенное значение числа Пи (3.14159). Если точность важна, вы можете использовать более точное значение числа Пи или встроенную константу `Pi` из библиотеки `Math`.