VPF::Помогите, ошибка 207 - Форум программистов

SapFira

Дата 3.3.2009, 11:02 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 23
Регистрация: 9.4.2007

Репутация: нет
Всего: нет

Код


Program L;
var
c,b,r,x,z,k:real;
N,i:word;
begin
write('Zadajte granitsy b i c');
readln(b,c);
write('Kol-vo slu4ajnyx 4isel N');
readln(N);
randomize;
for i:=1 to N do
begin
r:=Random;
z:=ln(r);
k:=1/c;
x:=(-b)*(exp(ln(z)*k));
writeln('x',i:5,'=',x:5:3);
end;
writeln('modelirovanie zaversheno');
end.

Программа моделирования случайной величины, выдает ошибку 207 на строке где вычисление происходит, помогите исправить это

volvo877

Дата 3.3.2009, 11:05 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

Функция Ln может принимать только положительные аргументы, но никак не нулевые, и не отрицательные... Перед вычислением посмотри, чему равен Z, скорее всего он < 0, отсюда и ошибка...

Update:
Да не скорее всего, а точно... У тебя ж Random вернет случ. число в интервале 0 .. 1, а Ln этого числа всегда будет отрицательным (e только в отрицательной степени будет меньше 1-цы)

Это сообщение отредактировал(а) volvo877 - 3.3.2009, 11:08

SapFira

Дата 3.3.2009, 11:25 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 23
Регистрация: 9.4.2007

Репутация: нет
Всего: нет

Понятно, и что же сделать тут? убрать random?

volvo877

Дата 3.3.2009, 11:34 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

Почему убрать? Просто генерировать числа не в интервале 0 .. 1, а больше чем 1 (чтобы при ln(число) возвращалось положительное значение). Кстати, что значат "границы" в твоей программе? Уж не тот ли интервал, в котором надо генерировать случ. числа?

SapFira

Дата 3.3.2009, 11:40 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 23
Регистрация: 9.4.2007

Репутация: нет
Всего: нет

Да, это интервал в котором нужно генерировать случ.числа

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »