9-й класс. Язык программирования Паскаль

Задание:

Задано целочисленное число, означающее радиус сферы. Найти её площадь и объём.

Вводные данные: радиус сферы R.

Результирующие данные: площадь сферы S, объём сферы V.

Листинг:

program sphere;

var

R: integer;

S, V: real;

const

Pi = 3. 1415926;

begin

{Получение радиуса}

write('Введите радиус сферы: ');

readln(R);

{Вычисляем площадь и объём}

S: = 4 * Pi * sqr(R);

V: = 4 / 3 * (Pi * sqr(R) * R);

{Выводим результаты на экран}

writeln('Площадь сферы: ', S: 1: 3, ' м2');

writeln('Объём сферы: ', V: 1: 3, ' м3');

end.

Тестирование программы:

© helpiks.su При использовании или копировании материалов прямая ссылка на сайт обязательна.