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

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

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

> Количество клеток внутри окружности
Dranik7
сообщение 9.10.2010 18:17
Сообщение #1


Новичок
*

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

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


Текст задачи:

На клеточной бумаге нарисовали окружность целого радиуса с центром на пересечении линий.
Найти количество клеток, целиком лежащих в этой окружности (напр.: радиус = 3, клеток = 16)

Помогите решить.

Сообщение отредактировано: Dranik7 - 9.10.2010 18:43
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
TarasBer
сообщение 11.10.2010 11:38
Сообщение #2


Злостный любитель
*****

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

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


Сам квадратный корень считается точно.

procedure WriteE(e: extended);
var
a: record
mant: array [0 .. 7] of byte;
ex: word;
end absolute e;
i: integer;

begin
Write(IntToHex(a.ex, 4), ' ');
for i := 7 downto 0 do Write(IntToHex(a.mant[i], 2));
WriteLn;
end;

begin
for i := 1 to 40000 do writee(sqrt(sqr(i)));
WriteLn('END');
writee(1-5e-20);
writeln(trunc(1-5e-20));
ReadLn;
end.



Ровный ряд нулей в правом столбике доказывает это.

Я не знаю, как там сопроцессор спаян, если там корень столбиком считается (в этот метод, правда, сам вкурить не могу), то там всё точно.
Trunc отрезает всё, даже если там сплошные единицы, последние две строки вывода доказывают это.


--------------------
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
Dranik7   Количество клеток внутри окружности   9.10.2010 18:17
TarasBer   c := 0; for i := 1 to r - 1 do inc(c, trunc(sqrt(s...   9.10.2010 18:29
Dranik7   TarasBer, спасибо Есть ли другие способы решений?...   9.10.2010 18:34
volvo   "Помогите" и "решите за меня"/...   9.10.2010 18:39
Dranik7   "Помогите" и "решите за меня...   9.10.2010 18:45
TarasBer   > получается кол-во клеток = 2 в степени радиус...   9.10.2010 18:56
Dranik7   > получается кол-во клеток = 2 в степени радиу...   10.10.2010 20:29
TarasBer   Ты вообще пробовал сам нарисовать окружность на кл...   10.10.2010 21:02
Dranik7   TarasBer, пробовал. Не сдам, т.к. как кое-что все...   10.10.2010 21:06
TarasBer   Оператор inc изучал?   10.10.2010 21:19
Dranik7   Оператор inc изучал? Да. Получается "c...   10.10.2010 22:34
Unconnected   Наоборот, trunc(sqrt(sqr®-sqr(i) нужно сложить с...   10.10.2010 22:48
TarasBer   Мда, если мы сложим trunc(...) с c, а не наоборот,...   10.10.2010 23:42
Lapp   "В окне автобуса поплыл **аный военкомат......   11.10.2010 1:53
TarasBer   > TarasBer, приведенный тобой код может неслабо...   11.10.2010 8:48
Lapp   Я надеюсь на то, что человек таки догадается сравн...   11.10.2010 10:12
TarasBer   Пришлось скопировать этот код себе и запустить. Ок...   11.10.2010 10:20
Lapp   Пришлось скопировать этот код себе и запустить. Ок...   11.10.2010 10:29
TarasBer   Больше ничего не вижу.   11.10.2010 10:53
Lapp   Больше ничего не вижу.Я имел в виду вот, что. sqr...   11.10.2010 11:02
TarasBer   Я про это думал. Под корнем число целое. sqrt от т...   11.10.2010 11:16
Lapp   sqrt от точного целого квадрата ошибки не даёт.Хм....   11.10.2010 11:21
TarasBer   Сам квадратный корень считается точно. procedure ...   11.10.2010 11:38
Lapp   Я не знаю, как там сопроцессор спаян, если там кор...   11.10.2010 12:04


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

 



- Текстовая версия 21.06.2025 20:53
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"