19.07.2019, 20:24 [+3 UTC]
в нашей команде: 3 750 чел. | участники онлайн: 2 (рекорд: 21)

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

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

все разделы

правила

новости

участники

доска почёта

форум

блоги

поиск

статистика

наш журнал

наши встречи

наша галерея

отзывы о нас

поддержка

руководство

Версия системы:
7.77 (31.05.2019)
JS-v.1.34 | CSS-v.3.35

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

Форум:
18.07.2019, 12:26

Последний вопрос:
19.07.2019, 18:28
Всего: 149944

Последний ответ:
19.07.2019, 12:46
Всего: 258709

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

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

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

Наша кнопка:

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

Отзывы о нас:
03.05.2011, 20:41 »
Невалёный Виталий Владимирович
БОЛЬШОЕ СПАСИБО!!! [вопрос № 183010, ответ № 266934]
01.02.2010, 10:40 »
Anjali
Спасибо, всё понятно! [вопрос № 176425, ответ № 259112]

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

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

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

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

Зенченко Константин Николаевич
Статус: Старший модератор
Рейтинг: 196
puporev
Статус: Профессионал
Рейтинг: 76
Асмик Гаряка
Статус: Советник
Рейтинг: 0

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

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

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