23.02.2020, 13:00 [+3 UTC]
в нашей команде: 4 228 чел. | участники онлайн: 5 (рекорд: 21)

:: РЕГИСТРАЦИЯ

задать вопрос

все разделы

правила

новости

участники

доска почёта

форум

блоги

поиск

статистика

наш журнал

наши встречи

наша галерея

отзывы о нас

поддержка

руководство

Версия системы:
7.82 (22.02.2020)
JS-v.1.35 | CSS-v.3.37

Общие новости:
06.01.2020, 22:45

Форум:
11.02.2020, 11:38

Последний вопрос:
23.02.2020, 11:41
Всего: 151671

Последний ответ:
22.02.2020, 18:31
Всего: 259799

Последняя рассылка:
23.02.2020, 11:15

Писем в очереди:
0

Мы в соцсетях:

Наша кнопка:

RFpro.ru - здесь вам помогут!

Отзывы о нас:
08.04.2017, 11:42 »
svrvsvrv
Большое спасибо за подробную консультацию! [вопрос № 190849, ответ № 274890]
25.08.2019, 17:27 »
dar777
Это самое лучшее решение! [вопрос № 196157, ответ № 278576]

РАЗДЕЛ • Pascal / Delphi / Lazarus

Создание программ на языках Pascal, Delphi и Lazarus.

[администратор рассылки: Зенченко Константин Николаевич (Старший модератор)]

Лучшие эксперты в этом разделе

Gluck
Статус: Студент
Рейтинг: 277
Асмик Гаряка
Статус: Советник
Рейтинг: 161
puporev
Статус: Профессор
Рейтинг: 123

Перейти к консультации №:
 

Консультация онлайн # 194979
Раздел: • Pascal / Delphi / Lazarus
Автор вопроса: tanya.hryanina (Посетитель)
Отправлена: 14.03.2019, 12:50
Поступило ответов: 1

Уважаемые эксперты! Пожалуйста, ответьте на вопрос:программа Pascal ABC
Определить структуры, описывающие шар и точку в трехмерном пространстве. Написать программу которая проверяет, находится ли точка внутри заданного шара.

Состояние: Консультация закрыта

Ответ # 277654 от puporev (Профессор)

Здравствуйте, tanya.hryanina!

Код (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.


Консультировал: puporev (Профессор)
Дата отправки: 14.03.2019, 13:36

5
нет комментария
-----
Дата оценки: 14.03.2019, 13:56

Рейтинг ответа:

+2

[подробно]

Сообщение
модераторам

Отправлять сообщения
модераторам могут
только участники портала.
ВОЙТИ НА ПОРТАЛ »
регистрация »

Возможность оставлять сообщения в мини-форумах консультаций доступна только после входа в систему.
Воспользуйтесь кнопкой входа вверху страницы, если Вы зарегистрированы или пройдите простую процедуру регистрации на Портале.

Яндекс Rambler's Top100

главная страница | поддержка | задать вопрос

Время генерирования страницы: 0.14757 сек.

© 2001-2020, Портал RFPRO.RU, Россия
Калашников О.А.  |  Гладенюк А.Г.
Версия системы: 7.82 от 22.02.2020
Версия JS: 1.35 | Версия CSS: 3.37