Консультация № 194979
14.03.2019, 12:50
0.00 руб.
0 1 1
Уважаемые эксперты! Пожалуйста, ответьте на вопрос:программа Pascal ABC
Определить структуры, описывающие шар и точку в трехмерном пространстве. Написать программу которая проверяет, находится ли точка внутри заданного шара.

Обсуждение

давно
Профессор
401888
1232
14.03.2019, 13:36
общий
это ответ
Здравствуйте, tanya.hryanina!
[code lang=pascal]type tpoint=record
x,y,z:real;
end;
tsfera=record
x,y,z,r:real;
end;
var t:tpoint;
s:tsfera;
begin
writeln('Введите координаты центра и радиус сферы');
readln(s.x,s.y,s.z,s.r);
writeln('Введите координаты точки');
readln(t.x,t.y,t.z);
if sqr(t.x-s.x)+sqr(t.y-s.y)+sqr(t.z-s.z)<sqr(s.r) then
write('Точка находится внутри сферы')
else write('Точка не находится внутри сферы')
end.[/code]
5
Форма ответа