IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> записи, текстовое и графическое решение, подготовка к экзамену
сообщение
Сообщение #1


Пионер
**

Группа: Пользователи
Сообщений: 55
Пол: Женский

Репутация: -  0  +


Даны n окружностей на плоскости, заданных координатами своих
центров и радиусами. Найти все окружности, вложенные в самую
большую окружность. Использовать ЗАПИСИ. Исходные данные получить
с помощью генератора случайных чисел. Решение проиллюстрировать графически.


--------------------
Удачи.
Катерина
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гость






Катюша, и все-таки, что именно не получается?

Так дело не пойдет - это не называется "подготовка"... Смысл какой НАМ решать эти задачи? Ты должна решать их... Попробуй, если что не получится - поможем...
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Пионер
**

Группа: Пользователи
Сообщений: 55
Пол: Женский

Репутация: -  0  +


вы мне покажите решиние.. пожалуйста..

я вообще не знаю, как тут рещать и чего..

а мне уже разбираться и писать новое будет легче..

или это лень все- эти отмазки ваши?


--------------------
Удачи.
Катерина
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Гость






Цитата(Катюша @ 24.07.05 22:38)
я вообще не знаю, как тут рещать и чего..

А ты возьми лист бумаги и реши задачу сама (графически), а потом попробуй объяснить это компьютеру...

Цитата(Катюша @ 24.07.05 22:38)
или это лень все- эти отмазки ваши?

Ты хорошо подумала, прежде чем это написать? Как ты отреагировала на такой выпад в свой адрес, напомнить? Я буду реагировать ГОРАЗДО жестче... angry.gif
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Пионер
**

Группа: Пользователи
Сообщений: 55
Пол: Женский

Репутация: -  0  +


я найду Олега тогда и попрошу ему объяснить - что и как писать.. потому что я не программировала, в отличии от вас 2 года.

мне даже простейшую программу написать сложно.

а сроку мне осталось- месяц. :fire:


--------------------
Удачи.
Катерина
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Гость






Цитата(Катюша @ 24.07.05 22:38)
вы мне покажите решение.. пожалуйста..
я вообще не знаю, как тут рещать и чего..

Короче так, генерируешь по рандому X,Y и R N раз : ). Самая большая окружность (m)– у которой R больше. Дальше находишь все окружности (i), у которых расстояние от центра (Xi,Yi) до (Xm,Ym) + Ri ,будет меньше Rm, рисуешь их другим цветом. Все.
Да, запись используешь для хранения инфы об окружности.
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Пионер
**

Группа: Пользователи
Сообщений: 55
Пол: Женский

Репутация: -  0  +


я не понимаю mlc того, что Вы написали


--------------------
Удачи.
Катерина
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #8


Гость






Цитата(Катюша @ 25.07.05 14:27)
я не понимаю mlc того, что Вы написали

Бери книгу по Паскалю и читай работу с записями (Record) и графику...
 К началу страницы 
+ Ответить 
сообщение
Сообщение #9


Профи
****

Группа: Пользователи
Сообщений: 705
Пол: Мужской

Репутация: -  20  +


Цитата(Катюша @ 25.07.05 14:27)
я не понимаю mlc того, что Вы написали
:D
Вот примерно так:
uses crt,graph;
const n=30;
type cir = record
x,y,r:longint;
end;
var i,m:integer;
c:array [1..n] of cir;
begin
{ инициализируем графику }
for i:=1 to n do begin
{ инициализируем случ. значениями структуру c[i] }
circle (c[i].x,c[i].y, c[i].r); { и отрисовываем ее }
if c[m].r<c[i].r then m:=i;
end;

setcolor(4); circle (c[m].x,c[m].y, c[m].r); setcolor(6);
for i:=1 to n do
if (sqrt(sqr(c[i].x-c[m].x)+sqr(c[i].y-c[m].y))+c[i].r)<c[m].r
then circle (c[i].x,c[i].y, c[i].r);
{ закрываем графический режим }
end.

Что не понятно спрашивай smile.gif

Malice, ты тоже, что непонятно - спрашивай angry.gif
Я не увидел твоего ответа, продублируй, плиз, в мыло..
А нет, нашел, теперь понятно..

Сообщение отредактировано: Malice -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #10


Пионер
**

Группа: Пользователи
Сообщений: 55
Пол: Женский

Репутация: -  0  +


я знаю все операторы.. я не знаю, как их применять и использовать unsure.gif


--------------------
Удачи.
Катерина
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #11


Гость






Цитата(mlc @ 24.07.2005 22:50) *

Дальше находишь все окружности (i), у которых расстояние от центра (Xi,Yi) до (Xm,Ym) + Ri ,будет меньше Rm, рисуешь их другим цветом. Все.
Да, запись используешь для хранения инфы об окружности.

а можешь прописать эту единственную строку или для определения вложенных окружностей
 К началу страницы 
+ Ответить 
сообщение
Сообщение #12


Гость






Meshashringi
 К началу страницы 
+ Ответить 
сообщение
Сообщение #13


Гость






Specificity Of Cephalexin For Pept1
 К началу страницы 
+ Ответить 
сообщение
Сообщение #14


Гость






Vytorin And Propecia
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 15.08.2022 2:21
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name