- Аудиовизуальное решение
- Мультимедийная видеопрезентация
- Решение в формате слайд-шоу
- Текстовое
решение - Исходный код программы
Решение
program C1;
uses
crt;
var
x1, y1, r1, x2, y2, r2 : real;
begin
clrscr;
writeln;
write('Введите координаты и радиус 1 - й окружности: ');
readln(x1, y1, r1);
write('Введите координаты и радиус 2 - й окружности: ');
readln(x2, y2, r2);
if (sqrt(sqr(x2 - x1) + sqr(y2 - y1)) = r1 + r2) or
(sqrt(sqr(x2 - x1) + sqr(y2 - y1)) = abs(r1 - r2)) then
write('Да')
else
write('Нет');
readkey;
end.
uses
crt;
var
x1, y1, r1, x2, y2, r2 : real;
begin
clrscr;
writeln;
write('Введите координаты и радиус 1 - й окружности: ');
readln(x1, y1, r1);
write('Введите координаты и радиус 2 - й окружности: ');
readln(x2, y2, r2);
if (sqrt(sqr(x2 - x1) + sqr(y2 - y1)) = r1 + r2) or
(sqrt(sqr(x2 - x1) + sqr(y2 - y1)) = abs(r1 - r2)) then
write('Да')
else
write('Нет');
readkey;
end.
- Аудиовизуальное решение
- Мультимедийная видеопрезентация
- Решение в формате слайд-шоу
- Текстовое
решение - Исходный код программы