Предмет: Информатика,
автор: feldman2001
Напишите программу вычисления площади кольца, радиусы вводятся с клавиатуры. Используйте функцию вычисления площади круга
Ответы
Автор ответа:
0
var r1,r2,s:real;
function square(r:real):real;
begin
square:=pi*r*r;
end;
begin
writeln('r1, r2:');
readln(r1,r2);
s:=abs(square(r1)-square(r2));
writeln('Площадь кольца = ',s:5:2);
end.
Пример:
r1, r2:
3 5
Площадь кольца = 50.27
function square(r:real):real;
begin
square:=pi*r*r;
end;
begin
writeln('r1, r2:');
readln(r1,r2);
s:=abs(square(r1)-square(r2));
writeln('Площадь кольца = ',s:5:2);
end.
Пример:
r1, r2:
3 5
Площадь кольца = 50.27
Похожие вопросы
Предмет: Математика,
автор: horosaapogoda774
Предмет: Математика,
автор: yasminsamatova
Предмет: Физика,
автор: 0661321153anna89
Предмет: Биология,
автор: Larisik29
Предмет: Алгебра,
автор: Racovery