Форум программистов, компьютерный форум, киберфорум
Наши страницы
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.88/8: Рейтинг темы: голосов - 8, средняя оценка - 4.88
Loces
0 / 0 / 0
Регистрация: 11.03.2010
Сообщений: 10
1

почему возникает ошибка?

11.03.2010, 22:26. Просмотров 1498. Ответов 4
Метки нет (Все метки)

--------------------------------------------------------------------------------

Привет!
Я писала программу для того, чтобы найти значения функции - программа простая - надо было задать формулу, по которой в цикле посчитались и вывелись бы нужные значения. Однако возникает ошибка: error while linking, почему-то, перел последним end.
Подскажите, пожалуйста, как исправить?
А программу надо было такую:
"Расчет диффузионных профилей" - называется так,

N/N(нулевое)=erfc(x/корень(Dt))=1-erf(x/(2*корень(Dt))
только я в паскале не нашла функцию эрфактум..., поэтому переписала в ПРОСТОМ варианте:
y=(1/(1+a1*x/(2*корень(Dt))+a2*(x/(корень(Dt)))^2+a3*(x/(корень(Dt)))^3+a4*(x/(корень(Dt)))^4)^4)-0,01
где D=10^(-10) - десять в минус десятой степени
t=60 секунд
a1=0,278393
a2=0,230389
a3=0,000972
a4=0,078108
Получилась программа:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Var
x,y,a1,a2,a3,a4,t,h:real;
begin
a1:=0.278393;
a2:=0.230389;
a3:=0.000972;
a4:=0.078108;
x:=0.29;
t:=60;
h:=10000/(2*sqrt(t));
while x<=1.26 do
begin
y:=-0.01+1/sqr(sqr(1+sqr(a1*x*h+a2*(x*h))+sqr(a3*x*h)*a3*x*h+ sqr(sqr(a4*x*h))));
writeln ('x= ' ,x:4:2, ' y= ',y:8:6);
x:=x+0.03;
end;
readln;
end.
Причем, надо еще график тоже в паскале построить, а потом все это в маткаде сделать, но эта ошибка все время появляется, подскажите, как ее исправить...
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.03.2010, 22:26
Ответы с готовыми решениями:

Перевод с АЯ на PASCAL, возникает ошибка
Пoмoгитe перевести с алгоритмического языка на pascal, как будет правильно? Долго уже сижу, ошибка...

Из-за чего возникает ошибка? [pascal]
Из-за чего возникает ошибка? Пишу на Паскале 7.0(Pascal) Ошибка деления на ноль. Devision by...

Почему возникает ошибка?
Подскажите пожалуйста почему возникает ошибка? using System; using...

Почему возникает ошибка?
Короче надо найти такое k при котором интеграл будет равен l Почему он ругается?? Равно стоит...

Почему возникает ошибка?
Есть функция function r() { var q = document.getElementById('d1'); ...

4
Puporev
Модератор
56610 / 43293 / 29932
Регистрация: 18.05.2008
Сообщений: 102,999
11.03.2010, 22:32 2
Запустил в Турбо Паскаль 7.0, ошибок нет, но странно что при любых х, у всегда = -0,01.
Возможно что-то с формулой.
0
Loces
0 / 0 / 0
Регистрация: 11.03.2010
Сообщений: 10
11.03.2010, 22:58  [ТС] 3
Нам сказали, что х будет с двумя знаками после запятой, а у - с 6 знаками после запятой...

Мне не удается запустить программу во FREE PASCAL

Но если y всегда -0,01, может быть, подскажете, пожалуйста, как поступить в этом случае???
Может, тип переменных какой-нибудь другой надо...

Добавлено через 13 минут
кроме того, нам дали формулу: N/N(нулевое)=erfc(x/корень(Dt))=1-erf(x/(2*корень(Dt))
где эта самая функция erf(z) от какой-то переменной z определяется так:
erf(z)=1-1/[(1+a1*z+a2*z^2+a3*z^3+a4*z^4)^4]+E(z) где E(z)=0,01 и промежуток х [0,29;1,26]

График - кривая, нам сказали, похожа на ветвь обычной гиперболы, убывающей в 1 четверти...
Подскажите, прошу...
0
Puporev
Модератор
56610 / 43293 / 29932
Регистрация: 18.05.2008
Сообщений: 102,999
12.03.2010, 09:22 4
Я запустил во Фрее, все работает, тот же результат. В коде ничего не менял, просто скопировал Ваш.
Вот скрин.
0
Миниатюры
почему возникает ошибка?  
Loces
0 / 0 / 0
Регистрация: 11.03.2010
Сообщений: 10
12.03.2010, 16:26  [ТС] 5
Странно, может я в цикле что-то не так сделала... Но вроде бы все верно...?
0
12.03.2010, 16:26
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.03.2010, 16:26

Почему-то возникает ошибка
public: CModBus ModBus(void); Form1(void) { InitializeComponent(); DWORD Res =...

Почему возникает ошибка?
template &lt;class T&gt; class HashTable { .... }; class FileHashTable: public HashTable &lt;Policy&gt;...

Почему возникает ошибка?
Prelude&gt; if True then True else f 20 &lt;interactive&gt;:21:25: No instance for (Num Bool)...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru