Принадлежит ли точка (X,Y) кругу радиусом R с центром в начале координат

@RoLeX_X · Регистрация: 20.02.2013

Author24 — интернет-сервис помощи студентам

После ввода координат точки определяет принадлежит ли она кругу радиусом R с центром в точке начале координат.

@antonboom · 20.02.2013, 20:58

9 класс?

Кликните здесь для просмотра всего текста

Visual Basic

Option Explicit
 
Private Sub Form_Load()
Dim x As Double
Dim y As Double
Dim R As Double
 
R = InputBox("Ââåäèòå ðàäèóñ îêðóæíîñòè")
x = InputBox("Ââåäèòå X-êîîðäèíàòó")
y = InputBox("Ââåäèòå Y-êîîðäèíàòó")
 
If x ^ 2 + y ^ 2 <= R ^ 2 Then
MsgBox ("Ïðèíàäëåæèò")
Else
MsgBox ("Íå ïðèíàäëåæèò")
End If
End Sub

@RoLeX_X · 20.02.2013, 21:01 **[ТС]**

11) Но все-равно спасибо)

@~~Апострофф~~ · 20.02.2013, 21:06

Visual Basic

1	msgbox array("Не принадлежит","Принадлежит")(-(inputbox("R=")^2>=(inputbox("X=")^2+inputbox("Y=")^2)))

@antonboom · 20.02.2013, 21:11

Не по теме:

я ждал этого, когда какой-нибудь про напишет программу, но в одну строку :)

~~dev.Free~~ · 20.02.2013, 21:35

Не по теме:

antonboom, Челябинские программисты настолько суровы, что создают приложения (.EXE) в блокнотах Microsoft Windows. :D

@Казанский · 20.02.2013, 22:12

Крч

Visual Basic

1	MsgBox IIf(InputBox("R=") ^ 2 >= InputBox("X=") ^ 2 + InputBox("Y=") ^ 2, "П", "Не п") & "ринадлежит"

SoftIce · 21.02.2013, 08:56

Visual Basic

1	MsgBox IIf((MsgBox("x^2+y^2 < r^2 ?", vbYesNo)) = 6, "Yes", "No")

@~~Апострофф~~ · 21.02.2013, 09:17

Тогда уж так

Visual Basic

1	MsgBox MsgBox("x^2+y^2 < r^2 ?", vbYesNo) = 6

~~dev.Free~~ · 21.02.2013, 09:17

Не по теме:

Апострофф, А слабо сократить до 4 символов ? )))))

@~~Апострофф~~ · 21.02.2013, 09:20

Не по теме:

inv.DS, давай уж сам какнибуть

@Craw · 21.02.2013, 16:39

Сообщение от inv.DS

Не по теме:

Апострофф, А слабо сократить до 4 символов ? )))))

Не по теме:

Я могу до одного символа! Все запихни в процедуру А и напиши где нужно :rofl:

Visual Basic

Новые блоги и статьи
Преобразование полей (элементов управления содержимым) в обычный текст РоΜа 23.01.2025 Возникла необходимость преобразовать поля в текст (те, что на вкладке разработчик добавляются) . Помучившись родил следующее: Sub ПоляВТекст() Преобразует все поля в текст (даты, текст,. . .	Как проверить существование директории в скрипте Bash bt_guru 23.01.2025 При разработке скриптов Bash одной из ключевых задач является корректная работа с файловой системой, где особое место занимает проверка существования директорий. Эта операция становится критически. . .	Как работают срезы (slice) в Python bytestream 23.01.2025 Python предоставляет разработчикам мощный и гибкий инструмент для работы с последовательностями данных - срезы (slices). Эта функциональность позволяет извлекать, модифицировать и управлять. . .	Как удалить подмодуль (submodule) в Git bytestream 23.01.2025 При работе с крупными проектами в системе контроля версий Git разработчики часто сталкиваются с необходимостью управления зависимостями и внешними компонентами. Подмодули (submodules) представляют. . .	В чем разница между @staticmethod и @classmethod в Python. Декораторы методов bytestream 23.01.2025 В Python декораторы методов представляют собой мощный инструмент, позволяющий модифицировать поведение функций и методов без изменения их исходного кода. Эта возможность является одной из. . .	Как преобразовать InputStream в String в Java bytestream 23.01.2025 В мире Java-разработки работа с потоками данных является одной из ключевых операций при создании современных приложений. InputStream, как фундаментальный класс для обработки входных потоков данных,. . .
Как обновить форк (ответвление) репозитория в Git bytestream 23.01.2025 Одним из наиболее мощных инструментов Git для организации совместной работы является механизм форкинга репозиториев, который позволяет создавать независимые копии проектов для дальнейшей разработки. . . .	Как работает async/await в C#. Асинхронное программирование в .NET bytestream 23.01.2025 Введение в асинхронное программирование Асинхронное программирование представляет собой важнейшую концепцию современной разработки программного обеспечения, особенно в контексте создания. . .	КуМир: полное руководство bytestream 23.01.2025 Введение в КуМир: история создания и назначение КуМир (Комплект Учебных МИров) представляет собой образовательную среду программирования, которая была создана для обучения основам алгоритмизации и. . .	Что такое OLAP. Где и как использовать многомерный анализ данных bytestream 23.01.2025 Введение в OLAP-технологии В современном мире бизнес-аналитика и обработка больших массивов данных играют ключевую роль в принятии стратегических решений. Организации накапливают огромные объемы. . .	MongoDB: что это, для чего нужна и как использовать bytestream 23.01.2025 Введение в MongoDB: современная документоориентированная СУБД В современном мире разработки программного обеспечения выбор правильной системы управления базами данных является критически важным. . .	Как использовать закрытый ключ шифрования в Git. Шифрование в Git bytestream 23.01.2025 Установка и настройка закрытых ключей в Git предоставляет дополнительный уровень безопасности для работы с репозиториями. Для начала необходимо создать пару ключей, обычно это осуществляется с. . .

Принадлежит ли точка (X,Y) кругу радиусом R с центром в начале координат

Решение

Решение

@RoLeX_X 0 / 0 / 0 Регистрация: 20.02.2013 Сообщений: 4
		1
	Принадлежит ли точка (X,Y) кругу радиусом R с центром в начале координат 20.02.2013, 20:48. Показов 3977. Ответов 11 Метки нет (Все метки) После ввода координат точки определяет принадлежит ли она кругу радиусом R с центром в точке начале координат. 0

@RoLeX_X 0 / 0 / 0 Регистрация: 20.02.2013 Сообщений: 4
	20.02.2013, 21:01 [ТС]	3
	11) Но все-равно спасибо) 0

@antonboom
	20.02.2013, 21:11 #5
	Не по теме: я ждал этого, когда какой-нибудь про напишет программу, но в одну строку :) 0

~~dev.Free~~
	20.02.2013, 21:35 #6
	Не по теме: antonboom, Челябинские программисты настолько суровы, что создают приложения (.EXE) в блокнотах Microsoft Windows. :D 1

~~dev.Free~~
	21.02.2013, 09:17 #10
	Не по теме: Апострофф, А слабо сократить до 4 символов ? ))))) 0

@~~Апострофф~~
	21.02.2013, 09:20 #11
	Не по теме: inv.DS, давай уж сам какнибуть 0