27.05.2019, 05:25 [+3 UTC]
в нашей команде: 3 648 чел. | участники онлайн: 1 (рекорд: 21)

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

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

все разделы

правила

новости

участники

доска почёта

форум

блоги

поиск

статистика

наш журнал

наши встречи

наша галерея

отзывы о нас

поддержка

руководство

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

Общие новости:
28.04.2019, 09:13

Форум:
25.05.2019, 11:20

Последний вопрос:
26.05.2019, 22:05
Всего: 149702

Последний ответ:
26.05.2019, 16:58
Всего: 258528

Последняя рассылка:
26.05.2019, 23:45

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

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

Наша кнопка:

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

Отзывы о нас:
22.04.2019, 16:37 »
dar777
Это самое лучшее решение! [вопрос № 195325, ответ № 277928]
18.11.2010, 00:42 »
Лукин Андрей
большое спасибо, все работает =) [вопрос № 180826, ответ № 264153]

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

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

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

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

Зенченко Константин Николаевич
Статус: Старший модератор
Рейтинг: 255
zdwork
Статус: 2-й класс
Рейтинг: 207
puporev
Статус: Профессионал
Рейтинг: 128

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

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

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