|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
21.10.2014, 00:20 | #11 |
Старожил
Регистрация: 25.08.2011
Сообщений: 2,841
|
Вот код:
Код:
Skype - wmaster_s E-Mail - WorldMasters@gmail.com
Работаем по 3 критериям - быстро, качественно, недорого. Заказчик выбирает любые два. Последний раз редактировалось WorldMaster; 21.10.2014 в 00:28. |
21.10.2014, 00:32 | #12 | |
Пользователь
Регистрация: 30.09.2014
Сообщений: 27
|
Цитата:
[ CODE] var Angleouble; d,x,y, R: double; p,l, xc, yc: Integer; Begin Angle:=0; While (angle <369) do Begin x :=300+ 50* Cos(angle); y :=200+ 50* Sin(angle); angle:=angle+0.5; p := Round(x); l := Round(y); R := 50; xc := 250; yc := 200; for p := 0 to 500 do for l := 0 to 500 do begin d := sqrt(sqr(p-R-xc) + sqr(l-yc)); if (d < R) and (l-yc < 0) then Writeln ( ' все попадает '); End; End; End. [/CODE] Последний раз редактировалось Vadim7721; 21.10.2014 в 00:35. |
|
21.10.2014, 00:34 | #13 | |
Старожил
Регистрация: 23.10.2010
Сообщений: 2,310
|
Цитата:
Если Вы удосужитесь нарисовать некоторую точку на Вашем рисунке и опустить из нее перпендикуляры на оси, а так же соедините точку с "центром полукруга", то увидите тот самый прямоугольный треугольник (и катеты, и гипотенузу - линию, которая соединяет точку с "центром полукруга"). А вот если Вы не поленитесь, и нарисуете много, ну очень много точек, которые попадают в круг, то с еще большей вероятностью поймете, при чем тут Пифагор. PS: Под понятием "центр полукруга" следует понимать точку, которая была центром круга, частью которого является рассматриваемый полукруг. Ну это так, ... Как-то так, ...
Как-то так, ...
|
|
21.10.2014, 00:48 | #14 |
Старожил
Регистрация: 25.08.2011
Сообщений: 2,841
|
Да можно еще проще.
Код:
Skype - wmaster_s E-Mail - WorldMasters@gmail.com
Работаем по 3 критериям - быстро, качественно, недорого. Заказчик выбирает любые два. |
21.10.2014, 00:56 | #15 |
Пользователь
Регистрация: 30.09.2014
Сообщений: 27
|
Разве не надо readln (x,y); ?
|
21.10.2014, 01:06 | #16 | |
Цифровой кот
Старожил
Регистрация: 29.08.2014
Сообщений: 7,629
|
Цитата:
Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
|
|
21.10.2014, 09:30 | #17 |
Старожил
Регистрация: 25.08.2011
Сообщений: 2,841
|
Сами то хоть что нибудь сделайте. Вам итак основной алгоритм разжевали.
Skype - wmaster_s E-Mail - WorldMasters@gmail.com
Работаем по 3 критериям - быстро, качественно, недорого. Заказчик выбирает любые два. |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Описание функции по рисунку | X-REY | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 20.11.2011 16:20 |
назначить рисунку собитые | SkrudjMakdak | JavaScript, Ajax | 1 | 06.07.2011 00:00 |
Как прикрепить рисунок к рисунку | GrEFon | HTML и CSS | 2 | 26.11.2007 17:21 |
Окно по рисунку | Stanislav | Общие вопросы Delphi | 2 | 03.10.2007 14:18 |
окно по рисунку | Roof | Помощь студентам | 7 | 16.07.2007 21:18 |