20.03.2019, 15:18 [+3 UTC]
в нашей команде: 3 475 чел. | участники онлайн: 6 (рекорд: 21)

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

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

все разделы

правила

новости

участники

доска почёта

форум

блоги

поиск

статистика

наш журнал

наши встречи

наша галерея

отзывы о нас

поддержка

руководство

Версия системы:
7.72 (17.03.2019)
JS-v.1.33 | CSS-v.3.35

Общие новости:
09.03.2019, 10:08

Форум:
18.03.2019, 16:49

Последний вопрос:
19.03.2019, 15:15
Всего: 149055

Последний ответ:
20.03.2019, 15:13
Всего: 258006

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

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

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

Наша кнопка:

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

Отзывы о нас:
23.11.2010, 17:33 »
shif45
Большое спасибо. Потрясающе развернутый ответ, хотя для меня и сложноватый, но буду пытаться разобраться. [вопрос № 180893, ответ № 264288]
08.01.2012, 17:30 »
Данилов Артем Владимирович
Большое спасибо за ответ, думаю ваш совет мне поможет. [вопрос № 185115, ответ № 269497]
02.03.2019, 12:12 »
dar777
Это самое лучшее решение! [вопрос № 194819, ответ № 277564]

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

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

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

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

Зенченко Константин Николаевич
Статус: Старший модератор
Рейтинг: 473
zdwork
Статус: 1-й класс
Рейтинг: 126
puporev
Статус: Профессионал
Рейтинг: 104

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

Консультация онлайн # 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.14989 сек.

© 2001-2019, Портал RFPRO.RU, Россия
Калашников О.А.  |  Гладенюк А.Г.
Версия системы: 7.72 от 17.03.2019
Версия JS: 1.33 | Версия CSS: 3.35