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

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

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

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


Гость






Препод задал задачи а я недорубаю мож поможете...

1 задача:
На плоскости расположена окружность радиусом R с центром в начале координат.Введите заданные координаты точки и определите,находится ли она на окружности.Результат присвойте символьной переменной.Точка находится на окружности ,если длина радиус-вектора,соединяющего начало координат с заданной точкой,равна R (проверку на равенство осуществить с точностью до e=1.0E-3).

2 задача:
Для любых вещественных положительных a и h найдите в последовательности 1,1+h,1+2h... первое значение,больше a.

Какие есть мысли?
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Автооответчик
*****

Группа: Пользователи
Сообщений: 1 188
Пол: Мужской
Реальное имя: Александр

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


1. растояние между двумя точками находится по формуле
Код

rasst:=sqrt(sqr(x1-x2)+sqr(y1-y2));

зная это тебе несложно будет написать проверку...


--------------------
Неадекватная чушь может быть адекватным ответом на неадекватный вопрос. Понятно или разжевать?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Автооответчик
*****

Группа: Пользователи
Сообщений: 1 188
Пол: Мужской
Реальное имя: Александр

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


че-то вроде того:
function IsInCircle(radius,x,y:real):boolean;
begin
IsInCircle:=radius>sqrt(sqr(x)+sqr(y));
end;


примерно так... не проверял и не вдумывался...


--------------------
Неадекватная чушь может быть адекватным ответом на неадекватный вопрос. Понятно или разжевать?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Автооответчик
*****

Группа: Пользователи
Сообщений: 1 188
Пол: Мужской
Реальное имя: Александр

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


читай правила: "Заголовок темы должен быть информативным" :fire: :low:
твое счастье, что я сразу не заметил, а то грохнул бы тему не заглядывая...
а так даже помог чем смог...
чтобы впредь читал правила, прежде чем создавать тему! :nono:

Сообщения разделены в тему: Решение уравнения


--------------------
Неадекватная чушь может быть адекватным ответом на неадекватный вопрос. Понятно или разжевать?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


-
****

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

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


2) [(a-1)/h] +1


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


Бывалый
***

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

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


Цитата
и определите,находится ли она на окружности.
...
Точка находится на окружности ,если длина радиус-вектора,соединяющего начало координат с заданной точкой,равна R


GoodWind, требуется проверка на нахождение точки на окружности, а не внутри. Поэтому код выглядит примерно так:

function IsOnCircle(radius,x,y:real):boolean;
begin
IsInCircle:=(radius=sqrt(sqr(x)+sqr(y)));
end;



--------------------
Доброго времени суток.
:nnn:
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Профи
****

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

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


Цитата(Дож @ 20.09.2005 15:50)

function IsOnCircle(radius,x,y:real):boolean;
begin
IsInCircle:=(radius=sqrt(sqr(x)+sqr(y)));
end;



Это не целый тип, а вещественный! Т.к. на компютере очень редко выполняется равенства с использованием вещественных чисел 2*sin(1.47)*cos(1.47)=sin(2*1.47)
Надо так:
function IsOnCircle(radius,x,y,epsilon:real):boolean;
begin
IsInCircle:=(abs(radius-sqrt(sqr(x)+sqr(y)))<=epsilon);
end;



--------------------
Никогда не жадничай. Свои проблемы с любовью дари людям!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #8


Гость






hiv, только
Цитата
function IsInCircle(radius,x,y,epsilon:real):boolean;
, хотя, Дож, это больше касается тебя :yes:
 К началу страницы 
+ Ответить 
сообщение
Сообщение #9


Бывалый
***

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

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


volvo, а там и писалось IsOnCircle, т.к.
Цитата
требуется проверка на нахождение точки на окружности



Цитата
Это не целый тип, а вещественный! Т.к. на компютере очень редко выполняется равенства с использованием вещественных чисел 2*sin(1.47)*cos(1.47)=sin(2*1.47)

И неужели нет стан функции по ср. 2 вещественных чисел с заданною погрешностью?


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


Гость






Цитата(Дож @ 20.09.2005 16:05)
volvo, а там и писалось IsOnCircle

angry.gif Неужели не понятно, что я имею в виду? Название функции и то, чему ты присваиваешь ее значение что, не должно иметь одно и то же имя? Ты ВООБЩЕ компилятор хоть иногда запускаешь, или п.6 правил раздела к тебе уже не относится???
 К началу страницы 
+ Ответить 
сообщение
Сообщение #11


Профи
****

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

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


Volvo, от твоего взгляда не скроешься! smile.gif Ты конечно прав - это я проглядел...
Дож, сравнение оно и в африке сравнение - все битики должны совпасть. Вернее проблема не в сравнении а в точности вычислений вещественных чисел.

Сообщение отредактировано: hiv -


--------------------
Никогда не жадничай. Свои проблемы с любовью дари людям!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #12


Автооответчик
*****

Группа: Пользователи
Сообщений: 1 188
Пол: Мужской
Реальное имя: Александр

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


да... слажал я smile.gif)
читал быстро, потому-что торопился на хэт smile.gif кто знает, поймет, кто не знает - www.allods.net


--------------------
Неадекватная чушь может быть адекватным ответом на неадекватный вопрос. Понятно или разжевать?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

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

 





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