Теория

pva · Отправлено: **01:18, 17-01-2009** | #2

а так если:

Код:

var x: single;
begin
  x := nan;
  writelen(x);
end;

DedAlex · Отправлено: **10:15, 17-01-2009** | #3

ManHack, в Delphi, NaN можно получить вот так

Код:

(1.0/0.0)/(1.0/0.0)

попробуйте, может и в Паскале сработатет.

Busla · Отправлено: **12:21, 17-01-2009** | #4

А если самостоятельно сконструировать в памяти необходимое значение переменной?
Если верить переводу официального руководства:

Код:

4-х байтовый (32-х битный) тип Single делится на три поля:
1 	8 	23
s 	e 	f
msb 	lsb 	msb 	lsb


Значение числа v определяется как,

если 0 < e < 255, то v = (-1)**s x 2**(e-127) x (1.f).
если e = 0 и f <> 0, то v = (-1)**s x 2**(-126) x (0.f).
если e = 0 и f = 0, то v = (-1)**s x 0
если e = 255 и f = 0, то v = (-1)**s x Inf.
если e = 255 и f <> 0, то v = NaN.

Busla · Отправлено: **12:36, 17-01-2009** | #5

Вообще - добыть несколько нормальных справочников в электронном и поискать в них строку NaN. Она всплывёт в описаниях функций, будет указано в каких случаях получается такая ситуация. Преобразование строки в число по идее должно давать NaN. Извлечение корня из отрицательного числа.

ManHack · Отправлено: **18:43, 17-01-2009** | #6

Цитата:

если e = 255 и f <> 0, то v = NaN.

А как задать это самое single-число с полем e=255 ? у меня в этом поле больше 30 не помещается >.<

Код:

(1.0/0.0)/(1.0/0.0)

Erorr 140: Invalid floating point operator.

Код:

var x: single;
begin
  x := nan;
  writelen(x);
end;

Error 3: Unknown indefender

Busla · Отправлено: **23:01, 17-01-2009** | #7

ManHack, ну примерно вот так:

Код:

var
  x: single;
  l: longint absolute x;

begin
 l:=2139095041;
 writeln (x);
end.

только, похоже, writeln не умеет возвращать NaN, т.к. получаем ошибку выполнения
207: Invalid floating point operation

ManHack · Отправлено: **19:54, 19-01-2009** | #8

Заранее известно, что задача выполнимая. На Паскале v7.0.
Неужели всё настолько сложно?

Busla · Отправлено: **13:40, 20-01-2009** | #9

ManHack, раз вам дают такие задачи, значит это разбиралось на лекциях или практиках - меньше надо было прогуливать.

Надеюсь, мы потом увидим правильное решение?

ManHack · Отправлено: **15:57, 20-01-2009** | #10

Эту задачу дали "кому мозг охота сломать". Я не прогуливал. Честно-честно