Правила форума :: Скачать Pascal :: FAQ // Ада–2020 :: Скачать GNAT :: OEM–2015 :: Ada -> C/C++
Прочтите прежде чем задавать вопрос!1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| Найти непересекающиеся окружности |
| Carrera |
Сообщение
#1
|
|
Группа: Пользователи Сообщений: 3 Пол: Женский Реальное имя: Марина Репутация:  0   |
Я вообще не понимаю в програмировании.Никогда не было информатики а тут надо одну задачу решить и зачет.Рещите пожалуйста кто умеет .Нужно в турбо паскале.Буду оч благодарна(шоколадку обеспечу))
Окружность на плоскости задана координатами X,Y,R-радиус(все значения формируются случайным образом).Из 20-ти окружностей показать те,которые не пересекают другие. |
   |
 
|
Lapp Примерно вот так:
const
n= 20;
var
c: array[1… 17.10.2011 1:27 Carrera Спасибо огромное!!как тебе шоколадку перед… 18.10.2011 2:24 IUnknown Андрей, одна окружность лежащая внутри другой, но … 18.10.2011 2:41 Lapp Андрей, одна окружность лежащая внутри другой, но … 18.10.2011 21:34
Carrera Ребята,спасибо вам огромное.я как сдам.вам отпишу)… 18.10.2011 23:53 TarasBer > j:= 1;
> while (j<=n) and ((i=j) or (Sq… 19.10.2011 19:35 Lapp Я надеюсь, ты это написал не всерьёз, а чтобы оста… 20.10.2011 4:06 TarasBer > но я не уверен..
В чём? Что умножить число н… 20.10.2011 16:06  |
|
Текстовая версия | 6.11.2025 21:21 |
