Написать программу вычисления площади кольца. Программа должна проверять правильность исходных данных. Ниже представлен
Вопрос посетителя
Написать программу вычисления площади кольца. Программа должна проверять правильность исходных данных. Ниже представлен рекомендуемый вид экрана во время работы программы (данные, введенные пользователем, выделены полужирным шрифтом).
Вычисление площади кольца.
Введите исходные данные:
Радиус кольца (см) -> 3.5
Радиус отверстия (см) ->7
Ошибка! Радиус отверстия не может быть больше радиуса кольца.
Ответ эксперта
var
rl,r2 : real; { радиус кольца и отверстия }
s : real; { площадь кольца }
begin
writeln(‘Введите исходные данные:’);
write(‘радиус кольца (см) -> ‘);
readln(rl);
write(‘радиус отверстия (см) —> ‘);
readln(r2);
if rl > r2 then
begin
s:=PI*(sqr(rl)-sqr(r2));
writeln (‘Площадь кольца ‘,s:6:2,’ кв.см’);
end
else writeln (‘Ошибка! Радиус отверстия не может быть ‘,
‘больше радиуса кольца.’);
writeln (‘Для завершения работы программы нажмите
readln;
end.
