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

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

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

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

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

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

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

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

Question

Информатика

Кириллыч

13 августа, 16:50

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

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

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

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

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

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

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

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

+4

Ответы (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.