Написать программу вычисления площади кольца. Ниже приведен рекомендуемый вид экрана во время выполнения программы.

Вычисление площади кольца

Введите исходные данные:

Радиус внешнего круга (см) :

Радиус внутреннего круга (см) :

Площадь внешнего круга:

Площадь внутреннего круга:

Площадь кольца:

Question

Информатика

Нинель

10 апреля, 11:57

Написать программу вычисления площади кольца. Ниже приведен рекомендуемый вид экрана во время выполнения программы.

Вычисление площади кольца

Введите исходные данные:

Радиус внешнего круга (см) :

Радиус внутреннего круга (см) :

Площадь внешнего круга:

Площадь внутреннего круга:

Площадь кольца:

+3

Ответы (1)

Знаете ответ на вопрос?

Регина · Answer 1

uses crt;

var r1, r2:real;

function Scirkle (r:real) : real;

begin

Scirkle:=pi*sqr (r) ;

end;

begin

clrscr;

writeln ('r1, r2') ;

readln (r1, r2) ;

writeln ('Площадь кольца равна ', Scirkle (r1) - Scirkle (r2)) ;

readln;

end.