Матрицы, многочлены, последовательности Опции

[Archon]

Про то, что координаты точки, которая должна принадлежать всем окружностям должны быть вещественными, я в задании ничего не нашел,

Конечно, нет! :p2: Однако, может быть что условию удовлетворяет точка только с вещественными координатами :nono: .

[volvo]

Насколько я знаю, в паскале при возведении в квадрат числа типа integer получается число типа integer. Может возникнуть ошибка переполнения.
Предлагаю использовать числа longint и ограничить максимальный размер числа (их лучше задавать random'ом).

Нет, не принимается !!! У тебя не генерируется, а задается массив чисел (причем ты сам указал на то, что это - массив Действительных чисел)... Вот и будь добр ВВОДИТЬ 15 действительных чисел. И LongInt здесь совершенно не при чем. (кстати и при возведении Integer-ов в квадрат можно элементарно избежать переполнения - приведение типов еще никто не отменял... )

Кстати, в твоей программе есть логическая ошибка: у тебя будут распечатываться все те точки, которые попадают в круг №15, потому как S присваивается результату последней проверки, а результаты предыдущих проверок не учитываются...

[Archon]

при возведении Integer-ов в квадрат можно элементарно избежать переполнения - приведение типов еще никто не отменял...

Что-то у вас я этого не заметил B).

Так ты предлагаешь, сделать с действительными x,y,r и целыми координатами точек?

добавлено:

Код

Uses
 crt;

const
 MaxX = 319;
 MaxY = 199;
 MinR = 100;
 MaxR = 200;
 n = 3{15};

var
 x, y, r : array [1..n] of real;
 i, j, k : integer;
 S : boolean;

begin
 TextMode(259);
 Randomize;
 For k := 1 to n do
 begin
   Write('x[',k,']='); ReadLn(x[k]);
   Write('y[',k,']='); ReadLn(y[k]);
   Write('r[',k,']='); ReadLn(r[k]);
 end;
 For i := 0 to MaxX do
   For j := 0 to MaxY do
   begin
     S := true;
     For k := 1 to n do
       If sqr(i-x[k])+sqr(j-y[k]) > sqr(r[k]) then
         S := false;
     If S then Write('(',i:3,',',j:3,') ');
   end;
 ReadKey;
end.

Сообщение отредактировано: Archon - 12.06.2005 16:38

[Archon]

Кстати, в твоей программе есть логическая ошибка: у тебя будут распечатываться все те точки, которые попадают в круг №15, потому как S присваивается результату последней проверки, а результаты предыдущих проверок не учитываются...

Извени, не понял...
Перед проверкой S := true.
Во время проверки, если хоть в одну окружность точка не попадает, то S := false
После проверки если S = true выводим координаты точки.
Всё должно работать!

[klem4]

В любом случае зачем каждый раз просматривать ВСЕ окружности, допустим у тебя после первой проверки S:=false... следующие 14 бессмысленны будут.



автор, уточни задание ;)

Сообщение отредактировано: klem4 - 12.06.2005 17:05

[MSDDV]

Извините, что так долго не отвечал. У нас сегодня День Города, приезжал Дом2, мне впринципе всё равно, но моей девушке нравиться.
Уважаемые кодеры в задании нужно найти единственную точку принадлежащуюю всем 15ти окружностям....

[klem4]

1) по поводу координат и радиуса, они все целые ?
2) Нам дано 15 окружностей, для которых мы сами задаем координаты центра и радиусы ? или же как я подумал в началe, окружности находятся в каждой точке плоскости 15*15 и радиус у нее(окружности) соответсвует иксу ( то есть у окружности в точке M(4,12) R=4) ? правда в таком случае решения не будет. =)

Сообщение отредактировано: klem4 - 12.06.2005 23:54

[volvo]

в задании нужно найти единственную точку принадлежащуюю всем 15-ти окружностям....

Уважаемый, задание-то переиначивать не надо !!! В задании ясно сказано:

Выяснить, есть ли на плоскости точка, принадлежащая всем кругам...

"Да" или "Нет" (True/False) ни о каких координатах речи вообще нет !!! Единственная ли точка, или их 5000, ответ будет "Да"

[MSDDV]

1) по поводу координат и радиуса, они все целые. :D
2) Нам дано 15 окружностей, для которых мы сами задаем координаты центра и радиусы. :D

Вроде так. Да препод чудак, так дал задания, что в некоторых даже непонятно, что нужно


Уважаемый Volvo как говорит наш препод: "Вывод на экран слогов типа Да и Нет не дает полного решения задачи"
Так что в этой задаче мне нужно найти и вывести координаты хотя бы одной точки, удовлетворяющей условию.

Сообщение отредактировано: MSDDV - 13.06.2005 1:25

[MSDDV]

:molitva: Помогите с заданиями 1 и 2 завтра сдача

[volvo]

Задание №2 было решено еще в посте №14 !!! То решение неверное? Или оно просто не было замечено? (специально для преподавателя, давшего такое задание, я изменил вывод)... А по-поводу этого:

Уважаемый Volvo как говорит наш препод: "Вывод на экран слогов типа Да и Нет не дает полного решения задачи"

Было задание "выяснить есть ли точка", оно было выполнено. Если у преподавателя могут быть претензии - то только к себе самому... Когда полное решение задачи подразумевает вывод координат точки, будь добр указать это в задании.

[MSDDV]

Volvo Огромное спасибо!!

[MSDDV]

Эту тему можно убить :D

[-Игорь-]

3.Даны действительные числа s,t многочлен Р(х) степени n. Получить многочлен (sх^2 + t) Р(х) + Р'(х), где Р'(х) — производная многочлена Р(х).

не могу найти где она описана,очень надо,пожалуйста!

[Anonimys]

Некропоост, дааа :D

Зачем труп 7-летней давности воскрешать?

[Bujhm]

Я не могу в этой теме найти ответ на задачу,что прикажешь делать?! помоги напиши и все будет ок!

P.S Игорь и я одно лицо,когда писал пост не зарегался=_)

Сообщение отредактировано: Bujhm - 5.05.2012 22:52