Готовые дипломные, курсовые, рефераты. Вы можете бес-платно скачать любую понравившуюся работу.
ГОТОВЫЕ РАБОТЫ
ПОХОЖИЕ ВОПРОСЫ
Сегодня примерно в 17:49 на наш email ящик поступил вопрос, который наши модераторы от-несли к категории Разное. Постараемся дать на него полноценный ответ.
Составьте программу вычисления площади кольца по значениям внутреннего и внешнего радиусов, используя подпрограмму вычисления площади круга(два варианта:с процедурой и с функцией)
Среди нашей команды есть эксперты, которые успешно отвечают на вопросы из рубрики "Информатика". Напомним, что вы задали следующий вопрос:
Составьте программу вычисления площади кольца по значениям внутреннего и внешнего радиусов, используя подпрограмму вычисления площади круга(два варианта:с процедурой и с функцией)
И сразу же ответим на него:
После проведенного совещания с другими специалистами нашего сервиса, мы склонны пола-гать, что правильный ответ на заданный вами вопрос будет звучать следующим образом:
Var
r1, r2: real;
procedure pCircleSquare(r: real; var S: real);
begin
s := Pi * sqr(r);
end;
function fCircleSquare(r: real): Real;
begin
fCircleSquare := Pi * sqr(r);
end;
begin
Write('r1, r2 = ');
ReadLn(r1, r2);
writeln('Функция S = ', abs(fCircleSquare(r1) - fCircleSquare(r2)):5:2);
pCircleSquare(r1, r1);
pCircleSquare(r2, r2);
writeln('Процедура S = ', abs(r1 - r2):5:2);
end.