Что надо изменить в данной программе (программа работает), чтобы, при вводе БУКВЫ (цифры с буквой одновременно) - появлялась ошибка... т.е. нужно сделать, чтобы корректность ввода была правильной. Программа:
var
r, x1, y1, x2, y2, d, p, s:real;
begin
write ('Радиус окружностей R=');
read ®;
Writeln ('Введите координаты центра первой окружности:');
read (x1,y1);
writeln ('Введите координаты центра второй окружности:');
read (x2,y2);
d:=sqrt(sqr(x1-x2)+sqr(y1-y2)); {расстояние между центрами}
if d>2*r
then
write ('Окружности не пересекаются')
else
if d=2*r
then
write ('Окружности касаются')
else
if (x1=x2) and (y1=y2)
then
write ('Окружности совпадают')
else
Begin
writeln ('Окружности пересекаются'); {Получается ромб = 2 треугольника}
p:=(2*r+d)/2; {Полупериметр}
s:=2*sqrt(p*(p-r)*(p-r)*(p-d)); {Площадь по Герону}
write ('Площадь четырехугольника=',s:0:2);
end;
end.
