Question

Написать программу вычисления площади кольца. Программа должна проверять правильность исходных данных. Ниже представлен рекомендуемый вид экрана во время работы программы (данные, введенные пользователем, выделены полужирным шрифтом).
Вычисление площади кольца.
Введите исходные данные:
Радиус кольца (см) -> 3.5
Радиус отверстия (см) ->7
Ошибка! Радиус отверстия не может быть больше радиуса кольца.

Answer 1

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 ('Для завершения работы программы нажмите <Enter>');
readln;
end.