Задачи по Pascal. Вычислить длину окружности, площадь круга и объем шара одного и того же заданного радиуса.

Условие задачи: Вычислить длину окружности, площадь круга и объем шара одного и того же заданного радиуса (Язык Pascal)

Сложность: легкая.

Решение задачи

Для начала продумаем наше решение. Сначала введем радиус, потом просто подставим в формулы:

Сначала формулы. Первая у нас это длина окружности :

Дальше площадь круга :

Ну и объема шара :

Для того чтобы решить задачу нам понадобятся следующие переменные :

  • Переменная R — для радиуса
  • Переменная dlOkr — для длины окружности
  • Переменная sqKrug — для площади круга
  • Переменная Vshara — для объема шара
  • Начнем мы с каркаса нашей программы

    var

    R, dlOkr, sqKrug, Vshara :
    real
    ;

    begin

    write
    (
    'Введите радиус : '
    ); readln(R);
    end
    .

    Тут мы объявили переменные, которые описаны выше, и попросили пользователя ввести радиус, теперь осталось подставить радиус в формулы и всё :

    dlOkr :=
    2
    *
    3.14
    *R;
    sqKrug := R*R*
    3.14
    ;
    Vshara := (
    4
    /
    3
    )*Power(R,
    3
    )*
    3.14
    ;

    Довольно всё просто. Функция power возводит число R в третью степень.

    Теперь осталось только вывести результат :

    writeln
    (
    'Длина окружности : '
    , dlOkr);
    writeln
    (
    'Площадь круга : '
    , sqKrug);
    writeln
    (
    'Объем шара : '
    , Vshara);

    Всё решение задачи Pascal

    var

    R, dlOkr, sqKrug, Vshara :
    real
    ;
    // объявляем переменные

    begin

    write
    (
    'Введите радиус : '
    ); readln(R);
    // вводим радиус


    dlOkr :=
    2
    *
    3.14
    *R;
    // считаем длину окружности

    sqKrug := R*R*
    3.14
    ;
    // считаем площадь круга

    Vshara := (
    4
    /
    3
    )*Power(R,
    3
    )*
    3.14
    ;
    // считаем объем шара


    writeln
    (
    'Длина окружности : '
    , dlOkr:
    2
    :
    2
    );
    // выводим результат

    writeln
    (
    'Площадь круга : '
    , sqKrug:
    2
    :
    2
    );
    // выводим результат

    writeln
    (
    'Объем шара : '
    , Vshara:
    2
    :
    2
    );
    // выводим результат


    readln;
    // чтобы программа не закрывалась
    end
    .
    Предыдущая
    ПрограммированиеЗадачи по Pascal. Вычислить периметр и площадь прямоугольного треугольника по длинам двух катетов.
    Следующая
    ПрограммированиеЗадачи по Pascal. Вычислить дробную часть среднего геометрического трех заданных положительных чисел.
    Помогли? Поставьте оценку, пожалуйста.
    Плохо
    0
    Хорошо
    0
    Супер
    0
    Спринт-Олимпик.ру
    Мы в ВК, подпишись на нас!

    Подпишись на нашу группу в ВКонтакте, чтобы быть в курсе выхода нового материала...

    Вступить
    ×